This is a change to the old snippet that i found here. Since it was a good script i only changed it a bit.\

You can find the old snippet here: http://www.hawkee.com/snippet/4177/

It works like this:

Nick: !gratz 120 Dung
BOT: W00t Nick gratz on 120 Dungeoneering.

on $*:TEXT:/^[!@](con)?(grat[sz]|gratulations?\b)/iS:#: {
  if (%flood [ $+ [ $nick ] ]) { return }
  set -eu3 %flood [ $+ [ $nick ] ] $true

  if ($2- == $null) { .notice $nick 4Error:14 Please provide something to gratz! 5Syntax: 6!grats level skill } 
  elseif ($2 <= 120) && ($2 > 1) && ($skill == Dungeoneering) { 13WOOT!! 10@6@2@3@  $+ ,6 $nick 7!!! 14Congratz on level6 $211 $skill($3),#  }
  elseif (!$skill($3-)) { .notice $nick 4Error:6 $+(",$3-,") 14is not a valid skill. 5Syntax:6 !grats level skill } 
  else { msg $chan 13WOOT!! 10@6@2@3@  $+ ,4 $nick 7!6!3! 2Congratz 12on 9level:6 $2 $+ 7 $skill($3),# 10@6@2@3@ 13WOOT!! }
}
alias -l skill { 
  if ($regex($1,/^((skill)?total|overall)$/Si)) return Overall 
  elseif ($regex($1,/^cmb $/Si)) return cmb
  elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack 
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Defence 
  elseif ($regex($1,/^str(ength)?$/Si)) return Strength 
  elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Hitpoints 
  elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Ranged 
  elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer 
  elseif ($regex($1,/^mag(e|ic)$/Si)) return Magic 
  elseif ($regex($1,/^(cook|cooking)?$/Si)) return Cooking 
  elseif ($regex($1,/^(wc(ing)?|woodcut(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,/^min(e|e?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|con(struct[ion]|ing)?$/Si)) return Construction 
  elseif ($regex($1,/^Hunt(er|ing)?$/Si)) return Hunter
  elseif ($regex($1,/^(summon|summoning|sum)?$/Si)) return Summoning
  elseif ($regex($1,/^(dun|dungeon|dung|dungeoneering)?$/Si)) return Dungeoneering
}