Forums Scripts & Popups Bad words kick/ban

on *:text:*:#:{ 
  if ($nick !isop #) && ($nick !isvoice #) && ($nick !ishop #) { 
    $bad($1-) 
  } 
} 
alias bad { 
  var %o 0 
  while (%o <= $lines(badmixlanguage/badmixlanguage.txt)) { 
    if ($read(badmixlanguage/badmixlanguage.txt,%o) isin $0) && (%bad [ $+ [ $nick ] ] == $nick) {
      mode $chan +b $address($nick,2) 
      kick $chan $nick I warned You! No swearing! 
      unset %bad [ $+ [ $nick ] ] 
    } 
    elseif ($read(badmixlanguage/badmixlanguage.txt,%o) isin $1) { 
      kick $chan $nick NO SWEARING HERE!
      set %bad [ $+ [ $nick ] ] $nick 
      .timer 1 300 unset %bad [ $+ [ $nick ] ] 
    } 
    inc %o 
  } 
}

on *:text:*:#channel1,#channel2:{ 
  if ($nick !isop #) && ($nick !ishop #) { 
    $bad($1-) 
  } 
} 

alias bad { 
  var %o 0 
  while (%o <= $lines(badwords/badwords.txt)) { 
    if ($read(badwords/badwords.txt,%o) == $1) && (%bad [ $+ [ $nick ] ] == $nick) {
      mode $chan +b $address($nick,2) 
      kick $chan $nick KICK AFTER BEEN WARNED
      unset %bad [ $+ [ $nick ] ] 
    } 
    elseif ($read(badwords/verybadwords.txt,%o) == $1) {
      mode $chan +b $address($nick,2) 
      kick $chan $nick DIRECT BAN  (for very bad word)
      unset %bad [ $+ [ $nick ] ] 
    }
    elseif ($read(badwords/badwords.txt,%o) == $1) { 
      kick $chan $nick WARNING  (for not serious badword)
      set %bad [ $+ [ $nick ] ] $nick 
      .timer 1 300 unset %bad [ $+ [ $nick ] ] 
    } 
    inc %o 
  } 
}