Something

on $*:TEXT:/^[!@.]((con)?grat[zs]|le?ve?l) */Si:#:{
  if ($skill($2) == Overall && $3 isnum 32-2277) { goto lvl } 
  elseif ($skill($2) == Combat && $3 isnum 4-126) { goto lvl } 
  elseif ($skill($2) && $3 isnum 2-99) { goto lvl } 
  else { notice $nick 9[10Wrong format, you have.9] Try: $1 <RS Skill> <level> } 
  halt 
  :lvl 
  msg $chan $read(C:\Program Files\BOT\level.txt) 
} 
alias -l skill { 
  if ($regex($1,/^(s(kill)?t(otal)?|overall)$/Si)) { return Overall } 
  elseif ($regex($1,/^at(t(ack)?|k)$/Si)) { return Attack } 
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) { return Defence } 
  elseif ($regex($1,/^str(ength)?$/Si)) { return Strength } 
  elseif ($regex($1,/^h(its?)?p(oints)?$/Si)) { return Hitpoints } 
  elseif ($regex($1,/^range([rd]|ing)?$/Si)) { return Ranged } 
  elseif ($regex($1,/^pray(ing|er)?$/Si)) { return Prayer } 
  elseif ($regex($1,/^mag(e|ic)?$/Si)) { return Magic } 
  elseif ($regex($1,/^cook(er|ing)?$/Si)) { return Cooking } 
  elseif ($regex($1,/^w(ood)?c(ut(ting)?)?$/Si)) { return Woodcutting } 
  elseif ($regex($1,/^fletch(ing|er)?$/Si)) { return Fletching } 
  elseif ($regex($1,/^fish(er|ing)?$/Si)) { return Fishing } 
  elseif ($regex($1,/^f(ire)?m(ak(e|ing))?$/Si)) { return Firemaking } 
  elseif ($regex($1,/^craft(er|ing)?$/Si)) { return Crafting } 
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) { return Smithing } 
  elseif ($regex($1,/^min(e|ing)?$/Si)) { return Mining } 
  elseif ($regex($1,/^herb(lore|law)?$/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(ing|er)?$/Si)) { return Farming } 
  elseif ($regex($1,/^r(une)?c(raft)?(ing|er)?$/Si)) { return Runecrafting } 
  elseif ($regex($1,/^con(struct(ion|ing)?)?$/Si)) { return Construction } 
  elseif ($regex($1,/^co?mb(at)?$/Si)) { return Combat } 
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) { return Hunter  }