on !*:part:#: {
if ($istok($1-,%badwords,32)) {
.ban $chan $nick
}
}
alias rembadword {
if ($1) {
if (!$istok(%badwords,$1,32)) { .var %e $input(Can not remove this " $+ $1 $+ " badword is not in the badword list!,houd,Error) | .halt }
.set %badwords $remtok(%badwords,$1,32)
.var %k $input(Successfully removed " $+ $1 $+ " from the badword list,oid,Information)
}
else .var %e $input(Wrong syntax: try using /rembadword <badword>,houd,Error)
}
alias addbadword {
if ($1) {
if ($istok(%badwords,$1,32)) { .var %e $input(Can not add this " $+ $1 $+ " badword is allready in the badword list!,houd,Error) | .halt }
.set %badwords $addtok(%badwords,$1,32)
.var %k $input(Successfully added " $+ $1 $+ " into the badword list,oid,Information)
}
else .var %e $input(Wrong syntax: try using /addbadword <badword>,houd,Error)
}