on *:nick: {
  var %x 1
  while $comchan($newnick,%x) {
    var %v1 $v1
    if ($regex(%v1,/(#kanal1|#kanal2)/i)) {
      hadd -mu4 newnick %v1 $addtok($hget(newnick,%v1),$newnick,32)
      if ($numtok($hget(newchan,%v1),32) >= 4) {
        tokenize 32 $hget(newnick,%v1)
        ban -k %v1 $* 1 Ban sebebi
        hdel -m newnick %v1 $deltok($hget(newnick,%v1),$*,32)
      }
    }
    inc %x
  }
}