Miscellany

on $*:TEXT:/^[`&.]gratz/Si:#:{
  if ($2 isnum 2-99) && ($skill($3)) {
    .msg $chan 9,1 0-= 4¤11.12¡9*4°9*12¡11.4¤ gratz on level $2 $3 $nick $+ !!! 4¤11.12¡9*4°9*12¡11.4¤ 0=-
  }
  else {
    Notice $nick Incorrect format. Example: !gratz 99 Fletching
  }
}

alias skill {
  if ($regex($1,/^(att|atk|attack)/Si)) { Return Attack }
  if ($regex($1,/^(str|strenth|strength)/Si)) { Return Strength }
  if ($regex($1,/^(def|defend|defence)/Si)) { Return Defence }
  if ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) { Return Hitpoints }
  if ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) { Return Range }
  if ($regex($1,/^(pray|prayer|praying)/Si)) { Return Prayer }
  if ($regex($1,/^(mage|magic)/Si)) { Return Magic }
  if ($regex($1,/^(cook|cooking)/Si)) { Return Cooking }
  if ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) { Return Woodcutting }
  if ($regex($1,/^(fletch|fletching)/Si)) { Return Fletching }
  if ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) { Return Fishing }
  if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking }
  if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting }
  if ($regex($1,/^(smithing|metalmaking|smith)/Si)) { Return Smithing }
  if ($regex($1,/^(Mine|mining)/Si)) { Return Mining }
  if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore }
  if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility }
  if ($regex($1,/^(Theif|theiv|thiev|theiving|thieving)/Si)) { return Thieving }
  if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer }
  if ($regex($1,/^(farm|Farming|planting)/Si)) { Return Farming }
  if ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) { Return Runecrafting }
  if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter }
}