ShoppaKep, the Crazy Shopkeeper. Neko template, please don't mind the overprices.

2 files changed, 62 insertions, 0 deletions

diff --git a/npc/012-1/_import.txt b/npc/012-1/_import.txt
index 266454f96..8b5edcec0 100644
--- a/npc/012-1/_import.txt
+++ b/npc/012-1/_import.txt
@@ -13,6 +13,7 @@
 "npc/012-1/mapflags.txt",
 "npc/012-1/richard.txt",
 "npc/012-1/ship.txt",
+"npc/012-1/shoppakep.txt",
 "npc/012-1/soul-menhir.txt",
 "npc/012-1/statue.txt",
 "npc/012-1/terezin.txt",
diff --git a/npc/012-1/shoppakep.txt b/npc/012-1/shoppakep.txt
new file mode 100644
index 000000000..6e80431d2
--- /dev/null
+++ b/npc/012-1/shoppakep.txt
@@ -0,0 +1,61 @@
+// TMW2 Script.
+// Author:
+//    Jesusalva
+// Description:
+//    Random Hurnscald Shopper with random overpriced stuff and gifts
+
+012-1,58,64,0	script	Shoppa Kep	NPC_SHOPPAKEP,{
+    mesn;
+    mesq lg("Welcome! Only the finest wares!");
+    next;
+    shop;
+    closedialog;
+    close;
+
+OnInit:
+    .ThisRebootRand=rand(0,100);
+    .ThisRebootAmou=rand(30,70);
+
+    .sex = G_FEMALE;
+    .distance = 5;
+
+
+    tradertype(NST_MARKET);
+    sellitem LeatherShirt, 125000, 1;
+    sellitem JeanShorts, 125000, 1;
+    sellitem CottonSkirt, 100000, 1;
+    sellitem MiniSkirt, 100000, 1;
+    sellitem ShortTankTop, 100000, 1;
+    sellitem CottonTrousers, 100000, 1;
+
+    sellitem Piberries, -1, 30;
+    sellitem Plushroom, -1, 3;
+    sellitem Chagashroom, -1, 3;
+
+    sellitem PiouFeathers, -1, .ThisRebootAmou;
+    if (.ThisRebootRand > 70)
+        sellitem Coal, -1, 1;
+    else if (.ThisRebootRand < 30)
+        sellitem IronOre, -1, 1;
+
+    end;
+
+OnClock1759:
+    restoreshopitem LeatherShirt, 125000, 1;
+    restoreshopitem JeanShorts, 125000, 1;
+    restoreshopitem CottonSkirt, 100000, 1;
+    restoreshopitem MiniSkirt, 100000, 1;
+    restoreshopitem ShortTankTop, 100000, 1;
+    restoreshopitem CottonTrousers, 100000, 1;
+
+    restoreshopitem Piberries, -1, 30;
+    restoreshopitem Plushroom, -1, 3;
+    restoreshopitem Chagashroom, -1, 3;
+
+    restoreshopitem PiouFeathers, -1, .ThisRebootAmou;
+    if (.ThisRebootRand > 70)
+        restoreshopitem Coal, -1, 1;
+    else if (.ThisRebootRand < 30)
+        restoreshopitem IronOre, -1, 1;
+    end;
+}