From 8c510f9f5868e4cd251c338ab4609eee32b42cbd Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Thu, 13 Jul 2023 13:38:00 -0300
Subject: Complaint Dragon by Hocus

---
 db/constants.conf      |  1 +
 db/re/item_db.conf     | 10 ++++++++++
 db/re/mob_db.conf      | 52 +++++++++++++++++++++++++++++++++++++++++++++++++-
 npc/003-2-1/demure.txt | 17 ++++++++++++-----
 4 files changed, 74 insertions(+), 6 deletions(-)

diff --git a/db/constants.conf b/db/constants.conf
index 75897bfa0..f7b97cbdb 100644
--- a/db/constants.conf
+++ b/db/constants.conf
@@ -2120,6 +2120,7 @@ constants_db: {
 	EE_CRAZYFEFE:        1024
 	EE_SAULC:            2048
 	EE_GEMINI:           4096
+	EE_COMPLAINT:        8192
 
 	comment__: "Teleporter enum"
 	TP_NONE:                0
diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index ab188773e..723bb8533 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -5492,6 +5492,16 @@ item_db: (
 	Refine: false
 	//DropAnnounce: true
 },
+{
+	Id: 927
+	AegisName: "ComplaintForm"
+	Name: "Complaint Form"
+	Type: "IT_ETC"
+	Buy: 175
+	Sell: 50
+	Weight: 1
+	Refine: false
+},
 
 
 //	 <!-- Necklaces -->
diff --git a/db/re/mob_db.conf b/db/re/mob_db.conf
index 1d1008873..eeda14cea 100644
--- a/db/re/mob_db.conf
+++ b/db/re/mob_db.conf
@@ -1933,7 +1933,57 @@ mob_db: (
 		Amethyst: 2
 	}
 },
-// 1046 is free
+{
+	Id: 1046
+	SpriteName: "ComplaintDragon"
+	Name: "Complaint Dragon"
+	Lv: 75
+	Hp: 12308
+	Sp: 1248
+	Exp: 1641
+	JExp: 102
+	AttackRange: 6
+	Attack: [550, 600]
+	Def: 50
+	Mdef: 75
+	WalkMask: "WALK_AIR"
+	Stats: {
+		Str: 41
+		Agi: 55
+		Vit: 72
+		Int: 0
+		Dex: 66
+		Luk: 33
+	}
+	ViewRange: 10
+	ChaseRange: 15
+	Race: 9
+	Element: (3, 2)
+	Mode: {
+		CanMove: true
+		Looter: true
+		Aggressive: true
+		Assist: true
+		CanAttack: true
+		ChangeTargetMelee: true
+		ChangeChase: true
+	}
+	MoveSpeed: 500
+	AttackDelay: 1800
+	AttackMotion: 672
+	DamageMotion: 480
+	Drops: {
+		ComplaintForm: 1800
+		Dragonfruit: 600
+		DragonScales: 400
+		HastePotion: 300
+		StrengthPotion: 300
+		DragonStar: 2
+	}
+	WeaponAttacks: {
+		All: 8000
+	}
+},
 {
 	Id: 1047
 	SpriteName: "BeeHive"
diff --git a/npc/003-2-1/demure.txt b/npc/003-2-1/demure.txt
index 357577db1..0e3e0b841 100644
--- a/npc/003-2-1/demure.txt
+++ b/npc/003-2-1/demure.txt
@@ -7,15 +7,22 @@
 
     RegEasterEgg(EE_DEMURE, 5);
 
+    if (countitem(ComplaintForm) > 100) {
+        delitem ComplaintForm, 100;
+        Zeny+=100*getiteminfo(ComplaintForm, ITEMINFO_SELLPRICE);
+        dispbottom l("Due to a bug, all your complaint forms became money!");
+        RegEasterEgg(EE_COMPLAINT, 15);
+    }
+
     // Let's try without freeloop
     mesn any("NotSoBot", "Demure");
-    if (rand(1,5) <= 2)
+    if (rand2(1,5) <= 2)
         mes "Blame Saulc";
 
-    .@mx=rand(6,12);
+    .@mx=rand2(6,12);
 	for (.@i = 0; .@i < .@mx; ++.@i) {
         mes "leave Complaints";
-        if (rand(1,5) == 3)
+        if (rand2(1,5) == 3)
             mes "";
         if (.@i == 10) {
             next;
@@ -23,12 +30,12 @@
             mes any("leave Complaints", "Blame Saulc");
         }
 	}
-    if (rand(1,5) >= 4)
+    if (rand2(1,5) >= 4)
         mes "Blame Saulc";
     close;
 
 OnHydra:
-    areamonster "003-2-1", 20, 20, 65, 60, strmobinfo(1, GreenDragon), GreenDragon, any(1,1,2), "NotSoBot::OnHydra2";
+    areamonster "003-2-1", 20, 20, 65, 60, strmobinfo(1, ComplaintDragon), ComplaintDragon, any(1,1,2), "NotSoBot::OnHydra2";
     setq Q_DragonFarm, getq(Q_DragonFarm)+1;
     if (getq(Q_DragonFarm) > 100) goto L_Kick;
     end;
-- 
cgit v1.2.3-70-g09d2