From 0b86d279ef50e1e9baf7c2b4147cc2cb6591eeef Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 20 Jun 2018 15:28:06 -0300
Subject: ShoppaKep, the Crazy Shopkeeper. Neko template, please don't mind the
 overprices.

---
 npc/012-1/shoppakep.txt | 61 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 npc/012-1/shoppakep.txt

(limited to 'npc/012-1/shoppakep.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;
+}
-- 
cgit v1.2.3-70-g09d2