Template for Nahrec. When 017-5 map get add, it'll automagically work.

2 files changed, 92 insertions, 147 deletions

diff --git a/npc/00000SAVE/smiths/009-2_nahrec.txt b/npc/00000SAVE/smiths/009-2_nahrec.txt
deleted file mode 100644
index a7a508ce6..000000000
--- a/npc/00000SAVE/smiths/009-2_nahrec.txt
+++ /dev/null
@@ -1,147 +0,0 @@
-// Shield building on market square
-009-2,181,56,0	script	Nahrec	NPC311,{
-    mes "[Nahrec]";
-    mes "\"Ah, hello! It is good to see another traveler in this town!\"";
-    next;
-    menu
-        "Really? Where are you from?", L_Story,
-        "It's good to see you too, do you happen to be able to make stuff?", L_Makestuff,
-        "Alright.", L_close;
-
-L_Story:
-    mes "[Nahrec]";
-    mes "\"I came from Thermin, a town in the Kazei area.\"";
-    next;
-    mes "\"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
-        "'Best'? So you can make other things?", L_Makestuff,
-        "Good to know.", L_close;
-
-L_Makestuff:
-    mes "[Nahrec]";
-    mes "\"Yes, I can craft many things. In addition to plating and improving armor, I can craft smaller items made of gold and other metals.\"";
-    menu
-        "Can you make a monocle for me? I want that...classy look...", L_Monocle,
-        "Can you improve my Warlord Plate for me?", L_Goldenwplate,
-        "Can you improve my Light Platemail for me?", L_Goldenlplate,
-        "Can you craft Savior Pants?", L_Saviorpants,
-        "Do you know something about 'Mylarin Dust'?", L_Mylarin,
-        "Nevermind, bye!", L_close;
-
-L_Mylarin:
-    if (countitem("MylarinDust") == 0) goto L_No_Mylarin;
-    mes "[Nahrec]";
-    mes "\"Mylarin dust?! Where did you get that? That's amazing!\"";
-    next;
-    mes "\"I can craft you an amazingly strong armor with that - uhm, well, I first need to set up my smithy here.\"";
-    next;
-    mes "\"Please come back, when I'm ready with that. Mylarin dust... amazing.\"";
-    goto L_close;
-
-L_No_Mylarin:
-    mes "[Nahrec]";
-    mes "\"Mylarin dust!? I do indeed, but I don't suppose you have any.\"";
-    next;
-    mes "Nahrec sighs.";
-    mes "\"Ah well, I'm not prepared to work with Mylarin right now anyways. I suppose I should get back to setting up my forge.\"";
-    goto L_close;
-
-L_Goldenwplate:
-    mes "[Nahrec]";
-    mes "\"I can plate that armor in gold if you so wish, I will need 30 gold ore and 450,000gp.\"";
-    if (countitem("Gold") < 30) goto L_Missing;
-    if (countitem("WarlordPlate") < 1) goto L_Missing;
-    if (Zeny < 450000) goto L_NotEnoughMoney;
-    getinventorylist;
-    if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
-    delitem "Gold", 30;
-    delitem "WarlordPlate", 1;
-    Zeny = Zeny - 450000;
-    getitem "GoldenWarlordPlate", 1;
-    mes "[Nahrec]";
-    mes "\"There you go!\"";
-    goto L_close;
-
-L_Goldenlplate:
-    mes "[Nahrec]";
-    mes "\"I can plate that armor in gold if you so wish, I will need 20 gold ore and 250,000gp.\"";
-    if (countitem("Gold") < 20) goto L_Missing;
-    if (countitem("LightPlatemail") < 1) goto L_Missing;
-    if (Zeny < 250000) goto L_NotEnoughMoney;
-    getinventorylist;
-    if (@inventorylist_count == 100 && countitem("gold") > 20) goto L_Full;
-    delitem "Gold", 20;
-    delitem "LightPlatemail", 1;
-    Zeny = Zeny - 250000;
-    getitem "GoldenPlatemail", 1;
-    mes "[Nahrec]";
-    mes "\"There you go!\"";
-    goto L_close;
-
-L_Monocle:
-    mes "[Nahrec]";
-    mes "\"Yes, I can craft a monocle. For this, I would need you to bring me a Standard Headband, 5 gold ore, and 50,000gp\"";
-    menu
-        "I have the items you need.", L_Monocle2,
-        "I can have those soon...", L_Beback,
-        "That's lame.", L_close;
-
-L_Monocle2:
-    if (countitem("Gold") < 5) goto L_Missing;
-    if (countitem("StandardHeadband") < 1) goto L_Missing;
-    if (Zeny < 50000) goto L_NotEnoughMoney;
-    getinventorylist;
-    if (@inventorylist_count == 100 && countitem("Gold") > 5) goto L_Full;
-    delitem "Gold", 5;
-    delitem "StandardHeadband", 1;
-    Zeny = Zeny - 50000;
-    getitem "Monocle", 1;
-    mes "[Nahrec]";
-    mes "\"There you go!\"";
-    goto L_close;
-
-L_Saviorpants:
-    mes "[Nahrec]";
-    mes "\"I can craft Savior Pants. I'll need 30 gold ore, 1 pair of cotton trousers, and 200,000gp.\"";
-    menu
-        "I have what you need.", L_Saviorpants2,
-        "I'll be back with those items..", L_Beback,
-        "That's crazy!", L_close;
-
-L_Saviorpants2:
-    if (countitem("Gold") < 30 || countitem("CottonTrousers") < 1) goto L_Missing;
-    if (Zeny < 200000) goto L_NotEnoughMoney;
-    getinventorylist;
-    if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
-    delitem "Gold", 30;
-    delitem "CottonTrousers", 1;
-    Zeny = Zeny - 200000;
-    getitem "SaviorPants", 1;
-    mes "[Nahrec]";
-    mes "\"There you go!\"";
-    goto L_close;
-
-L_Full:
-    mes "[Nahrec]";
-    mes "\"It looks like you don't have room for this item. Come back when you have more room!\"";
-    goto L_close;
-
-L_Beback:
-    mes "[Nahrec]";
-    mes "\"Be back soon with the items I need!\"";
-    goto L_close;
-
-L_Missing:
-    mes "[Nahrec]";
-    mes "\"It looks like you're missing some items. Please come back when you have what I need!\"";
-    goto L_close;
-
-L_NotEnoughMoney:
-    mes "[Nahrec]";
-    mes "\"You don't have enough money, come back later!\"";
-    goto L_close;
-
-L_close:
-    close;
-}
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;
+
+}