BadNick Koruması ( Nick ve Kanal Korumalı )

on badnick:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
    kick $chan $nick 5BadNick! | mode $chan +b $nick
  }
}
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) {
          kick %e $newnick 5YeniNick'in BadNick!  |  mode %e +b $newnick
        }
        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 $+ @*
}