alias bad { 
  var %ğ = 1 
  while $read(badnicklist.txt,%ğ) { 
    if $v1 iswm $1- { 
      return $v1 
      break
    } 
    inc %ğ
  } 
  return $false 
}
 
alias muaf { 
  var %x = 1 
  while $read(muaf.txt,%x) { 
    if $v1 iswm $1- { 
      return $v1 
      break
    } 
    inc %x
  } 
  return $false 
}
 
on @*:JOIN:#:if $bad($nick) && !$muaf($nick) && !$read(muafkanal.txt,w,$chan) { mode # +b $nick | kick # $nick Badnick }
 
on *:NICK:{ 
  if $bad($newnick) && !$muaf($newnick) { 
    var %cnk 1
    while %cnk <= $comchan($newnick,0) {
      if $me isop $comchan($newnick,%cnk) && !$read(muafkanal.txt,w,$comchan($newnick,%cnk)) {
        mode $comchan($newnick,%cnk) +b $newnick
        kick $comchan($newnick,%cnk) $newnick Badnick!
      }
      inc %cnk
    }
  }
}