on ^*:open:?: {
var %a = 0
while (%a < $numtok(%spamwords,32)) {
inc %a
var %spamcheck = $gettok(%spamwords,%a,32)
if ($istok($strip($1-),%spamcheck,32) == $true) {
var %hai = 0
while (%hai <= $comchan($nick,0)).op {
inc %hai
ban -ku $comchan($nick,%hai) $nick 2 Private message spammer
}
}
}
}
menu channel {
Add SpamWords
.Add:/set %spamwords $addtok(%spamwords,$$?,32) | echo -a 4SpamWord Added.
.Remove:/set %spamwords $remtok(%spamwords,$$?,32) | echo -a 4SpamWord Removed.
}