on *:nick:{
var %a = 1, %b = $comchan($nick,0)
while %a <= %b {
if ($me isop $comchan($nick,%a)) {
var %c = 1, %d = $ibl($comchan($nick,%a),0)
while %c <= %d {
if $newnick isin $ibl($comchan($nick,%a),%c) {
.ban -k $comchan($nick,%a) $newnick
%c = %d
}
inc %c
}
}
inc %a
}
}