Badword/Swearing Warn and Kick

This simple snipet will warn, kick and then ban people who says a bad word in the channel

Thanks to RusselB for making this snipet

The code is:

on *:text:*:#:{
  var %a = 1, %b = $0
  while %a <= %b {
  if $read(badword.txt,nts,$gettok($1-,%a,32)) {
  inc $+(%,violation,.,$address)
  if $($+(%,violation,.,$address),2) == 1 {
  .notice $nick This is your first warning.. Do not use $gettok($1-,%a,32) in $chan
  %a = %b
  }
  elseif $($+(%,violation,.,$address),2) == 2 {
  .cs kick $chan $nick You were warned. Next time it'll be a ban
  %a = %b
  }
  else {
  cs ban $chan $nick Some people don't listen
  %a = %b
  unset $+(%,violation,.,$address)
  }
  }
  inc %a
  }
}