Christmas 2021 Cleanup

Contains several other bugfixes and improvements

- The Mana World Team's Chairman
- Fix Terogan Fight
- Poppet's Battle Chamber (inactive)
- `@setcells` and `@delcells`
- Fix Graveyard Ghosts
- Jande skill (inactive)

3 files changed, 75 insertions, 0 deletions

diff --git a/npc/fermi/_import.txt b/npc/fermi/_import.txt
index 9c2eafa4..0d2bb19c 100644
--- a/npc/fermi/_import.txt
+++ b/npc/fermi/_import.txt
@@ -1,3 +1,4 @@
 // Map fermi: Three Fermi Land
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/fermi/_warps.txt",
+"npc/fermi/chairman.txt",
diff --git a/npc/fermi/_warps.txt b/npc/fermi/_warps.txt
index bd877484..5f596e03 100644
--- a/npc/fermi/_warps.txt
+++ b/npc/fermi/_warps.txt
@@ -1,3 +1,4 @@
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 // Map fermi: Three Fermi Land warps
 fermi,29,19,0	warp	#fermi_29_19	0,0,000-1,22,22
+fermi,21,19,0	warp	#fermi_21_19	0,0,009-1,42,44
diff --git a/npc/fermi/chairman.txt b/npc/fermi/chairman.txt
new file mode 100644
index 00000000..aae05c3a
--- /dev/null
+++ b/npc/fermi/chairman.txt
@@ -0,0 +1,73 @@
+// The Mana World scripts.
+// Author:
+//    Jesusalva
+// Description:
+//    Meetings Chairman
+
+fermi	mapflag	nosave	009-1,42,44
+
+fermi,27,18,0	script	#Chairman	NPC_NO_SPRITE,{
+    if (!is_admin()) end;
+    mesn l("Chairman");
+    mes "Configuration for Team Meetings.";
+    select
+        "Exit",
+        rif($@TMWT_MEETING, "Count and Announce votes"),
+        rif(!$@TMWT_MEETING, "Open Meeting"),
+        rif($@TMWT_MEETING, "Close Meeting"),
+        "Announce Meeting (here)",
+        "Announce Meeting (global)";
+    mes "";
+    closeclientdialog;
+    switch (@menu) {
+    case 1:
+        close;
+        break;
+    case 2:
+        .@y$ = "";
+        .@yay = getunits(BL_PC, .@py, false, "fermi", 30, 20, 39, 29);
+        for (.@i = 0; .@i < .@yay; .@i++) {
+            if (.@y$ != "")
+                .@y$ += ", ";
+            .@y$ += strcharinfo(0, "???", .@py[.@i]);
+        }
+        .@n$ = "";
+        .@nae = getunits(BL_PC, .@pn, false, "fermi", 30, 30, 39, 39);
+        for (.@i = 0; .@i < .@nae; .@i++) {
+            .@n$ += strcharinfo(0, "???", .@pn[.@i]);
+        }
+        .@a$ = "";
+        .@abs = getunits(BL_PC, .@pa, false, "fermi", 24, 20, 29, 39);
+        for (.@i = 0; .@i < .@abs; .@i++) {
+            .@n$ += strcharinfo(0, "???", .@pa[.@i]);
+        }
+        // If yay == nae, motion fails
+        .@s$ = (.@yay > .@nae ? "##3passed##0" : "##1failed##0");
+        mapannounce "fermi", sprintf("Chairman : %d Yay from: %s", .@yay, .@y$), 0;
+        mapannounce "fermi", sprintf("Chairman : %d Nae from: %s", .@nae, .@n$), 0;
+        mapannounce "fermi", sprintf("Chairman : %d Abs from: %s", .@abs, .@a$), 0;
+        sleep2(200);
+        mapannounce "fermi", sprintf("Chairman : Motion %s: YAY %d - %d NAE", .@s$, .@yay, .@nae), 0;
+        break;
+    case 3:
+        $@TMWT_MEETING = true;
+        announce sprintf("Chairman : The Mana World Team Meeting is %s.", $@TMWT_MEETING ? "in session, and can be accessed in Jack's House, Hurnscald" : "adjourned, thanks everyone for attending"), 0;
+        break;
+    case 4:
+        $@TMWT_MEETING = false;
+        announce sprintf("Chairman : The Mana World Team Meeting is %s.", $@TMWT_MEETING ? "in session, and can be accessed in Jack's House, Hurnscald" : "adjourned, thanks everyone for attending"), 0;
+        break;
+    case 5:
+        mapannounce "fermi", sprintf("Chairman : The meeting is now %s.", $@TMWT_MEETING ? "in session" : "adjourned"), 0;
+        break;
+    case 6:
+        announce sprintf("Chairman : The Mana World Team Meeting is %s.", $@TMWT_MEETING ? "in session, and can be accessed in Jack's House, Hurnscald" : "adjourned, thanks everyone for attending"), 0;
+        break;
+    }
+    close;
+
+OnInit:
+    .distance=5;
+    end;
+}
+