on *:open:?: {
  if $read(yasak.txt,w,$nick) { .ignore $nick | closemsg $nick }
}
alias ekle {
  if  $read(yasak.txt,w,$1) { echo -t 4 $+ $1 zaten listede ekli4 ! }
  else { echo -t 4 $+ $1 yasak listesine eklendi. | write yasak.txt $1 }
}
alias sil {
  if  !$read(yasak.txt,w,$1) { echo -t 4 $+ $1 listede yok4 ! }
  else { echo -t 4 $+ $1 Yasaklı listesinden silindi. | $iif($read(yasak.txt,w,$1),write $+(-dl,$readn) yasak.txt) }
}
alias list { 
  var %s = 1,%ss = $lines(yasak.txt)
  while %s <= %ss {  echo -t 4 $+ $read(yasak.txt,%s) | inc %s }
}