Untitled

;Created: March 2nd 2008

;Variables:
;%SC.$NICK -> Start XP
;%SC.Skill.$NICK -> Chosen Skill
;%SC.Goal.$NICK -> XP Goal

;Commands:
;!@sc
;!@sc RSN

on *:text:!s*:#: {
  if ($1 == !sc) { goto continue }
  else { halt }


  :continue
  if (!$2) { set %nick $nick }
  else { set %nick $2 }

  if ($($+(%,SC.,%nick),2) > 1) {
    //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 $&
      (8,2 $+ $date(mmmm) $+ 7,2)8,2 %nick 7,2is training8,2 $($+(%,SC.Skill.,%nick),2) $+ 7,2. $&
      %nick started with8,2 $($+(%,SC.,%nick),2) $+ xp7,2, $&
      and has a Goal set of8,2 $($+(%,SC.Goal.,%nick),2) $+ xp7,2 during this competition. $&
      12,2\12,22,1\1,14\14,15\15,0\
  }
  else //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Unable to find8,2 %nick 7,2in this month's Skill Competition. $&
    Use 8,2!sc <RSN>7,2 to search for another RSN. 12,2\12,22,1\1,14\14,15\15,0\
}

on *:text:@s*:#: {
  if ($1 == @sc) { goto continue }
  else { halt }


  :continue
  if (!$2) { set %nick $nick }
  else { set %nick $2 }

  if ($($+(%,SC.,%nick),2) > 1) {
    //msg #vi 15,0/14,15/1,14/2,1/12,2/7,2 $&
      (8,2 $+ $date(mmmm) $+ 7,2)8,2 %nick 7,2is training8,2 $($+(%,SC.Skill.,%nick),2) $+ 7,2. $&
      %nick started with8,2 $($+(%,SC.,%nick),2) $+ xp7,2, $&
      and has a Goal set of8,2 $($+(%,SC.Goal.,%nick),2) $+ xp7,2 during this competition. $&
      12,2\12,22,1\1,14\14,15\15,0\
  }
  else //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Unable to find8,2 %nick 7,2in this month's Skill Competition. $&
    Use 8,2!sc <RSN>7,2 to search for another RSN. 12,2\12,22,1\1,14\14,15\15,0\
}


on *:text:!setsc *:#: {
  if ($nick != mage_mark01) { //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 (8,2ERROR7,2) 7,2You don't have permission to use this command. 12,2\12,22,1\1,14\14,15\15,0\ | halt }
  elseif ($nick isvoice #vi) || ($nick isreg #vi) { //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 (8,2ERROR7,2) 7,2You don't have permission to use this command. 12,2\12,22,1\1,14\14,15\15,0\ | halt  }

  if ($2 == clear) {
    unset %SC.*
    //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Cleared the 8,2Skill Competition7,2 database. 12,2\12,22,1\1,14\14,15\15,0\
    halt
  }

  if ($2 == add) {
    if (!$3) || (!$4) || (!$5) || (!$6) { //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Wrong syntax. Please use 8,2!setsc add <RSN> <SKILL> <START XP> <GOAL XP>7,2. 12,2\12,22,1\1,14\14,15\15,0\ | halt }

    if ($3 !isin $(%SC.Nicks,2)) { set %SC.Nicks %SC.Nicks $+ 7,2,8,2 $$3 }
    set $+(%,SC.Skill.,$3) $$4
    set $+(%,SC.,$3) $$5
    set $+(%,SC.Goal.,$3) $$6

    //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Added8,2 $3 7,2for the skill8,2 $($+(%,SC.Skill.,$3),2) $+ 7,2. Starting XP:8,2 $($+(%,SC.,$3),2) $+ 7,2. Goal XP:8,2 $($+(%,SC.Goal.,$3),2) $+ 7,2. 12,2\12,22,1\1,14\14,15\15,0\
    halt
  }

  if ($2 == del) {
    if (!$3) || ($3 !isin $(%SC.Nicks,2)) //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Wrong syntax. Please use 8,2!setsc del <RSN>7,2. 12,2\12,22,1\1,14\14,15\15,0\ | halt

    unset $+(%,SC.Skill.,$3)
    unset $+(%,SC.,$3)
    unset $+(%,SC.Goal.,$3)

    //var %tmprem $3 $+ 7,2,
    set %SC.Nicks $remove(%SC.Nicks,%tmprem)

    //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 Removed8,2 $3 7,2from the Skill Competition database. 12,2\12,22,1\1,14\14,15\15,0\
    halt
  }

  //notice $nick 15,0/14,15/1,14/2,1/12,2/7,2 (8,2ERROR7,2) Unknown Command. $&
    Possible commands: 8,2!sc [rsn]7,2, 8,2!setsc <clear|add|del>7,2. 12,2\12,22,1\1,14\14,15\15,0\

}