Grats Script

on $*:TEXT:/^[!@.](grats|gratz|l(e)?v(e)?l)/:#: {
  if ($isignored($nick)) halt
  var %grats.skill = $iif($2 isnum,$3,$2)
  var %grats.level = $iif($2 isnum,$2,$3)
  if ($2- == $null) { .notice $nick 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)) && ($skill(%grats.skill) != combat)) { .notice $nick Err: The level must be between 1-99. Syntax: $1 level skill }
  elseif (!$skill(%grats.skill)) { .notice $nick Err: $+(",%grats.skill,") is not a valid skill. Syntax: $1 level skill }
  else { .msg $chan 8,0`%0,8%,7,8`%8,7%,4,7`%7,4%,5,4`%4,5%'1,5`% 14Congrats on level $+ 4 %grats.level $skill(%grats.skill) $+ 14, $nick 14:D 1,5%4,5`%5,4%,7,4`%4,7%'8,7`%7,8%,0,8`%8,0%  }
}

alias -l skill {
  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

}