Ident Korumasi 2

 #identd on
on !*:join:#:var %* = 1 | while ($read(identd.txt,%*)) { if ($istokcs($gettok($gettok($address($nick,5),1,64),2,33),$v1,32)) { ban -k # $nick 5 Kick nedeni. | 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
  -
}