From 871ea60e8e46e9be8a8e6cc5acf1e21c58f7f53f Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 17 Aug 2019 21:20:10 -0300
Subject: 017-10 is full of bugs... Core rules: Dispatcher prototype for ADM.

---
 npc/017-10/dispatcher.txt | 57 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 npc/017-10/dispatcher.txt

(limited to 'npc/017-10/dispatcher.txt')

diff --git a/npc/017-10/dispatcher.txt b/npc/017-10/dispatcher.txt
new file mode 100644
index 000000000..3e4625b76
--- /dev/null
+++ b/npc/017-10/dispatcher.txt
@@ -0,0 +1,57 @@
+// TMW2/LoF scripts.
+// Authors:
+//    Jesusalva
+// Description:
+//    Deploys an Homunculus in a mission during your offline time
+
+017-10,61,34,0	script	Dispatcher	NPC_JOURNALMAN,{
+    mesn;
+    mesq l("Hello.");
+    if (!is_admin())
+        close;
+
+    if (!gethominfo(0)) {
+        mesc l("You do not own an Homunculus."), 1;
+    }
+    switch (homstatus()) {
+        case 0:
+            mesc l("Your homunculus is ready!"), 2;
+            break;
+        case 1:
+            mesc l("Your homunculus is sleeping! Wake them up!"), 3;
+            close;
+            break;
+        case 2:
+            mesc l("Your homunculus is already on a mission!"), 1;
+            break;
+        default:
+            mesc l("ERROR! code "+homstatus()), 1;
+            break;
+    }
+    if (homstatus()) {
+        select
+            l("Recall");
+        recallhomunculus();
+        gethomunexp(50000);
+        close;
+    }
+
+    select
+        l("Deploy to Piou Fields [1h]"),
+        rif(gethominfo(6) >= 10, l("Deploy to Mines [1h]")),
+        l("Don't deploy");
+    mes "";
+    // Ignored
+    if (!homstatus() && gethominfo(0)) {
+        deployhomunculus();
+        mesc l("Deployed!"), 2;
+    }
+    close;
+
+OnInit:
+    .sex=G_MALE;
+    .distance=5;
+    end;
+
+}
+
-- 
cgit v1.2.3-70-g09d2