on @*:JOIN:#: {
.whois $nick
}
raw 319:*: {
[color:blue]; List of channels unaccepted, seperated by a space[/color]
var %bad_channels = #bad_chan1 #bad_chan2 #bad_chan3
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 Kicked for bad channel
/dec %c
}
/break
}
/inc %c
}
}