on *:Text:!nick *:#kanal: {
  if ($regex($nick,/^(rumuz|rumuz2|rumuz3)$/i)) {
    if ($2 == ekle) { set %nick aaslu: $+ $3 $+ !*@* 1Kara Listemdesin.! | nickekle %nick | unset %nick   }
    if ($2 == sil) { set %nick aaslu: $+ $3 $+ !*@* 1Kara Listemdesin.! | nicksil %nick | unset %nick  }
    if ($2 == list) {  msg $chan Nickler Listeleniyor. | nicklist | msg $chan Nickler Listesi Sonu }
  }
}
alias nickekle { if $1 { if $read(users.ini,w,$1-) { msg $chan - $1- - Nick'i zaten listede. | halt } | else { write users.ini $1- | msg $chan - $1- -  Nick'i listeye eklendi. } } }
alias nicklist { var %s = 1,%ss = $lines(users.ini) | while %s <= %ss { msg $chan  $read(users.ini,%s) | inc %s } }
alias nicksil { if $1 { if !$read(users.ini,w,$1-) { msg $chan  $1-   Nick'i listesinde yok. | halt } | else { write $+(-dl,$readn) users.ini | msg $chan - $1- -  Nick'i listesinden silindi. } } }