// TMW2 scripts.
// Author:
// Jesusalva
// Description:
// The Impregnable Fortress Control Files
// Quest: General_Fortress
// (MaxFloor+2, internal, internal)
// 0263Event(switchID)
function script 0263Event {
// Terminate the script if you already flipped it (also to stop trolls)
if (getq(General_Fortress) != 4) end;
if (getq2(General_Fortress) & getarg(0)) {
dispbottom l("I have already flipped this switch earlier.");
end;
}
// Flip it for good
setq2 General_Fortress, getq2(General_Fortress) | getarg(0);
// And if all switches are flipped...!
if (getq2(General_Fortress) == 15) {
setq General_Fortress, 5, 0, 0;
specialeffect(FX_MGWARP, SELF, getcharid(3));
}
return;
}
// The main entrance
026-3,55,128,0 script Impregnable#B3F NPC_HIDDEN,0,0,{
end;
OnTouch:
dispbottom l("From this point forward, you'll no longer be able to return to the previous floor.");
if (getq(General_Fortress) > 4) goto L_Warp;
mesc l(".:: Impregnable Fortress, %sF ::.", "B3"), 3;
msObjective(getq(General_Fortress) == 5, l("* Flip all four switches"));
msObjective($MK_TEMPVAR >= MKIF_LV_B4F, l("Minimum wins: %d/%d", $MK_TEMPVAR, MKIF_LV_B4F));
mes "";
mesc l("Hint: You cannot unflip a switch, but they unflip every 12 hours.");
close;
L_Warp:
// This is a more complex warp
.@e = 0;
do {
if (.@e >= 30) break;
.@x = rand2(20, 40);
.@y = rand2(20, 40);
.@e+=1;
} while (!checknpccell("026-4", .@x, .@y, cell_chkpass));
fortwarp(MKIF_LV_B4F, "026-4", .@x, .@y);
end;
// Reset the switches
OnClock0500:
OnClock1700:
setnpcdisplay "#026-3_129_38", NPC_SWITCH_OFFLINE;
setnpcdisplay "#026-3_59_86", NPC_SWITCH_OFFLINE;
setnpcdisplay "#026-3_94_80", NPC_SWITCH_OFFLINE;
setnpcdisplay "#026-3_53_59", NPC_SWITCH_OFFLINE;
end;
OnInit:
setarray $@MKB3FX, 66, 60, 54, 95, 80, 90, 88, 61, 73;
setarray $@MKB3FY, 18, 87, 118, 122, 140, 88, 56, 51, 39;
end;
}
// Miller system (otherwise, you can't reach the switches & platforms)
026-3,21,69,0 script #0263WA+ NPC_FANCY_CIRCLE,0,0,{
end;
OnTouch:
// All portals are the same, anyway
if (compare(strnpcinfo(2), "+"))
@state += 3;
else
@state -= 2;
.@index = miller_rand(@state, getcharid(0), 8);
slide $@MKB3FX[.@index], $@MKB3FY[.@index];
end;
}
026-3,28,136,0 duplicate(#0263WA+) #0263WA- NPC_FANCY_CIRCLE,0,0
026-3,45,81,0 duplicate(#0263WA+) #0263WB+ NPC_FANCY_CIRCLE,0,0
026-3,79,95,0 duplicate(#0263WA+) #0263WB- NPC_FANCY_CIRCLE,0,0
026-3,48,100,0 duplicate(#0263WA+) #0263WC+ NPC_FANCY_CIRCLE,0,0
026-3,66,127,0 duplicate(#0263WA+) #0263WC- NPC_FANCY_CIRCLE,0,0
026-3,83,126,0 duplicate(#0263WA+) #0263WD+ NPC_FANCY_CIRCLE,0,0
026-3,107,110,0 duplicate(#0263WA+) #0263WD- NPC_FANCY_CIRCLE,0,0
026-3,117,95,0 duplicate(#0263WA+) #0263WE+ NPC_FANCY_CIRCLE,0,0
026-3,140,100,0 duplicate(#0263WA+) #0263WE- NPC_FANCY_CIRCLE,0,0
026-3,105,87,0 duplicate(#0263WA+) #0263WF+ NPC_FANCY_CIRCLE,0,0
026-3,90,73,0 duplicate(#0263WA+) #0263WF- NPC_FANCY_CIRCLE,0,0
026-3,82,65,0 duplicate(#0263WA+) #0263WG+ NPC_FANCY_CIRCLE,0,0
026-3,76,52,0 duplicate(#0263WA+) #0263WG- NPC_FANCY_CIRCLE,0,0
026-3,44,41,0 duplicate(#0263WA+) #0263WH+ NPC_FANCY_CIRCLE,0,0
026-3,49,68,0 duplicate(#0263WA+) #0263WH- NPC_FANCY_CIRCLE,0,0
026-3,74,35,0 duplicate(#0263WA+) #0263WI+ NPC_FANCY_CIRCLE,0,0
026-3,71,42,0 duplicate(#0263WA+) #0263WI- NPC_FANCY_CIRCLE,0,0
