diff options
Diffstat (limited to 'npc/099-2/logic.txt')
| -rw-r--r-- | npc/099-2/logic.txt | 396 |
1 files changed, 54 insertions, 342 deletions
diff --git a/npc/099-2/logic.txt b/npc/099-2/logic.txt index 7875df67..8c8fe9f8 100644 --- a/npc/099-2/logic.txt +++ b/npc/099-2/logic.txt @@ -89,455 +89,167 @@ OnJanitor: end; } -099-2,25,17,0 script #099-2_25_17 NPC422,{ +099-2,25,17,0 script #099-2_25_17 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-2,90,18,0 script #099-2_90_18 NPC422,{ +099-2,90,18,0 script #099-2_90_18 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-2,121,70,0 script #099-2_121_70 NPC422,{ +099-2,121,70,0 script #099-2_121_70 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-2,23,95,0 script #099-2_23_95 NPC422,{ +099-2,23,95,0 script #099-2_23_95 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-2,57,130,0 script #099-2_57_130 NPC422,{ +099-2,57,130,0 script #099-2_57_130 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-6,25,17,0 script #099-6_25_17 NPC422,{ +099-6,25,17,0 script #099-6_25_17 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-6,90,18,0 script #099-6_90_18 NPC422,{ +099-6,90,18,0 script #099-6_90_18 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-6,121,71,0 script #099-6_121_71 NPC422,{ +099-6,121,71,0 script #099-6_121_71 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-6,23,95,0 script #099-6_23_95 NPC422,{ +099-6,23,95,0 script #099-6_23_95 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-6,57,130,0 script #099-6_57_130 NPC422,{ +099-6,57,130,0 script #099-6_57_130 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,29,69,0 script #099-3_29_69 NPC422,{ +099-3,29,69,0 script #099-3_29_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,35,69,0 script #099-3_35_69 NPC422,{ +099-3,35,69,0 script #099-3_35_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,41,69,0 script #099-3_41_69 NPC422,{ +099-3,41,69,0 script #099-3_41_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,59,69,0 script #099-3_59_69 NPC422,{ +099-3,59,69,0 script #099-3_59_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,79,69,0 script #099-3_79_69 NPC422,{ +099-3,79,69,0 script #099-3_79_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,91,69,0 script #099-3_91_69 NPC422,{ +099-3,91,69,0 script #099-3_91_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,97,69,0 script #099-3_97_69 NPC422,{ +099-3,97,69,0 script #099-3_97_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } -099-3,115,69,0 script #099-3_115_69 NPC422,{ +099-3,115,69,0 script #099-3_115_69 NPC423,{ // 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; + mesc l("This switch is already active."); + close; } |