Someone

on $*:TEXT:/^[!@](gratulerer|grattis)/Si:#:{ 
  if (!$3) { notice $nick Syntax: $1 level skill | halt }
  elseif ($2 > 99 || $2 < 1) && ($skill($3) != Overall) { notice $nick Err: Levlen må være mellom: 2-99. Kode: $1 level skill | halt }
  elseif (!$skill($3)) { notice $nick Err: $+(",$3,") er ikke en gyldig level. Kode: $1 level skill | halt } 
  elseif ($skill($3) == Overall) && ($2 !isnum 32-2277) { notice $nick Samlet level må være mellom: 32-2277 | halt } 
  elseif ($skill($3) == Combat) && ($2 !isnum 3-126) { notice $nick Combat levlen må være mellom: 3-126 | halt }
  set %grats $rand(1,5)
  if (%grats == 1) { msg $chan 13,0æ0,13æ6,13æ13,6æ1,6æ6,1æ13,19,1 .»º}8®9{º«..º}8®9{º«.13 - Gratulerer med level $2 $skill($3) $+ , $nick ! Fortsett sånn :) - 9.»º}8®9{º«..»º}8®9{º«. 13,16,1æ1,6æ13,6æ6,13æ0,13æ }
  if (%grats == 2) { msg $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•1,1•4,1<-0,1 Gratulerer med level $2 $skill($3) $+ , $nick ! Fortsett sånn :) 4,1->1,1•5,1•4,5•5,4•7,4•4,7•8,7•7,8•0,8•8,0• }
  if (%grats == 3) { msg $chan 1,8C8,1A1,8U8,1T1,8I8,1O1,8N1,1 0,1¤ 8,1 $nick Fikk nettop level $2 i $skill($3) $+ , Gratulerer ! 0,1¤ 1,8C8,1A1,8U8,1T1,8I8,1O1,8N }
  if (%grats == 4) { msg $chan 11•15,11•10,11•11,10•2,10•10,2•12,2•2,12•12,1•12,1<- <-15,1 Wo0t, $nick fikk nettop level $2 i $skill($3) $+ ! Fortsett sånn :) 12,1->12,1•2,12•12,2•10,2•2,10•11,10•10,11•15,11•11• }
  if (%grats == 5) { msg $chan 13§¤*~`11~*¤§|§¤*~`8~*¤§|§¤*~ 7-==-9 Stor gratulasjon til $nick $+ , Fordi han fikk level $2 i $skill($3) !7-==-8 ~*¤§|§¤*~`11~*¤§|§¤*~`13~*¤§ 11 }
}
alias -l skill { 
  if ($regex($1,/^c(o)?mb(at)?$/Si)) return Combat 
  elseif ($regex($1,/^((skill)?total|overall)$/Si)) return Samlet 
  elseif ($regex($1,/^a(ttack|ttk|tt)$/Si)) return Angrep 
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Forsvar
  elseif ($regex($1,/^str(ength)?$/Si)) return Styrke
  elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Livpoeng 
  elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Bueskyting
  elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer
  elseif ($regex($1,/^mag(e|ic)$/Si)) return Magi
  elseif ($regex($1,/^cook(ing)?$/Si)) return Matlaging 
  elseif ($regex($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) return Trehugging 
  elseif ($regex($1,/^fletch(ing)?$/Si)) return Spikking
  elseif ($regex($1,/^fish(ing)?$/Si)) return Fisking
  elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Bållaging 
  elseif ($regex($1,/^craft(ing)?$/Si)) return Håndarbeid
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smiding 
  elseif ($regex($1,/^min(e|e?ing)$/Si)) return Steinhakking
  elseif ($regex($1,/^herb(law|lore)?$/Si)) return Urtearbeid
  elseif ($regex($1,/^agil(ity)?$/Si)) return Smydighet
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Tyveri 
  elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slakting
  elseif ($regex($1,/^farm(er|ing)?$/Si)) return Gårdsbruk
  elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Rune-kunst 
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Jakting
}