on @*:text:*:#:{
var %a = 1, %b = $0
while %a <= %b {
if $read(swear.txt,nt,$gettok($1-,%a,32)) {
inc -u86400 $+(%,swear.,$address)
.msg $chan No swearing $nick
.msg $chan This is your $ord($($+(%,swear.,$address),2)) warning
if $($+(%,swear.,$address),2) > 2 {
.ban -ku300 $chan $nick Swearing
.msg $bnick No swearing in $chan
}
}
inc %a
}
}