mIRC badword script

on *:CONNECT: {
if (!%badwords) {
set %badwords pcw,skill low,counter-strike server,2x2,3x3,4x4,5x5,2on2,5on5,5vs5,4on4,4vs4,3on3,3vs3,2vs2,1vs1,1on1,1v1,2v2,3v3,4v4,5v5,1on1,1n1,2n2,3n3,4n4,5n5,1 on 1,2 on 2,3 on 3,4 on 4,5 on 5,1 x 1,2 x 2,3 x 3,4 x 4,5 x 5,1 vs 1,2 vs 2,3 vs 3,4 vs 4,5 vs 5,$chr(35),.com,www,.org,http,fuck,penis,cock
echo -a %badwords has been set }
else { echo -a The badwords have already been set. }
}
alias bdwd {
if (!%badwords) {
set %badwords pcw,skill low,counter-strike server,2x2,3x3,4x4,5x5,2on2,5on5,5vs5,4on4,4vs4,3on3,3vs3,2vs2,1vs1,1on1,1v1,2v2,3v3,4v4,5v5,1on1,1n1,2n2,3n3,4n4,5n5,1 on 1,2 on 2,3 on 3,4 on 4,5 on 5,1 x 1,2 x 2,3 x 3,4 x 4,5 x 5,1 vs 1,2 vs 2,3 vs 3,4 vs 4,5 vs 5,$chr(35),.com,www,.org,http,fuck,penis,cock
}
echo -a %badwords has been set
else { echo -a The badwords have already been set. }
}
*/
The below two aliases can add ( one or more words at a time ) and delete ( one word at a time ) words from the list.
*/
alias addword {
if (!$1) {
echo Please specify something to be added. | halt
}
var %i 1
while (%i <= $0) {
if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { echo That word or words is already in the list | halt } | inc %i }
set %badwords $replace($addtok(%badwords,$1-,32),$chr(32),$chr(44))
echo The new list is --> %badwords
}

alias delword {
if (!$1) { echo Please specify something to be removed. | halt }
if (!$istok(%badwords,$1,44)) { echo That word is not in the list. | halt }
else {
set %badwords $remtok(%badwords,$1,44)
echo The new list is --> %badwords
}
}

ON *:TEXT:*:*:{
if ($nick !isop #) {
if ($nick !isop #allnitecafe) {
if ($nick !isop #beginner) {
if ($nick !isvoice #) {
if ( $me isop # ) {
if (fuck !isin $chan) {
if (chatnfun !isin $chan) {
var %i 1
while (%i <= $0) {
if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { notice $nick Please do not use such language in $chan again. | /kick # $nick $nick $+ , To the curb with you gutter mouth! 5 Minute ban. | /ban -u300 $chan $address($nick,2) | halt } | inc %i }
else { halt }
}
}
}
}
}
}
}
}

thank you dan