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

1 files changed, 0 insertions, 707 deletions

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;
-}