Mine

on *:TEXT:*:#isbil:{ if ($nick == $me || $nick == [PCE]Terribot || $nick == X) { halt }
  var %c = 1
  while (%c <= $lines(norsk.txt)) {
    if ($+(*,$read(norsk.txt,%c),*) iswm $1-) {
      inc %kickc [ $+ [ $address($nick,2) ] ]
      if (%kickc [ $+ [ $address($nick,2) ] ] == 1) notice $nick Warning! Only English in $chan $+ !
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 2) ban -ku120 $chan $nick 2 12 $+ 2 14min ban! Reason:12 English ONLY in $chan $+ 14!(1st warning) N00bZ PwnT:12 %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 3) ban -ku240 $chan $nick 2 12 $+ 4 14min ban! Reason:12 English ONLY in $chan $+ 14!(2nd warning) N00bZ PwnT:12 %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 4) ban -ku360 $chan $nick 2 12 $+ 6 14min ban! Reason:12 English ONLY in $chan $+ 14!(3rd warning) N00bZ PwnT:12 %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 5) {
        ban -ku1800 $chan $nick 2 12 $+ 30 14min ban! Reason:12 English ONLY in $chan $+ 14!(Maby talk English next time?) N00bZ PwnT:12 %kickcount
        unset %kickc [ $+ [ $address($nick,2) ] ]
      }
    }
    inc %c
  }
}

alias addword {
  var %c = 1
  while (%c <= $lines(norsk.txt)) {
    if ($read(norsk.txt,%c) == $1) {
      echo -a This word is already in norsk.txt!
      halt
    }
    inc %c
  }
  write norsk.txt $1
  echo -a $1 succesfully added to norsk.txt
}