alias clearban {
; /clearban Channel [nick!user@host]
var %b = $iif($2,$2,$address($me,5)), %x = $ibl($1,0), %unban
while (%x) {
if ($ibl($1,%x) iswm %b) {
var %unban = %unban $v1
}
if ($numtok(%unban,32) > 5) {
mode $1 -bbbbbb %unban
var %unban
}
dec %x
}
if (%unban) {
mode $1 $+(-,$str(b,$numtok(%unban,32))) %unban
}
echo -ac info * Done clearing bans.
}
menu channel {
Remove bans matching me: {
if ($me isop $chan) clearban $active
else echo -ac info * $me $+ : You're not a channel operator.
}
}