summaryrefslogtreecommitdiff
path: root/npc/00000SAVE/020-1_well.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/00000SAVE/020-1_well.txt')
-rw-r--r--npc/00000SAVE/020-1_well.txt80
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;
+}