iPod

alias Attack { return Att Attack Attk }
alias Strength { return Str Strength }
alias Defence { return Def Defence }
alias Range { return Range Ranging Ranger Ranged }
alias Prayer { return Pray Prayer }
alias Magic { return Magic Mage }
alias HitPoints { return Hp Hits HitPoint HitPoints }
alias Cooking { return Cook Cooking }
alias WoodCutting { return Wc WoodCutting WoodCut }
alias Fishing { return Fish Fishing }
alias Fletching { return Fletch Fletching }
alias FireMaking { return Fm FireMaking FireMake }
alias Crafting { return Craft Crafting }
alias Smithing { return Smith Smelt Smelting Smithing }
alias Mining { return Mining Mine }
alias Herblore { return Herblore Herby Herb Herblaw }
alias Agility { return Agility Agili }
alias Theiving { return Theiving Theive Theif Theifing }
alias Slayer { return Slayer Slay Slaying }
alias Farming { return Farming Farm Farmer }
alias Hunting { return Hunting Hunter Hunt }
alias Construction { return Construction Cons Constructing Cs }
alias RuneCrafting { return RuneCrafting Rc RuneCraft RuneCrafter }
alias Overall { return Overall Total Tot }
alias Combat { return Cmb Combat Cmbat }

on $*:TEXT:/^[@.!](Gratz|Level|Lvl|Got) /Si:#: {
  if ($2 < 100) && ($2 > 3) && ($Gratz-Check($3)) {
    if ($istok($Attack,$3,32)) {
      set %GratzSkill Attack {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Strength,$3,32)) {
      set %GratzSkill Strength {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Defence,$3,32)) {
      set %GratzSkill Defence {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Range,$3,32)) {
      set %GratzSkill Range {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Prayer,$3,32)) {
      set %GratzSkill Prayer {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Magic,$3,32)) {
      set %GratzSkill Magic {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Cooking,$3,32)) {
      set %GratzSkill Cooking {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($WoodCutting,$3,32)) {
      set %GratzSkill WoodCutting {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Fishing,$3,32)) {
      set %GratzSkill Fishing {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Fletching,$3,32)) {
      set %GratzSkill Fletching {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($FireMaking,$3,32)) {
      set %GratzSkill FireMaking {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Crafting,$3,32)) {
      set %GratzSkill Crafting {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Smithing,$3,32)) {
      set %GratzSkill Smithing {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Mining,$3,32)) {
      set %GratzSkill Mining {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Herblore,$3,32)) {
      set %GratzSkill Herblore {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Agility,$3,32)) {
      set %GratzSkill Agility {
      msg $chan $read(GratzStyles.txt) }
    } 
    if ($istok($Theiving,$3,32)) {
      set %GratzSkill Theiving {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Slayer,$3,32)) {
      set %GratzSkill Slayer {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Farming,$3,32)) {
      set %GratzSkill Farming {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Hunting,$3,32)) {
      set %GratzSkill Hunting {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($Construction,$3,32)) {
      set %GratzSkill Construction {
      msg $chan $read(GratzStyles.txt) }
    }
    if ($istok($RuneCrafting,$3,32)) {
      set %GratzSkill RuneCrafting {
      msg $chan $read(GratzStyles.txt) }
    }
    else {
      if ($2 isnum 11-99) && ($Gratz-Check($3)) {
        if ($istok($HitPoints,$3,32)) {
          set %GratzSkill HitPoints {
          msg $chan $read(GratzStyles.txt) }
        }
      }
    }
  }
  else {
    /notice $nick 2Error: Please Use !Gratz <Level> <Valid Skill> (Please Note: Combat + Overall Currently Not Working)
  }
}

alias -l Gratz-Check {
  if ($regex($1,/^(st|(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,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($regex($1,/^wc|wood(cut(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,/^mine(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,/^Hunt(er|ing)?$/si)) return Hunter  
  elseif ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($regex($1,/^c(mb|ombt|mbt|ombat)?$/si)) return Combat
  else { return }
}