Code:
alias swear {
  return some swear words here
}

On @*:Text:*:#: {
  if (!$hget(swear)) hmake swear 10
  var %i = 1
  while ($gettok($swear,%i,32)) {
    if ($istok($1-,$v1,32)) { 
      if ($nick !isop $chan) {
        hinc swear $nick
        if ($hget(swear,$nick) == 1) notice $nick Some warn message.
        if ($hget(swear,$nick) == 2) kick $chan $nick Some kick message.
        if ($hget(swear,$nick) == 3) { ban -k $chan $nick 2 Some kick/ban message. | hdel swear $nick }
      }
    }
    inc %i
  }
}