Add the missing Doomsday utilities. It requires a near-full rewrite, though.

8 files changed, 2880 insertions, 0 deletions

diff --git a/db/constants.conf b/db/constants.conf
index 075670e8..4ebf97ae 100644
--- a/db/constants.conf
+++ b/db/constants.conf
@@ -3148,8 +3148,18 @@ more than one separator can be used in a row (so 12_3___456 is illegal).
 	NPC417:417
 	NPC418:418
 	NPC419:419
+	NPC420:420
+	NPC421:421
+	NPC422:422
+	NPC423:423
+	NPC424:424
+	NPC425:425
+	NPC426:426
+	NPC427:427
+	NPC428:428
 	NPC429:429
 	NPC430:430
+	NPC431:431
 	NPC32767:32767
 
 	// NPCs decently named
diff --git a/npc/099-1/_import.txt b/npc/099-1/_import.txt
index 9448a625..7846b64d 100644
--- a/npc/099-1/_import.txt
+++ b/npc/099-1/_import.txt
@@ -1,3 +1,4 @@
 // Map 099-1: Keshlam's Adventurer's Guild
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/099-1/_warps.txt",
+"npc/099-1/main.txt",
diff --git a/npc/099-1/main.txt b/npc/099-1/main.txt
new file mode 100644
index 00000000..cbd57a0d
--- /dev/null
+++ b/npc/099-1/main.txt
@@ -0,0 +1,274 @@
+
+099-1,35,28,0	script	Note#DD5Core	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes ".:: Keshlam's Adventurer Guild ::.";
+    mes "";
+    mes "Welcome to the Adventurers Guild!";
+    mes "Sorry I could not wait for you. It's your fault for being late.";
+    next;
+    mes "So, it has been a long time since you were here.";
+    mes "I hope you still remember the directions?";
+    mes "Hahaha! There is a lot of fake rooms in this building.";
+    next;
+    mes "You should have known me for long enough to know I do not take chances.";
+    mes "I've put the docks where I'm waiting for you in an overlapping dimension.";
+    mes "This should be enough to stop any Sparron who makes back to here.";
+    next;
+    mes "My dimension, my rules.";
+    mes "I've set a rule that anything dying here should not respawn.";
+    mes "I'm not sure if it'll work, but I did enough tests on that.";
+    next;
+    mes "In case you forgot, this is an, *ahem*, \"deleted\" dimension.";
+    mes "You'll see notes from the adventurers who used to inhabit here.";
+    mes "Maybe you even find something which used to belong to them?";
+    next;
+    mes "I'm sure they tried to write down possible ways to stop me.";
+    mes "I do not like them, so if you find anything which belong to them...";
+    mes "...Well, you're free to take it.";
+    next;
+    mes "I've stationed a guard here and there, to stop intruders.";
+    mes "Use invisibility magic if you need to go past them.";
+    mes "I'll talk to you later. Do not leave me waiting!";
+    next;
+    mes "Signed,";
+    mes "Xakelbael the Dark";
+	close;
+}
+
+099-3,69,38,0	script	Ritual Book#099-31	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes ".:: Ritual Book ::.";
+    mes "";
+    mes "In this maze, sixteen numeric passwords lie.";
+    mes "All sixteen passwords must be chanted in their sequence.";
+    mes "";
+    mes "Chanting can be done on the book at right.";
+    mes "##9Only one player may chant all passwords.";
+    mes "##9No reward is provided.";
+    mes "##9If you get a number wrong, you'll be penalized!";
+	close;
+}
+
+099-3,75,38,0	script	Ritual Book#099-32	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+    if ($@DD5_OPENSESAME) goto L_Complete;
+
+	mes ".:: Ritual Book ::.";
+    mes "Perform the ritual?";
+    next;
+    menu
+        "Yes", L_RB_0,
+        "No", L_close;
+
+L_RB_0:
+    mes "Say the password - ##B NULL##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[0]) goto L_Failure;
+    goto L_RB_1;
+
+L_RB_1:
+    mes "Say the password - ##B EIN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[1]) goto L_Failure;
+    goto L_RB_2;
+
+L_RB_2:
+    mes "Say the password - ##B ZWEI##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[2]) goto L_Failure;
+    goto L_RB_3;
+
+L_RB_3:
+    mes "Say the password - ##B DREI##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[3]) goto L_Failure;
+    goto L_RB_4;
+
+L_RB_4:
+    mes "Say the password - ##B VIER##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[4]) goto L_Failure;
+    goto L_RB_5;
+
+L_RB_5:
+    mes "Say the password - ##B FUNF##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[5]) goto L_Failure;
+    goto L_RB_6;
+
+L_RB_6:
+    mes "Say the password - ##B SECHS##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[6]) goto L_Failure;
+    goto L_RB_7;
+
+L_RB_7:
+    mes "Say the password - ##B SIEBEN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[7]) goto L_Failure;
+    goto L_RB_8;
+
+L_RB_8:
+    mes "Say the password - ##B ACHT##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[8]) goto L_Failure;
+    goto L_RB_9;
+
+L_RB_9:
+    mes "Say the password - ##B NEUN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[9]) goto L_Failure;
+    goto L_RB_10;
+
+L_RB_10:
+    mes "Say the password - ##B ZEHN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[10]) goto L_Failure;
+    goto L_RB_11;
+
+L_RB_11:
+    mes "Say the password - ##B ELF##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[11]) goto L_Failure;
+    goto L_RB_12;
+
+L_RB_12:
+    mes "Say the password - ##B ZWOLF##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[12]) goto L_Failure;
+    goto L_RB_13;
+
+L_RB_13:
+    mes "Say the password - ##B DREIZEHN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[13]) goto L_Failure;
+    goto L_RB_14;
+
+L_RB_14:
+    mes "Say the password - ##B VIERZEHN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[14]) goto L_Failure;
+    goto L_RB_15;
+
+L_RB_15:
+    mes "Say the password - ##B FUNFZEHN##b";
+    input @pass;
+
+    if (@pass != $@DD5_PASSWORDS[15]) goto L_Failure;
+    goto L_Success;
+
+L_Failure:
+    mes "##1THAT WAS WRONG!";
+    mes "##1THE RITUAL BACKFIRES!";
+    Hp = 1;
+    warp "099-1", 0, 0;
+    close;
+
+L_Success:
+    $@DD5_OPENSESAME = 1;
+	mes ".:: Ritual Book ::.";
+    mes "The portal magic is now active.";
+    close;
+
+L_Complete:
+	mes ".:: Ritual Book ::.";
+    mes "The ritual was already performed.";
+    close;
+
+L_close:
+	close;
+}
+
+099-3,72,75,0	script	#WarpToFinalShowdown	NPC424,0,0,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    if ($@DD5_TSWITCH != 18)
+        goto L_NotSwitch;
+
+    if (!$@DD5_OPENSESAME)
+        goto L_NotSesame;
+
+	mes "Walk here to go to the ##BFinal Showdown##b.";
+    mes "";
+    mes "##1##BWARNING:##b##0 Come prepared!";
+	close;
+
+L_NotSwitch:
+    mes "All 18 switches must be flipped in order to this warp to work!";
+    close;
+
+L_NotSesame:
+    mes "The ritual need to be performed to use this warp!";
+    close;
+
+L_Busy:
+    mes "This warp cannot be used while players are on the other side!";
+    close;
+
+OnTouch:
+    if ($DOOMSDAY_VANILLA)
+        goto L_Menu;
+
+    if ($@DD5_TSWITCH != 18)
+        goto L_NotSwitch;
+
+    if (!$@DD5_OPENSESAME)
+        goto L_NotSesame;
+
+    goto L_Menu;
+
+L_Menu:
+    if ($@DD5_STATUS > 1)
+        goto L_Busy;
+
+	mes b(l("Go to the final showdown?"));
+    mes l("You cannot return from there!");
+    mes "";
+    mesc l("Warning: Warp will be unavailable during fights!"), 1;
+    // Since Evolved, the rose is required to begin the fight, not for the warp
+    if (!$@DD5_STATUS) {
+        mes "";
+        mesc l("Cost: 1x %s", getitemlink(BlackRose)), 1;
+        if (!countitem(BlackRose)) close;
+    }
+
+    menu
+        "Yes", L_Yes,
+        "No", L_No;
+L_No:
+    close;
+L_Yes:
+    warp "099-5", 50, 66;
+    if (!$@DD5_STATUS) {
+        // Ensure the fight will NOT initiate w/o the rose
+        delitem BlackRose, 1;
+        donpcevent "#TMWFinalExam::OnWarn0";
+    }
+    close;
+}
+
diff --git a/npc/099-2/_import.txt b/npc/099-2/_import.txt
index 99cc03a3..0d352a35 100644
--- a/npc/099-2/_import.txt
+++ b/npc/099-2/_import.txt
@@ -1,3 +1,4 @@
 // Map 099-2: Keshlam's Adventurer's Guild Quarters
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/099-2/_warps.txt",
+"npc/099-2/logic.txt",
diff --git a/npc/099-2/logic.txt b/npc/099-2/logic.txt
new file mode 100644
index 00000000..4154a9ac
--- /dev/null
+++ b/npc/099-2/logic.txt
@@ -0,0 +1,1079 @@
+
+-	script	#099-2_CMD	NPC32767,{
+    end;
+
+OnStorage:
+    if ($DOOMSDAY != 3)
+        end;
+    if (getmapname() != "099-5" && getmapname() != "099-4" && getmapname() != "099-3")
+        end;
+    if ($@DD5_STATUS != 1 && $@DD5_STATUS != 2 && $@DD5_STATUS != 4 && $@DD5_STATUS != 6 && getmapname() != "099-3")
+        end;
+    openstorage;
+    end;
+
+OnInit:
+    // Register commands (FIXME: Move to map zone, add override?)
+    //registercmd "#storage", strnpcinfo(0)+"::OnStorage";
+    end;
+}
+
+099-2,0,0,0	script	#099-2_Prestart	NPC32767,{
+    end;
+
+OnTrial1:
+    monster "099-1", 35, 27, "", 1140, 1, strnpcinfo(0)+"::OnTrial2";
+    monster "099-1", 35, 27, "", 1141, 1, strnpcinfo(0)+"::OnTrial2";
+    getexp 10000, 0;
+    getitem TreasureKey, 1;
+    end;
+
+OnTrial2:
+    monster "099-1", 35, 27, "", 1143, 1, strnpcinfo(0)+"::OnTrial3";
+    getexp 10000, 0;
+    getitem "DarkConcentrationPotion", 1;
+    end;
+
+OnTrial3:
+    getexp 10000, 0;
+    getitem BentNeedle, 1;
+    end;
+
+OnTimer30000:
+    if (!$@DD5_STATUS)
+        end;
+    if (getmapusers("099-5") < 1)
+        donpcevent "#TMWFinalExam::OnAbort";
+    initnpctimer;
+    end;
+
+OnInit:
+    // Initialize the 18 switches
+    $@DD5_TSWITCH = 0;
+    // setarray $@DD5_SWITCH - not needed
+
+    // Initialize the 16 passwords
+    setarray $@DD5_PASSWORDS,
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000),
+             3555+rand(10000);
+
+    // Spawn monsters on maps (FIXME)
+    // The infantry
+    areamonster "099-2", 20, 20, 130, 130, "", 1159, 10;
+    areamonster "099-2", 20, 20, 130, 130, "", 1160, 10;
+    areamonster "099-6", 20, 20, 130, 130, "", 1159, 10;
+    areamonster "099-6", 20, 20, 130, 130, "", 1160, 10;
+    areamonster "099-3", 20, 20, 120,  80, "", 1159, 15;
+    areamonster "099-3", 20, 20, 120,  80, "", 1160, 15;
+
+    // The small fry
+    areamonster "099-1", 20, 20, 130, 130, "", 1156, 30;
+    areamonster "099-2", 20, 20, 130, 130, "", 1156, 20;
+    areamonster "099-6", 20, 20, 130, 130, "", 1156, 20;
+    areamonster "099-3", 20, 20, 120,  80, "", 1156, 60;
+    // The advanced mobs
+    areamonster "099-1", 20, 20, 130, 130, "", 1152, 15;
+    areamonster "099-2", 20, 20, 130, 130, "", 1152, 5;
+    areamonster "099-6", 20, 20, 130, 130, "", 1152, 5;
+    areamonster "099-3", 20, 20, 120,  80, "", 1152, 20;
+
+    // The boss. Used to be 1137 Tormenta but... Well... Better not.
+    monster "099-1", 35, 27, "", 1147, 1, "#099-2_Prestart::OnTrial1";
+    end;
+
+OnJanitor:
+    // Maintain 099-5 (janitor)
+    initnpctimer;
+    end;
+}
+
+099-2,25,17,0	script	#099-2_25_17	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[0]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[0], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-2,90,18,0	script	#099-2_90_18	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[1]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[1], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-2,121,70,0	script	#099-2_121_70	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[2]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[2], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-2,23,95,0	script	#099-2_23_95	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[3]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[3], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-2,57,130,0	script	#099-2_57_130	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[4]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[4], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-6,25,17,0	script	#099-6_25_17	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[5]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[5], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-6,90,18,0	script	#099-6_90_18	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[6]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[6], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-6,121,71,0	script	#099-6_121_71	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[7]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[7], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-6,23,95,0	script	#099-6_23_95	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[8]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[8], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-6,57,130,0	script	#099-6_57_130	NPC422,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[9]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[9], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,29,69,0	script	#099-3_29_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[10]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[10], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,35,69,0	script	#099-3_35_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[11]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[11], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,41,69,0	script	#099-3_41_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[12]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[12], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,59,69,0	script	#099-3_59_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[13]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[13], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,79,69,0	script	#099-3_79_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[14]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[14], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,91,69,0	script	#099-3_91_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[15]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[15], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,97,69,0	script	#099-3_97_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[16]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[16], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+099-3,115,69,0	script	#099-3_115_69	NPC422,{
+    // For the cells I need a smaller distance
+    @npc_distance = 2;
+    if(@npc_check) end;
+
+	if (!$@DD5_SWITCH[17]) goto L_Enable;
+	end;
+
+L_NoItem:
+	mes "The switch is stuck, if I only had a Needle or something...";
+	close;
+
+L_Enable:
+	if ($DOOMSDAY_VANILLA)
+		end;
+	if (countitem(BentNeedle) == 0) goto L_NoItem;
+	delitem BentNeedle, 1;
+	setnpcdisplay strnpcinfo(0), strnpcinfo(0)+"_", 423;
+	set $@DD5_SWITCH[17], 1;
+	set $@DD5_TSWITCH, $@DD5_TSWITCH+1;
+	getexp 100000, 0;
+	message strcharinfo(0), "The switch is now on!";
+	end;
+}
+
+
+
+
+
+099-2,119,18,0	script	Writing#2_119_18	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... NULL... It is... "+$@DD5_PASSWORDS[0]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,25,45,0	script	Writing#2_25_45	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... EIN... It is... "+$@DD5_PASSWORDS[1]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,93,42,0	script	Writing#2_93_42	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... ZWEI... It is... "+$@DD5_PASSWORDS[2]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,59,72,0	script	Writing#2_59_72	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... DREI... It is... "+$@DD5_PASSWORDS[3]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,89,66,0	script	Writing#2_89_66	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... VIER... It is... "+$@DD5_PASSWORDS[4]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,123,94,0	script	Writing#2_123_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... FUNF... It is... "+$@DD5_PASSWORDS[5]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,62,94,0	script	Writing#2_62_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... SECHS... It is... "+$@DD5_PASSWORDS[6]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-2,27,94,0	script	Writing#2_27_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... SIEBEN... It is... "+$@DD5_PASSWORDS[7]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,119,18,0	script	Writing#6_119_18	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... ACHT... It is... "+$@DD5_PASSWORDS[8]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,25,45,0	script	Writing#6_25_45	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... NEUN... It is... "+$@DD5_PASSWORDS[9]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,93,42,0	script	Writing#6_93_42	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... ZEHN... It is... "+$@DD5_PASSWORDS[10]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,59,72,0	script	Writing#6_59_72	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... ELF... It is... "+$@DD5_PASSWORDS[11]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,89,66,0	script	Writing#6_89_66	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... ZWOLF... It is... "+$@DD5_PASSWORDS[12]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,123,94,0	script	Writing#6_123_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... DREIZEHN... It is... "+$@DD5_PASSWORDS[13]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,62,94,0	script	Writing#6_62_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... VIERZEHN... It is... "+$@DD5_PASSWORDS[14]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+099-6,27,94,0	script	Writing#6_27_94	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is a strange writing here. ##0";
+	mes "";
+	mes "##1Password... FUNFZEHN... It is... "+$@DD5_PASSWORDS[15]+"...";
+	mes "The remainder was too blurred to read.";
+	close;
+}
+
+
+
+
+
+
+099-2,57,17,0	script	???#099-2_57_17	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Flower ::.";
+	mes "This orange flower is dangerous!";
+    mes "Do not disturb them - they have great range and damage!";
+    mes "";
+    mes "Whoever designed this artifical flower must have been crazy!";
+    mes "Killing it is not fast enough, avoid its nectar at all costs!";
+	close;
+}
+
+099-2,123,128,0	script	???#099-2_123_128	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Slime ::.";
+	mes "A crazy combat unit made in a crazy laboratory.";
+    mes "If you can, just avoid it. It is slow enough.";
+    mes "It can be slain, but have a decent defense, so use magic.";
+	close;
+}
+
+099-2,95,122,0	script	???#099-2_95_122	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Snake ::.";
+	mes "If I find who designed these monsters ... Grr...";
+    mes "They are fast. And powerful. Goes down quickly, though.";
+	close;
+}
+
+099-2,28,122,0	script	???#099-2_28_122	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "Last night, we were attacked by Xakelbael the Dark.";
+    mes "Our attacks could barely do him any harm, and then...";
+    mes "He cast \"Fourth Fall\". All our buffed soldiers fell down the same instant.";
+    mes "";
+    mes "I am gravely injured, but I'm leaving this note here.";
+    mes "Comrades, please avenge me!";
+	close;
+}
+
+099-2,91,92,0	script	???#099-2_91_92	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: Sasquatch ::.";
+	mes "Developed for protection of the Earth Crystal.";
+    mes "They are extreme power houses capable to smash intruders.";
+    mes "They have very meh defense, though.";
+    mes "Also, even then could not harm Xakelbael the Dark.";
+	close;
+}
+
+099-2,62,43,0	script	???#099-6_62_43	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "Zax De'Kagen trademark skill, the Bliss of Oblivion.";
+    mes "A powerful skill which dispels mana around himself.";
+    mes "Monsters will perish the very moment he cast it, and anyone too close";
+    mes "will have their mana drained as well, and might die from it.";
+    mes "";
+    mes "Not only that, but he may become immune to certain sources of damage.";
+    mes "It is a killer move which also allows him to assemble an army right after.";
+    mes "I do believe there is a weakness, though. Something about excessive fur growth?";
+	close;
+}
+
+099-6,57,17,0	script	???#099-6_57_17	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Soldier ::.";
+	mes "These units can endure a lot of pain and use bows.";
+	mes "They are not dangerous, but do not let they become fodder.";
+	mes "A lot of soldiers can be very difficult to kill later on.";
+    mes "Random trivia: They are afraid of bone arrows and knifes.";
+	close;
+}
+
+099-6,123,128,0	script	???#099-6_123_128	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Mouboo ::.";
+	mes "A solid all rounder unit, it has decent health and damage.";
+    mes "But it proved useless as a security biopart.";
+    mes "Figures out, we could not subvert its peaceful nature.";
+	close;
+}
+
+099-6,95,122,0	script	???#099-6_95_122	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: Tengu ::.";
+	mes "Developed for protection of the Earth Crystal.";
+    mes "There shouldn't be any here, but they have a high defense.";
+    mes "They turned out vulnerable to magic, unfortunately.";
+	close;
+}
+
+099-6,28,122,0	script	???#099-6_28_122	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Bat ::.";
+	mes "They fly very fast and can quickly swarm you.";
+    mes "Their damage and health is not important.";
+    mes "But if not careful, they will overwhelm you.";
+    mes "Also, did you hear about lay on hands on overlapping dimensions?";
+    mes "This have nothing to do with bats but is a cool fact!";
+	close;
+}
+
+099-6,91,92,0	script	???#099-6_91_92	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: Mana Slayer ::.";
+	mes "An anti-magic unit, made to run and slay mages.";
+    mes "They look so much like us, that we are afraid of them all time.";
+    mes "Not strong against physical damage, but can resist magic pretty well.";
+	close;
+}
+
+099-6,62,43,0	script	???#099-6_92_43	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "Do not neglect the potions which you deemed useless until now.";
+    mes "Our foe is formidable. Our knowledge is being tested, here.";
+    mes "The same techniques which worked for years simply do not apply.";
+    mes "";
+    mes "Knowing what and when to cast is important in survival.";
+    mes "I think what should sense magic, might sense mana devoid-ness as well.";
+    mes "In this case, such would be the only way to know how far of killing we are.";
+    mes "But I'm not sure if such trick would work except on support role.";
+	close;
+}
+
+
+
+099-1,43,14,0	script	Painting#099-1	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes "Reading this is as hard as finding a needle in a haystack.";
+    if (debug) goto L_close;
+    if (countitem(FlawedLens) < 1) goto L_Tools;
+	mes "Although the painting also has no artistic value on its own...";
+    mes "Something tells you there is something ominous with it.";
+    next;
+    mes "##9 Use [Flawed Lens] on the painting? ##0";
+    menu
+        "No", L_close,
+        "Yes", L_UseLens;
+
+L_close:
+    close;
+
+L_Tools:
+    mes "The painting itself has no artistic value, either.";
+    mes "There is something ominous, but you don't know what.";
+    close;
+
+L_UseLens:
+    delitem FlawedLens, 1;
+    getexp 10000, 10000;
+    // Special: Max HP/MP doubled and full heal
+    sc_start SC_INCMHPRATE, 1800000, 100, 10000, SCFLAG_NOAVOID|SCFLAG_FIXEDTICK|SCFLAG_NOICON;
+    sc_start SC_INCMSPRATE, 1800000, 100, 10000, SCFLAG_NOAVOID|SCFLAG_FIXEDTICK|SCFLAG_NOICON;
+    percentheal 100, 100;
+    dispbottom l("You were blessed by Kirin De'Kagen. The effects will vanish when you die or once thirty minutes have passed.");
+    // The message itself
+    mes "~~~graphics/images/kirin.png~";
+    mes "[@@https://wiki.themanaworld.org/images/5/57/Kirin_by_clef.jpg|There is the image of a woman on it@@].";
+    next;
+    mes "";
+    mes "You can make out the following words on it:";
+    mes "In memoriam ..... Kirin De'Kagen.";
+    mes ".... help .... stop ... neither .....";
+    mes "Went missing .... .... .... The War.";
+    mes "";
+    mes "Rest in Peace. Damnatio memoriae. Effective immediately.";
+    // ;-- TRANSLATORS: Damnatio memoriae - "condemnation of memory", indicating that a person is to be excluded from official accounts. History rewrite if required.
+    next;
+    mes "The lens break! They were not only poorly effective but also of bad quality.";
+    mes "If only we could make the real Lens, we would have been able to find out";
+    mes "what is up with this ominous, eerie feeling this picture gives.";
+    close;
+}
+
+099-1,35,22,0	script	Fireplace#099-1	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "##9 There is something interesting on this fireplace. ##0";
+	mes "##9 It doesn't seems to fit this building. ##0";
+	mes "##9 As if it have been taken from another world and put here. ##0";
+    next;
+	mes "##9 After searching it, you found nothing. ##0";
+	mes "##9 It is just a common fireplace, after all. ##0";
+	close;
+}
+
+099-1,20,22,0	script	Bookcase#099-1	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Scorpion ::.";
+	mes "The most basic combat unit in Keshlam.";
+    mes "They have decent health, damage, and speed.";
+    mes "";
+    mes ".:: V0id Mushroom ::.";
+	mes "The most basic combat unit in Keshlam.";
+    mes "They have decent health, damage, and speed, and a higher range.";
+    mes "Unlike the scorpions, they can move faster, but attack is slower.";
+	close;
+}
+
+099-1,45,22,0	script	Bookcase#099-1b	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    mes ".:: V0id Maggot ::.";
+	mes "They are pathetic individually, and slow, a failed experiment.";
+    mes "But do not let them overwhelm you, togheter they are formidable!";
+    mes "";
+    mes ".:: V0id Archant ::.";
+	mes "An advanced combat unit, without weak points.";
+    mes "They are slow in movement, but other than that, they are good.";
+	close;
+}
+
+099-3,107,50,0	script	Music Score#099-3	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "There is a nice score here.";
+    mes "I assume important info will be sent by SFX only.";
+    next;
+    mes "Also, the time beats of this score are all in 600ms intervals.";
+    mes "Could it be that attack speed is overridden during the fight?!";
+    mes "";
+    mes "However, potions will still work, hmm.";
+    mes "There is also a spell here: \"##B#storage##b\".";
+    mes "I assume it only works at specific times.";
+	close;
+}
+
+099-3,39,46,0	script	Outstanding Book#099-3	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+	mes "Zax De'Kagen's Diary, entry #27";
+    mes "";
+    mes "##9 I am all soaking wet. They found my weak point. ##0";
+    mes "##9 However it was too late, Fourth Fall brought the end to this. ##0";
+    mes "##9 I did not even had to cancel my illusion. ##0";
+    next;
+	mes "Zax De'Kagen's Diary, entry #34";
+    mes "";
+    mes "##9 Today my Rubber Bat flew away. Probably shouldn't have given life to it. ##0";
+    mes "##9 I'll miss it, my dear friend, I hope one day he returns? ##0";
+    next;
+	mes "Zax De'Kagen's Diary, entry #42";
+    mes "";
+    mes "##9 What I wouldn't give for some pickled beets right now... ##0";
+    mes "##9 Meh, whatever. I'm not going to Dimond's Cove ever again! ##0";
+	close;
+}
+
+099-3,64,62,0	script	Pan#099-3	NPC400,{
+    // Default distance is 4 tiles - all we need
+    callfunc "PCtoNPCRange";
+    if(@npc_check) end;
+
+    if (rand(60) % 2 == 0)
+        goto L_Shock;
+    goto L_Potion;
+
+L_Shock:
+	mes "Some was trying to make Shock Sweets here.";
+    mes "However, it doesn't seems to have been finished.";
+    next;
+    mes "There are the initials \"To stop F.F.\" nearby.";
+    mes "One can only wonder who or what F.F. is.";
+	close;
+
+L_Potion:
+	mes "Some was trying to make a Mana Potion here.";
+    mes "However, it doesn't seems to have been finished.";
+    next;
+    mes "There are the initials \"To stop Bob\" nearby.";
+    mes "Well, I assume it is \"Bob\", text is fainted.";
+    mes "it could be \"boo\" as well. Maybe from Mouboo?";
+	close;
+}
+
diff --git a/npc/099-5/_import.txt b/npc/099-5/_import.txt
index 9276a379..8b26b875 100644
--- a/npc/099-5/_import.txt
+++ b/npc/099-5/_import.txt
@@ -1,3 +1,4 @@
 // Map 099-5: ?????
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
+"npc/099-5/boss.txt",
 "npc/099-5/mapflag.txt",
