Remove the switches and the ritual from Doomsday (won't be reused)

2 files changed, 0 insertions, 895 deletions

diff --git a/world/map/npc/099-1/main.txt b/world/map/npc/099-1/main.txt
index 0508cdfe..cbe03c7c 100644
--- a/world/map/npc/099-1/main.txt
+++ b/world/map/npc/099-1/main.txt
@@ -46,171 +46,6 @@
 	close;
 }
 
-099-3,69,38,0|script|Ritual Book#099-31|400
-{
-    // 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|400
-{
-    // 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!";
-    set Hp, 1;
-    warp "099-1", 0, 0;
-    close;
-
-L_Success:
-    set $@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|424,0,0
 {
@@ -218,39 +53,16 @@ L_Close:
     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:
diff --git a/world/map/npc/099-2/logic.txt b/world/map/npc/099-2/logic.txt
index e0147a03..902789f1 100644
--- a/world/map/npc/099-2/logic.txt
+++ b/world/map/npc/099-2/logic.txt
@@ -6,25 +6,6 @@
 //      Controls gimmicks in 099-3 as well
 /////////////////////////////////////////////////////////////////////////////////
 
--|script|#099-2_CMD|32767
-{
-    end;
-
-OnStorage:
-    if ($DOOMSDAY != 3)
-        end;
-    if (getmap() != "099-5" && getmap() != "099-4" && getmap() != "099-3")
-        end;
-    if ($@DD5_STATUS != 1 && $@DD5_STATUS != 2 && $@DD5_STATUS != 4 && $@DD5_STATUS != 6 && getmap() != "099-3")
-        end;
-    openstorage;
-    end;
-
-OnInit:
-    // Register commands
-    registercmd "#storage", strnpcinfo(0)+"::OnStorage";
-    end;
-}
 
 099-2,0,0,0|script|#099-2_Prestart|32767
 {
@@ -112,694 +93,6 @@ OnJanitor:
     end;
 }
 
-/////////////////////////////////////////////////////
-// Switches subsystem
-// Switches are distributed between three maps
-// There is a total of 18 switches
-099-2,25,17,0|script|#099-2_25_17|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // 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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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|422
-{
-    // For the cells I need a smaller distance
-    set @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;
-	fakenpcname 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;
-}
-
-
-
-
-
-/////////////////////////////////////////////////////
-// Password subsystem
-// Passwords are distributed between two maps
-// There is a total of 16 passwords
-099-2,119,18,0|script|Writing#2_119_18|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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|400
-{
-    // 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;
-}