on *:TEXT:*:#:{
  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 $+ ! N00bZ PwnT: %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 2) ban -ku120 $chan $nick 2 I told you: only English =2min= N00bZ PwnT: %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 3) ban -ku240 $chan $nick 2 I told you: only English =4min= N00bZ PwnT: %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 4) ban -ku360 $chan $nick 2 I told you: only English =8min= N00bZ PwnT: %kickcount
      elseif (%kickc [ $+ [ $address($nick,2) ] ] == 5) {
        ban -ku1800 $chan $nick 2 ONLY ENGLISH! =30min= N00bZ PwnT: %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
}