From c6a2871fbf9535d5ffe2126c04c624a807b46cd7 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 7 Mar 2021 16:37:32 -0300
Subject: 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.
---
 db/quest_db.conf         |  4 ++++
 db/re/item_db.conf       |  6 +++---
 npc/003-2-1/demure.txt   | 15 ++++++++++++++-
 npc/003-2/hiddenwarp.txt |  2 +-
 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");
-- 
cgit v1.2.3-70-g09d2