Unnamed

on $*:TEXT:/^[!@](grats|gratz|grat) */Si:#:{ /set %grats $rand(1,15) 
  if ($2 !isnum 3-99) { .notice $nick Invalid level, must be 3-99! | halt } 
  if ($3 == $null) { .notice $nick  No skill stated! | halt }
  else {
    if ($3 == att  || $3 == attack  || $3 == str || $3 == strengh || $3 == defence || $3 == def || $3 == range || $3 == pray || $3 == prayer || $3 == mage || $3 == magic || $3 == rc || $3 == runecraft || $3 == runecrafting || $3 == con || $3 == construct || $3 == constructing || $3 == agil || $3 == agility || $3 == herb || $3 == herblore || $3 == herby || $3 == herblaw  || $3 == thief || $3 == thiev ||$3 == thieving || $3 == thieve || $3 == craft || $3 == crafting || $3 == fletch || $3 == fletching || $3 == slayer || $3 == slay || $3 == hunt || $3 == hunter || $3 == hunting || $3 == mining || $3 == smith || $3 == smithing || $3 == fish || $3 == fishing || $3 == cook || $3 == cooking || $3 == fm || $3 == firemaking || $3 == wc || $3 == woodcut || $3 == woodcutting || $3 == farm || $3 == farming) {  
      if (%grats == 1)  .msg $chan 4,1\1,4\7,4\4,7\8,7\7,8\0,8\8,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 9 ¤ 0 Grats on $2- $nick !!!  9 ¤ 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-8,0/0,8/7,8/8,7/4,7/7,4/1,4/4,1/11,1
      if (%grats == 2)  .msg $chan 4,0~^v0,4^v5,4^v4,5^v1,5^v5,1^v~4,1 Grats on $2- $nick !!! 5,1~v^1,5v^4,5v^5,4v^0,4v^4,0v^~4
      if (%grats == 3)  .msg $chan 10,9§3,9§9,3§1,3§3,1§9 Grats on $2- $nick !!! 3,1§1,3§9,3§3,9§10,9§
      if (%grats == 4)  .msg $chan 14,7æ7,4æ5,4æ4,5æ1,5æ5,1æ8,1 7¤(~ 0,1 Grats on $2- $nick !!! 7,1~)¤ 4,1 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ
      if (%grats == 5)  .msg $chan 13,0æ0,13æ6,13æ13,6æ1,6æ6,1æ13,19,1 .»º}8®9{º«..º}8®9{º«.13 - Grats on $2- $nick !!! - 9.»º}8®9{º«..»º}8®9{º«. 13,16,1æ1,6æ13,6æ6,13æ
      if (%grats == 6)  .msg $chan 12%0,12% 2%12,2% 1%2,1%0 ! !!! Grats on $2- $nick !!! ! 2%1,2% 12%2,12% 0%12,0%
      if (%grats == 7)  .msg $chan 3,1\1,3\9,3\3,9\9,0\0 15,0\0,15\14,15\15,14\1,14\14,1\0 Grats on $2- $nick !!! 14,1/1,14/15,14/14,15/0,15/15,0/0-/9,0/3,9/9,3/1,3/3,1/ 
      if (%grats == 8)  .msg $chan 1,8C8,1A1,8U8,1T1,8I8,1O1,8N1,1 0,1¤ 8,1  CAUTION ! $nick now has $2- !!!  0,1¤ 1,8C8,1A1,8U8,1T1,8I8,1O1,8N
      if (%grats == 9)  .msg $chan 11,0¦|0,11¦|12,11¦|11,12¦|2,12¦|12,2¦|1,2¦|2,1¦|11,1 0,1 Grats on $2- $nick !!! 2,1|¦1,2|¦12,2|¦2,12|¦11,12|¦12,11|¦0,11|¦11,0|¦
      if (%grats == 10)  .msg $chan 15,15!14,14!3,1 '9-<<--7<4@ 8 Grats on $2- $nick !!! 1,1 4@7>9-->>-3,1' 14,14!15,15!
      if (%grats == 11)  .msg $chan 126,1\1,6\13,6\6,13\0,13\13,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-13,1 !  Grats on $2- $nick !!!  ! 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-13,0/0,13/6,13/13,6/1,6/6,1/   
      if (%grats == 12)  .msg $chan 8,0|0,8|7,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1| 9,1 Grats on $2- $nick !!! 5,1 |1,5|4,5|5,4|7,4|4,7|8,7|7,8|
      if (%grats == 13)  .msg $chan 8`$0,8$,7,8`$8,7$,5,7`$7,5$,1,5`$5,1$,0,18,1`8,1>>>0,1 Grats on $2- $nick !!! 8,1<<<5,1,$1,5$`7,5,$5,7$`8,7,$7,8$`0,8,$8,0$4
      if (%grats == 14)  .msg $chan 4,7\8,7\7,8\0,8\8,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 Grats on $2- $nick !!! 0,1 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-8,0/0,8/7,8/8,7/4,7/ 
    if (%grats == 15)  .msg $chan 4,1±1,4±4,1±1,4[··o(_.·´¯)··o4,1¦- grats on $2- $nick !!! 15 14:D ¦1,4o··(¯`·._)o··]4,1±1,4± }
    else { .notice $nick That isn't a skill! Check your spelling if your certain! | halt }
  }