Miscellany

on $*:TEXT:/^[!@](le?ve?l|(con)?grat[zs])/Si:#:{ 
  var %return = $iif(@* iswm $1, msg #, notice $nick) 
  if ($skill($3) == Overall && $2 isnum 32-2277) { goto lvl } 
  elseif ($skill($3) == Combat && $2 isnum 3-126) { goto lvl } 
  elseif ($skill($3) && $2 isnum 1-99) { goto lvl } 
  else { notice $nick Syntax Error: 12!gratz <level> <skill> } 
  halt 
  :lvl 
  var %banner $r(1,2) 
  if (%banner == 1) %return 4,7æ7,4æ1,4æ4,1æ2,2ææ7,1 ¤(~ Congratulation's $nick on level $2 $3 $+ ! ~)¤ 2,2ææ4,1æ1,7æ7,4æ4,7æ
  if (%banner == 2) %return 1,1«« 2«« 12«« 6«« 4«« 7«« 9«« 8«« 13,1 Congratulation's $nick on level $2 $3 $+ ! 8»» 9»» 7»» 4»» 6»» 12»» 


} 
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 } 
}