on *:TEXT:!set*:#:{ 
  if ($nick !isreg $chan) {
    if (!$skill($3)) { .notice $nick Hmm, nice skill.... Shame it isn't real? | halt } 
    if ($1 == !setgoals) {
      set %goal %goals $skill($3) %rsn $1-
      .writeini -n Goals.ini $skill($3) %rsn $2 $skill($3)
      notice $nick Your Goals Have Been Set To $2 $skill($3) $+ , Good Luck!
    } 
    elseif ($1 == !setcurrentlvl) { 
      set %level %levels $skill($3) %rsn $1-
      .writeini -n CurrentLevel.ini $skill($3) %rsn $2 $skill($3)
      notice $nick Your Current Level Has Been Set To $2 $skill($3)
    } 
  } 
  elseif ($nick isreg $chan) { Sorry You Need To Be Voice To Use This Command } 
} 
on $*:TEXT:/^[@!]goal/Si:#: { 
  if ($nick !isreg $chan) { 
    if ($left($1,1) == !) var %disp = notice $nick 
    if ($left($1,1) == @)  var %disp = msg $chan 
    if (!%goal) { notice $nick There are no goals set | HALT }
    if (!$2) notice $nick You must provide a nick. 
    else { 
      var %goal = $readini(goals.ini,%goals,$2-) 
      var %currentlevel $readini(currentlevel.ini,%levels,%rsn)
      %disp %rsn $+ 's Goals Are: %goal $+ , Current Level: $iif(%currentlevel,%currentlevel,Not Set)
    } 
  } 
}
on $*:TEXT:/^[@!]peoplesgoals/Si:#: { 
  var %disp = $iif($left($1,1) == @,msg $chan,notice $nick) 
  var %x = 1 
  while ($read(goals.ini, %x)) { 
    if ($left($v1,1) != [) %disp $gettok($read(goals.ini, %x),1,61) $+ 's Goal Is: $remove($read(goals.ini, %x),$gettok($read(goals.ini, %x),1,61),=)
    inc %x 
  } 
} 

on $*:TEXT:/^[@!]currentlevels/Si:#: { 
  var %disp = $iif($left($1,1) == @,msg $chan,notice $nick) 
  var %x = 1 
  while ($read(goals.ini, %x)) { 
    if ($left($v1,1) != [) %disp $gettok($read(goals.ini, %x),1,61) $+ 's Current Level Is: $remove($read(currentlevel.ini, %x),$gettok($read(currentlevel.ini, %x),1,61),=)
    inc %x 
  } 
} 

alias skill { 
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack 
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence 
  elseif ($1 == 3) || ($regex($1,/^str(ength|enght)?$/Si)) return Strength 
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints 
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged 
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer 
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic 
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking 
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting 
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching 
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing 
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting 
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 
  elseif ($1 == 15) || ($regex($1,/^min(e|ing)?$/Si)) return Mining 
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility 
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming 
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 
  elseif ($1 == 22) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter 
  elseif ($1 == 23) || ($regex($1,/^(con|construct)(ion|ing)?$/si)) return Construction
  elseif ($1 == 24) || ($regex($1,/^tot(al)?$/si)) return Total
  elseif ($1 == 25) || ($regex($1,/^(cmb|com)(bat)?$/si)) return Combat 
}