on *:JOIN:#: {
set %badword.line 1
:badword
if ( $read -l $+ %badword.line " $+ $mircdir\badwords.txt $+ " == $null ) { halt }
elseif ( $read -l $+ %badword.line $mircdir $+ \badwords.txt isin $gettok($address($nick,15),1,64)) ) { goto badwordkick }
else { inc %badword.line | goto badword }
:badwordkick
kick # $nick Do not use that language here!
else { halt }
:end
}