From eeebc8f8181c8d79a2bb2e45d5341ec72ccf5540 Mon Sep 17 00:00:00 2001
From: Saulc <lucashelaine14@gmail.com>
Date: Wed, 24 Jan 2018 18:25:42 +0100
Subject: add map items adn npcs focus on candor

---
 npc/005-4/rosen.txt | 80 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 npc/005-4/rosen.txt

(limited to 'npc/005-4/rosen.txt')

diff --git a/npc/005-4/rosen.txt b/npc/005-4/rosen.txt
new file mode 100644
index 000000000..32d2bcb81
--- /dev/null
+++ b/npc/005-4/rosen.txt
@@ -0,0 +1,80 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Light Armor shop keeper.
+// Variables:
+//    ArtisQuests_Enora
+// Values:
+//    0    Default.
+//    1    BlackSmith quest delivered.
+//    2    Chelios Quest given.
+//    3    Chelios Quest done.
+//    4    BlackSmith gave the sword.
+//    5    Light Armor Shop quest delivered.
+//    6    Light Armor Shop gave the cloths.
+
+005-4,29,36,0	script	Rosen	NPC_ELVEN_FEMALE_ARMOR_SHOP,{
+
+    function explain_craft {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("Did you see Don the blacksmith? He might know how you could improve your metal equipment."),
+            l("Nevertheless, you can craft some cards that you can then attach to your equipment."),
+            l("We sell a brimmed hat, you can craft a feather card and attach it to this hat to obtain an enhanced version of it!");
+
+        return;
+    }
+
+    function enora_quest {
+        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+            l("I thought that she would never come to pick it up!"),
+            l("Here it is, a fashionable @@.", getitemlink(ArtisTankTop, CamelCottonDye)),
+            l("I asked Calypsan to dye this tank top, now it has an unique look!");
+
+        narrator S_LAST_NEXT, l("You pick up the package.");
+
+        setq ArtisQuests_Enora, 6;
+
+        return;
+    }
+
+    speech S_LAST_NEXT,
+        l("Welcome to my office."),
+        l("What would you like today?");
+
+    do
+    {
+        .@enora = getq(ArtisQuests_Enora);
+        select
+            rif(.@enora == 5, lg("I came to retrieve a package for Enora.")),
+            menuaction(l("Trade")),
+            l("How can I improve my equipment?"),
+            menuaction(l("Quit"));
+
+        switch (@menu)
+        {
+            case 1:
+                enora_quest;
+                closedialog;
+                goodbye;
+                close;
+            case 2:
+                closedialog;
+                shop "Store#001-2-0";
+                close;
+            case 3:
+                explain_craft;
+                break;
+            case 4:
+                closedialog;
+                goodbye;
+                close;
+        }
+    } while (1);
+
+
+OnInit:
+    .sex = G_FEMALE;
+    .distance = 2;
+    end;
+}
-- 
cgit v1.2.3-60-g2f50