alias /f1 auser badnick $$1!*@* | var %x 1 | while %x <= $comchan($$1,0) { inc %x | if !$istok(#cinsellik #***,$comchan($$1,%x),32) { if $me isop $comchan($$1,%x) { ban $comchan($$1,%x) $$1 | kick $comchan($$1,%x) $$1 Badnick } } }

alias badnicktara { 
  var %a 1 | var %b 1
  while %a <= $chan(0) { 
    if !$istok(#cinsellik #***,$chan(%a),32) && $me isop $chan(%a) {
      while %b <= $nick($chan(%a),0) { 
        if $ulist($nick($chan(%a),%b),badnick,0) { ban $chan(%a) $nick($chan(%a),%b) | kick $chan(%a) $nick($chan(%a),%b) Badnick } 
        inc %b 
      } 
    }
    var %b 1 
    inc %a
  }
}