Initial commit (Moubootaur Legends fork)

3 files changed, 149 insertions, 0 deletions

diff --git a/npc/012-3/_import.txt b/npc/012-3/_import.txt
new file mode 100644
index 0000000..1f94b49
--- /dev/null
+++ b/npc/012-3/_import.txt
@@ -0,0 +1,4 @@
+// Map 012-3: Archery Shop
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+"npc/012-3/_warps.txt",
+"npc/012-3/alan.txt",
diff --git a/npc/012-3/_warps.txt b/npc/012-3/_warps.txt
new file mode 100644
index 0000000..0b81722
--- /dev/null
+++ b/npc/012-3/_warps.txt
@@ -0,0 +1,3 @@
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+// Map 012-3: Archery Shop warps
+012-3,41,46,0	warp	#012-3_41_46	0,0,012-1,89,59
diff --git a/npc/012-3/alan.txt b/npc/012-3/alan.txt
new file mode 100644
index 0000000..92cfc45
--- /dev/null
+++ b/npc/012-3/alan.txt
@@ -0,0 +1,142 @@
+// TMW-2 Script
+// Author:
+//    Jesusalva
+// Description:
+//    Alan is Hurnscald's bowmaster. He may craft the Forest Bow, and sell ammo.
+
+012-3,44,40,0	script	Alan	NPC_BOWMASTER,{
+    .@q=getq(HurnscaldQuest_ForestBow);
+    .@q2=getq2(HurnscaldQuest_ForestBow);
+    .@q3=getq3(HurnscaldQuest_ForestBow);
+    switch (.@q) {
+        case 1:
+            npctalk3 l("Ah, if Jack and that fisherman from Halinarzo still gave me materials...");
+            break;
+        case 2:
+            npctalk3 l("The bow I gave you was a masterpiece.");
+            break;
+    }
+
+    mesn;
+    mesq l("Only the finest bows and arrows, in the land where wood is abundant!");
+    mes "";
+    menu
+        l("Ok, thanks."), L_Close,
+        l("I want to trade."), L_Shop,
+        rif(.@q == 0, l("Do you accept special requests? Could you make me a really good bow?")), L_ForestBow,
+        rif(.@q == 1 && .@q2 == .@q3 && .@q2 == 99, l("I have the sturdy wood and the string.")), L_Craft;
+
+L_Shop:
+    npcshopattach(.name$);
+    openshop;
+    closedialog;
+    close;
+
+L_ForestBow:
+    mesn;
+    mesq l("Well, I know how to do a @@, a sturdy bow, but I am not making those anymore, sorry.", getitemlink(ForestBow));
+    next;
+    menu
+        l("Oh, too bad."), L_Close,
+        l("What? Why not?"), L_Next;
+
+L_Next:
+    mesn;
+    mesq l("You see, I cannot use any raw material. It must be sturdier than the usual, and I don't have the materials for it.");
+    next;
+    mesn;
+    mesq l("The wood, Jack the Lumberjack used to deliver me, but he isn't delivering anymore. And the string was imported from Halinarzo.");
+    next;
+    mesn;
+    mesq l("Perhaps, you could convince Jack to give me the wood, and seek for a fisherman on Halinarzo to give you the string? I won't charge anything.");
+    next;
+    menu
+        l("Not really, sorry."), L_Close,
+        l("Right'o, I'll arrange the material!"), L_Start;
+
+L_Start:
+    // q2 → Wood Part
+    // q3 → String Part
+    setq HurnscaldQuest_ForestBow, 1, 0, 0;
+    goto L_Close;
+
+L_Craft:
+    inventoryplace ForestBow, 1;
+    getitem ForestBow, 1;
+    getexp 900, 0;
+    setq HurnscaldQuest_ForestBow, 2, 0, 0;
+    mesn;
+    mesq l("Here you go - have fun with it.");
+    next;
+    goto L_Close;
+
+
+L_Close:
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    sleep(SHOPWAIT);
+	tradertype(NST_MARKET);
+
+    sellitem ShortBow, 8800, 1;
+    sellitem WoodenBow, 4000, 2;
+
+    sellitem TrainingArrow, -1, 2000;
+    sellitem Arrow, -1, 1000;
+    sellitem IronArrow, -1, 500;
+
+    if ($ARKIM_ST > 1400)
+        sellitem CursedArrow, -1, $ARKIM_ST-1400;
+    if ($ARKIM_ST > 2800)
+        sellitem PoisonArrow, -1, $ARKIM_ST-2800;
+
+	sellitem TrainingAmmoBox, -1, 10;
+	sellitem ArrowAmmoBox, -1, 5;
+	sellitem IronAmmoBox, -1, 2;
+
+    if ($ARKIM_ST > 2800)
+        sellitem CursedAmmoBox, -1, (($ARKIM_ST-1400)/200);
+    if ($ARKIM_ST > 5600)
+        sellitem PoisonAmmoBox, -1, (($ARKIM_ST-2800)/200);
+
+    end;
+
+
+OnClock2357:
+OnClock1151:
+    restoreshopitem ShortBow, 8800, 1;
+    restoreshopitem WoodenBow, 4000, 2;
+	restoreshopitem TrainingAmmoBox, -1, 10;
+	restoreshopitem ArrowAmmoBox, -1, 5;
+	restoreshopitem IronAmmoBox, -1, 2;
+
+    if ($ARKIM_ST > 2800)
+        restoreshopitem CursedAmmoBox, -1, (($ARKIM_ST-1400)/200);
+    if ($ARKIM_ST > 5600)
+        restoreshopitem PoisonAmmoBox, -1, (($ARKIM_ST-2800)/200);
+OnClock0611:
+OnClock1800:
+    restoreshopitem TrainingArrow, -1, 2000;
+    restoreshopitem Arrow, -1, 1000;
+    restoreshopitem IronArrow, -1, 500;
+    if ($ARKIM_ST > 2800)
+        restoreshopitem CursedArrow, -1, (($ARKIM_ST-1400)/200);
+    if ($ARKIM_ST > 5600)
+        restoreshopitem PoisonArrow, -1, (($ARKIM_ST-2800)/200);
+    end;
+
+// Pay your taxes!
+OnBuyItem:
+    PurchaseTaxes("Hurns");
+    end;
+
+OnSellItem:
+    debugmes("Sale confirmed");
+    SaleTaxes("Hurns");
+    end;
+
+}