diff --git a/npc/099-5/boss.txt b/npc/099-5/boss.txt
new file mode 100644
index 00000000..cb4d9dac
--- /dev/null
+++ b/npc/099-5/boss.txt
@@ -0,0 +1,1509 @@
+// Evol script
+// Author:
+//      Jesusalva
+// Description:
+//      099-5 FINAL EXAM
+//      The epic final showdown of The Mana World: Legacy
+/////////////////////////////////////////////////////////////////////////////////
+// $@DD5_STATUS     - Status of the battle
+//      0 - Idle
+//      1 - Timer running
+//      2 - Started, first cutscene
+//      3 - First Stage
+//      4 - Started, second cutscene
+//      5 - Second Stage
+//      6 - Started, third cutscene
+//      7 - Third Stage
+//      8 - Epilogue running
+//      9 - Epilogue OK
+///////////////////////////////////////////////////////////////////
+// $@DD5_HP         - Real HitPoints bar of the NPC
+//      int
+// $@DD5_PTS        - Total participation points distributed
+//      int
+// $@DD5_BEGIN      - Time where the battle begun
+//      time
+// $@DD5_MOBC       - Amount of monsters to spawn
+//      int
+// $@DD5MB_WEAK, $@DD5MB_AVERAGE, $@DD5MB_STRONG, $@DD5MB_BOSSLV
+//      int array   - Contains lists of monsters to be used
+///////////////////////////////////////////////////////////////////
+// 1151
+//      const int   - ID of the Void Flower (s1 only)
+// 1155
+//      const int   - ID of the Void Bat
+///////////////////////////////////////////////////////////////////
+// $@DD5_PRIMARY
+//      int         - 3x the challengers in boss room
+// $@DD5_SUPPORT
+//      int         - 3x the challengers in waiting room
+// $@DD5_TOTALPC
+//      int         - Primary + Support, used to ramp up difficulty
+///////////////////////////////////////////////////////////////////
+// $@DD5_RAIN       - Is Xakelbael in rain?
+//      bool
+// $@DD5_ATK        - Are attacks allowed?
+//      bool
+// $@DD5_DEFCON     - Defensive mode of Zax De'Kagen
+//      0 - Defenseless (#------- TRANSPARENT)
+//      1 - Invencible (except to shearing) (#CC79A7 PURPLE)
+//      2 - All damage is halved (#E69F00 ORANGE)
+//      3 - Immune to potion'ed attackers (#D55E00 BROWN)
+//      4 - Vulnerable only when wet (#56B4E9 CYAN)
+//      5 - Vulnerable only to melee (#999999 GRAY)
+//      6 - Vulnerable to Bone Knife/Bone Arrow (#FFFFFF WHITE)
+//      7 - Regenerate from melee (#009E7E GREEN)
+//      8 - Requires 10 GP per Damage (#F0E442 YELLOW)
+//      9 - (#0072B2 BLUE)
+// @dd5_dmg
+//      int         - Calculated damage
+// @dd5_shear
+//      bool        - Damage is from shearing skill
+///////////////////////////////////////////////////////////////////
+// $@DD5_TALLY_     - Max Individual Score at tally time
+// $@DD5_TALLY$     - Player with highest tally
+// Tally is conducted at first epilogue scene
+// Reward is handed out at last epilogue scene
+// If player leaves in-between, reward will be forsaken
+// Players who already got the reward (#DD5_TALLY = True)
+// will not participate on the tally sequence.
+// Tally will not be conducted on Vanilla mode.
+///////////////////////////////////////////////////////////////////
+// mapmask
+//      1           - Show tiles
+//      2           - Epilogue Mode
+//      4           - DEFCON 1 INVENCIBLE
+//      8           - DEFCON 2 DOUBLE DEFENSE
+//     16           - DEFCON 3 POTION IMMUNITY
+//     32           - DEFCON 4 WATER VULNERABLE
+//     64           - DEFCON 5 RANGED INVULNERABILITY
+//     128          - DEFCON 6 BONE VULNERABLE
+//     256          - DEFCON 7 MELEE REGEN
+//     512          - DEFCON 8 GP COST
+//     1024         - DEFCON
+// NOTE: Personal score overflows at 214,000 points
+
+099-5	mapflag	nosave	009-1,52,40
+//099-5	mapflag	resave	009-1,52,40
+099-4	mapflag	nosave	009-1,52,40
+//099-4	mapflag	resave	009-1,52,40
+
+099-3	mapflag	nosave	099-7,75,36
+//099-3	mapflag	resave	099-7,75,36
+099-2	mapflag	nosave	099-7,75,36
+//099-2	mapflag	resave	099-7,75,36
+099-1	mapflag	nosave	099-7,75,36
+//099-1	mapflag	resave	099-7,75,36
+
+099-5,0,0,0	script	#TMWFinalExam	NPC32767,{
+    // Main script
+    end;
+
+OnAbort:
+    stopnpctimer;
+    $@DD5_STATUS = 0;
+    $@DD5_HP = 0;
+    $@DD5_PTS = 0;
+    $@DD5_BEGIN = 0;
+    $@DD5_MOBC = 0;
+    $@DD5_PRIMARY = 0;
+    $@DD5_SUPPORT = 0;
+    $@DD5_TOTALPC = 0;
+    $@DD5_RAIN = 0;
+    $@DD5_DEFCON = 0;
+    $@DD5_TALLY_ = 0;
+    $@DD5_TALLY$ = "";
+    $@DD5_ATK=false;
+    killmonster "099-5", "all";
+    killmonster "099-4", "all";
+    disablenpc "Gema III";
+    disablenpc "Flying Ship";
+    disablenpc "Jande#0";
+    disablenpc "Tal#0";
+    disablenpc "Anon";
+    disablenpc "Zax De'Kagen#0";
+    disablenpc "Xakelbael the Dark#0";
+    donpcevent "Zax De'Kagen#0::OnAbort";
+    end;
+
+OnMTChallenge:
+    @dd5_score = 0;
+    @dd5_timer = gettimetick(0);
+    getexp 40000, 0;
+    BOSS_POINTS = BOSS_POINTS + 5;
+    message strcharinfo(0), "This battle experience distribution is different, and death is final. Be careful!";
+    // Give everyone some participation points simply for continued survival
+    @dd5_score = 1200;
+    $@DD5_PTS = $@DD5_PTS+1200;
+    end;
+
+OnMTWarpTo0:
+    message strcharinfo(0), "Your party was defeated.";
+    warp "009-1", 54, 40;
+    end;
+
+OnMTDispose:
+    warp "009-1", 54, 40;
+    end;
+
+OnMTReward50:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*100, @dd5_share;
+    Zeny = Zeny + @dd5_share;
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/200;
+    message strcharinfo(0), "Gained "+(@dd5_share/200)+" boss points!";
+    goto OnMTMusicOff;
+
+OnMTReward40:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*10, @dd5_share/10;
+    Zeny = Zeny + @dd5_share/10;
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/400;
+    message strcharinfo(0), "Gained "+(@dd5_share/400)+" boss points!";
+    goto OnMTMusicOff;
+
+OnMTReward51:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*200, @dd5_share*2;
+    Zeny = Zeny + (@dd5_share*2);
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/100;
+    message strcharinfo(0), "Gained "+(@dd5_share/100)+" boss points!";
+    goto OnMTMusicOff;
+
+OnMTReward41:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*20, @dd5_share/5;
+    Zeny = Zeny + @dd5_share/5;
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/200;
+    message strcharinfo(0), "Gained "+(@dd5_share/200)+" boss points!";
+    goto OnMTMusicOff;
+
+OnMTReward52:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*500, @dd5_share*5;
+    Zeny = Zeny + (@dd5_share*5);
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/50;
+    message strcharinfo(0), "Gained "+(@dd5_share/50)+" boss points!";
+    changemusic "099-5","ghoulish-fun.ogg";
+    mapmask 1;
+
+    // Dispose dead bodies (BUG, should not happen)
+    if (ispcdead())
+        goto OnMTDispose;
+
+    // Tally rewards
+    // FIXME TODO Use a bitwise to save space, this is TMWA
+    if (!#DD5_TALLY && !$DOOMSDAY_VANILLA)
+        goto OnTally;
+    goto OnEpilogue1;
+
+OnMTReward42:
+    @dd5_share = 10000*@dd5_score/$@DD5_PTS;
+    if (!@dd5_share)
+        end;
+    getexp @dd5_share*50, @dd5_share;
+    Zeny = Zeny + @dd5_share;
+    BOSS_POINTS = BOSS_POINTS + @dd5_share/100;
+    message strcharinfo(0), "Gained "+(@dd5_share/100)+" boss points!";
+    changemusic "099-4","ghoulish-fun.ogg";
+
+    // Warp to 099-5 or dispose dead bodies
+    if (ispcdead())
+        goto OnMTDispose;
+    warp "099-5", rand(53, 59), rand(37, 41);
+
+    // Tally rewards
+    // FIXME TODO Use a bitwise to save space, this is TMWA
+    if (!#DD5_TALLY && !$DOOMSDAY_VANILLA)
+        goto OnTally;
+    goto OnEpilogue1;
+
+OnTally:
+    if (@dd5_score > $@DD5_TALLY_)
+        goto OnTallyOK;
+    goto OnEpilogue1;
+
+OnTallyOK:
+    $@DD5_TALLY_ = @dd5_score;
+    $@DD5_TALLY$ = strcharinfo(0);
+    goto OnEpilogue1;
+
+OnMTFourthFall:
+    misceffect 52, strcharinfo(0); // FIXME
+    addtimer 3000, "#TMWFinalExam::OnFourthFall";
+    end;
+
+OnFourthFall:
+    //debugmes "FOURTH FALL";
+
+    // FIXME SC IDs changed
+    // High Damage
+    if (sc_check(sc_raiseattackspeed0))
+        heal -300, -100;
+
+    if (sc_check(sc_raiseattackstrength))
+        heal -300, -100;
+
+    // Medium Damage
+    if (sc_check(SC_PHYS_SHIELD))
+        heal -250, -50;
+
+    if (sc_check(SC_MBARRIER))
+        heal -250, -50;
+
+    // Low Damage
+    if (sc_check(SC_FLYING_BACKPACK))
+        heal -125, -25;
+
+    if (sc_check(SC_SLOWPOISON))
+        heal -125, -25;
+
+    //debugmes "FOURTH WALL WAS BROKEN";
+    misceffect 52, strcharinfo(0); // FIXME
+    end;
+
+OnMTBlissOblivion:
+    misceffect 51, strcharinfo(0);
+    misceffect 52, strcharinfo(0); // FIXME
+    // Poison
+    sc_start SC_POISON, 1, 80;
+    // Adjust Map Mask
+    if ($@DD5_DEFCON == 0)
+        mapmask 1;
+    if ($@DD5_DEFCON == 1)
+        mapmask 1 | 4;
+    if ($@DD5_DEFCON == 2)
+        mapmask 1 | 8;
+    if ($@DD5_DEFCON == 3)
+        mapmask 1 | 16;
+    if ($@DD5_DEFCON == 4)
+        mapmask 1 | 32;
+    if ($@DD5_DEFCON == 5)
+        mapmask 1 | 64;
+    if ($@DD5_DEFCON == 6)
+        mapmask 1 | 128;
+    if ($@DD5_DEFCON == 7)
+        mapmask 1 | 256;
+    if ($@DD5_DEFCON == 8)
+        mapmask 1 | 512;
+    end;
+
+OnBlissOblivion:
+    killmonster "099-5", "All";
+    killmonster "099-4", "All";
+    $@DD5_DEFCON = rand(0, 8);
+    // Keep a few tricks under the sleeve initially
+    if ($@DD5_HP > 100000 && $@DD5_DEFCON < 4)
+        $@DD5_DEFCON = rand(4, 8);
+    // Re-rolls: Start avoiding initial movements
+    if ($@DD5_HP < 50000 && $@DD5_DEFCON > 3 && $@DD5_DEFCON < 7)
+        $@DD5_DEFCON = rand(0, 8);
+    // If hurt badly, use invencible a bit more often (shearing is annoying)
+    if ($@DD5_HP < 10000 && $@DD5_DEFCON > 2)
+        $@DD5_DEFCON = rand(0, 8);
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTBlissOblivion";
+    setnpctimer 119000;
+    end;
+
+OnMTWarning:
+    misceffect 54, strcharinfo(0);
+    end;
+
+OnMTMusicOn:
+    changemusic "099-5","Dramatic.ogg";
+    end;
+
+OnMTMusicOff:
+    changemusic "099-5","ghoulish-fun.ogg";
+    end;
+
+OnWarn0:
+    announce "Doomsday : The Final Showdown will start shortly! Make way to the Master Chamber at once!", 0;
+    $@DD5_STATUS = 1;
+    $@DD5_PTS = 0;
+    // FIXME DEBUG DEBUG DEBUG FIXME
+    if (debug)
+        addnpctimer 15000, "#TMWFinalExam::OnBegin";
+    else
+        addnpctimer 90000, "#TMWFinalExam::OnWarn1";
+    end;
+OnWarn1:
+    announce "Doomsday : Doors to Zax De'Kagen domains will seal shut in ##1##B5 minutes##b##0, so prepare yourselves!", 0;
+    addnpctimer 120000, "#TMWFinalExam::OnWarn2";
+    end;
+OnWarn2:
+    announce "Doomsday : Doors to Zax De'Kagen domains will seal shut in ##1##B3 minutes##b##0, so prepare yourselves!", 0;
+    addnpctimer 120000, "#TMWFinalExam::OnWarn3";
+    end;
+OnWarn3:
+    announce "Doomsday : Doors to Zax De'Kagen domains will seal shut in ##1##B1 minute##b##0, last call for challengers!", 0;
+    addnpctimer 60000, "#TMWFinalExam::OnBegin";
+    end;
+OnBegin:
+    announce "Doomsday : Final Showdown: BEGIN!", 0;
+    $@DD5_STATUS = 2;
+    $@DD5_BEGIN = gettimetick(2);
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTChallenge";
+    addnpctimer 2000, "#TMWFinalExam::OnPrologue1";
+    donpcevent "#099-2_Prestart::OnJanitor";
+    end;
+
+OnPrologue1:
+    // set the sprite (implies enablenpc)
+    // FIXME - Can we still use mobid here? Also: fakenpcname() deprecated!
+    mapannounce "099-5", "Zax De'Kagen : What is that, a bunch of Talpans in my domains?" , 0;
+    mapannounce "099-4", "Zax De'Kagen : What is that, a bunch of Talpans in my domains?" , 0;
+    npctalk "Zax De'Kagen#0", "What is that, a bunch of Talpans in my domains?";
+    addnpctimer 5000, "#TMWFinalExam::OnPrologue2";
+    end;
+
+OnPrologue2:
+    mapannounce "099-5", "Zax De'Kagen : Don't make me laugh. Do you really think you have what it takes to stop ME?!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Don't make me laugh. Do you really think you have what it takes to stop ME?!" , 0;
+    npctalk "Zax De'Kagen#0", "Don't make me laugh. Do you really think you have what it takes to stop ME?!";
+    addnpctimer 10000, "#TMWFinalExam::OnPrologue3";
+    end;
+
+OnPrologue3:
+    mapannounce "099-5", "Zax De'Kagen : Hmpf! We will see about that. Therefore..." , 0;
+    mapannounce "099-4", "Zax De'Kagen : Hmpf! We will see about that. Therefore..." , 0;
+    npctalk "Zax De'Kagen#0", "Hmpf! We will see about that. Therefore...";
+    addnpctimer 5000, "#TMWFinalExam::OnPrologue4";
+    end;
+
+OnPrologue4:
+    mapannounce "099-5", "Zax De'Kagen : Catch me if you can!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Catch me if you can!" , 0;
+    npctalk "Zax De'Kagen#0", "Catch me if you can!";
+    spawndummy("099-5", 50, 49, Kage, "Zax De'Kagen", strnpcinfo(0)+"::OnMain");
+    $@DD5_ATK=true;
+    $@DD5_STATUS = 3;
+    $@DD5_HP = 20000+(getmapusers("099-5")*100);
+    $@DD5_PRIMARY = 5+getmapusers("099-5");
+    $@DD5_SUPPORT = 3+getmapusers("099-4");
+    $@DD5_TOTALPC = $@DD5_PRIMARY+$@DD5_SUPPORT;
+    // Spawn first assault
+    areamonster "099-5", 43, 44, 56, 55, "", any($@DD5MB_AVERAGE), $@DD5_TOTALPC, "#TMWFinalExam::OnKillAverage";
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), $@DD5_PRIMARY, "#TMWFinalExam::OnKillAverage";
+    areamonster "099-4", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), $@DD5_SUPPORT, "#TMWFinalExam::OnKillAverage";
+    areamonster "099-5", 20, 20, 75, 75, "", 1151, $@DD5_TOTALPC, "#TMWFinalExam::OnKillAverage";
+    // Begin timers!
+    initnpctimer;
+    donpcevent "Zax De'Kagen#0::OnEnable";
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTMusicOn";
+    areatimer 0, "099-4", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTMusicOn";
+    end;
+
+OnRubberBat:
+    if ($@DD5_STATUS != 3)
+        end;
+    areamonster getmapname(), getx()-5, gety()-5, getx()+5, gety()+5, "", 1155, rand(1,2), "#TMWFinalExam::OnKillWeak";
+    addtimer 10, "Zax De'Kagen#0::OnAdjustBat";
+    end;
+
+OnPickledBeets:
+    if ($@DD5_STATUS != 3)
+        end;
+    addtimer 10, "Zax De'Kagen#0::OnAdjustBeets";
+    end;
+
+OnWarmedUp0:
+    stopnpctimer;
+    $@DD5_STATUS = 4;
+    $@DD5_HP = 0;
+    killmonster "099-5", "All";
+    killmonster "099-4", "All";
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward50";
+    areatimer 0, "099-4", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward40";
+
+    mapannounce "099-5", "Zax De'Kagen : Hahaha! Not bad, not bad at all!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Hahaha! Not bad, not bad at all!" , 0;
+    npctalk "Zax De'Kagen#0", "Hahaha! Not bad, not bad at all!";
+
+    addnpctimer 5000, "#TMWFinalExam::OnWarmedUp1";
+    donpcevent "Zax De'Kagen#0::OnDisable";
+    end;
+
+OnWarmedUp1:
+    mapannounce "099-5", "Zax De'Kagen : However..." , 0;
+    mapannounce "099-4", "Zax De'Kagen : However..." , 0;
+    npctalk "Zax De'Kagen#0", "However...";
+
+    addnpctimer 5000, "#TMWFinalExam::OnWarmedUp2";
+    end;
+
+OnWarmedUp2:
+    mapannounce "099-5", "Zax De'Kagen : This was only warm up!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : This was only warm up!" , 0;
+    npctalk "Zax De'Kagen#0", "This was only warm up!";
+
+    addnpctimer 10000, "#TMWFinalExam::OnWarmedUp3";
+    end;
+
+OnWarmedUp3:
+    mapannounce "099-5", "Zax De'Kagen : Look and behold, the form I took on this rewrite..." , 0;
+    mapannounce "099-4", "Zax De'Kagen : Look and behold, the form I took on this rewrite..." , 0;
+    npctalk "Zax De'Kagen#0", "Look and behold, the form I took on this rewrite...";
+
+    addnpctimer 10000, "#TMWFinalExam::OnWarmedUp4";
+    end;
+
+OnWarmedUp4:
+    mapannounce "099-5", "Zax De'Kagen : The name which I am known is..." , 0;
+    mapannounce "099-4", "Zax De'Kagen : The name which I am known is..." , 0;
+    npctalk "Zax De'Kagen#0", "The name which I am known is...";
+
+    addnpctimer 10000, "#TMWFinalExam::OnWarmedUp5";
+    end;
+
+OnWarmedUp5:
+    disablenpc "Zax De'Kagen#0";
+    fakenpcname "Xakelbael the Dark#0", "Xakelbael the Dark#0", 1161;
+    mapannounce "099-5", "Xakelbael the Dark : ...Xakelbael the Dark! PERISH!" , 0;
+    mapannounce "099-4", "Xakelbael the Dark : ...Xakelbael the Dark! PERISH!" , 0;
+    npctalk "Xakelbael the Dark#0", "...Xakelbael the Dark! PERISH!";
+
+    addnpctimer 3000, "#TMWFinalExam::OnWarmedUp6";
+    end;
+
+OnWarmedUp6:
+    $@DD5_STATUS = 5;
+    $@DD5_HP = 40000+(getmapusers("099-5")*100);
+    $@DD5_PRIMARY = 1+getmapusers("099-5")*15/10;
+    $@DD5_SUPPORT = 1+getmapusers("099-4")*15/10;
+    $@DD5_TOTALPC = $@DD5_PRIMARY+$@DD5_SUPPORT;
+    spawndummy("099-5", 50, 49, Kage, "Xakelbael the Dark", strnpcinfo(0)+"::OnMain");
+    $@DD5_ATK=true;
+    // Spawn second wave
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), $@DD5_PRIMARY, "#TMWFinalExam::OnKillAverage";
+    areamonster "099-4", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), $@DD5_SUPPORT, "#TMWFinalExam::OnKillAverage";
+    // Begin timers
+    initnpctimer;
+    donpcevent "Xakelbael the Dark#0::OnEnable";
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTMusicOn";
+    areatimer 0, "099-4", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTMusicOn";
+    end;
+
+OnShowdown0:
+    stopnpctimer;
+    $@DD5_STATUS = 6;
+    $@DD5_HP = 0;
+    killmonster "099-5", "All";
+    killmonster "099-4", "All";
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward51";
+    areatimer 0, "099-4", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward41";
+    disablenpc "Xakelbael the Dark#0";
+    enablenpc "Zax De'Kagen#0";
+
+    mapannounce "099-5", "Zax De'Kagen : Hah...! That was a good workout!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Hah...! That was a good workout!" , 0;
+    npctalk "Zax De'Kagen#0", "Hah...! That was a good workout!";
+
+    addnpctimer 5000, "#TMWFinalExam::OnShowdown1";
+    donpcevent "Xakelbael the Dark#0::OnDisable";
+    end;
+
+OnShowdown1:
+    mapannounce "099-5", "Zax De'Kagen : It was totally worth it! I was incredibly bored!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : It was totally worth it! I was incredibly bored!" , 0;
+    npctalk "Zax De'Kagen#0", "It was totally worth it! I was incredibly bored!";
+
+    addnpctimer 5000, "#TMWFinalExam::OnShowdown2";
+    end;
+
+OnShowdown2:
+    $@DD5_TPASSED = (gettimetick(2)-$@DD5_BEGIN);
+    $@DD5_TSPENT$ = $@DD5_TPASSED/60+" minute(s) and "+$@DD5_TPASSED%60+" second(s)";
+    // FIXME: Use FuzzyTime()
+    mapannounce "099-5", "Zax De'Kagen : Well, we still have time! Only "+$@DD5_TSPENT$+" passed!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Well, we still have time! Only "+$@DD5_TSPENT$+" passed!" , 0;
+    npctalk "Zax De'Kagen#0", "Well, we still have time! Only "+$@DD5_TSPENT$+" passed!";
+
+    $@DD5_TPASSED = 0;
+    $@DD5_TSPENT$ = "";
+    addnpctimer 10000, "#TMWFinalExam::OnShowdown3";
+    end;
+
+OnShowdown3:
+    mapannounce "099-5", "Zax De'Kagen : I will now acknowledge your strength and fight for realz." , 0;
+    mapannounce "099-4", "Zax De'Kagen : I will now acknowledge your strength and fight for realz." , 0;
+    npctalk "Zax De'Kagen#0", "I will now acknowledge your strength and fight for realz.";
+
+    addnpctimer 10000, "#TMWFinalExam::OnShowdown4";
+    end;
+
+OnShowdown4:
+    mapannounce "099-5", "Zax De'Kagen : Don't blame me if you die!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Don't blame me if you die!" , 0;
+    npctalk "Zax De'Kagen#0", "Don't blame me if you die!";
+
+    addnpctimer 10000, "#TMWFinalExam::OnShowdown5";
+    end;
+
+OnShowdown5:
+    mapannounce "099-5", "Zax De'Kagen : Do your best to entretain me!" , 0;
+    mapannounce "099-4", "Zax De'Kagen : Do your best to entretain me!" , 0;
+    npctalk "Zax De'Kagen#0", "Do your best to entretain me!";
+
+    addnpctimer 3000, "#TMWFinalExam::OnShowdown6";
+    end;
+
+OnShowdown6:
+    $@DD5_STATUS = 7;
+    $@DD5_HP = 115000+(getmapusers("099-5")*100);
+    $@DD5_PRIMARY = 3+getmapusers("099-5")*15/10;
+    $@DD5_SUPPORT = 3+getmapusers("099-4")*15/10;
+    $@DD5_TOTALPC = $@DD5_PRIMARY+$@DD5_SUPPORT-2;
+    $@DD5_ATK=true;
+    spawndummy("099-5", 50, 49, Kage, "Zax De'Kagen", strnpcinfo(0)+"::OnMain");
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_WEAK), $@DD5_PRIMARY, "#TMWFinalExam::OnKillWeak";
+    initnpctimer;
+    $@DD5_DEFCON = rand(4, 8);
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTBlissOblivion";
+    donpcevent "Zax De'Kagen#0::OnFinal";
+    end;
+
+OnEpilogue0:
+    stopnpctimer;
+    $@DD5_STATUS = 8;
+    $@DD5_HP = 0;
+    killmonster "099-5", "All";
+    killmonster "099-4", "All";
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward52";
+    areatimer 0, "099-4", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTReward42";
+    enablenpc "Flying Ship";
+
+    $@DD5_TPASSED = (gettimetick(2)-$@DD5_BEGIN);
+    $@DD5_TSPENT$ = $@DD5_TPASSED/60+" minute(s) and "+$@DD5_TPASSED%60+" second(s)";
+    set $@DD5_TPASSED2, 2100+$@DD5_TPASSED; // 35 minutes, The Big Bad, Watchmen
+    $@DD5_TSPENT2$ = $@DD5_TPASSED2/60+" minute(s)";
+    $@DD5_PRIMARY = 0;
+    $@DD5_SUPPORT = 0;
+    donpcevent "Zax De'Kagen#0::OnDisable";
+    end;
+
+OnEpilogue1:
+    @dd5_illegalexit = 1;
+    addtimer 10, "#TMWFinalExam::OnIllegalExit1";
+
+    mes "[Zax De'Kagen]";
+    mes "Thanks for the "+$@DD5_TSPENT$+" of fun you gave me!";
+    next;
+    if (debug) goto L_Epilogue1Part22;
+    mes "[Zax De'Kagen]";
+    mes "This was not in the plan, but was fun nonetheless. Worth the detour.";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "However, now I need to go. Unlike you, I do not want to be late.";
+    next;
+    menu
+        "We just killed you?", L_Epilogue1Part1,
+        "Late? What do you mean?", L_Epilogue1Part1;
+
+L_Epilogue1Part1:
+    mes "[Zax De'Kagen]";
+    mes "You know villains never lie. Did you notice how I did not attack any of you directly?";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "I already finished my plans "+$@DD5_TSPENT2$+" ago, otherwise I would not be bothering myself with you.";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "I hope you did not hoped to kill me. Wait. You actually did?!";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "HAHAHAHAHAHAHAHA!!";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Thanks for this, I don't recall laughing so hard the past five years.";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Tell me... Enumerate me... Which beings on The Mana World remains dead after being killed?";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Think a bit! Monsters respawn... Adventurers appear near the Soul Menhir...";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "...Or used to, at least; I don't know why that's not true anymore... anyway...";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Did you really thought you could simply defeat me in combat and expect this to solve all your problems?";
+    next;
+    menu
+        "I did", L_Epilogue1Part21,
+        "I didn't", L_Epilogue1Part22;
+
+L_Epilogue1Part21:
+    mes "[Zax De'Kagen]";
+    mes "HAHAHAHAHAHAHAHA!!";
+    next;
+    goto L_Epilogue1Part2;
+L_Epilogue1Part22:
+    mes "[Zax De'Kagen]";
+    mes "So I assume you thought in a way to seal me? Not that it matters anymore.";
+    next;
+    goto L_Epilogue1Part2;
+
+L_Epilogue1Part2:
+    mes "[Zax De'Kagen]";
+    mes "I'm not even close to fainting yet.";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Besides, only a handful of mana beings know how to erase something of existence.";
+    next;
+    mes "[Zax De'Kagen]";
+    mes "Anyway, just look! My ride arrived.";
+    next;
+
+    @dd5_illegalexit = 0;
+    if (getmapname() == "099-5")
+        goto OnEpilogue1b;
+
+    // What. How? Force script to explode.
+    Hp = 0;
+    heal -99999, -99999;
+    end;
+
+OnIllegalExit1:
+    if (@dd5_illegalexit)
+        goto OnEpilogue1;
+    end;
+
+
+OnEpilogue1b:
+    $@DD5_SUPPORT = 0;
+    // Would this timer ever run if player is on dialog?
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnEpilogue1c";
+    close;
+
+OnEpilogue1c:
+    if ($@DD5_PRIMARY)
+        end;
+    if (!@dd5_illegalexit)
+        $@DD5_SUPPORT = $@DD5_SUPPORT+1;
+    addtimer 50, "#TMWFinalExam::OnEpilogue1d";
+    end;
+
+OnEpilogue1d:
+    if ($@DD5_PRIMARY)
+        end;
+    if ($@DD5_SUPPORT >= getmapusers("099-5"))
+        goto OnEpilogue1e;
+    $@DD5_SUPPORT = 0;
+    end;
+
+OnEpilogue1e:
+    $@DD5_PRIMARY = 1;
+    $@DD5_SUPPORT = 0;
+    addnpctimer 300, "#TMWFinalExam::OnEpilogue2";
+    close;
+
+OnEpilogue2:
+    mapannounce "099-5", "Zax De'Kagen : Now that I know where Nu'Rem is burried, nothing can stop me." , 0;
+    npctalk "Zax De'Kagen#0", "Now that I know where Nu'Rem is burried, nothing can stop me.";
+
+    // FIXME DEBUG DEBUG DEBUG FIXME
+    if (debug)
+        addnpctimer 2000, "#TMWFinalExam::OnEpilogue5";
+    else
+        addnpctimer 5000, "#TMWFinalExam::OnEpilogue3";
+    end;
+
+OnEpilogue3:
+    mapannounce "099-5", "Zax De'Kagen : Good bye, mortal adventurers." , 0;
+    npctalk "Zax De'Kagen#0", "Good bye, mortal adventurers.";
+
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue4";
+    end;
+
+OnEpilogue4:
+    mapannounce "099-5", "Zax De'Kagen : Heh, not like I wasn't one too, back then..." , 0;
+    npctalk "Zax De'Kagen#0", "Heh, not like I wasn't one too, back then...";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue5";
+    end;
+
+OnEpilogue5:
+    disablenpc "Zax De'Kagen#0";
+    disablenpc "Flying Ship";
+
+    addnpctimer 10000, "#TMWFinalExam::OnEpilogue6";
+    end;
+
+OnEpilogue6:
+    enablenpc "Gema III";
+    enablenpc "Jande#0";
+    enablenpc "Tal#0";
+    enablenpc "Anon";
+    mapannounce "099-5", "Jande : With Zax gone, I could finally arrive here." , 0;
+    npctalk "Jande#0", "With Zax gone, I could finally arrive here.";
+
+    // FIXME DEBUG DEBUG DEBUG FIXME
+    if (debug)
+        addnpctimer 2000, "#TMWFinalExam::OnEpilogue15";
+    else
+        addnpctimer 5000, "#TMWFinalExam::OnEpilogue7";
+    end;
+
+OnEpilogue7:
+    mapannounce "099-5", "Tal : I believe some introductions are in order. I am Tal, the Great Dragon of Water." , 0;
+    npctalk "Tal#0", "Tal : I believe some introductions are in order. I am Tal, the Great Dragon of Water.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue8";
+    end;
+
+OnEpilogue8:
+    mapannounce "099-5", "Tal : I also consider myself the creator of the Tritan race. Jande called me to help." , 0;
+    npctalk "Tal#0", "Tal : I also consider myself the creator of the Tritan race. Jande called me to help.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue9";
+    end;
+
+OnEpilogue9:
+    mapannounce "099-5", "Tal : While I do not like this idea myself, we have an enemy in common." , 0;
+    npctalk "Tal#0", "Tal : While I do not like this idea myself, we have an enemy in common.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue10";
+    end;
+
+OnEpilogue10:
+    mapannounce "099-5", "Anon : We prepared another ship, Gema III. This ship will bring you to the damned island." , 0;
+    npctalk "Anon", "We prepared another ship, Gema III. This ship will bring you to the damned island.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue11";
+    end;
+
+OnEpilogue11:
+    mapannounce "099-5", "Anon : Be careful, though. It is the final resting place of the Great Dragon of Air." , 0;
+    npctalk "Anon", "Be careful, though. It is the final resting place of the Great Dragon of Air.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue12";
+    end;
+
+OnEpilogue12:
+    mapannounce "099-5", "Anon : There is no telling on the horrors you'll find there." , 0;
+    npctalk "Anon", "There is no telling on the horrors you'll find there.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue13";
+    end;
+
+OnEpilogue13:
+    mapannounce "099-5", "Jande : A ship is not so fast as a flying one, but I am sure you can make in time." , 0;
+    npctalk "Jande#0", "A ship is not so fast a flying one, but I am sure you can make in time.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue14";
+    end;
+
+OnEpilogue14:
+    mapannounce "099-5", "Jande : Whatever happens, DO NOT let Zax De'Kagen reach the great dragon body. Remember: Zax is wounded!" , 0;
+    npctalk "Jande#0", "Whatever happens, DO NOT let Zax De'Kagen reach the great dragon body. Remember: Zax is wounded!";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue15";
+    end;
+
+OnEpilogue15:
+    $@DD5_STATUS = 9;
+    mapannounce "099-5", "##1(Talk to Gema III to embark)" , 0;
+    npctalk "Gema III", "##1(Talk to Gema III to embark)";
+    // FIXME DEBUG DEBUG DEBUG FIXME
+    if (debug)
+        addnpctimer 2000, "#TMWFinalExam::OnEpilogue25";
+    else
+        addnpctimer 30000, "#TMWFinalExam::OnEpilogue16";
+    end;
+
+
+OnEpilogue16:
+    npctalk "Jande#0", "(*whisper* Tal, do you think they'll make it?)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue17";
+    end;
+OnEpilogue17:
+    npctalk "Tal#0", "Tal : (*whisper* I would be surprised if they survived the trip alone.)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue18";
+    end;
+OnEpilogue18:
+    npctalk "Jande#0", "(*whisper* For now, let's hope for the best. I don't want another rewrite...)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue19";
+    end;
+OnEpilogue19:
+    npctalk "Tal#0", "Tal : (*whisper* You worry too much. Di'Tal already put measures in place.)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue20";
+    end;
+OnEpilogue20:
+    npctalk "Tal#0", "Tal : (*whisper* The same incident from years ago will not repeat itself.)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue21";
+    end;
+OnEpilogue21:
+    npctalk "Tal#0", "Tal : (*whisper* Besides, shall they fail - they won't remember any of this.)";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue22";
+    end;
+OnEpilogue22:
+    npctalk "Jande#0", "(*whisper* We will have a good room to maneuver undercover, then.)";
+    addnpctimer 15000, "#TMWFinalExam::OnEpilogue23";
+    end;
+
+OnEpilogue23:
+    npctalk "Anon", "What are you waiting for? You're running against the clock.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue24";
+    end;
+OnEpilogue24:
+    npctalk "Anon", "You know Jande and Tal cannot get close to that... that thing.";
+    addnpctimer 5000, "#TMWFinalExam::OnEpilogue25";
+    end;
+OnEpilogue25:
+    npctalk "Anon", "We will do what we can to support you from sidelines. Now go!";
+    end;
+
+S_DD5PrimarySpawn:
+    // Receives: $@DD5_MOBC
+    $@DD5_TMP = rand(270) / 100;
+    if ($@DD5_TMP == 0)
+        goto L_DD5PSN;
+    if ($@DD5_TMP == 1)
+        goto L_DD5PSR;
+    if ($@DD5_TMP == 2)
+        goto L_DD5PSP;
+    goto L_DD5PSResume;
+
+L_DD5PSN:
+    callfunc "DD5SpawnNoob";
+    goto L_DD5PSResume;
+
+L_DD5PSR:
+    callfunc "DD5SpawnRegular";
+    goto L_DD5PSResume;
+
+L_DD5PSP:
+    callfunc "DD5SpawnPro";
+    goto L_DD5PSResume;
+
+L_DD5PSResume:
+    if ($@DD5_MOBC)
+        goto S_DD5PrimarySpawn;
+    $@DD5_TMP = 0;
+    return;
+
+OnTimer40000:
+    // Imperial Chamber
+    areamonster "099-5", 43, 44, 56, 55, "", any($@DD5MB_WEAK), $@DD5_PRIMARY, "#TMWFinalExam::OnKillWeak";
+    // Map
+    $@DD5_MOBC = $@DD5_TOTALPC/2+1;
+    callsub S_DD5PrimarySpawn;
+    // Prologue mobs
+    if ($@DD5_STATUS == 3)
+        areamonster "099-5", 20, 20, 75, 75, "", 1151, $@DD5_TOTALPC, "#TMWFinalExam::OnKillAverage";
+    end;
+
+OnTimer75000:
+    // Imperial Chamber
+    areamonster "099-5", 43, 44, 56, 55, "", any($@DD5MB_AVERAGE), $@DD5_PRIMARY/3+1, "#TMWFinalExam::OnKillAverage";
+    // Map
+    $@DD5_MOBC = $@DD5_TOTALPC/2;
+    callsub S_DD5PrimarySpawn;
+    // Prologue mobs
+    if ($@DD5_STATUS == 3)
+        areamonster "099-5", 20, 20, 75, 75, "", 1151, $@DD5_TOTALPC, "#TMWFinalExam::OnKillAverage";
+    end;
+
+OnTimer104000:
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTWarning";
+    end;
+
+OnTimer120000:
+    // Imperial Chamber
+    areamonster "099-5", 43, 44, 56, 55, "", any($@DD5MB_STRONG), max(3, 1+$@DD5_PRIMARY/3), "#TMWFinalExam::OnKillStrong";
+    areamonster "099-5", 43, 44, 56, 55, "", any($@DD5MB_BOSSLV), $@DD5_STATUS/2, "#TMWFinalExam::OnKillStrong";
+    // Map
+    $@DD5_MOBC = $@DD5_TOTALPC/3+1;
+    callsub S_DD5PrimarySpawn;
+    // Prologue mobs
+    if ($@DD5_STATUS == 3)
+        areamonster "099-5", 20, 20, 75, 75, "", 1151, $@DD5_TOTALPC, "#TMWFinalExam::OnKillAverage";
+    // Boss regeneration, which may overflow into infinity.
+    // A regular tick takes 7s - so ~13 cycles of regen
+    // It'll regen STATUS Hp per tick, so: 39, 65 and 91 HP every 90s
+    // Which is a ridiculously low amount, so I buffed it in 3
+    // A base healing of 3 HP per tick - So 117, 195 and 273 HP (still low)
+    $@DD5_HP = $@DD5_HP+((13*$@DD5_STATUS)*3);
+    initnpctimer;
+    end;
+
+OnKillWeak:
+    @dd5_score = @dd5_score+1;
+    $@DD5_PTS = $@DD5_PTS+1;
+    end;
+
+OnKillAverage:
+    @dd5_score = @dd5_score+10;
+    $@DD5_PTS = $@DD5_PTS+10;
+    end;
+
+OnKillStrong:
+    @dd5_score = @dd5_score+25;
+    $@DD5_PTS = $@DD5_PTS+25;
+    end;
+
+OnInit:
+    setarray $@DD5MB_WEAK, 1155, 1156, 1155, 1156, 1155, 1156, 1158;
+    setarray $@DD5MB_AVERAGE, 1159, 1160, 1159, 1160, 1159, 1160, 1157, 1158;
+    setarray $@DD5MB_STRONG, 1152, 1153, 1154, 1152, 1153, 1154, 1152, 1153, 1154;
+    setarray $@DD5MB_BOSSLV, 1146, 1147, 1140, 1141, 1143, 1149, 1148, 1140;
+    // Flower 1151, Mouboo 1158
+    end;
+
+OnMiteyo:
+    if ($DOOMSDAY != 3)
+        end;
+    if ($@DD5_HP < 1)
+        end;
+    message strcharinfo(0), "Estimated boss HP: "+($@DD5_HP+rand(-100, 100));
+    end;
+}
+
+function	script	DD5SpawnNoob	{
+    areamonster "099-4", 20, 20, 75, 75, "", any($@DD5MB_WEAK), 2, "#TMWFinalExam::OnKillWeak";
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_WEAK), 3, "#TMWFinalExam::OnKillWeak";
+    $@DD5_MOBC = $@DD5_MOBC-1;
+    return;
+}
+function	script	DD5SpawnRegular	{
+    if (rand(6) % 2 == 0)
+        areamonster "099-4", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), 1, "#TMWFinalExam::OnKillAverage";
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_AVERAGE), 2, "#TMWFinalExam::OnKillAverage";
+    $@DD5_MOBC = $@DD5_MOBC-1;
+    return;
+}
+function	script	DD5SpawnPro	{
+    if (rand(6) % 2 == 0)
+        areamonster "099-4", 20, 20, 75, 75, "", any($@DD5MB_STRONG), 1, "#TMWFinalExam::OnKillStrong";
+    areamonster "099-5", 20, 20, 75, 75, "", any($@DD5MB_STRONG), 1, "#TMWFinalExam::OnKillStrong";
+    $@DD5_MOBC = $@DD5_MOBC-1;
+    return;
+}
+
+function	script	DD5RainCheck	{
+    $@DD5_RAIN="#WeatherCore"::weather(MASK_RAIN, "099-5");
+
+    // Not in rain - nullify damage
+    if (!($@DD5_RAIN))
+        @dd5_dmg = 0;
+    return;
+}
+
+function	script	DD5DEFCONCheck	{
+    // Shearing magic is active?
+    if (@chipchipspell[2] > 0)
+        goto L_Shear;
+    goto L_Loop;
+
+L_Shear:
+    @dd5_shear = 1;
+    //addtimer 0, "shear::OnDischarge"; // FIXME
+    goto L_Loop;
+
+L_Loop:
+    if ($@DD5_DEFCON == 0)
+        goto L_DEFCON0;
+    if ($@DD5_DEFCON == 1)
+        goto L_DEFCON1;
+    if ($@DD5_DEFCON == 2)
+        goto L_DEFCON2;
+    if ($@DD5_DEFCON == 3)
+        goto L_DEFCON3;
+    if ($@DD5_DEFCON == 4)
+        goto L_DEFCON4;
+    if ($@DD5_DEFCON == 5)
+        goto L_DEFCON5;
+    if ($@DD5_DEFCON == 6)
+        goto L_DEFCON6;
+    if ($@DD5_DEFCON == 7)
+        goto L_DEFCON7;
+    if ($@DD5_DEFCON == 8)
+        goto L_DEFCON8;
+    debugmes "ERROR INVALID DEFCON: "+$@DD5_DEFCON;
+    goto L_Return;
+
+L_DEFCON0:
+    goto L_Return;
+
+L_DEFCON1:
+    // FIXME
+    if (@dd5_shear)
+        goto L_Return;
+    @dd5_dmg = 0;
+    goto L_Return;
+
+L_DEFCON2:
+    @dd5_dmg = @dd5_dmg/2;
+    goto L_Return;
+
+L_DEFCON3:
+    if (sc_check(sc_raiseattackspeed0))
+        @dd5_dmg = 0;
+    if (sc_check(sc_raiseattackstrength))
+        @dd5_dmg = 0;
+    goto L_Return;
+
+L_DEFCON4:
+    callfunc "DD5RainCheck";
+    goto L_Return;
+
+L_DEFCON5:
+    if (ATTACKRANGE > 2)
+        @dd5_dmg = 0;
+    goto L_Return;
+
+L_DEFCON6:
+    // Shearing is immune to DEFCON 6
+    if (@dd5_shear)
+        goto L_Return;
+    // Not using the allowed equips
+    if (getequipid(equip_arrow) != 1282 && getequipid(equip_hand1) != 570)
+        @dd5_dmg = 0;
+    // Lame check for bows because I'm lazy
+    if (getequipid(equip_arrow) == 1282 && ATTACKRANGE < 4)
+        @dd5_dmg = 0;
+    goto L_Return;
+
+L_DEFCON7:
+    if (ATTACKRANGE < 3)
+        @dd5_dmg = 0-(@dd5_dmg);
+    goto L_Return;
+
+L_DEFCON8:
+    if (Zeny < @dd5_dmg*10)
+        @dd5_dmg = 0;
+    Zeny = Zeny-(@dd5_dmg*10);
+    goto L_Return;
+
+L_Return:
+    @dd5_shear = 0;
+    return;
+}
+
+function	script	FinalExamAttack	{
+    // Failsafe
+    if ($@DD5_STATUS != 3 && $@DD5_STATUS != 5 && $@DD5_STATUS != 7)
+        return;
+
+    if (!$@DD5_ATK)
+        return;
+
+    if (!playerattached())
+        goto L_Return;
+
+    // CD Initial failsafe
+    if (!@dd5_timer)
+        @dd5_timer = 1-2147483647-1;
+
+    // CD Failsafe
+    if (@dd5_timer > 1 && gettimetick(0) < 1)
+        @dd5_timer = gettimetick(0);
+
+    // Cooldown
+    if (gettimetick(0) < @dd5_timer)
+        goto L_Return;
+
+    // Verify range
+    if (!(isin("099-5", 50-ATTACKRANGE, 49-ATTACKRANGE, 50+ATTACKRANGE, 49+ATTACKRANGE)))
+        goto L_Return;
+
+    // Assign attack speed delay - 300ms with pots, 600ms without
+    @dd5_timer = if_then_else(sc_check(sc_raiseattackspeed0), gettimetick(0)+300, gettimetick(0)+600);
+
+    // Calculate HIT and CRIT rate
+    @dd5_crit = (rand(10000) < CRIT);
+    if (rand(400) > HIT && !@dd5_crit)
+        goto L_Miss;
+
+    // Calculate damage
+    @dd5_dmg = ATK1+BASE_ATK;
+
+    // Strength Potion - DMG +50%
+    if (sc_check(sc_raiseattackstrength))
+        @dd5_dmg = @dd5_dmg*15/10;
+
+    // Boss defense
+    @dd5_dmg = @dd5_dmg*(11-$@DD5_STATUS)/9;
+
+    // Consider criticals (no defense disregard, though)
+    if (@dd5_crit)
+        @dd5_dmg = @dd5_dmg*2;
+
+    // Adjust to Stages
+    if ($@DD5_STATUS == 5)
+        goto L_Rainy;
+    if ($@DD5_STATUS == 7)
+        goto L_Defcon;
+    goto L_Damage;
+
+L_Rainy:
+    callfunc "DD5RainCheck";
+    if (!($@DD5_RAIN))
+        goto L_Miss;
+    goto L_Damage;
+
+L_Defcon:
+    callfunc "DD5DEFCONCheck";
+    if (@dd5_dmg == 0)
+        goto L_Miss;
+    if (@dd5_dmg < 1)
+        goto L_Absorb;
+    goto L_Damage;
+
+L_Absorb:
+    // Ops! Zax appreciates the heal!
+    $@DD5_HP = $@DD5_HP-@dd5_dmg;
+    message strcharinfo(0), "Battle : Absorbed +"+@dd5_dmg+" HP";
+    goto L_Return;
+
+L_Damage:
+    // Apply the damage!
+    $@DD5_HP = $@DD5_HP-@dd5_dmg;
+    @dd5_score = @dd5_score+min(25, @dd5_dmg/50);
+    $@DD5_PTS = $@DD5_PTS+min(25, @dd5_dmg/50);
+    message strcharinfo(0), "Battle : Damage -"+@dd5_dmg+" HP";
+
+    // Fire events if HP < 0
+    if ($@DD5_HP <= 0)
+        goto L_Slain;
+    goto L_Return;
+
+L_Miss:
+    message strcharinfo(0), "Battle : Miss";
+    goto L_Return;
+
+L_Slain:
+    @dd5_score = @dd5_score+100;
+    $@DD5_PTS = $@DD5_PTS+100;
+    BOSS_POINTS = BOSS_POINTS + 25;
+    if ($@DD5_STATUS == 3)
+        donpcevent "#TMWFinalExam::OnWarmedUp0";
+    if ($@DD5_STATUS == 5)
+        donpcevent "#TMWFinalExam::OnShowdown0";
+    if ($@DD5_STATUS == 7)
+        donpcevent "#TMWFinalExam::OnEpilogue0";
+    message strcharinfo(0), "You gained 25 Boss Points!";
+    $@DD5_ATK=false;
+    return;
+
+L_Return:
+    spawndummy("099-5", 50, 49, Kage, strnpcinfo(2), strnpcinfo(0)+"::OnMain");
+    return;
+}
+
+099-5,52,35,0	script	Jande#0	NPC426,{
+    message strcharinfo(0), "Jande : What are you waiting for?";
+    end;
+OnInit:
+    disablenpc strnpcinfo(0);
+    end;
+}
+
+099-5,47,34,0	script	Tal#0	NPC427,{
+    message strcharinfo(0), "Tal : What are you waiting for?";
+    end;
+OnInit:
+    disablenpc strnpcinfo(0);
+    end;
+}
+
+099-5,49,35,0	script	Anon	NPC425,{
+    message strcharinfo(0), "Anon : What are you waiting for?";
+    end;
+OnInit:
+    disablenpc strnpcinfo(0);
+    end;
+}
+
+099-5,51,33,0	script	Flying Ship	NPC428,{
+    message strcharinfo(0), "WHAT. IN. NAME. OF. JANDE. IS. THAT. THING?!";
+    end;
+OnInit:
+    disablenpc strnpcinfo(0);
+    end;
+}
+
+099-5,51,33,0	script	Gema III	NPC395,{
+    if ($@DD5_STATUS != 9)
+        goto L_TooEarly;
+    if (@dd5_cutscene)
+        end;
+    mes "##1Embark on Gema III in pursuit?##0";
+    mes "You may be unable to return here!";
+    next;
+    menu
+        "Yes",L_Yes,
+        "No",L_No;
+
+L_No:
+    close;
+
+L_Yes:
+    @dd5_cutscene = 1;
+    // Stop rendering the map and Embark
+    mapmask 1 | 2;
+    changemusic "099-5","epilogue.ogg";
+    if (debug)
+        addtimer 5000, "Gema III::OnDebugPrompt";
+    if (!debug)
+        addtimer 300, "Gema III::OnStart";
+    close;
+
+OnStart:
+    selfeffect 53;
+    message strcharinfo(0), "But it might be too late.";
+    addtimer 2300, "Gema III::OnFPS01";
+    end;
+
+OnFPS01:
+    message strcharinfo(0), "Brave adventurers from all around the world,";
+    addtimer 2500, "Gema III::OnFPS02";
+    end;
+
+OnFPS02:
+    message strcharinfo(0), "Marches toward that unknown island,";
+    addtimer 2100, "Gema III::OnFPS03";
+    end;
+
+OnFPS03:
+    message strcharinfo(0), "Said to have the key to stop Zax De'Kagen's ambitions.";
+    addtimer 4300, "Gema III::OnFPS04";
+    end;
+
+OnFPS04:
+    message strcharinfo(0), "Unbeknownst to them, Zax already made his move.";
+    addtimer 3200, "Gema III::OnFPS05";
+    end;
+
+OnFPS05:
+    message strcharinfo(0), "Before anyone can even reach him, he executes the plan,";
+    addtimer 3600, "Gema III::OnFPS06";
+    end;
+
+OnFPS06:
+    message strcharinfo(0), "Carefully written for over a decade.";
+    addtimer 3100, "Gema III::OnFPS07";
+    end;
+
+OnFPS07:
+    message strcharinfo(0), "Using Nu'Rem's body as a catalyst,";
+    addtimer 2000, "Gema III::OnFPS08";
+    end;
+
+OnFPS08:
+    message strcharinfo(0), "The Ether Spirit of Air is finally compromised.";
+    addtimer 2900, "Gema III::OnFPS09";
+    end;
+
+OnFPS09:
+    message strcharinfo(0), "Half from the Etheral Powers of Air,";
+    addtimer 2300, "Gema III::OnFPS10";
+    end;
+
+OnFPS10:
+    message strcharinfo(0), "Are absorbed by The Mana Seal.";
+    addtimer 2100, "Gema III::OnFPS11";
+    end;
+
+OnFPS11:
+    message strcharinfo(0), "The other half collides with the Earth Spirit,";
+    addtimer 2400, "Gema III::OnFPS12";
+    end;
+
+OnFPS12:
+    message strcharinfo(0), "And a new element is born.";
+    addtimer 2200, "Gema III::OnFPS13";
+    end;
+
+OnFPS13:
+    message strcharinfo(0), "History begins to rewrite itself,";
+    addtimer 2200, "Gema III::OnFPS14";
+    end;
+
+OnFPS14:
+    message strcharinfo(0), "Who's Zax? Something is not right.";
+    addtimer 3600, "Gema III::OnFPS15";
+    end;
+
+OnFPS15:
+    message strcharinfo(0), "But what will be of our brave adventurers,";
+    addtimer 3400, "Gema III::OnFPS16";
+    end;
+
+OnFPS16:
+    message strcharinfo(0), "lost midst all this cataclysm?";
+    addtimer 2800, "Gema III::OnFPS17";
+    end;
+
+OnFPS17:
+    message strcharinfo(0), "Will they reach Nu'Rem's grave?";
+    addtimer 2400, "Gema III::OnFPS18";
+    end;
+
+OnFPS18:
+    message strcharinfo(0), "Will they put a stop to Zax's evil ambitions?";
+    addtimer 3000, "Gema III::OnFPS19";
+    end;
+
+OnFPS19:
+    message strcharinfo(0), "Follow their journey, and take back the world, in";
+    addtimer 3600, "Gema III::OnFPS20";
+    end;
+
+OnFPS20:
+    message strcharinfo(0), "##2##BTHE MANA WORLD: REVOLT##b##0";
+    //if (debug)
+        addtimer 5000, "Gema III::OnDebugPrompt";
+    //if (!debug)
+    //    addtimer 5000, "Gema III::OnPrompt";
+    end;
+
+OnPrompt:
+    mes ".:: THE MANA WORLD - REVOLT ::.";
+    mes "";
+    mes "Server Name: ##BThe Mana World##b";
+    mes "Server Address: ##Bserver.themanaworld.org##b";
+    mes "Server Port: ##BXXXX##b";
+    mes "Server Type: ##BEvol2##b";
+    mes "Server Description: ##BMain Server for The Mana World##b";
+    mes "";
+    mes "##BCOMING SOON##b";
+    mes "##BMONTH DAY, 18:00 UTC##b";
+    next;
+    mes "##BPre-register##b here:";
+    mes "[@@https://vault.themanaworld.org/|@@]";
+    mes "Max. 1 account per player.";
+    next;
+    goto L_MissionComplete;
+
+OnDebugPrompt:
+    mes ".:: THE MANA WORLD - REVOLT ::.";
+    mes "";
+    mes "##BCOMING SOON##b";
+    mes "";
+    mes "Thanks for playing!";
+    mes "Stay tuned for updates!";
+    mes "";
+    mes "-- The Mana World Team";
+    next;
+    goto L_MissionComplete;
+
+L_MissionComplete:
+    @dd5_cutscene = 0;
+    warp "009-1", 52, 40;
+    getexp 1000000, 0;
+    if (strcharinfo(0) == $@DD5_TALLY$)
+        goto L_Winner;
+    close;
+
+L_Winner:
+    getitem SaviorArmor, 1;
+    $@DD5_TALLY$ = "";
+    #DD5_TALLY = 1;
+    mes "##2You were the MVP with "+$@DD5_TALLY_+" points!##0";
+    //mes "##2Exchange this blue rose with a Game Master!##0";
+    close;
+
+L_TooEarly:
+    mesn strcharinfo(0);
+    mes "It is Gema III! How did they manage to bring the ship here?!";
+    close;
+
+OnInit:
+    disablenpc "Gema III";
+    end;
+}
+099-5,50,49,0	script	Xakelbael the Dark#0	NPC400,{
+OnMain:
+    callfunc "FinalExamAttack";
+    end;
+OnInit:
+    disablenpc "Xakelbael the Dark#0";
+    end;
+
+OnTimer50000:
+    areatimer 0, "099-5", 20, 20, 75, 75, 10, "#TMWFinalExam::OnMTFourthFall";
+    initnpctimer;
+    npctalk "Fourth Fall!";
+    end;
+OnEnable:
+    initnpctimer;
+    end;
+OnAdjustSweet:
+    if ($@DD5_STATUS != 5)
+        end;
+    setnpctimer min(49000, getnpctimer(0)-rand(2500,5000));
+    end;
+OnDisable:
+    stopnpctimer;
+    end;
+}
+
+099-5,50,49,0	script	Zax De'Kagen#0	NPC400,{
+OnMain:
+    callfunc "FinalExamAttack";
+    end;
+OnInit:
+    disablenpc "Zax De'Kagen#0";
+    end;
+
+OnTimer18000:
+    if ($@DD5_STATUS != 3)
+        end;
+    enablenpc strnpcinfo(0); // FIXME
+    $@DD5_ATK=true;
+    killmonster("099-5", strnpcinfo(0)+"::OnMain");
+    spawndummy("099-5", 50, 49, Kage, strnpcinfo(2), strnpcinfo(0)+"::OnMain");
+    end;
+OnTimer24000:
+    if ($@DD5_STATUS != 3)
+        end;
+    initnpctimer;
+    disablenpc strnpcinfo(0); // FIXME
+    $@DD5_ATK=false;
+    killmonster("099-5", strnpcinfo(0)+"::OnMain");
+    end;
+OnTimer90000:
+    if ($@DD5_STATUS != 7)
+        end;
+    initnpctimer;
+    npctalk "Bliss Of Oblivion!";
+    donpcevent "#TMWFinalExam::OnBlissOblivion";
+    end;
+
+OnAdjustBat:
+    if (getnpctimer(0) < 18000)
+        setnpctimer max(17000, getnpctimer(0)+rand(1000,2500));
+    end;
+OnAdjustBeets:
+    if (getnpctimer(0) > 18000)
+        setnpctimer min(18000, getnpctimer(0)-rand(3000,5000));
+    end;
+OnAdjustPotion:
+    if ($@DD5_STATUS != 7)
+        end;
+    setnpctimer max(0, min(75000, getnpctimer(0)-rand(5000, 15000)));
+    // If it is me testing then it forwards >.>
+    if (debug && strcharinfo(0) == "Jesusalva")
+        setnpctimer 75000;
+    end;
+
+OnEnable:
+    disablenpc "Zax De'Kagen#0";
+    initnpctimer;
+    end;
+OnDisable:
+    enablenpc strnpcinfo(0); // FIXME
+    stopnpctimer;
+    end;
+OnFinal:
+    initnpctimer;
+    end;
+OnAbort:
+    stopnpctimer;
+    areatimer 0, "099-4", 20, 20, 75, 75, 1000, "#TMWFinalExam::OnMTWarpTo0";
+    donpcevent "Xakelbael the Dark#0::OnDisable";
+    end;
+}
+
diff --git a/npc/functions/main.txt b/npc/functions/main.txt
index bf69551e..f9ec439d 100644
--- a/npc/functions/main.txt
+++ b/npc/functions/main.txt
@@ -688,6 +688,11 @@ function	script	misceffect	{
     return specialeffect(getarg(0), AREA, getarg(1, strnpcinfo(0)));
 }
 
+function	script	selfeffect	{
+    // or SELF + something
+    return specialeffect(getarg(0), SELF, getarg(1, strnpcinfo(0)));
+}
+
 function	script	fakenpcname	{
     if (getargcount() > 2)
         setnpcdisplay(getarg(0), getarg(1), getarg(2));