Miscellany

on $*:Text:/^[!@](Le?ve?l|grat[sz])/Si:#: {
  if ($2 isnum && $3) {
    inc %level.inc
    set %levelup [ $+ [ %level.inc ] ] $2
    set %level.stat [ $+ [ %level.inc ] ] $Indstats($3) 

    if ($regex($3,/^(st|(skill)?total|overall)$/Si)) {
      msg $chan 8`% $+ 0,8%,7,8`% $+ 8,7%,4,7`% $+ 8,4%,5,4`% $+ 4,5%'1,5`% 0Congrats on Level7 $2 %level.stat [ $+ [ %level.inc ] ] 0,5:D1,5`%4,5%'4,5%'8,4%,4,7`% $+ 8,7%,7,8`% $+ 0,8%,8,0`%

    }
    if ($regex($3,/^(c(o)?mb(at)?)?$/Si)) {
      if (%levelup [ $+ [ %level.inc ] ] > 126) notice $nick Invalid Skill/Level
      else {
        msg $chan 8`% $+ 0,8%,7,8`% $+ 8,7%,4,7`% $+ 8,4%,5,4`% $+ 4,5%'1,5`% 0Congrats on Level7 $2 %level.stat [ $+ [ %level.inc ] ] 0,5:D1,5`%4,5%'4,5%'8,4%,4,7`% $+ 8,7%,7,8`% $+ 0,8%,8,0`%
      }
    }
    else {
      if (%levelup [ $+ [ %level.inc ] ] > 99) notice $nick Invalid Skill/Level
      else {
        msg $chan 8`% $+ 0,8%,7,8`% $+ 8,7%,4,7`% $+ 8,4%,5,4`% $+ 4,5%'1,5`% 0Congrats on Level7 $2 %level.stat [ $+ [ %level.inc ] ] 0,5:D1,5`%4,5%'4,5%'8,4%,4,7`% $+ 8,7%,7,8`% $+ 0,8%,8,0`%
      }
    }
  }
  else  notice $nick Invalid Skill/Level
}
alias -l Indstats { 
  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(e|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,/^(con)(s|struct(ion|ing)?)?$/Si)) return Construction 
  elseif ($1 == 23) || ($regex($1,/^(hunt)(in|ing|er)?$/Si)) return Hunting
  elseif ($1 == 24) || ($regex($1,/^(c(o)?mb(at)?)?$/Si)) return Combat
}