on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } }

alias badnicks {
  var %t = 1
  while (%t <= $lines(badnick.txt)) {
    if ($1 iswm $read(badnick.txt,%t)) { echo -a $1 Karşılığı : $read(badnick.txt,%t) }
    inc %t
  }
}

on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 <= %2 { if $me isop $comchan($nick,%1) { ban $comchan($nick,%1) $nick 5 | kick $comchan($nick,%1) $nick Uygunsuz nick. } | inc %1 } } }