Add Illia quest debug npc / sections.

3 files changed, 196 insertions, 0 deletions

diff --git a/world/map/npc/007-1/witch.txt b/world/map/npc/007-1/witch.txt
index 31ffbcee..94707f11 100644
--- a/world/map/npc/007-1/witch.txt
+++ b/world/map/npc/007-1/witch.txt
@@ -36,6 +36,14 @@ L_Introduce:
         goto L_AskTeleportSpellItems;
     if (@illia_know_witch == 1)
         goto L_QuickIntroduce;
+    // FIXME BEGIN debug section
+    menu
+        "[Debug] Start the quest automatically using up to three players around you.", L_DebugAuto,
+        "Configure the difficulty penalty.", L_DebugHarvest,
+        "Configure my Illia_Uniques_Count.", L_DebugUniquesCount,
+        "Normal dialogs.", -,
+        "Quit.", L_Exit;
+    // FIXME END debug section
     mes "[Valia]";
     mes "\"I'm Valia Illia. Is it needed to say I am a witch?\"";
     next;
@@ -84,6 +92,14 @@ L_HideSkills:
 L_QuickIntroduce:
     mes "[Valia]";
     mes "\"My sister is in great danger, and time is running out.\"";
+    // FIXME BEGIN debug section
+    menu
+        "[Debug] Start the quest automatically using up to three players around you.", L_DebugAuto,
+        "Configure the difficulty penalty.", L_DebugHarvest,
+        "Configure my Illia_Uniques_Count.", L_DebugUniquesCount,
+        "Normal dialogs.", -,
+        "Quit.", L_Exit;
+    // FIXME END debug section
     next;
     goto L_AskHelp;
 
@@ -621,6 +637,93 @@ OnTimer300000:
     emotion EMOTE_UPSET;
     goto L_EndQuest;
 
+// FIXME BEGIN debug section
+L_DebugHarvest:
+    mes "[Debug]";
+    mes "This quest is designed for a group of 4 players and is repeatable.";
+    mes "When the team fails to complete the quest after a certain progress, the difficulty will be increased for the next team.";
+    mes "The rewards will also be increased. Engaging?";
+    mes "Right now, the difficulty penalty is " + $Illia_Luvia_Harvest + ".";
+    menu
+        "Change it?", -,
+        "No.", L_Exit;
+    input $Illia_Luvia_Harvest;
+    if ($Illia_Luvia_Harvest < 0)
+        set $Illia_Luvia_Harvest, 0;
+    if ($Illia_Luvia_Harvest > 50)
+        set $Illia_Luvia_Harvest, 50;
+    next;
+    mes "The difficulty penalty is now " + $Illia_Luvia_Harvest + ".";
+    goto L_Exit;
+
+L_DebugUniquesCount:
+    mes "[Debug]";
+    mes "Right now, your Illia_Uniques_Count is " + Illia_Uniques_Count + ".";
+    menu
+        "Change it?", -,
+        "No.", L_Exit;
+    input Illia_Uniques_Count;
+    if (Illia_Uniques_Count < 0)
+        set Illia_Uniques_Count, 0;
+    if (Illia_Uniques_Count > 2)
+        set Illia_Uniques_Count, 2;
+    next;
+    mes "Your Illia_Uniques_Count is now " + Illia_Uniques_Count + ".";
+    goto L_Exit;
+
+L_DebugAuto:
+    mes "[Debug]";
+    mes "This quest is designed for a group of 4 players. The recommended level is 90+, but " + @illia_min_level + " is the minimum.";
+    mes "You can start the quest automatically with this debug section, without having to wait the intro of the quest.";
+    mes "Once warped to the forest, you will have the option to jump to another level of the quest to debug it.";
+    mes "Enter here how many players will debug this quest (N = [1,4]). Enter 1 if you are alone.";
+    input $@illia_debug_num_players;
+    if ($@illia_debug_num_players < 1)
+        goto L_Cancelled;
+    if ($@illia_debug_num_players > 4)
+        goto L_DebugAuto;
+    mes "The quest will be started with " + $@illia_debug_num_players + " players.";
+    // temporary block other accesses while warping timer will set this var to 3.
+    set $@ILLIA_STATUS, 3;
+    set $@illia_debug_count, 1;
+    set $@ILLIA_HERO$, strcharinfo(0);
+    set $@ILLIA_HERO_ID, getcharid(3, $@ILLIA_HERO$);
+    areatimer "007-1.gat", 66, 73, 92, 88, 10, "Valia::OnDetect";
+    npctalk "Spiralis Major (Debug)!";
+    addtimer 1500, "Valia::OnStartDebug";
+    // Start the timer to trigger the OnTimer50000 check.
+    setnpctimer 40000;
+    startnpctimer;
+    close;
+
+L_Cancelled:
+    mes "[Debug]";
+    mes "Debug session cancelled.";
+    close;
+
+OnDetect:
+    if (strcharinfo(0) == $@ILLIA_HERO$) end;
+    set $@illia_debug_count, $@illia_debug_count + 1;
+    if ($@illia_debug_count > $@illia_debug_num_players) end;
+    if ($@illia_debug_count == 2) set $@ILLIA_HELPER1$, strcharinfo(0);
+    if ($@illia_debug_count == 3) set $@ILLIA_HELPER2$, strcharinfo(0);
+    if ($@illia_debug_count == 4) set $@ILLIA_HELPER3$, strcharinfo(0);
+    end;
+
+OnStartDebug:
+    goto L_DebugStart;
+
+L_DebugStart:
+    // Trigger 4 areatimers to show the teleport spell
+    // This is better looking than an areawarp
+    mapannounce "007-1.gat", "Debugging Illia Quest with " + $@ILLIA_HERO$ + " (Hero), " + $@ILLIA_HELPER1$ + ", " + $@ILLIA_HELPER2$ + ", " + $@ILLIA_HELPER3$ + ".",0;
+    areatimer "007-1.gat", 66, 73, 92, 88, 1000, "Valia::OnWarpHero";
+    areatimer "007-1.gat", 66, 73, 92, 88, 1500, "Valia::OnWarpHelper1";
+    areatimer "007-1.gat", 66, 73, 92, 88, 2000, "Valia::OnWarpHelper2";
+    areatimer "007-1.gat", 66, 73, 92, 88, 2500, "Valia::OnWarpHelper3";
+    misceffect FX_BLUE_MAGIC_CAST;
+    end;
+// FIXME END debug section
 }
 
 007-1.gat,128,100,0|script|#IlliaDaemon|127,{
