From 034a1c899c49bb6d11bd4080bb27d068ba72e3bc Mon Sep 17 00:00:00 2001
From: mekolat <mekolat@gmail.com>
Date: Tue, 27 Jan 2015 11:18:01 -0500
Subject: add DynamicItemMenu and fix Pauline

---
 world/map/npc/001-2/pauline.txt | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'world/map/npc/001-2')

diff --git a/world/map/npc/001-2/pauline.txt b/world/map/npc/001-2/pauline.txt
index b8833251..2c49bef6 100644
--- a/world/map/npc/001-2/pauline.txt
+++ b/world/map/npc/001-2/pauline.txt
@@ -122,13 +122,15 @@ L_KnowIngredientsMouboo:
         "No.", L_ComeBackLater;
 
 L_Next3:
+    setarray @items$, "AlizarinHerb", "GambogeHerb", "SilkCocoon", "PinkAntenna", "MaggotSlime", "BugLeg", "GrassSeeds", "ReedBundle", "RoastedAcorn", "Candy", "Milk", "BottleOfWater", "ChickenLeg", "Steak", "Root", "RawLog", "Beer", "CactusDrink", "MoubooFigurine", "Acorn", "Iten", "WarpedLog";
+    setarray @item_names$, "Alizarin Herb", "Gamboge Herb", "Silk Cocoon", "Pink Antenna", "Maggot Slime", "Bug Leg", "Grass Seeds", "Reed Bundle", "Roasted Acorn", "Candy", "Milk", "Bottle of Water", "Chicken Leg", "Steak", "Root", "Raw Log", "Beer", "Cactus Drink", "Mouboo Figurine", "Acorn", "Iten", "Warped Log";
     mes "\"Then tell me the ingredients for the mouboo summoning spell and give them to me. Start with the first ingredient and then tell me the second one separately.\"";
     next;
-    mes "This is case sensitive. Also do not enter whitespaces.";
-    next;
-    input @pauline_ingredient1$;
+    callfunc "DynamicItemMenu$";
+    set @pauline_ingredient1$, @item$;
     mes "Next ingredient.";
-    input @pauline_ingredient2$;
+    callfunc "DynamicItemMenu$";
+    set @pauline_ingredient2$, @item$;
     if (@pauline_ingredient1$ == "")
         goto L_Wrong;
     if (@pauline_ingredient2$ == "")
@@ -180,13 +182,16 @@ L_TrySpellMouboo:
     goto L_Close;
 
 L_KnowIngredientsPinkie:
+    setarray @items$, "AlizarinHerb", "GambogeHerb", "SilkCocoon", "PinkAntenna", "MaggotSlime", "BugLeg", "GrassSeeds", "ReedBundle", "RoastedAcorn", "Candy", "Milk", "BottleOfWater", "ChickenLeg", "Steak", "Root", "RawLog", "Beer", "CactusDrink", "MoubooFigurine", "Acorn", "Iten", "WarpedLog";
+    setarray @item_names$, "Alizarin Herb", "Gamboge Herb", "Silk Cocoon", "Pink Antenna", "Maggot Slime", "Bug Leg", "Grass Seeds", "Reed Bundle", "Roasted Acorn", "Candy", "Milk", "Bottle of Water", "Chicken Leg", "Steak", "Root", "Raw Log", "Beer", "Cactus Drink", "Mouboo Figurine", "Acorn", "Iten", "Warped Log";
     mes "[Pauline]";
     mes "\"Now give me the ingredients for the pinkie spell.\"";
     next;
-    mes "This is case sensitive. Also do not enter whitespaces.";
-    input @pauline_ingredient1$;
+    callfunc "DynamicItemMenu$";
+    set @pauline_ingredient1$, @item$;
     mes "Next ingredient.";
-    input @pauline_ingredient2$;
+    callfunc "DynamicItemMenu$";
+    set @pauline_ingredient2$, @item$;
     if (@pauline_ingredient1$ == "")
         goto L_Wrong;
     if (@pauline_ingredient2$ == "")
-- 
cgit v1.2.3-60-g2f50