[Candor Battle] Add event coordinator overrides and infinite battle mode.

Only EVTCs are capable of using the infinite mode.

1 files changed, 19 insertions, 2 deletions

diff --git a/npc/029-3/parua.txt b/npc/029-3/parua.txt
index 8a908cf7..4f282feb 100644
--- a/npc/029-3/parua.txt
+++ b/npc/029-3/parua.txt
@@ -21,7 +21,8 @@ L_Next:
     mesn;
     mes "\"Very well, for a fee of "+@FIGHT_CAVE_COST$+" GP, I will awaken that power.\"";
     menu "No, what a ripoff!", L_Exit,
-         "Fine, here you go.", L_Fine;
+         "Fine, here you go.", L_Fine,
+         rif(is_evtc(), "I am an event coordinator and this is an event."), L_Evtc;
 
 L_Fine:
     if ($@FIGHT_CAVE_STATUS == 1)
@@ -43,9 +44,24 @@ L_Paying:
     $@FIGHT_CAVE_PAID = 1;
     goto L_StartFight;
 
+L_Evtc:
+    mesc("PS. Do note the fight starts immediately and with any number of players. You are supposed to make use of @broadcast and @recall.");
+    select
+        l("And I want a normal run."),
+        l("And I want an infinite run.");
+    mes "";
+    if ($@FIGHT_CAVE_STATUS != 0)
+        goto L_AlreadyStarted;
+    if (@menu == 2)
+        $@CANDOR_INFINITE = true;
+    $@FIGHT_CAVE_PAID = 1;
+    goto L_StartFightSkip;
+
+
 L_StartFight:
     if (getmapusers("029-3") < 5)
         goto L_NotEnoughPlayers;
+L_StartFightSkip:
     npctalk "Let the battle begin!";
     $@FIGHT_CAVE_STATUS = 1;
     $@FIGHT_CAVE_LEVEL = 1;
@@ -206,7 +222,7 @@ L_NextRound:
         $@FIGHT_CAVE_TEMP_UP = 100;
 
     $@FIGHT_CAVE_LEVEL = $@FIGHT_CAVE_LEVEL + $@FIGHT_CAVE_PLAYER_COUNT + $@FIGHT_CAVE_TEMP_UP;
-    if ($@FIGHT_CAVE_LEVEL >= 2200)
+    if ($@FIGHT_CAVE_LEVEL >= 2200 && !$@CANDOR_INFINITE)
         goto L_CleanUp;
     $@FIGHT_CAVE_POINTS = $@FIGHT_CAVE_LEVEL;
 
@@ -360,6 +376,7 @@ L_CleanUp:
     $@FIGHT_CAVE_PLAYER_COUNT = 0;
     $@FIGHT_CAVE_LEVEL = 1;
     $@FIGHT_CAVE_ROUND_TIMER = 0;
+    $@CANDOR_INFINITE = false;
     killmonster "029-3", "Parua::OnPetDeath";
     stopnpctimer;
     setnpctimer 0;