summaryrefslogtreecommitdiff
path: root/world/map/npc/099-2
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2022-04-08 11:45:00 -0300
committerJesusaves <cpntb1@ymail.com>2022-04-08 11:45:00 -0300
commit4a4b2deefcbba1364e82a1d897ec3b79411e8f01 (patch)
tree3e749df218db91794a11cff1df3be9768c149617 /world/map/npc/099-2
parentbb65e5d75a8072d112e88bef5da89f115271fb0b (diff)
downloadserverdata-4a4b2deefcbba1364e82a1d897ec3b79411e8f01.tar.gz
serverdata-4a4b2deefcbba1364e82a1d897ec3b79411e8f01.tar.bz2
serverdata-4a4b2deefcbba1364e82a1d897ec3b79411e8f01.tar.xz
serverdata-4a4b2deefcbba1364e82a1d897ec3b79411e8f01.zip
Remove the switches and the ritual from Doomsday (won't be reused)
Diffstat (limited to 'world/map/npc/099-2')
-rw-r--r--world/map/npc/099-2/logic.txt707
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;
-}