on *:TEXT:*:?: {
  if ($1 == no) {
    if (%duel == on && $nick == duelist2) {
      msg #battlerpg 12 $+ %duelist2 $+  declined 4 $+ %duelist1 $+  $+ 's challenge.
      unset %duel
      unset %duelist1
      unset %duelist2
    }
    else {
      halt
    }
  }
  if ($1 == yes) {
    if (%duel == on && $nick == %duelist2) {
      msg #battlerpg 12 $+ %duelist2 $+  has accepted 4 $+ %duelist1 $+  $+ 's challenge. May the duel commence!
      set %duel active
    }
    else {
      halt
    }
    if (%duel == active) {
      if ($read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ .txt",6) > $read("C:\QUARANTINE\BattleRPG Character Files\ $+ $2 $+ .txt",6) {
        set %turn %duelist1
        set % $+ %duelist1 1
      }
      elseif ($read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ .txt",6) = $read("C:\QUARANTINE\BattleRPG Character Files\ $+ $2 $+ .txt",6) {
        set %turn $gettok(%duelist1.%duelist2,$rand(1,2),46)
        set % $+ $iif($gettok(%duelist1.%duelist2,$rand(1,2),46) == %duelist1,%duelist1,%duelist2) 1)
      }
      elseif ($read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ .txt",6) < $read("C:\QUARANTINE\BattleRPG Character Files\ $+ $2 $+ .txt"),6) {
        set %turn %duelist2
        set % $+ %duelist2 1)
      }
      notice %turn $iif(%turn == %duelist1,$read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ actions.txt",1),$read($qt(%actions2),1)
      notice %turn $iif(%turn == %duelist1,$read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ actions.txt",2),$read($qt(%actions2),2)
      notice %turn $iif(%turn == %duelist1,$read("C:\QUARANTINE\BattleRPG Character Files\ $+ $nick $+ actions.txt",3),$read($qt(%actions2),3)
    }
  }
}