Miscellany

on $*:TEXT:/^.(con)?grat(ulation)?[sz]/Si:#:{
  if ($isSkill($3)) && ($2 isnum) msg # Gratz $nick on your level $2 $3-!
}

alias -l isSkill {
  if ($regex($1,/^co?mba?t?$/i)) return Combat
  if ($regex($1,/^(stats|overall?|total)$/i)) return Overall
  if ($regex($1,/^at[tk](ack)?$/i)) return Attack
  if ($regex($1,/^str(engt?h?)?$/i)) return Strength
  if ($regex($1,/^de[fv](en[sc]e?)?$/i)) return Defence
  if ($regex($1,/^h(it(point)?s?|p)$/i)) return Hitpoints
  if ($regex($1,/^range?d?$/i)) return Ranged
  if ($regex($1,/^praye?r?$/i)) return Prayer
  if ($regex($1,/^mag[ie]c?$/i)) return Magic
  if ($regex($1,/^coo?k([ie]ng?)?$/i)) return Cooking
  if ($regex($1,/^w(ood)?c(utt?)?(ing)?$/i)) return Woodcutting
  if ($regex($1,/^flet(ch|hc)([ei]ng?)?$/i)) return Fletching
  if ($regex($1,/^fish(ing?)?$/i)) return Fishing
  if ($regex($1,/^f(ire)?m(ak[ei]ng?)?$/i)) return Firemaking
  if ($regex($1,/^craft([ei]ng?)?$/i)) return Crafting
  if ($regex($1,/^smith([ei]ng?)?$/i)) return Smithing
  if ($regex($1,/^min[ei]n?g?$/i)) return Mining
  if ($regex($1,/^herbl?(o?ir[ey])$/i)) return Herblore
  if ($regex($1,/^agil([ei]t[ey])?$/i)) return Agility
  if ($regex($1,/^th?(ie|ei)[fv]([ei]ng?)?$/i)) return Thieving
  if ($regex($1,/^slay([ei]r(ing?)?)?$/i)) return Slayer
  if ($regex($1,/^farm([ei]ng?)?$/i)) return Farming
  if ($regex($1,/^r(une)c(raft([ie]ng?)?)?$/i)) return Runecraft
  if ($regex($1,/^hunt(er?(ing?)?)?$/i)) return Hunter
  if ($regex($1,/^c(on|(on)?s)(truction)?$/i)) return Construction
}