Swears FIX for Dune2K v1.9

alias -l swear_words { return fuck.shit.damn.lol.hmm }

ON @*:TEXT:*:#SWGhost: {
  if ($nick isop $chan) { return }
  tokenize 32 $strip($1-)

  var %a = $ial($nick).host
  var %t = $numtok($swear_words,46)
  var %i = 1

  while (%i <= %t) {
    var %w = $gettok($swear_words,%i,46)

    if (!$istok($1-,%w,32)) && (* $+ %w $+ * !iswm $1-) { goto next }

    inc -e $+(%,violation,_,%a) 1

    var %m = $evalnext($+(%,violation,_,%a))

    if (%m == 1) { ban -u300 $chan $nick 3 | describe $chan Has muted $nick (This is your $ord(%m) warning, 5 minutes ban for foul language!) | break }
    if (%m == 2) { ban -u600 $chan $nick 3 | describe $chan Has muted $nick (This is your $ord(%m) warning, 10 minutes ban for foul language!) | break }
    if (%m >= 3) { describe $chan Has muted $nick (This is your $ord(%m) warning, 30 minutes ban for foul language!) | ban -ku1800 $chan $nick 3 Banned! | break }

    :next
    inc %i
  }
}