From a11026a2f89af4a9e0e4e5bb04f151abb466c361 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 18 Aug 2019 00:43:50 -0300
Subject: The Market - Deploy Homunculus to make money

---
 npc/017-10/dispatcher.txt | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/npc/017-10/dispatcher.txt b/npc/017-10/dispatcher.txt
index a5a7e16e9..0af8168aa 100644
--- a/npc/017-10/dispatcher.txt
+++ b/npc/017-10/dispatcher.txt
@@ -62,6 +62,10 @@ L_Main:
         rif(gethominfo(6) >= 10, l("Deploy to Rare Mines [2h]")),
         rif(gethominfo(6) >= 15, l("Deploy to Slime Nest [2h]")),
         rif(gethominfo(6) >= 30, l("Deploy to Snake Pit [3h]")),
+        "",
+        "",
+        "",
+        l("Deploy to The Market [1h]"),
         l("Don't deploy");
     mes "";
         // Common drops: At least 90% drop
@@ -182,6 +186,23 @@ L_Main:
             .@dest=.SNAKEPIT;
             .@hours=3;
             break;
+        case 10:
+            mesc ".:: " + l("The Market") + " ::.";
+            mesc l("Send your Homunculus to make money!");
+            mesc l("Average EXP: 8"), 3;
+            mesc l("Maximum Profit: 10000 GP"), 3;
+            mesc l("Common Drops: "+
+                    getitemlink(Piberries));
+            mesc l("Regular Drops: "+
+                    getitemlink(Bread)+
+                    getitemlink(Cheese)+
+                    getitemlink(Beer));
+            mesc l("Rare Drops: "+
+                    getitemlink(TreasureMap));
+            next;
+            .@dest=.MARKET;
+            .@hours=1;
+            break;
         default:
             close;
     }
@@ -286,6 +307,17 @@ function lootField {
                 HalfEggshell, .@lv, 6000,
                 GoldenApple, 1, 100);
         break;
+    case .MARKET:
+        .@val+=8;
+        // Maximum Profit: 10,000 GP
+        // Sending a fresh homun in market may yield no GP.
+        Zeny+=min(10000, 1000*.@lv*min(10000, gethominfo(3))/10000);
+        anyloot(Piberries, .@lv, 9000,
+                Bread, .@lv, 7000,
+                Cheese, .@lv, 5000,
+                Beer, limit(1, .@lv/10, 10), 1200,
+                TreasureMap, 1, 420);
+        break;
     }
     // A final boost for sake of randomness
     .@val+=rand2(0, 3);
-- 
cgit v1.2.3-60-g2f50