on BadNick:JOIN:*:{
  if ($me isop $chan) || ($me ishop $chan) {
    if ($ulist($fulladdress,koruma,0) >= 1) { return }
    elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
      mode $chan +b $nick
      kick $chan $nick Kötü Nick.
    }
  }
}
on *:NICK:{ 
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) { 
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e || $me ishop %e  && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick Değiştiğiniz nick uygun değil
        } 
        inc %Cnk 
      } 
    } 
  }
}



on *:text:*:#: {
  if ($me isop $chan) || ($me ishop $chan) {
    var %knals #kanal1
    if $nick isop $chan || $nick isvoice $chan || $nick ishop $chan { return }
    if !$istok(%knals,$chan,44) {
      var %< = 1 | while (%< <= $lines(kufur.txt)) {
        if $read(kufur.txt,%<) iswm $1- {
        .mode $chan +b $wildsite | kick # $nick Küfür Yasak!  }
        inc %<
      }
    }
  }
}