alias _ban var %. 1 | while $hmatch(giris,$1,%.) { gline $v1 ban sebebi. | hdel $1 $v1 | inc %. }
on $*:snotice:/connecting/i: {
if ($regex($9,/(Sohbet|Sohbet2)/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
    }
  }
}

alias _ban var %. 1 | while $hmatch(giris,$1,%.) { gzline $v1 ban sebebi. | hdel $1 $v1 | inc %. }
on $*:snotice:/connecting/i: {
if ($regex($9,/(Sohbet|kelebek)/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
    }
  }
}