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.

4 files changed, 22 insertions, 5 deletions

diff --git a/db/quest_db.conf b/db/quest_db.conf
index 54cc99a58..1a244339a 100644
--- a/db/quest_db.conf
+++ b/db/quest_db.conf
@@ -546,6 +546,10 @@ quest_db: (
 	Id: 401
 	Name: "Q_AuroraEvent"
 },
+{
+	Id: 402
+	Name: "Q_DragonFarm"
+},
 
 // ID 1000+: Test quests
 {
diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index 74052d413..e2af38838 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -3794,8 +3794,8 @@ item_db: (
 	AegisName: "CoinBag"
 	Name: "Coin Bag"
 	Type: "IT_ETC"
-	Buy: 1000
-	Sell: 500
+	Buy: 1500
+	Sell: 475
 	Weight: 50
 	Refine: false
 },
@@ -4608,7 +4608,7 @@ item_db: (
 	Name: "Dragon Scales"
 	Type: "IT_ETC"
 	Buy: 8000
-	Sell: 880
+	Sell: 820
 	Weight: 40
 	Refine: false
 },
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");