on $*:TEXT:/^[@!.]grat[zs]/Si:#: { if ($nick == Swift || $nick == [ikt] || $nick == Inferno) { halt }
  if  ($2 isnum 2-99) && ($lvls($3)) {
    describe # 4C7o8n9g11r12a6t13z15 $nick 4o7n 8l9e11v12e6l15 $2 $lvls($3) $+ ! :D
  }
  elseif  ($2 isnum 4-138) && ($lvls($3)) {
    describe # 4C7o8n9g11r12a6t13z15 $nick 4o7n15 Combat 8l9e11v12e6l15 $2 $+ ! :D
  }
  elseif ($2 isnum 34-2376) && ($lvls($3))) {
    describe # 4C7o8n9g11r12a6t13z15 $nick 4o7n15 overall 8l9e11v12e6l15 $2 $+ ! :D
  }
}
alias lvls {
  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,/^(Ranged|Range|Archer|Archery)/Si)) { Return Ranged }
  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|fish)/Si)) { Return Fishing }
  if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking }
  if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting }
  if ($regex($1,/^(smithing|smith)/Si)) { Return Smithing }
  if ($regex($1,/^(Mine|mining)/Si)) { Return RockMunching }
  if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore }
  if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility }
  if ($regex($1,/^(Theif|theiv|thief|thiev|theiving|thieving)/Si)) { return Thieving }
  if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer }
  if ($regex($1,/^(farm|Farming)/Si)) { Return Farming }
  if ($regex($1,/^(rc|runecrafting|runecraft)/Si)) { Return Runecrafting }
  if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter }
  if ($regex($1,/^(cstruct|con|construct|construction)/Si)) { return Construction }
  if ($regex($1,/^(summoning|sumo|sumon|sum)/Si)) { return Summoning }
  if ($regex($1,/^(cmb|combat|cb)/Si)) { return Combat }
  if ($regex($1,/^(total|overall|skilltotal)/Si)) { return Total }
}

Sen aka Senbonzakura's grats script.  Posted here because, quite frankly, I don't give a shit if it's leaked :)  If it fails to work, blame the stupid bitch for her inability to code.