[-HRH-]

ALIAS GratzType {
  IF ($1 == 1) { return 7,4æ5,4æ4,5æ1,5æ5,1æ8,1 $+ $2- $+ 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ }
  ELSEIF ($1 == 2) { return 0,11§12§12,1211§1§1,11,112§11 $+ $2- $+ 12§12,121§11§11,1112§0§ }
  ELSEIF ($1 == 3) { return 10,9§3,9§9,3§1,3§3,1§3,1 $+ $2- $+ 3,1§1,3§9,3§3,9§10,9§ }
  ELSEIF ($1 == 4) { return 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13|4,6 $+ $2- $+ 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13| }
  ELSEIF ($1 == 5) { return 8,0æ0,8æ7,8æ8,7æ4,7æ7,4æ5,4æ4,5æ4,5 $+ $2- $+ 8,0æ0,8æ7,8æ8,7æ4,7æ7,4æ5,4æ4,5æ1,5 }
  ELSEIF ($1 == 6) { return 9`%0,9%, 3,9`%9,3%, 1,3`%3,1%,9 $2- 3,1`%1,3%, 9,3`%3,9%, 0,9`%9%, }
  ELSEIF ($1 == 7) { return 0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸0,1 -= $2- =- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ12 }
  ELSEIF ($1 == 8) { return 1:D\-< 4¤11.12¡9*4°9*12¡11.4¤ Woo! $2- $+ !! 4¤11.12¡9*4°9*12¡11.4¤ :D/-< }
  ELSEIF ($1 == 9) { return 2\1,2\11,12\12,11\0,11\11,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 $2- 0,1 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-11,0/0,11/12,11/11,12/1,2/2,1/ }
  ELSEIF ($1 == 10) { return 4,1±1,4±4,1±1,4[··o(_.·´¯)··o4,1¦- $2- ¦1,4o··(¯`·._)o··]4,1±1,4±4,1 }
  ELSEIF ($1 == 11) { return 5,1\1,5\4,5\5,4\0,4\4,0\0,0\0,15\14,15\15,14\1,14\14,1\7,1 $2- 14,1/1,14/15,14/14,15/0,15/15,00,0/4,0/0,4/5,4/4,5/1,5/5,1 }
  ELSEIF ($1 == 12) { return 3,1\1,3\9,3\3,9\0,9\9,0\ 15,0\0,15\14,15\15,14\1,14\14,1\0,1 $2- 14,1/1,1415,14/14,15/0,15/15,0/ 9,0/0,9/3,/9,3/1,3/3,1/' }
}

ALIAS -l GratzSkill {
  IF ($RegEx($1,/^((skill)?total|overall)$/Si)) RETURN Overall
  ELSEIF ($RegEx($1,/^at(t|k|tack)$/Si)) RETURN Attack
  ELSEIF ($RegEx($1,/^def(en[cs]e)?$/Si)) RETURN Defence
  ELSEIF ($RegEx($1,/^str(ength)?$/Si)) RETURN Strength
  ELSEIF ($RegEx($1,/^(hp|hit(s|points)?)$/Si)) RETURN Hitpoints
  ELSEIF ($RegEx($1,/^rang(e|er|ed|ing)$/Si)) RETURN Ranged
  ELSEIF ($RegEx($1,/^Pray(er)?$/Si)) RETURN Prayer
  ELSEIF ($RegEx($1,/^mag(e|ic)$/Si)) RETURN Magic
  ELSEIF ($RegEx($1,/^cook(ing)?$/Si)) RETURN Cooking
  ELSEIF ($RegEx($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) RETURN Woodcutting
  ELSEIF ($RegEx($1,/^fletch(ing)?$/Si)) RETURN Fletching
  ELSEIF ($RegEx($1,/^fish(ing)?$/Si)) RETURN Fishing
  ELSEIF ($RegEx($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) RETURN Firemaking
  ELSEIF ($RegEx($1,/^craft(ing)?$/Si)) RETURN Crafting
  ELSEIF ($RegEx($1,/^(smith|smelt)(ing)?$/Si)) RETURN Smithing
  ELSEIF ($RegEx($1,/^min(e|e?ing)$/Si)) RETURN Mining
  ELSEIF ($RegEx($1,/^herb(law|lore)?$/Si)) RETURN Herblore
  ELSEIF ($RegEx($1,/^agil(ity)?$/Si)) RETURN Agility
  ELSEIF ($RegEx($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) RETURN Thieving
  ELSEIF ($RegEx($1,/^slay(er|ing)?$/Si)) RETURN Slayer
  ELSEIF ($RegEx($1,/^farm(er|ing)?$/Si)) RETURN Farming
  ELSEIF ($RegEx($1,/^(rc|runecraft)(er|ing)?$/Si)) RETURN Runecraft
  ELSEIF ($RegEx($1,/^(cmb|combat)?$/Si)) RETURN Combat
  ELSEIF ($RegEx($1,/^con(struct|struction)?$/Si)) RETURN Construction
}

#Gratz on
ON $*:TEXT:/^[!@.](grats|gratz|l(e)?v(e)?(l)?)/Si:#FC: {
  IF ($HaltCheck($nick,$chan)) { Halt }
  Var %grats.skill = $iif($2 isnum,$3,$2), %grats.level = $iif($2 isnum,$2,$3)
  IF ($2- == $null) { $My.Output(!,$nick,$chan,Gratz) Syntax: $1 level skill }
  ELSEIF ($2 == Birthday) { .msg $chan 8,0`%0,8%,7,8`%8,7%,4,7`%7,4%,5,4`%4,5%'1,5`% 14Happy Birthday,4 $nick $+ 14, $3 Wow, Getting Old!! 14:D 1,5%4,5`%5,4%,7,4`%4,7%'8,7`%7,8%,0,8`%8,0%  }
  ELSEIF ($2 == ALL) { .msg $chan 8,0`%0,8%,7,8`%8,7%,4,7`%7,4%,5,4`%4,5%'1,5`% 14Congrats on getting ALL Levels to $+ 4 $3 $+ 14, $nick $+ !!! 14:D 1,5%4,5`%5,4%,7,4`%4,7%'8,7`%7,8%,0,8`%8,0%  }
  ELSEIF (((%grats.level > 99) || (%grats.level < 1)) && ($GratzSkill(%grats.skill) != combat)) { .notice $nick Error: The level must be between 1-99. Syntax: $1 level skill }
  ELSEIF (!$GratzSkill(%grats.skill)) { .notice $nick Error: $+(",%grats.skill,") is not a valid skill. Syntax: $1 level skill }
  ELSE { .msg $chan $GratzType($Rand(1,12),Congrats on level $+ 4 %grats.level $GratzSkill(%grats.skill) $+ 15, $nick 14:D) }
}
#Gratz end