1 files changed, 111 insertions, 0 deletions
diff --git a/npc/001-1/eomie.txt b/npc/001-1/eomie.txt
new file mode 100755
index 00000000..1ab21846
--- /dev/null
+++ b/npc/001-1/eomie.txt
@@ -0,0 +1,111 @@
+001-1,71,23,0	script	Eomie	NPC164,{
+    @grass_amount = 5;
+    @water_amount = 2;
+    @ice_amount = 2;
+
+    @silk_exp = 600;
+
+    if (.@q >= 14) goto L_Done;
+    if (.@q >= 9) goto L_CastedSpell;
+    if (.@q == 8) goto L_GetStuff;
+
+    mesn;
+    mes "\"I maintain this little oasis in the desert.\"";
+    if (.@q != 7)
+        goto L_Close;
+    menu
+        "I need to learn a spell to use Tinris' magic fertilizer. Can you help me out?",L_Next;
+
+L_Next:
+    mesn;
+    mes "\"Oh? Well, that's a rather difficult task.";
+    mes "I'd be glad to help you, but unfortunately, I can't. If I were to interrupt the magic I use to keep this alive, it would die.\"";
+    next;
+    mes "\"It's unusually hot at the moment – even for this desert area – so it's really out of the question.\"";
+    menu
+        "Is there any chance you could help me?",L_Continue;
+
+L_Continue:
+    mes "She hesitates.";
+    .@q = 8;
+    goto L_GetStuff;
+
+L_GetStuff:
+    // .@q == 8
+    mesn;
+    mes "\"I could try to briefly interrupt my magic and then cast the spell on the fertilizer, but I would need to prepare the grass beforehand.";
+    mes "Bring me " + @grass_amount + " " + getitemlink("GrassSeed") + ", " + @water_amount + " " + getitemlink("BottleOfWater") + ", and " + @ice_amount + " " + getitemlink("IceCube") + ".\"";
+    menu
+        "I've got everything.",L_More,
+        "Where can I get Grass Seeds?",L_Hurnscald,
+        "How can I get Ice Cubes? We're in the middle of the desert!",L_Mine,
+        "Ok. I'll go and get them.",L_Close;
+L_More:
+    if ((countitem("GrassSeed") < @grass_amount) || (countitem("BottleOfWater") < @water_amount) || (countitem("IceCube") < @ice_amount))
+        goto L_NoItem;
+
+    delitem "GrassSeed", @grass_amount;
+    delitem "BottleOfWater", @water_amount;
+    delitem "IceCube", @ice_amount;
+    .@q = 9;
+    mesn;
+    mes "\"Very good!\"";
+    mes "She takes the ingredients you brought her and uses them to cast a cool mist into the air.";
+    misceffect sfx_magic_nature;
+    next;
+    mesn;
+    mes "\"That should last long enough to keep the plants alive while I cast the spell on the fertilizer. Besides, I can replant anything that dies with the seeds you brought me.\"";
+    next;
+    mes "She takes the fertilizer and casts some invocations. After a minute, she hands the now-glowing substance back to you.";
+    mesn;
+    mes "\"That should work now. I'm glad you're taking care of the plants! Not enough people do that nowadays.\" %%1";
+    goto L_Close;
+
+L_Hurnscald: // player asked how to get Grass Seeds
+    mesn;
+    mes "\"Squirrels tend to pick up " + getitemlink("GrassSeed") + " as they gather food. You can find them around Hurnscald if you ride the ferry over.\"";
+    goto L_Close;
+
+L_Mine: // player asked how to get Ice Cubes
+    mesn;
+    mes "\"Quite the quandary – isn't it? Naturally, you can easily find them on the continent of Kaizei, which is far up north and covered with snow most time of the year. But it might be a bit difficult to get there.\"";
+    next;
+    mes "\"I heard that Ice Goblins were seen in the caves surrounding Nivalis. Maybe you can find " + getitemlink("IceCube") + " there.\"";
+    goto L_Close;
+
+L_CastedSpell: // .@q >= 9 but below 14
+    mesn;
+    mes "\"Thankfully, the grass wasn't damaged. I hope Anwar finds the magic fertilizer to be useful.\"";
+    if (.@q != 13)
+        goto L_Close;
+    menu
+        "It was. He even created this Silk Headband as a present for you!",L_Present,
+        "(Mumble something and leave)",L_Close;
+
+L_Present:
+    if (countitem("SilkHeadband") < 1)
+        goto L_NoItem;
+    delitem "SilkHeadband", 1;
+    getexp @silk_exp, 0;
+    .@q = 14;
+    mesn;
+    mes "\"Oh, that's so nice of him! Please tell him that I really like it!\"";
+    mes "She smiles.";
+    goto L_Close;
+
+L_Done: // .@q >= 14
+    mesn;
+    mes "\"Hello! I'm happy to see someone like you so dedicated to the environment.\" %%8";
+    goto L_Close;
+
+L_NoItem:
+    mesn;
+    mes "\"Where is it?\" %%3";
+    goto L_Close;
+
+L_Close:
+    @grass_amount = 0;
+    @water_amount = 0;
+    @ice_amount = 0;
+    close;
+}