summaryrefslogtreecommitdiff
path: root/npc/012-1
diff options
context:
space:
mode:
Diffstat (limited to 'npc/012-1')
-rw-r--r--npc/012-1/_import.txt1
-rw-r--r--npc/012-1/shoppakep.txt61
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;
+}