on *:snotice:*connecting*: {
  if ($regex($gettok($10,1,64),/(Sohbet|kelebek)/i)) { halt }
  if ($tnick($gettok($10,1,64))) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick($gettok($10,1,64))
    if ($hget(tnick,$tnick($gettok($10,1,64))) >= 3) { 
    gzline $gettok($10,1,64) +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 } }