; Swear kicker
; by simplicity  
 
on @*:text:*:#:{ 
  var %swear = shit,fuck
  if ($strip($1-,$gettok(%swear,1-,44))) {
    var %x = 3
    var %y = 1
    inc %swear.num. [ $+ [ $nick ] ] 
    while (%swear.num. [ $+ [ $nick ] ] isnum %y) { 
      msg $chan $+($nick,:) Do not swear in $+($chan,$chr(46)) Any more of this conduct and you will be banned.
      halt
    }
    while (%swear.num. [ $+ [ $nick ] ] iswm %x) {
      unset %swear.num. [ $+ [ $nick ] ]
      ban -k # $nick You have been banned for swearing. 
    }
  }
}   
 
 
on *:part:#:{ 
  if ($gettok(%swear.num. [ $+ [ $nick ] ],1-,44)) { unset %swear.num. [ $+ [ $nick ] ] }
}
 
on *:quit:{ 
  if ($gettok(%swear.num. [ $+ [ $nick ] ],1-,44)) { unset %swear.num. [ $+ [ $nick ] ] }
}

Commenting Options