alias badtxt return $+(",$scriptdirbadword.txt")
alias badchan { if ($1 isin $bad($2).type) || (!$bad($2).type) { return $true } }
alias bad {
if ($1) {
if ($prop == type) {
%s = 1
while (%s <= $lines($badtxt)) {
if ($gettok($read $+(-l,%s) $badtxt,1,44) iswm $1) { return $gettok($read $+(-l,%s) $badtxt,2-,44) | halt }
inc %s
}
unset %s
}
else {
%s = 1
while (%s <= $lines($badtxt)) {
if ($gettok($read $+(-l,%s) $badtxt,1,44) iswm $1) { return $gettok($read $+(-l,%s) $badtxt,1,44) | halt }
inc %s
}
unset %s
}
}
}
on *:join:#:{
if ($bad($fulladdress)) && ($badchan(#,$fulladdress)) {
if ($me isop $chan) {
kick # $nick Bad Nick/Ident
}
else ($me !isop $chan) { return }
}
}