By Saulc's command (and with the help of a huge SQL query)...

* You'll be kicked from Complain depto for 15 min after 100 kills.
  - This will be increase in 1 minute every kick, up to a hour.
* Coin Bag sell price nerfed in 25 GP
* Dragon Scales sell price nerfed in 60 GP

Will take a while until these changes show any positive effect ingame.
Once they do, however, we'll need to nerf the prices in Fortress Town.

2 files changed, 15 insertions, 2 deletions

diff --git a/npc/003-2-1/demure.txt b/npc/003-2-1/demure.txt
index 35b532522..357577db1 100644
--- a/npc/003-2-1/demure.txt
+++ b/npc/003-2-1/demure.txt
@@ -28,7 +28,20 @@
     close;
 
 OnHydra:
-    areamonster "003-2-1", 20, 20, 65, 60, strmobinfo(1, GreenDragon), GreenDragon, any(1,1,2);
+    areamonster "003-2-1", 20, 20, 65, 60, strmobinfo(1, GreenDragon), GreenDragon, any(1,1,2), "NotSoBot::OnHydra2";
+    setq Q_DragonFarm, getq(Q_DragonFarm)+1;
+    if (getq(Q_DragonFarm) > 100) goto L_Kick;
+    end;
+
+OnHydra2:
+    setq Q_DragonFarm, getq(Q_DragonFarm)+1;
+    if (getq(Q_DragonFarm) > 100) goto L_Kick;
+    end;
+
+L_Kick:
+    .@t=900+min(2700, getq3(Q_DragonFarm)*60);
+    setq Q_DragonFarm, 1, gettimetick(2)+.@t, getq3(Q_DragonFarm)+1;
+    warp "003-2", 28, 41;
     end;
 
 OnInit:
diff --git a/npc/003-2/hiddenwarp.txt b/npc/003-2/hiddenwarp.txt
index 9fd868a3f..62ec4b60c 100644
--- a/npc/003-2/hiddenwarp.txt
+++ b/npc/003-2/hiddenwarp.txt
@@ -8,7 +8,7 @@
     end;
 
 OnTouch:
-    if ((BaseLevel >= 40 && getq(General_Narrator) >= 2) || is_gm())
+    if ((BaseLevel >= 40 && getq(General_Narrator) >= 2 && getq2(Q_DragonFarm) < gettimetick(2)) || is_gm())
         warp "003-2-1", 47, 34;
     else
         npctalk3 l("Complaints Depto. temporaly closed, come back later");