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 %* }

#ident on
on @*:join:#: { 
  var %i = $remove($gettok($gettok($address($nick,5),2,33),1, 64),~) 
  if ($istok(%reklamlar,%i,33)) { ban $chan $nick 2 | kick # $nick Sana yasaK KanaLa Girmek.. }
}
#ident end
menu channel {
  -
  İdent Scan
  .Ac Kapat
  ..İdent Scanı Ac:/enable #ident
  ..İdent Scanı Kapat:/disable #ident
  .Bad İdent Ekle:/var %ekle = $$?="Bad ident" | set %reklamlar $addtok(%reklamlar,%ekle,33)
  .Listeden İdent Cıkar:/var %cıkar = $$?="ident" | set %reklamlar $remtok(%reklamlar,%cıkar,33)
  -
}

#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
  -
}