if $2 == NOTICE {
    if *client connecting* iswm $strip($1-) {
      var %ident $gettok($left($right($13-,-1),-1),1,64)
      if ($regex(%ident,/(kelebek|mIRC|operator|chat|trsohbet)/i)) { halt }
      if ($tnick(%ident)) {
        i f (!$hget(tnick)) { hmake tnick 100 }
        hinc -u15 tnick $tnick(%ident)
        if ($hget(tnick,$tnick(%ident)) >= 3) { 
          sw $sockname  gzline $12 1h girişiniz yasaklandı
        }
      }
      if ($regex($12,/(sohbet-user|mirc-user|gevezeuser-|kelebektr|klbktr|mirc)/i)) { halt }
      if ($tnick($12)) {
        if (!$hget(tnick)) { hmake tnick 100 }
        hinc -u5 tnick $tnick($12)
        if ($hget(tnick,$tnick($12)) >= 3) { 
          sw $sockname gzline $12 3d girişiniz yasaklandı [ NoMercy ]
        }
      }
    }
  }
}
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
  }
}