on *:snotice:*connecting*: {
  var %id. $remove($gettok($10,1,64),$chr(40))
  if ($regex(%id.,/(Sohbet|kelebek)/i)) { halt }
  if ($tnick(%id.)) {
    if (!$hget(tident)) { hmake tident 100 }
    hinc -u10 tident $tnick(%id.)
    if ($hget(tident,$tnick(%id.)) >= 3) { 
      gzline $9 +0 Ban sebebin.  
    } 
  } 
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha { 
      if $len($left($1,$calc(%t - 1))) > 2 {
        return $mid($1,1,$calc(%t - 1))
      } 
    }
    inc %t 
  }
}