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
    }
  }
}

on @badnick:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{ 
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) { 
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick Dışarı!
        } 
        inc %Cnk 
      } 
    } 
  }
}

on @badnick:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{ 
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) { 
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick Dışarı!
        } 
        inc %Cnk 
      } 
    } 
  }
}
alias badnickekle {
  auser badnick $1 $+ !*@*
}
alias badnicksil {
  ruser badnick $1 $+ !*@*
}
alias nickkoruma {
  auser koruma $1 $+ !*@*
}
alias badidentekle {
  auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
  ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
  auser koruma *! $+ $1 $+ @*
}