ON $*:TEXT:/^[@.!]((con)?grat(ulation)?(s|z)?)(.*)/Si:#:{
  if ($istok($chan,#xbnc #irc #tezz,32)) || ($me != Bryant) { HALT }
  if ($skills($3) == Total-Level && $2 isnum 32-2496) || ($skills($3) == Combat && $2 isnum 4-138) || ($skills($3) && $2 isnum 2-99) { msg $chan $randc($chr(40) $+ ¯`·._.») $randc(Congratulations) $randc($nick) $randc(on $2) $randc($skills($3) $+ $chr(33), $iif($2 == 99, Now go get that cape!,$Null)) $randc(«._.·`¯` $+ $chr(41)) }
  elseif ($2 isin $chan) || ($skills($4) == Total-Level && $3 isnum 32-2496) || ($skills($4) == Combat && $3 isnum 4-138) || ($skills($4) && $3 isnum 2-127) { msg # $randc($chr(40) $+ ¯`·._.») $randc(Congratulations) $randc($2) $randc(on $3) $randc($skills($4) $+ $chr(33), $iif($3 == 99, Now go get that cape!,$Null)) $randc(«._.·`¯` $+ $chr(41)) }
  else { notice $nick Param: !Grats (Level) (Skill) }
}

alias randc { return $+($chr(3),$r(2,15),$1-) }

alias -l skills {
  if ($regex($1,/^at(t|t?k|tack)$/Si)) { return Attack }
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) { return Defence }
  elseif ($regex($1,/^str(eng[th][th])?$/Si)) { return Strength }
  elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) { return Hitpoints }
  elseif ($regex($1,/^range?(r|d|ing)?$/Si)) { return Ranged }
  elseif ($regex($1,/^Pray(er)?$/Si)) { return Prayer }
  elseif ($regex($1,/^mag(e|ic|ician|icien)$/Si)) { return Magic }
  elseif ($regex($1,/^cook(ing)?$/Si)) { return Cooking }
  elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) { return Woodcutting }
  elseif ($regex($1,/^fletch(ing)?$/Si)) { return Fletching }
  elseif ($regex($1,/^fish(ing)?$/Si)) { return Fishing }
  elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) { return Firemaking }
  elseif ($regex($1,/^craft(ing)?$/Si)) { return Crafting }
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) { return Smithing }
  elseif ($regex($1,/^mine?(ing)?$/Si)) { return Mining }
  elseif ($regex($1,/^herb(law|lore)?$/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(er|ing)?$/Si)) { return Farming }
  elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) { return Runecraft }
  elseif ($regex($1,/^(poh|cons?(truct)?(ion|ing)?|carp(entry)?)$/si)) { return Construction }
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) { return Hunter }
  elseif ($regex($1,/^sum(mon(ing)?)?$/Si)) { return Summoning }
  elseif ($regex($1,/^(dg|dun)?(g|ge|geon|geoneering)?$/Si)) { return Dungeoneering }
  elseif ($regex($1,/^(com|cmb)?(bt|t|bat)?$/Si)) { return Combat }
  elseif ($regex($1,/^(total|overall)?(level|lvl)?$/Si)) { return Total-Level }
}