~~~[Register]~~~

on *:TEXT:!reg:#DuelServ:{
  /writeini duel.ini Accounts $nick 1
  /writeini duel.ini Magic $nick 1
  /writeini duel.ini Strength $nick 1
  /writeini duel.ini Range $nick 1
  /writeini duel.ini Attack $nick 1
  notice $nick You have been registered, you may now Duel.
}

~~~[Register End]~~~

~~~[Duel Starting]~~~

on *:TEXT:!Duel*:#DuelServ:{
  if ($readini(duel.ini,Accounts,$nick) == $null) { notice $nick Type !reg to register an account first! | halt }
  if (%p1) && (%p2) { notice $nick There is already a Duel in action,  $+ %p1 $+  VS.  $+ %p2 $+  | halt }
  if (!%p1) {
    set %p1 $nick
    msg $chan  $+ %p1 $+  has started a Duel, type !Duel to accept  $+ %p1 $+ 's $+  challenge.
  }
  if (%p1) && (!%p2) && ($nick != %p1) {
    set %p2 $nick
    msg $chan  $+ %p2 $+  has accepted  $+ %p1 $+ 's $+   Challenge.
    set %p1hp 99
    set %p1barrage 5
    set %p1dds 4
    set %p2hp 99
    set %p2barrage 5
    set %p2dds 4
    set %cpr $rand(1,2) {
      if (%cp == 1) {
        set %cp %p1
        msg #DuelServ First attack goes to,  $+ %p1 $+ .
        unset %cpr
      }
      if (%cpr == 2) {
        set %cp %p2
        msg #DuelServ First attack goes to,  $+ %p2 $+ .
        unset %cpr
      }
    }
  }
}

~~~[Duel Ending]~~~

~~~[Stopping the Duel]~~~

on *:TEXT:!Timeout:#DuelServ:{
  if ($nick == %p1) || ($nick == %p2) || ($nick isop #) || ($nick ishop #) {
    msg #DuelServ The Current Duel was ended by,  $+ $nick $+ .
    unset %p1
    unset %p1barrage
    unset %p1dds
    unset %p1hp
    unset %p2
    unset %p2barrage
    unset %p2dds
    unset %p2hp
    unset %cp
  }
}

~~~[Stopping the Duel End] ~~~

~~~[Leveling up]~~~

on *:TEXT:!pick Strength:#DuelServ:{
  if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
  if ($nick != %lw) { notice $nick You must win the previous Duel before you can use this command. | Halt }
  if ($nick == %lw) {
    /writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) + 1)
    notice $nick You have leveled your Strength level to, $readini(duel.ini,$2,$nick)
    unset %lw
  }
}

on *:TEXT:!pick Attack:#DuelServ:{
  if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
  if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
  if ($nick == %lw) {
    /writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) + 1)
    notice $nick You have leveled your Attack level to, $readini(duel.ini,$2,$nick)
    unset %lw
  }
}

on *:TEXT:!pick Magic:#DuelServ:{
  if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
  if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
  if ($nick == %lw) {
    /writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) +1)
    notice $nick You have leveled your Magic level to, $readini(duel.ini,$2,$nick)
    unset %lw
  }
}

on *:TEXT:!pick Range:#DuelServ:{
  if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
  if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
  if ($nick == %lw) {
    /writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) +1)
    notice $nick You have leveled your Range level to, $readini(duel.ini,$2,$nick)
    unset %lw
  }
}

on *:TEXT:!pick HP:#DuelServ:{
  if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
  if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
  if ($nick == %lw) {
    /writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) +1)
    notice $nick You have leveled your HP level to, $readini(duel.ini,$2,$nick)
    unset %lw
  }
}

~~~[End of Leveling up]~~~