Progress a tiny bit with The Episode.

Loosely based on http://forums.landoffire.org/phpBB3/viewtopic.php?f=7&t=1320

4 files changed, 103 insertions, 5 deletions

diff --git a/npc/004-2/pachua.txt b/npc/004-2/pachua.txt
index dcf5983a4..b196bfdd2 100644
--- a/npc/004-2/pachua.txt
+++ b/npc/004-2/pachua.txt
@@ -8,6 +8,31 @@
     if (@pachua == 1) goto OnTouch;
     mesn;
     mesq l("Howdy! Mirio and I scout this canyon to protect our clan. I am also a retired assassin, maybe someday I can exchange some knowledge with you! Hahaha!");
+    if (getq(LoFQuest_EPISODE) == 9 &&
+        countitem(Honey) >= 10 &&
+        countitem(ElixirOfLife)) {
+        next;
+        select
+            l("Nice."),
+            l("[10x Honey, 1x Elixir of Life] The Shadow Tortuga won the race against the Panthom Lord.");
+        mes "";
+        if (@menu == 2) {
+            mesc l("%s lifts an eyebrow to you.", .name$);
+            next;
+            inventoryplace ArcmageBoxset, 1;
+            mesn;
+            mesq l("So they need me again. Alright. Tell them the following:");
+            mes b(l("The crow took off to his last flight."));
+            next;
+            delitem Honey, 10;
+            delitem ElixirOfLife, 1;
+            getitem ArcmageBoxset, 1;
+            setq LoFQuest_EPISODE, 10;
+            mesn;
+            mesq l("And you, take this %s. It is a reward for doing the dirty job. You would think old age would let you retire, hahaha!", getitemlink(ArcmageBoxset));
+            close;
+        }
+    }
     close;
 
 OnTouch:
diff --git a/npc/018-5/storage.txt b/npc/018-5/storage.txt
index c6d1a62e6..cd843b785 100644
--- a/npc/018-5/storage.txt
+++ b/npc/018-5/storage.txt
@@ -3,6 +3,24 @@
 //    Jesusalva
 
 018-5,108,44,0	script	Storage Fairy	NPC_FAIRY_C,{
+    if (getq(LoFQuest_EPISODE) == 7 &&
+        countitem(SnakeSkin)) {
+        mesc l("Deliver the %s to retrieve Miler's memeto?", getitemlink(SnakeSkin)), 1;
+        if (askyesno() == ASK_NO) {
+            clear;
+        } else {
+            inventoryplace DeathPotion, 1;
+            mesn;
+            mesq l("Now, isn't this lovely? I'll turn it into some pants for %s winter.", (season() == WINTER ? l("this") : l("next")));
+            next;
+            delitem SnakeSkin, 1;
+            getitem DeathPotion, 1;
+            setq LoFQuest_EPISODE, 8, 0;
+            mesn;
+            mesq l("Oh, Miler just prepared a %s for you. You can use it... Or give it to Henry in Nivalis Inn, and whisper \"The Shadow Tortuga won the race against the Panthom Lord\".", getitemlink(DeathPotion));
+            close;
+        }
+    }
     Banker(.name$, "Lilit", 50000);
     close;
 
diff --git a/npc/019-1-1/miler.txt b/npc/019-1-1/miler.txt
index 1ffd492fa..4c9018de8 100644
--- a/npc/019-1-1/miler.txt
+++ b/npc/019-1-1/miler.txt
@@ -190,9 +190,16 @@ L_Continue:
     next;
     mesn;
     mesq l("...I deposited everything on the bank. Sorry!");
-    //next;
-    //mesn;
-    //mesq l("S");
+    next;
+    mesn;
+    mesq l("Oh, but don't you worry. Sure, you can't go in Nivalis bank and take my stuff... But the Storage Fairy at Lilit might just let you.");
+    next;
+    mesn;
+    mesq l("But she is a fairy. She won't be pleased with flowers. Instead, go and give her a %s as a token of good will.", getitemlink(SnakeSkin));
+    next;
+    mesn;
+    mesq l("Pal, I'm counting on you. You'll like the little something I have for you!");
+    setq LoFQuest_EPISODE, 7, 0;
     close;
 
 L_GHQ:
diff --git a/npc/020-4/henry.txt b/npc/020-4/henry.txt
index 8fee40d4a..cc38c9f29 100644
--- a/npc/020-4/henry.txt
+++ b/npc/020-4/henry.txt
@@ -7,8 +7,56 @@
 020-4,24,38,0	script	Henry	NPC_HENRY,{
     function newQuest;
     function checkQuest;
-    if (BaseLevel < 70)
-        end;
+
+    // The EPISODE
+    if (getq(LoFQuest_EPISODE) == 8 &&
+        countitem(DeathPotion)) {
+        mesc l("Should we give this shady looking 'fella a %s?", getitemlink(DeathPotion));
+        select
+            l("No, who knows what they might do with it!"),
+            l("Sure, what could go wrong?");
+        mes "";
+        if (@menu != 2) {
+            clear;
+            mesc l("*whistles*");
+        } else {
+            mesn strcharinfo(0);
+            mesq l("The Shadow Tortuga won the race against the Panthom Lord.");
+            next;
+            mesn;
+            mesq l("Oooh, I see, I see! So you're working with ##Bthem##b... This is most appreciated.");
+            next;
+            mesn;
+            mesq l("So, you have fulfilled this part of the misssion. Bring %d %s and a %s to Pachua in the Desert Canyon, and say the same thing to him so he knows you're with us.", 10, getitemlink(Honey), getitemlink(ElixirOfLife));
+            next;
+            mesn;
+            mesq l("Once you done so, come back and report the new passcode... Then I'll disclose to you the real mission.");
+            delitem DeathPotion, 1;
+            getexp 35000, 0;
+            setq LoFQuest_EPISODE, 9, 0;
+            close;
+        }
+    }
+    // Also part of The EPISODE
+    if (getq(LoFQuest_EPISODE) == 10) {
+        mesn strcharinfo(0);
+        mesq l("The crow took off to his last flight.");
+        next;
+        mesn;
+        mesq "...";
+        next;
+        mesn;
+        mesq l("Alright. Now to give your quest. But not now. Come back later.");
+        next;
+    }
+
+    // Level requeriment
+    if (BaseLevel < 70) {
+        npctalk3 l("*whistles*");
+        close;
+    }
+
+    // Main Quest
     .@q=getq(NivalisQuest_Henry);
     switch (.@q) {
     case 0: