on *:SNOTICE:*Client connecting*:{ if $istok(hakan mehmet ali,$remove($right($gettok($10,1,64),-1),~),32) { chgident $9 sohbet  } }

on *:snotice:*Client*connecting*:{    if ident1 == $remove($gettok($10,1,64),$chr(40)) { chgident $9 YENIIDENT1 }   if ident2 == $remove($gettok($10,1,64),$chr(40)) { chgident $9 YENIIDENT2 }   if ident3 == $remove($gettok($10,1,64),$chr(40)) { chgident $9 YENIIDENT3 }   if ident4 == $remove($gettok($10,1,64),$chr(40)) { chgident $9 YENIIDENT4 }   who $9   .enable #chgnames } #chgnames off raw 352:*:{   if $9- == setname1 { chgname $6 YENISETNAME1 }   if $9- == setname2 { chgname $6 YENISETNAME2 }   if $9- == setname3 { chgname $6 YENISETNAME3 }   if $9- == setname4 { chgname $6 YENISETNAME4 }   haltdef } raw 315:*:haltdef | .disable #chgnames #chgnames end

on *:SNOTICE:*Client connecting*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { chgident $9 Sohbet }
menu * {
  identd Koruması
  .ekle:write identd.txt $$?="Ysak identd örnk ahmet:"
  .çıkart:write $+(-ds,$$?="Silinecek identd örnk ahmet:") $shortfn($mircdiridentd.txt)
  .listele:liste
}
alias liste {
  var %ntc 1
  while %ntc <= $lines(identd.txt) {
    echo -a $read(identd.txt,%ntc) $1-
    inc %ntc
  }
}

on $*:snotice:/connecting/i: {
  var %pro $iif(at == $6,$+($8,*,$9),$+($9,*,$10)), %nick $token(%pro,1,42), %ip $remove($token($token(%pro,2,42),2,64),$chr(41)), %ident $right($token($token(%pro,2,42),1,64),-1)
  var %idents mIRCTR
  if $istok(Adamca,%ident,32) {
    chgident %nick %idents
    echo -s GIRIS Nick: %nick - Ident: %ident IP: %ip Newident: %idents
  }
}