!gratz

on $*:TEXT:/^[@](gratz|l(e)?v(e)?l)/:#: { 
  if ($2- == $null) { .notice $nick Syntax: $1 level skill } 
  elseif (($2 > 99) || ($2 < 1)) { .notice $nick Err: The level must be between 1-99. Syntax: $1 level skill } 
  elseif (!$skill($3-)) { .notice $nick Err: $+(",$3-,") is not a valid skill. Syntax: $1 level skill } 
  else { say $chan 2¤ 2C14o2n14g2r14a2t14u2l14a2t14i2o14n2s14 2o14n 2l14e2v14e2l, $+ $2 $skill($3) $+ , 2 $nick  }

} 
on $*:TEXT:/^[!](gratz|l(e)?v(e)?l)/:#: {
  if ($2- == $null) { .notice $nick Syntax: $1 level skill } 
  elseif (($2 > 99) || ($2 < 1)) { .notice $nick Err: The level must be between 1-99. Syntax: $1 level skill } 
  elseif (!$skill($3-)) { .notice $nick Err: $+(",$3-,") is not a valid skill. Syntax: $1 level skill } 
  else { say $chan 2¤ 2C14o2n14g2r14a2t14u2l14a2t14i2o14n2s14 2o14n 2l14e2v14e2l, $+ $2 $skill($3) $+ , 2 $nick  }
}
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,/^poh|con(struct[ion]|ing)?$/Si)) return Construction 
}