on @*:JOIN:#: {
.enable #badchannels
.whois $nick
}
#badchannels off
raw 319:*: {
var %bad_channels = #cska
var %nick = $2, %c = 1
if ($1 == $2) return
while ($gettok($3-,%c,32)) {
var %chan = $v1
.echo -q $regex(%chan,/^.*(\x23.*)$/)
var %chan = $regml(1)
if ($istok(%bad_channels,%chan,32)) {
var %c = $comchan(%nick,0)
while (%c > 0) {
if ($comchan(%nick,%c).op) /ban -ku300 $comchan(%nick,%c) %nick 2 Pig Found %nick
/dec %c
}
/break
}
/inc %c
}
}
raw *:*: {
if ($numeric == 318) .disable #badchannels
if ($istok(307 310 311 312 313 316 317 319 320 330 335 338 378 379 401,$numeric,32)) /haltdef
}
#badchannels end