Kod

#Ident on
on *:Snotice:*: {
  if $read(ident.txt,w,$right($gettok($10,1,64),$calc($len($gettok($10,1,64))-1))) && $read(ident.txt,w,$right($gettok($10,1,64),$calc($len($gettok($10,1,64))-1))) === $right($gettok($10,1,64),$calc($len($gettok($10,1,64))-1)) {
    gline $9 5h 4 Ident'iniz yasakli oldugundan sunucudan uzaklastirildiniz. 
    msg #deneme 2identd Line:1 $9-
  }
}
}
#Ident end
alias identekle { if $1- { if $read(ident.txt,w,$1) { halt } | else { write ident.txt $1- } } }
alias identsil { if $read(ident.txt,w,$1-) { write -dl $+ $readn ident.txt } }