ON *:TEXT:?Level*:#:{
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($3 && $2 isnum) {
    set %skilllly $SkilloBJ($remove($3,@,!,.)) 
    if (%skilllly == Overall) {
      msg $chan 3Congradz on 10»03 $+ $2 $+ 10«3 %skilllly 
      halt
    }
    if ($2 > 99) {
      msg $chan 3You cant get10 $2 3in %skilllly 
      halt
    }
    if (%skilllly == $null) {
      msg $chan 3 $+ Sorry $nick but10 $3- 3 isn't a skill.
      halt
    }
    else {
      msg $chan 3Congradz on 10»03 $+ $2 $+ 10«3 %skilllly 4- $&
        03Only10 $bytes($calc($floor($calc( $2 + 300 * 2 ^ ( $calc( $2 + 1) / 7))) / 4),b) 03exp off $calc($2 + 1) 
    }
  }
  else {
    notice $nick Error: 3 $+ $1 10<3Number10> <3Skill10>
  }
}
alias -l SkilloBJ {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^(hunt)(in|ing)?$/si)) return Hunter
}