grats

on $*:TEXT:/^[@!.~](con)?grat[sz]( .+)?$/Si:#:{
  if ($skill($+(.,$3))) && ($2 isnum 1-99) tokenize 32 $1 $3 $2
  tokenize 32 $1 $+(.,$2) $3- 
  if ($skill($2) && $3 isnum 1-99) {
    var %greetis $rand(1,10)     
    if (%greetis == 1) { msg # 4,5»1»5,1»14,1 * 14,1[»0,1 Gratz $nick on level $3 $skill($2) 14,1«] * 5«1,5«4,5« }
    elseif (%greetis == 2) { msg # 0,1¤*°*¤±12[4·9(14.·´9)6·¦-0,1  Gratz $nick on level $3 $skill($2)!!   6-¦·9(14`·.9)4·12]0,1± ¤*°*¤ }
    elseif (%greetis == 3) { msg # 4• 12»4[13« 4• Congrats $nick on level $3 $skill($2) 4• 13»4[12« 4• }
    elseif (%greetis == 4) { msg # 1,11,21,31,41,51,61,71,81,91,108,1 Gratz $nick on level $3 $skill($2) 1,101,91,81,71,61,51,41,31,2 }
    elseif (%greetis == 5) { msg # 8•0,80•7•0,78•5•0,47•5•0,54,1•<- Gratz $nick on level $3 $skill($2) ->8•0,80•7•0,78•5•0,47•5•0,54• }
    elseif (%greetis == 6) { msg # 13,1§11§13§11§9»12¦¦7§*0,1 Congrats $nick on level $3 $skill($2) 7,1*§12¦¦9»11§13§11§13§  }
    elseif (%greetis == 7) { msg # 11,0•0,11•2,11•11,2•1,2•2,1•0,1 Gratz $nick on level $3 $skill($2) 0,1 2,1•1,2•11,2•2,11•0,11•11,0• }
    elseif (%greetis == 8) { msg # 8,0¤0,8¤9,8¤9,13¤1,13¤13,1¤9,1 Congrats $nick on level $3 $skill($2) :D 13,1¤1,13¤9,13¤9,8¤0,8¤8,0¤ }
    elseif (%greetis == 9) { msg # 5,15,145,155,05,155,145,115,1 -15,1= 10 Gratz $nick on level $3 $skill($2) 5,1=- 125,15,145,155,05,155,145,1 }
    elseif (%greetis == 10) { msg # 1[»4•15¤4•   4C15ongratulations!! 14 $nick on level $3 $skill($2)   4•15¤4•1«] }
  } 
} 
alias skill { 
  if ($regex($1,/^[@!.-](stats|overall?|total)$/Si)) return Overall 
  elseif ($regex($1,/^[@!.-]co?mb(at)?%$/Si)) return Combatp 
  elseif ($regex($1,/^[@!.-]co?mb(at)?$/Si)) return Combat 
  elseif ($regex($1,/^[@!.-]at[tk](ack)?$/Si)) return Attack 
  elseif ($regex($1,/^[@!.-]de[fv](en[cs]e)?$/Si)) return Defence 
  elseif ($regex($1,/^[@!.-]str(eng(ht|th))?$/Si)) return Strength 
  elseif ($regex($1,/^[@!.-]h(p|it(points?|s))$/Si)) return Hitpoints 
  elseif ($regex($1,/^[@!.-]range?d?$/Si)) return Ranged 
  elseif ($regex($1,/^[@!.-]pray(er)?$/Si)) return Prayer 
  elseif ($regex($1,/^[@!.-]mag(ic|e)$/Si)) return Magic 
  elseif ($regex($1,/^[@!.-]cook(e|ing)?$/Si)) return Cooking 
  elseif ($regex($1,/^[@!.-]w(ood)?c(utting)?$/Si)) return Woodcutting 
  elseif ($regex($1,/^[@!.-]flet(ch|hc)(ing|e)?$/Si)) return Fletching 
  elseif ($regex($1,/^[@!.-]fish(ing|e)?$/Si)) return Fishing 
  elseif ($regex($1,/^[@!.-]f(ire)?m(ak(e|ing))?$/Si)) return Firemaking 
  elseif ($regex($1,/^[@!.-]craft(ing|er?)?$/Si)) return Crafting 
  elseif ($regex($1,/^[@!.-]smith(ing|er?)?$/Si)) return Smithing 
  elseif ($regex($1,/^[@!.-]min(ing|er?)?$/Si)) return Mining 
  elseif ($regex($1,/^[@!.-]herb(lor[ye])?$/Si)) return Herblore 
  elseif ($regex($1,/^[@!.-]agil?(lity)?$/Si)) return Agility 
  elseif ($regex($1,/^[@!.-]th(ie|ei)[fv](ing|er)?$/Si)) return Thieving 
  elseif ($regex($1,/^[@!.-]slay(ing|er?)?$/Si)) return Slayer 
  elseif ($regex($1,/^[@!.-]farm(ing|er?)$/Si)) return Farming 
  elseif ($regex($1,/^[@!.-]r(une)?c(raft(ing|er?)?)?$/Si)) return Runecraft 
  elseif ($regex($1,/^[@!.-]hunt(ing|er?)?$/Si)) return Hunter 
  elseif ($regex($1,/^[@!.-]c(on|s)s?(truct(ion)?)?$/Si)) return Construction 
}