From 373d3b52ee6fa898bb952939d4d71d26c28c095b Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 18 Aug 2019 00:47:27 -0300
Subject: Well, it will need to be a default constant

---
 db/constants.conf         | 10 ++++++++++
 npc/017-10/dispatcher.txt | 42 +++++++++++++++---------------------------
 2 files changed, 25 insertions(+), 27 deletions(-)

diff --git a/db/constants.conf b/db/constants.conf
index 4324ec3da..304f4a149 100644
--- a/db/constants.conf
+++ b/db/constants.conf
@@ -4359,6 +4359,16 @@ constants_db: {
     BS_SNEST9:          256
     BS_SNESTALL:        511
 
+	comment__: "Homunculus deployment constants"
+	HCD_PIOUFIELDS: 1
+	HCD_HERBFIELDS: 2
+	HCD_OREMINES:   3
+	HCD_RAREMINES:  4
+	HCD_SLIMENEST:  5
+	HCD_SNAKEPIT:   6
+	HCD_DANGERAREA: 7
+	HCD_MARKET:     10
+
 	comment__: "Being actions"
 	ACTION_STAND:  0
 	ACTION_MOVE:   1
diff --git a/npc/017-10/dispatcher.txt b/npc/017-10/dispatcher.txt
index 0af8168aa..65e648a4b 100644
--- a/npc/017-10/dispatcher.txt
+++ b/npc/017-10/dispatcher.txt
@@ -83,7 +83,7 @@ L_Main:
             mesc l("Rare Drops: "+
                     getitemlink(GoldenApple));
             next;
-            .@dest=.PIOUFIELDS;
+            .@dest=HCD_PIOUFIELDS;
             .@hours=1;
             break;
         case 2:
@@ -100,7 +100,7 @@ L_Main:
             mesc l("Rare Drops: "+
                     getitemlink(ReedBundle));
             next;
-            .@dest=.HERBFIELDS;
+            .@dest=HCD_HERBFIELDS;
             .@hours=1;
             break;
         case 3:
@@ -121,7 +121,7 @@ L_Main:
                     getitemlink(IridiumOre)+
                     getitemlink(PlatinumOre));
             next;
-            .@dest=.OREMINES;
+            .@dest=HCD_OREMINES;
             .@hours=2;
             break;
         case 4:
@@ -142,7 +142,7 @@ L_Main:
                     getitemlink(BlackPearl)+
                     getitemlink(BlueManaPearl));
             next;
-            .@dest=.RAREMINES;
+            .@dest=HCD_RAREMINES;
             .@hours=2;
             break;
         case 5:
@@ -166,7 +166,7 @@ L_Main:
                     getitemlink(Milk)+
                     getitemlink(IcedBottle));
             next;
-            .@dest=.SLIMENEST;
+            .@dest=HCD_SLIMENEST;
             .@hours=3;
             break;
         case 6:
@@ -183,7 +183,7 @@ L_Main:
                     getitemlink(DivineApple)+
                     getitemlink(Kanabo));
             next;
-            .@dest=.SNAKEPIT;
+            .@dest=HCD_SNAKEPIT;
             .@hours=3;
             break;
         case 10:
@@ -200,7 +200,7 @@ L_Main:
             mesc l("Rare Drops: "+
                     getitemlink(TreasureMap));
             next;
-            .@dest=.MARKET;
+            .@dest=HCD_MARKET;
             .@hours=1;
             break;
         default:
@@ -232,14 +232,14 @@ function lootField {
     .@val=.@lv*min(10000, gethominfo(3))/10000;
 
     switch (getarg(0)) {
-    case .PIOUFIELDS:
+    case HCD_PIOUFIELDS:
         .@val+=100;
         anyloot(PiouFeathers, .@lv, 10000,
                 PiouLegs, max(1, .@lv/2), 8000,
                 HalfEggshell, .@lv, 6000,
                 GoldenApple, 1, 100);
         break;
-    case .HERBFIELDS:
+    case HCD_HERBFIELDS:
         .@val+=5;
         anyloot(ArtichokeHerb, .@lv, 10000,
                 CobaltHerb, max(1, .@lv/2), 6000,
@@ -249,7 +249,7 @@ function lootField {
                 ShadowHerb, max(1, .@lv/3), 4000,
                 ReedBundle, 2, 800);
         break;
-    case .OREMINES:
+    case HCD_OREMINES:
         .@val+=12;
         anyloot(Coal, .@lv, 9999,
                 IronOre, max(1, .@lv/2), 2000,
@@ -262,7 +262,7 @@ function lootField {
                 IridiumOre, max(1, .@lv/10), 80,
                 PlatinumOre, 1, 20);
         break;
-    case .RAREMINES:
+    case HCD_RAREMINES:
         .@val+=15;
         anyloot(Pearl, 1, 9999,
                 Diamond, limit(1, .@lv/2, 3), 2000,
@@ -275,7 +275,7 @@ function lootField {
                 BlackPearl, 1, 10,
                 BlueManaPearl, 1, 1);
         break;
-    case .SLIMENEST:
+    case HCD_SLIMENEST:
         .@val+=500;
         anyloot(MaggotSlime, .@lv, 10000,
                 Arrow, .@lv, 9000,
@@ -291,7 +291,7 @@ function lootField {
                 Milk, 1, 200,
                 IcedBottle, 1, 60);
         break;
-    case .SNAKEPIT:
+    case HCD_SNAKEPIT:
         .@val+=1000;
         anyloot(SnakeEgg, limit(1, .@lv/8, 10), 9600,
                 SnakeTongue, limit(1, .@lv/16, 5), 9500,
@@ -300,14 +300,14 @@ function lootField {
                 DivineApple, 1, 10,
                 Kanabo, 1, 1); // Teasing Xanthem for mapping here
         break;
-    case .ADVENTURE:
+    case HCD_DANGERAREA:
         .@val+=100;
         anyloot(PiouFeathers, .@lv, 10000,
                 PiouLegs, max(1, .@lv/2), 8000,
                 HalfEggshell, .@lv, 6000,
                 GoldenApple, 1, 100);
         break;
-    case .MARKET:
+    case HCD_MARKET:
         .@val+=8;
         // Maximum Profit: 10,000 GP
         // Sending a fresh homun in market may yield no GP.
@@ -327,18 +327,6 @@ function lootField {
 OnInit:
     .sex=G_MALE;
     .distance=5;
-
-    // Custom constants
-    .PIOUFIELDS=1;
-    .HERBFIELDS=2;
-    .OREMINES=  3;
-    .RAREMINES= 4;
-    .SLIMENEST= 5;
-    .SNAKEPIT=  6;
-    .ADVENTURE= 7;
-
-    // Special field
-    .MARKET=   10;
     end;
 
 }
-- 
cgit v1.2.3-70-g09d2