diff --git a/world/map/npc/051-1/_import.txt b/world/map/npc/051-1/_import.txt
index 85c3d272..a0946c4a 100644
--- a/world/map/npc/051-1/_import.txt
+++ b/world/map/npc/051-1/_import.txt
@@ -3,6 +3,7 @@
 map: 051-1.gat
 npc: npc/051-1/_mobs.txt
 npc: npc/051-1/_warps.txt
+npc: npc/051-1/debug.txt
 npc: npc/051-1/desert.txt
 npc: npc/051-1/desertmonsters.txt
 npc: npc/051-1/forest.txt
diff --git a/world/map/npc/051-1/debug.txt b/world/map/npc/051-1/debug.txt
new file mode 100644
index 00000000..e8a7f2c6
--- /dev/null
+++ b/world/map/npc/051-1/debug.txt
@@ -0,0 +1,92 @@
+051-1.gat,28,24,0|script|Illia Level Jumper|167,{
+    mes "[Illia Level Jumper]";
+    mes "This quest is divided into several levels.";
+    mes "You have to fulfill a specific task in each level before going to the next.";
+    next;
+    mes "You can select below a specific level that you want to debug.";
+    menu
+        "1. Jump to the forest level.", L_Forest,
+        "2. Jump to the bandit cave level.", L_BanditCave,
+        "3. Jump to the desert level.", L_Desert,
+        "4. Jump to the Illia island level.", L_Island,
+        "5. Jump to the Illia Forsaken Inn level (Lobby).", L_InnLobby,
+        "6. Jump to the Illia Forsaken Inn level (Storage).", L_InnStorage,
+        "7. Jump to the Illia Forsaken Inn level (Party Room).", L_InnPartyRoom,
+        "8. Jump to the Illia Forsaken Inn level (Chest Room).", L_InnChestRoom,
+        "Do nothing", -;
+    close;
+
+L_Forest:
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "051-1.gat",23,24;
+    set $@illia_progress, 2;
+    set $@illia_level_2_progress, 0;
+    close;
+
+L_BanditCave:
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "051-3.gat",24,60;
+    set $@illia_progress, 2;
+    set $@illia_level_2_progress, 0;
+    close;
+
+L_Desert:
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "051-1.gat",118,55;
+    set $@illia_progress, 3;
+    set $@illia_level_3_progress, 0;
+    close;
+
+L_Island:
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "052-1.gat",23,52;
+    set $@illia_progress, 4;
+    set $@illia_level_4_progress, 0;
+    close;
+
+L_InnLobby:
+    mes "Note: Difficulty penalty won't raise if you die.";
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "052-2.gat",33,40;
+    set $@illia_progress, 5;
+    set $@illia_level_5_progress, 0;
+    close;
+
+L_InnStorage:
+    mes "Note: Difficulty penalty won't raise if you die.";
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "052-2.gat",23,71;
+    set $@illia_progress, 6;
+    set $@illia_level_6_progress, 0;
+    close;
+
+L_InnPartyRoom:
+    mes "Note: Difficulty penalty won't raise if you die.";
+    set $@illia_max_time, $@illia_max_time + 6000;
+    areawarp "051-1.gat",1,1,90,80, "052-2.gat",75,48;
+    set $@illia_progress, 7;
+    set $@illia_level_7_progress, 0;
+    close;
+
+L_InnChestRoom:
+    mes "Note: Bonus due to difficulty penalty (" + $Illia_Luvia_Harvest + ") won't be reset";
+    set $@illia_max_time, $@illia_max_time + 6000;
+    // Set the number of common rewards rewards
+    if ($Illia_Luvia_Harvest < 15)
+        set $@illia_num_common_reward_items, 3;
+    if ($Illia_Luvia_Harvest >= 15 && $Illia_Luvia_Harvest < 35)
+        set $@illia_num_common_reward_items, 5;
+    if ($Illia_Luvia_Harvest >= 35)
+        set $@illia_num_common_reward_items, 8;
+
+    // Set the number of unique rewards
+    if ($Illia_Luvia_Harvest < 40)
+        set $@illia_num_unique_reward_items, 1;
+    if ($Illia_Luvia_Harvest >= 40)
+        set $@illia_num_unique_reward_items, 2;
+    //set $Illia_Luvia_Harvest, 0;
+    set $@illia_progress, 8;
+    areawarp "051-1.gat",1,1,90,80,  "052-2.gat", 132, 85;
+    close;
+
+}