Miscellany

on *:!grats *:#: {
  tokenize 32 $strip($1-) {
    /msg $chan :D\-< 4¤11.12¡9*4°9*12¡11.4¤Woo! Congrats on your07 $3 level $2 $nick $+ !!4¤11.12¡9*4°9*12¡11.4¤ :D/-< {
      alias -l striptags { var %x,%y = $regsub($3-,/(<[^>]+>)/g,$null,%x) | return %x }
      alias -l setskill {
        if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
        elseif ($2 == 1) || ($regex($2,/^at(t|k|tack)$/Si)) return Attack
        elseif ($2 == 2) || ($regex($2,/^def(en[cs]e)?$$/Si)) return Defence
        elseif ($2 == 3) || ($regex($2,/^str(ength)?$/Si)) return Strength
        elseif ($2 == 4) || ($regex($2,/^hp|hit(s|points?)?$/Si)) return Hitpoints
        elseif ($2 == 5) || ($regex($2,/^range(r|d|ing)?$/Si)) return Ranged
        elseif ($2 == 6) || ($regex($2,/^Pray(er)?$$/Si)) return Prayer
        elseif ($2 == 7) || ($regex($2,/^mag(e|ic)$$/Si)) return Magic
        elseif ($2 == 8) || ($regex($2,/^cook(ing)?$/Si)) return Cooking
        elseif ($2 == 9) || ($regex($2,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
        elseif ($2 == 10) || ($regex($2,/^fletch(ing)?$/Si)) return Fletching
        elseif ($2 == 11) || ($regex($2,/^fish(ing)?$/Si)) return Fishing
        elseif ($2 == 12) || ($regex($2,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
        elseif ($2 == 13) || ($regex($2,/^craft(ing)?$/Si)) return Crafting
        elseif ($2 == 14) || ($regex($2,/^(smith|smelt)(ing)?$/Si)) return Smithing
        elseif ($2 == 15) || ($regex($2,/^mine(ing)?$/Si)) return Mining
        elseif ($2 == 16) || ($regex($2,/^herb(law|lore)?$/Si)) return Herblore
        elseif ($2 == 17) || ($regex($2,/^agil(ity)?$/Si)) return Agility
        elseif ($2 == 18) || ($regex($2,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
        elseif ($2 == 19) || ($regex($2,/^slay(er|ing)?$/Si)) return Slayer
        elseif ($2 == 20) || ($regex($2,/^farm(er|ing)?$/Si)) return Farming
        elseif ($2 == 21) || ($regex($2,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
        elseif ($2 == 22) || ($regex($2,/^hunt(er|ing)?$/Si)) return Hunter
      }
    }
  }
}