Forums Scripts & Popups auto warning/kick/ban script

alias cekText {
 var %aa = 1
 while (%aa >= $lines(text.txt)) {
  if ($read(text.txt,%aa) isin $1- return ok
  inc %aa
 }
 return $null
}

on *:TEXT:*:#:if ($cekText($1-)) kick # $nick Bad Word!

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
  }
}