1 files changed, 92 insertions, 0 deletions
diff --git a/npc/017-5/nahrec.txt b/npc/017-5/nahrec.txt
new file mode 100644
index 000000000..8be80c597
--- /dev/null
+++ b/npc/017-5/nahrec.txt
@@ -0,0 +1,92 @@
+// TMW2/LoF scripts.
+// Authors:
+//    TMW-LoF Team
+//    Jesusalva
+// Description:
+//    General Purpose Blacksmith
+//          TODO: Shield building on market square
+//          TODO: Mylarin Dust for THE EPISODE. This means Savior Pants is part of THE EPISODE
+
+017-5,0,0,0	script	Nahrec	NPC_PLAYER,{
+    mesn;
+    mesq l("Ah, hello! It is good to see another traveler in this town!");
+    next;
+    menu
+        l("Really? Where are you from?"), L_Story,
+        l("It's good to see you too, do you happen to be able to make stuff?"), L_Makestuff,
+        l("Alright."), -;
+    close;
+
+L_Story:
+    mesn;
+    mesq l("I came from Thermin, a town far far away.");
+    next;
+    mesn;
+    mesq l("I'm an experienced weapon master helping this smithy here, but I am new in this town. I am best at smithing armor.");
+    next;
+    menu
+        l("'Best'? So you can make other things?"), L_Makestuff,
+        l("Good to know."), -;
+    close;
+
+L_Makestuff:
+    mesn;
+    mesq l("Yes, I can craft many things. In addition to plating and improving armor, I can craft smaller items made of gold and other metals.");
+    select
+        rif(countitem(WarlordPlate) > 0, l("Can you improve my Warlord Plate for me?")),
+        rif(countitem(LightPlatemail) > 0, l("Can you improve my Light Platemail for me?")),
+        l("Can you craft Light Platemail?"),
+        l("Can you craft Warlord Plate?"),
+        l("Can you craft Savior Pants?"),
+        l("Do you know something about 'Mylarin Dust'?"),
+        l("Nevermind, bye!");
+    mes "";
+    switch (@menu) {
+        case 5:
+            goto L_Savior;
+        case 6:
+            goto L_Mylarin;
+        case 7:
+            closedialog;
+            goodbye;
+            close;
+    }
+    goto L_Makestuff;
+
+L_Mylarin:
+    mesn;
+    mesq l("Mylarin dust?! Where would you get that? That's amazing!");
+    next;
+    mesq l("It has eluded so many craftsmiths, who knows what can be done with that!");
+    next;
+    mesq l("I can make some stuff with it, but I have no idea where it can be found. Mylarin dust... amazing.");
+    next;
+    goto L_Makestuff;
+
+L_Missing:
+    mesn;
+    mesq l("It looks like you're missing some items or money. Please come back when you have what I need!");
+    close;
+
+L_Savior:
+    mesn;
+    mesq l("Yes, I can craft Savior Pants. But it is not cheap. I'll need Platinum, Iridium, and Mylarin Dust. And gold. Much gold.");
+    select
+        "I'll be back with those items..",
+        "That's crazy!";
+    close;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, FancyHat);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, WarlordPlate);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, NPCEyes);
+    setunitdata(.@npcId, UDT_WEAPON, SaviorPants);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 2);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);
+
+    .sex=G_MALE;
+    .distance=5;
+    end;
+
+}