Cheat NPC: Limit how many points will be sold, and do not rupture progression.

In other words, don't sell expert/master tier stuff before FoS is done.

1 files changed, 40 insertions, 14 deletions

diff --git a/npc/029-0/event.txt b/npc/029-0/event.txt
index ac5b5a083..d3029fc28 100644
--- a/npc/029-0/event.txt
+++ b/npc/029-0/event.txt
@@ -18,8 +18,8 @@
     next;
     select
         l("Show me what you got, noob."),
-        l("Actually - Do you exchange goods even more illegal goods than this?"),
-        l("Actually - Do you exchange illegal... research results?");
+        rif($GAME_STORYLINE >= 4, l("Actually - Do you exchange goods even more illegal goods than this?")),
+        rif($GAME_STORYLINE >= 4, l("Actually - Do you exchange illegal... research results?"));
     mes "";
     if (@menu == 1) {
         closeclientdialog;
@@ -27,6 +27,11 @@
         close;
     }
     else if (@menu == 2) {
+        if (.mobp < .points) {
+            mesn;
+            mesq l("Not at the moment but come back later.");
+            close;
+        }
         mesn;
         mesq l("Yes I do... I sell %s %s for the small amount of %s GP. Interested? %%%%p", fnum(.mobp), l("Monster Points"), fnum(.mobg));
         if (Zeny < .mobg) close;
@@ -35,10 +40,16 @@
         if (Zeny < .mobg) { die(); close; }
         Zeny-=.mobg;
         Mobpt+=.mobp;
+        .points -= .mobp;
         mes "";
         mesn;
         mesq l("Hehehe... A pleasure doing business with you!");
     } else if (@menu == 3) {
+        if (.robp < .points) {
+            mesn;
+            mesq l("Not at the moment but come back later.");
+            close;
+        }
         mesn;
         mesq l("Yes I do... I sell %s %s for the small amount of %s GP. Interested? %%%%p", fnum(.robp), l("Research Points"), fnum(.robg));
         if (Zeny < .robg) close;
@@ -47,6 +58,7 @@
         if (Zeny < .robg) { die(); close; }
         Zeny-=.robg;
         MAGIC_RP+=.robp;
+        .points -= .robp;
         mes "";
         mesn;
         mesq l("Hehehe... A pleasure doing business with you!");
@@ -70,6 +82,7 @@ OnInit:
     .mobg=.mobp*rand2(100, 150)/10;
     .robp=rand2(900, 1200);
     .robg=.robp*rand2(40, 60);//rand2(80, 110);
+    .points = 5000;
     .distance=5;
     .sex=G_MALE;
 
@@ -89,8 +102,10 @@ OnInit:
     sellitem TinOre,        3600, 15+(.@steam*2-2);
     sellitem LeadOre,       4000, 15+(.@steam*2-2);
     sellitem TitaniumOre,   6000, 9+(.@steam*2-2);
-    sellitem IridiumOre,    16000, 6+(.@steam*2-2);
-    sellitem PlatinumOre,   24000, 3+(.@steam*2-2);
+    if ($GAME_STORYLINE >= 4) {
+        sellitem IridiumOre,    16000, 6+(.@steam*2-2);
+        sellitem PlatinumOre,   24000, 3+(.@steam*2-2);
+    }
     sellitem EarthPowder,   -1, 3+.@steam-1;
     sellitem EverburnPowder, 15000, 2+.@steam-1;
 
@@ -102,14 +117,18 @@ OnInit:
     sellitem AlchemyBlueprintA, -1, 5+.@steam-1;
     sellitem AlchemyBlueprintB, -1, 4+.@steam-1;
     sellitem AlchemyBlueprintC, -1, 3+.@steam-1;
-    sellitem AlchemyBlueprintD, -1, 2+.@steam-1;
-    sellitem AlchemyBlueprintE, -1, 1+.@steam/2;
+    if ($GAME_STORYLINE >= 4) {
+        sellitem AlchemyBlueprintD, -1, 2+.@steam-1;
+        sellitem AlchemyBlueprintE, -1, 1+.@steam/2;
+    }
 
     sellitem EquipmentBlueprintA, -1, 5+.@steam-1;
     sellitem EquipmentBlueprintB, -1, 4+.@steam-1;
     sellitem EquipmentBlueprintC, -1, 3+.@steam-1;
-    sellitem EquipmentBlueprintD, -1, 2+.@steam-1;
-    sellitem EquipmentBlueprintE, -1, 1+.@steam/2;
+    if ($GAME_STORYLINE >= 4) {
+        sellitem EquipmentBlueprintD, -1, 2+.@steam-1;
+        sellitem EquipmentBlueprintE, -1, 1+.@steam/2;
+    }
 
     sellitem ArcmageBoxset,     10000, 4+.@steam-1;
     sellitem ScholarshipBadge,  -1, 3+.@steam-1;
@@ -148,6 +167,7 @@ OnClock1401:
 OnClock1601:
 OnClock1801:
 OnClock2001:
+    .points += 5000;
     if ($EVENT$ != "Steam")
         end;
 OnClock2201:
@@ -171,8 +191,10 @@ OnClock2201:
     restoreshopitem TinOre,      3600, 15+(.@steam*2-2);
     restoreshopitem LeadOre,     4000, 15+(.@steam*2-2);
     restoreshopitem TitaniumOre, 6000, 9+(.@steam*2-2);
-    restoreshopitem IridiumOre,  16000, 6+(.@steam*2-2);
-    restoreshopitem PlatinumOre, 24000, 3+(.@steam*2-2);
+    if ($GAME_STORYLINE >= 4) {
+        restoreshopitem IridiumOre,  16000, 6+(.@steam*2-2);
+        restoreshopitem PlatinumOre, 24000, 3+(.@steam*2-2);
+    }
     restoreshopitem EarthPowder, 3+.@steam-1;
     restoreshopitem EverburnPowder, 15000, 2+.@steam-1;
 
@@ -184,14 +206,18 @@ OnClock2201:
     restoreshopitem AlchemyBlueprintA, 5+.@steam-1;
     restoreshopitem AlchemyBlueprintB, 4+.@steam-1;
     restoreshopitem AlchemyBlueprintC, 3+.@steam-1;
-    restoreshopitem AlchemyBlueprintD, 2+.@steam-1;
-    restoreshopitem AlchemyBlueprintE, 1+.@steam/2;
+    if ($GAME_STORYLINE >= 4) {
+        restoreshopitem AlchemyBlueprintD, 2+.@steam-1;
+        restoreshopitem AlchemyBlueprintE, 1+.@steam/2;
+    }
 
     restoreshopitem EquipmentBlueprintA, 5+.@steam-1;
     restoreshopitem EquipmentBlueprintB, 4+.@steam-1;
     restoreshopitem EquipmentBlueprintC, 3+.@steam-1;
-    restoreshopitem EquipmentBlueprintD, 2+.@steam-1;
-    restoreshopitem EquipmentBlueprintE, 1+.@steam/2;
+    if ($GAME_STORYLINE >= 4) {
+        restoreshopitem EquipmentBlueprintD, 2+.@steam-1;
+        restoreshopitem EquipmentBlueprintE, 1+.@steam/2;
+    }
 
     restoreshopitem ArcmageBoxset, 10000, 4+.@steam-1;
     restoreshopitem ScholarshipBadge, 3+.@steam-1;