on *:snotice:*connecting*:{
  if ($regex($9,/(klbk|klbkbeta|klbktr|vxyuser|mIRC|zurnauser|gevezeuser|operator)/i)) { halt }
  if ($tnick($9)) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick($9)
    if ($hget(tnick,$tnick($9)) >= 3) { 
      spamfilter add u gzline - $tnick($9)
    } 
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) isalpha { 
      if $len($left($1,$calc(%t - 1))) > 4 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}

on *:snotice:*Client*connecting* {
  if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
    spamfilter add u gzline - $tnick($9)
  }
}

alias _ban var %. 1 | while $hmatch(giris,$1,%.) { gline $v1 ban sebebi. | spamfilter add u gzline - $tnick($9)  | hdel $1 $v1 | inc %. }
on $*:snotice:/connecting/i: {
if ($regex($9,/(Muaf1|muaf2)/i)) { halt }
  if ($regex($9,/(.{3,})-(.{1,})/i)) {
    var %n = $token($9,1,45) $+ -* 
    hadd -mu5 giris $9 _
    if ($hmatch(giris,%n,0) >= 4) {
      _ban %n
    }
  }
}