Forums Scripts & Popups help on script ontext

on @*:TEXT:*:#channel: {
  var %swears = swear1,swear2,swear3,swear4
  var %warns = 2
  var %x = $numtok(%swears,44)
  tokenize 32 $strip($1-)
  while (%x) && ($nick isreg $chan) {
    if ($istok($1-,$gettok(%swears,%x,44),32)) {
      inc $+(%,swear.,$wildsite)
      var %n = $($+(%,swear.,$wildsite),2)
      if (%n <= %warns) {
        .kick # $nick This is your $ord(%n) warning for using forbidden language in this channel. $iif(%n = %warns,warning.)"
      }
      elseif (%n > %warns) {
        .ban # $nick 2 Using forbidden language
        unset $+(%,swear.,$wildsite)
      }
    }
    dec %x
  }
}

on *:START: { unset %swear.* }