1 files changed, 80 insertions, 0 deletions
diff --git a/npc/00000SAVE/020-1_well.txt b/npc/00000SAVE/020-1_well.txt
new file mode 100644
index 000000000..1a138d35f
--- /dev/null
+++ b/npc/00000SAVE/020-1_well.txt
@@ -0,0 +1,80 @@
+// Better to skip this quest. It is too poor and would require more work,
+// eg. rope and something to make the player take part on it... Probably?
+
+020-1,99,83,0	script	#Well	NPC400,{
+    if(QL_WELL == 2) goto L_Finished;
+
+    mes "...";
+    menu
+        "Throw something in the well.", L_Throw,
+        "Leave it alone.", L_close;
+
+L_Throw:
+    mes "What do you want to throw?";
+
+    setarray @response_list$, "Yuck! Who threw that on me?", "Ouch! Who's hurting me?", "White powder!? What's going on up there?", "It's raining in Nivalis?!";
+    setarray @item_list$, "MaggotSlime", "RawLog", "PileOfAsh", "BottleOfWater";
+    menu
+        "Maggot slime", L_CheckItem,
+        "A raw log", L_CheckItem,
+        "Pile of ash", L_CheckItem,
+        "Bottle of water", L_CheckItem,
+        "Leave it alone", L_close;
+
+L_CheckItem:
+    @index = @menu - 1;
+    @response$ = @response_list$[@index];
+    @item$ = @item_list$[@index];
+
+    mes @item$;
+
+    if(countitem(@item$) == 0)
+        goto L_MissingItem;
+    delitem @item$, 1;
+
+    if(@item$ == "BottleOfWater")
+        getitem "EmptyBottle", 1;
+
+    mes "[Mysterious voice inside the well]";
+    mes "\"" + @response$ + "\"";
+    next;
+    menu
+        "Who are you?", L_Who,
+        "How did you get down there?", L_How,
+        "Do you need help?", L_Help;
+
+L_Who:
+    @response$ = "I'll talk about who I am after leaving the well. ";
+    goto L_GetHelp;
+
+L_How:
+    @response$ = "Well, someone pushed me into the well, I'm not sure who. ";
+    goto L_GetHelp;
+
+L_Help:
+    @response$ = "I certainly can't get out on my own. ";
+    goto L_GetHelp;
+
+L_GetHelp:
+    mes "[Mysterious voice inside the well]";
+    mes "\"" + @response$ + "So if you can get some help for me... please do so!\"";
+    QL_WELL = 1;
+
+    cleararray @response_list$, "", 4;
+    cleararray @item_list$, "", 4;
+    @index = 0;
+    @response$ = "";
+
+    goto L_close;
+
+L_MissingItem:
+    mes "You can't throw an item you don't have.";
+    goto L_close;
+
+L_Finished:
+    mes "This is a well.";
+    goto L_close;
+
+L_close:
+    close;
+}