on *:text:!rembadword *:#:{
if ($nick isop $chan) {
/remini sysbadword.ini $chan $2
/notice $nick < $2 > sucessfuly removed
}
}
on *:text:!addbadword *:#:{
if ($nick isop $chan) {
/writeini -n sysbadword.ini $chan $2 $3-
/notice $nick The Badword $2 should be added to $chan $+ .
}
}
on *:text:!listbadword:#:{
if ($nick isop $chan) {
var %t.bword = $ini(sysbadword.ini,$chan,0)
while %t.bword > 0 {
if %n.bword == $null { var %n.word = $ini(sysbadword.ini,$chan,%t.bnick) }
else { set %n.bword %n.bword $ini(sysbadword.ini,$chan,%t.bnick) }
dec %t.bword
}
while %t.bword == 0 {
notice $nick %n.bword
dec %t.bword
}
}
}
on *:text:!badwordhelp:#:{
if ($nick isop $chan) {
/notice $nick To add badword: !addbadword word reason
/notice $nick list: !listbadword ; rem: !rembadword word
}
}
on *:text:*:#:{
if ($me isop $chan) {
var %a = 1
var %b = $ini(sysbadword.ini,$chan,0)
var %c = $ini(sysbadword.ini,$chan,%a)
while (%a <= %b) {
if (%c isin $1-) {
kick $chan $nick $readini(sysbadword.ini,$chan,%c) ( $+ %c $+ )
/set %a $calc(%b + 1)
}
else { halt }
}
inc %a
}
}