Baby Dragon pet. Prepare for Mana Tree quest.

4 files changed, 54 insertions, 1 deletions

diff --git a/db/quest_db.conf b/db/quest_db.conf
index c888620ee..1ed42eb4d 100644
--- a/db/quest_db.conf
+++ b/db/quest_db.conf
@@ -391,6 +391,10 @@ quest_db: (
 	Id: 153
 	Name: "FortressQuest_RangedHunt"
 },
+{
+	Id: 154
+	Name: "FortressQuest_ManaTree"
+},
 
 // ID 171 to 190: Artis & Esperia Quests
 // ID 191 to 249: General Quests II (eg. Dungeon Quests)
diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index 89ee051c2..9f5d2127e 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -12992,6 +12992,27 @@ item_db: (
 		bpet;
 	">
 },
+{
+	Id: 4013
+	AegisName: "DragonHorn"
+	Name: "Dragon Horn"
+	Type: "IT_PETEGG"
+	Buy: 90000
+	Sell: 4000
+	Weight: 360
+	KeepAfterUse: true
+	Trade: {
+		partneroverride: true
+		notrade: true
+		nodrop: true
+		nogstorage: true
+		nomail: true
+		noauction: true
+	}
+	Script: <"
+		bpet;
+	">
+},
 
 //
 // Dyes
diff --git a/db/re/pet_db.conf b/db/re/pet_db.conf
index 6fa1daf73..f430cc8a9 100644
--- a/db/re/pet_db.conf
+++ b/db/re/pet_db.conf
@@ -382,4 +382,27 @@ pet_db:(
     PetScript: <" petloot 3; bonus bInt, 1; ">
     EquipScript: <"if (getpetinfo(3) > 900) { bonus bInt, 4; bonus bAgi, 1; } ">
 },
-)
+{
+    Id: 1195
+    SpriteName: "Baby Dragon"
+    Name: "Baby Dragon"
+    TamingItem: "JarOfBlood"
+    EggItem: "DragonHorn"
+    FoodItem: "Dragonfruit"
+    FoodEffectiveness: 70
+    HungerDelay: 100
+    Intimacy: {
+        Initial: 60
+        FeedIncrement: 100
+        OverFeedDecrement: 10
+        OwnerDeathDecrement: 10
+    }
+    CaptureRate: 0
+    Speed: 190
+    SpecialPerformance: true
+    AttackRate: 450
+    DefendRate: 500
+    ChangeTargetRate: 850
+    PetScript: <" petloot 3; bonus bStr, 1; ">
+    EquipScript: <"if (getpetinfo(3) > 900) { bonus2 bAddGetZenyNum, -1, 4; } ">
+},)
diff --git a/npc/017-1/pet_detective.txt b/npc/017-1/pet_detective.txt
index 98b483bb8..de0ead541 100644
--- a/npc/017-1/pet_detective.txt
+++ b/npc/017-1/pet_detective.txt
@@ -68,6 +68,7 @@ L_Menu:
         rif(PDQ_CheckGHQ(Duck) >= 10000 && !countitem(DuckEgg), l("Duck")),
         rif(PDQ_CheckGHQ(Bat) >= 10000 && !countitem(BatEgg), l("Bat")),
         rif(PDQ_CheckGHQ(Moggun) >= 10000 && !countitem(MoggunEgg), l("Moggun")),
+        rif(PDQ_CheckGHQ(GreenDragon) >= 10000 && !countitem(DragonHorn), l("Green Dragon")),
         rif(#LOGIN_ALLTIME >= 6 && !countitem(PiouEgg), l("Piou")),
         l("Nothing at the moment.");
 
@@ -98,6 +99,10 @@ L_Menu:
                 .stock-=1;
             break;
         case 7:
+            if (PDQ_InnerSwitch(GreenDragon,DragonScales, 65))
+                .stock-=1;
+            break;
+        case 8:
             if (PDQ_InnerSwitch(Piou, PiouFeathers, 80))
                 .stock-=1;
             break;