017-10 is full of bugs... Core rules: Dispatcher prototype for ADM.

2 files changed, 58 insertions, 0 deletions

diff --git a/npc/017-10/_import.txt b/npc/017-10/_import.txt
index cd96bac0d..ce6916310 100644
--- a/npc/017-10/_import.txt
+++ b/npc/017-10/_import.txt
@@ -1,3 +1,4 @@
 // Map 017-10: Tech-User Forge
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/017-10/_warps.txt",
+"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;
+
+}
+