Namco

on $*:TEXT:/^[!@.](level|lvl)/Si:#:{ 
  if (!$2) || (!$3) { 
    notice $nick Please give me a nick and text to say. 
    Halt 
  } 
  elseif ($skill($2) == Overall) && ($3 isnum 31-2178) { 
    var %skill = Overall 
    goto lvl 
    halt 
  } 
  elseif ($skill($2) == Combat) && ($3 isnum 4-126) { 
    var %skill = Combat 
    goto lvl 
    halt 
  } 
  elseif ($regex($skill($2),/Attack|Defence|Strength|Hitpoints|Ranged|Prayer|Magic|Cooking|Woodcutting|Fletching|Fishing|Firemaking|Crafting|Smithing|Mining|Herblore|Agility|Thieving|Slayer|Farming|Runecraft|Construction/Si)) && ($3 isnum 2-99) { 
    var %skill = $skill($2) 
    goto lvl 
    halt 
  } 
  else { 
    notice $nick You have your text in wrong format or a skill level is not right 
    halt 
  } 
  :lvl 
  msg $chan $read(Level.txt) 
} 
alias -l skill { 
  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,/^hp|hit(s|points?)?$/Si)) return Hitpoints 
  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,/^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,/^(construct)(ion|ing)?$/si)) return Construction 
  elseif ($regex($1,/co?mb(at)?/Si)) return Combat 
}