Untitled

alias -l c1 return $+($chr(3),14,$1-,) 
alias -l c2 return $+($chr(3),12,$1-,) 
on *:TEXT:*:#isbil: { if ($nick == [PCE]Terribot || $nick == $me || $nick == X) { halt } 
  var %Bws = jeg,du,oss,meg,vi,gjør,gjøre,ja,nei,la,skjer,hei,heisann,hai,hva,hvor,seff,og,på,sånn,den,hvorfor,hvor,da,kanksje,liten,lite,fortell,fortelle,kan,vise,vis,finner,finne,finn,ingenting,mange,der,faen,hore,fitte,nørd,pikk,pikken,til,morapuler,morrapuler,deilig,fin,kan,kanksje,og,snakke,norsk,nå,eller,dritt,drittsekk,regel,engelsk,teit,idiot,idiotisk,må,bruke,litt,din,er,bra,post,datamaskin,bærbar 
  tokenize 32 $strip($1-) 
  var %c = $numtok(%Bws,44) 
  while (%c) { 
    if ($istok($1-,$gettok(%Bws,%c,44),32)) { 
      inc %Bw. [ $+ [ $address($nick,2) ] ] 
      var %n = %Bw. [ $+ [ $address($nick,2) ] ] 
      if (%n < 5) { 
        ban -ku [ $+ [ $calc(%n * 60) ] ] $chan $nick 2 $c2(%n min ban!) $c1(Reason: English ONLY in $chan $+ !) $c1(This is your) $c2($ord(%n)) $+ / $+ 5th $c1(warning!)  $c1(N00bZ PwnT:) $c2(%kickcount)
        inc %kickcount             
      } 
      elseif (%n >= 5) { 
        ban -ku1800 $chan $nick 2 $c2(30 min ban!) $c1(Reason: $c2 English ONLY in $chan $+ !) $c1(This was your $c2 last $c1 warning! Maby talk English next time) $c1(N00bZ PwnT:) $c2(%kickcount) 
        unset %Bw. [ $+ [ $address($nick,2) ] ] 
      } 
    } 
    dec %c 
  } 
}