Highly Experimental quest: Marggo Quest

I wanted to add a supremely complex quest to Candor for quite a while.
This was requested by @Saulc about eight months ago >.>

1 files changed, 55 insertions, 0 deletions

diff --git a/npc/005-5/nylo.txt b/npc/005-5/nylo.txt
index 73755c83e..701501304 100644
--- a/npc/005-5/nylo.txt
+++ b/npc/005-5/nylo.txt
@@ -138,11 +138,13 @@
 	speech S_LAST_BLANK_LINE,
         l("Visiting the bank too right? We're only a small village but Cynric is the best bank guy I know.");
 
+    .@q=getq(CandorQuest_Marggo);
     do
     {
     	select
             l("Yeah, you're right."),
             l("You store a large collection of goods. Could you perhaps sell me some?"),
+            rif(!.@q,l("What do you for a living?")),
             l("What is banking?");
         switch (@menu)
         {
@@ -152,6 +154,9 @@
                 openshop "Nylo#Beer";
                 break;
             case 3:
+                goto L_Main;
+                break;
+            case 4:
                 nylo_explain;
                 break;
         }
@@ -161,6 +166,56 @@
     goodbye;
     close;
 
+L_Main:
+    mesn;
+    mesq l("Well, for a living, I usually tend to the crops.");
+    next;
+    mesn;
+    mes l("I raise them, water them, and then sell them.");
+    mes l("I also brew some of the crops, making Beer. And then I sell to adventurers!");
+    if (BaseLevel < 6)
+        close;
+    next;
+    mesn;
+    mes l("Well, you're an adventurer, and I guess tending to crops isn't your cup of tea.");
+    mes l("But maybe you could help me killing a few maggots?");
+    next;
+    mesn;
+    mes l("Eight Maggots will rinse from the ground and will start destroying the crops.");
+    mes l("You must kill them before the crops are gone. I'll reward you, of course.");
+    next;
+    mesn;
+    mesq l("Interested?");
+    if (askyesno() == ASK_NO) {
+        mes "";
+        mesn;
+        mesq l("Heh. Fair enough.");
+        close;
+    }
+
+    .@ID=getcharid(0);
+    .@MAP$="MRGO@"+str(.@ID);
+
+    // Create the Marggo
+    .@INSTID = instance_create("MRGX@"+(.@ID), 0, IOT_NONE);
+    // Instance already exists
+    if (.@INSTID < 0) {
+        mesn;
+        mesq l("Wait. I remember you. You ruined my crops a few seconds ago!!");
+        next;
+        mesn;
+        mesq l("Shooo, shooo! Give my crops some time to recover, your noob.");
+        close;
+    }
+    // It was just created, so begin Marggo Quest
+    .@instanceMapName$ = instance_attachmap("005-1-1", .@INSTID, 0, .@MAP$);
+    instance_set_timeout(300, 300, .@INSTID);
+    instance_init(.@INSTID);
+    warp .@MAP$, 29, 20;
+    doevent("Nylo#Marggo::OnStart");
+    closeclientdialog;
+    close;
+
 OnInit:
     .@npcId = getnpcid(.name$);
     //setunitdata(.@npcId, UDT_HEADMIDDLE, 1321); // Maybe Nylo could use the whole Candor set...