#mrt on
alias tara {
  var %mrtt = 1
  while (%mrtt <= $nick(#,0)) {
    var %Bad = $nick(#,%mrtt)
    if ($level($nick(#,%mrtt)) == nnick) { mode # +b %bad  | kick # %bad  7Tarih :14 $date 7Saat :14 $time 15[4 $me 15] 12• %swsw  }
    inc %mrtt
  }
}
on nnick:nick: {
  mode # +b $newnick  | kick # $newnick  15[4  15] 12• %swsw 7Tarih :14 $date 7Saat :14 $time
}
on nnick:join:#: {
  mode # +b $nick  | kick # $nick   15[4 15] 12• %swsw 7Tarih :14 $date 7Saat :14 $time
}
#mrt end
menu * {
  Kötü Nick Koruması
  .Korumayı aç:enable #mrt
  .Korumayı kapat:disable #mrt
  .tara:tara
  .ekle:auser nnick * $+ $$?="nick veya idendt yazınız:" $+ *
  .çıkart:ruser nnick * $+ $$?="nick veya idendt  yazınız:" $+ *
  .yasaklama mesajın:set %swsw $$?="yasaklama mesajınızı yazınız:"
}

#identd on
on !*:join:#kanaladı:var %* = 1 | while ($read(identd.txt,%*)) { if ($istokcs($gettok($gettok($address($nick,5),1,64),2,33),$v1,32)) { .gzline $nick 5 11,1 $server Lamer Savar  ßy $me | break } | inc %* }
#identd end
menu channel {
  -
  Identd Koruması
  .$iif($group(#identd) == off,Aç,Kapat):$iif($group(#identd) == off,.disable,.enable) #identd
  .Identd ekle:write identd.txt $?="Eklenecek identdi girinic."
  .Identd sil:write $+(-dL,$?="Silinecek identdi giriniz.") identd.txt
  -
}