//Author: Kage
005-4.gat,36,19,0 script Switch#elecave 127,{
if ($@ELE_CAVE_STATUS != 0) goto L_Enjoy;
mes "*You see a switch, it is flipped off*";
menu "No, I am NOT flipping the switch... thats final.", L_Exit,
"Ha! What's the worst that could happen?", -;
mes "*As you flip the switch, the cave starts to rumble*";
if ($@ELE_CAVE_STATUS != 0) goto L_Enjoy; // Prevent from starting level 1 from two different players
set $@ELE_CAVE_STATUS, 1;
set $@ELE_CAVE_PLAYER_COUNT, getareausers("005-4.gat", 19, 19, 54, 37);
startnpctimer;
L_Start_Level_1:
set $@ELE_CAVE_LEVEL, 1;
mapannounce "005-4.gat", "Level 1 starting", 0;
// Random colors for everyone!
areatimer "005-4.gat", 19, 19, 54, 37, 10, "Switch#elecave::onChaos";
// Two red, two blue.
areamonster "005-4.gat", 19, 19, 54, 37, "", 1080, 2, "Switch#elecave::onBlueDeath";
areamonster "005-4.gat", 19, 19, 54, 37, "", 1081, 2, "Switch#elecave::onRedDeath";
goto L_Exit; // This one is triggered on talking to the switch.
L_Enjoy:
mes "*It seems the switch is stuck in the on position*";
L_Exit:
close;
end;
//-----------------------No player talking below this line-------------------------------
// Fight logic
OnTimer3000:
setnpctimer 0;
// We stop if no live players are around
if ($@ELE_CAVE_PLAYER_COUNT == 0) goto L_CleanUp;
set $@ELE_CAVE_PLAYER_COUNT, 0; // The onTick refills this with a live count
// We punish them for having a different count (Aka need kill them at the same time)
set $@ELE_CAVE_RED_COUNT, mobcount("005-4.gat","Switch#elecave::onRedDeath") + 1;
set $@ELE_CAVE_BLUE_COUNT, mobcount("005-4.gat","Switch#elecave::onBlueDeath") + 1;
set $@ELE_CAVE_DIFF, 0;
if ($@ELE_CAVE_RED_COUNT > $@ELE_CAVE_BLUE_COUNT) goto L_More_Red;
if ($@ELE_CAVE_RED_COUNT < $@ELE_CAVE_BLUE_COUNT) goto L_More_Blue;
goto L_Next_Step;
L_More_Red:
set $@ELE_CAVE_DIFF, $@ELE_CAVE_RED_COUNT - $@ELE_CAVE_BLUE_COUNT;
mapannounce "005-4.gat", "Their are too many red ions in the air!", 0;
goto L_Next_Step;
L_More_Blue:
set $@ELE_CAVE_DIFF, $@ELE_CAVE_BLUE_COUNT - $@ELE_CAVE_RED_COUNT;
mapannounce "005-4.gat", "Their are too many blue ions in the air!", 0;
goto L_Next_Step;
L_Next_Step:
// Basic per player logic
areatimer "005-4.gat", 19, 19, 54, 37, 10, "Switch#elecave::onTick";
if ($@ELE_CAVE_RED_COUNT == 0 && $@ELE_CAVE_BLUE_COUNT == 0) goto L_Next_Level;
end;
L_Next_Level:
if ($@ELE_CAVE_LEVEL == 1) goto L_Start_Level_2;
if ($@ELE_CAVE_LEVEL == 2) goto L_Start_Level_3;
if ($@ELE_CAVE_LEVEL == 3) goto L_CleanUp;
end;
L_Start_Level_2:
set $@ELE_CAVE_LEVEL, 2;
mapannounce "005-4.gat", "Level 2 starting", 0;
// Random colors for everyone!
areatimer "005-4.gat", 19, 19, 54, 37, 10, "Switch#elecave::onChaos";
// four red, four blue.
areamonster "005-4.gat", 19, 19, 54, 37, "", 1080, 4, "Switch#elecave::onBlueDeath";
areamonster "005-4.gat", 19, 19, 54, 37, "", 1081, 4, "Switch#elecave::onRedDeath";
end;
L_Start_Level_3:
set $@ELE_CAVE_LEVEL, 3;
mapannounce "005-4.gat", "Level 3 starting", 0;
// Random colors for everyone!
areatimer "005-4.gat", 19, 19, 54, 37, 10, "Switch#elecave::onChaos";
// eight red, eight blue.
areamonster "005-4.gat", 19, 19, 54, 37, "", 1080, 8, "Switch#elecave::onBlueDeath";
areamonster "005-4.gat", 19, 19, 54, 37, "", 1081, 8, "Switch#elecave::onRedDeath";
end;
// Being ticks
onChaos:
if (isdead(0)) end;
L_Set_Color:
message strcharinfo(0), "You feel funny.";
set @ELE_CAVE_COLOR, rand(1, 2);
end;
onTick:
if (isdead(0)) end;
// Count this player as alive
set $@ELE_CAVE_PLAYER_COUNT, $@ELE_CAVE_PLAYER_COUNT + 1;
set @drainamount, MaxHp / -20;
if ($@ELE_CAVE_DIFF != 0) heal @drainamount * $@ELE_CAVE_DIFF, 0;
// Make sure they have a color
if (@ELE_CAVE_COLOR == 0) goto L_Set_Color;
if (@ELE_CAVE_COLOR == 1) goto L_Do_Red;
if (@ELE_CAVE_COLOR == 2) goto L_Do_Blue;
end;
L_Do_Red:
specialeffect2 120; // Red effects
// Punish blue players who stand around a red player
areatimer "005-4.gat", getx(0) - 2, gety(0) - 2, getx(0) + 2, gety(0) + 2, 10, "Switch#elecave::onBlue";
if (isin("005-4.gat", 42, 19, 54, 32)) goto L_Heal;
if (isin("005-4.gat", 32, 19, 54, 37)) end;
message strcharinfo(0), "Sparks are flying between you and a piller.";
heal MaxHp / -6, 0;
end;
L_Do_Blue:
specialeffect2 121; // Blue effects
// Punish red players who stand around a blue player
areatimer "005-4.gat", getx(0) - 2, gety(0) - 2, getx(0) + 2, gety(0) + 2, 10, "Switch#elecave::onRed";
if (isin("005-4.gat", 19, 19, 31, 32)) goto L_Heal;
if (isin("005-4.gat", 19, 19, 41, 37)) end;
message strcharinfo(0), "Sparks are flying between you and a piller.";
heal MaxHp / -6, 0;
end;
L_Heal:
heal MaxHp / 20, 0;
end;
// Punishment triggers
onRed:
if (@ELE_CAVE_COLOR == 2) end;
message strcharinfo(0), "Sparks are flying between you and the person you are next to!";
heal MaxHp / -5, 0;
end;
onBlue:
if (@ELE_CAVE_COLOR == 1) end;
message strcharinfo(0), "Sparks are flying between you and the person you are next to!";
heal MaxHp / -5, 0;
end;
// Death triggers
onBlueDeath:
// Blue players have to kill blue sparks
if (@ELE_CAVE_COLOR == 2) end;
message strcharinfo(0), "The dieing spark reacts explosively with you.";
heal MaxHp / -2, 0;
end;
onRedDeath:
// Red players have to kill red sparks
if (@ELE_CAVE_COLOR == 1) end;
message strcharinfo(0), "The dieing spark reacts explosively with you.";
heal MaxHp / -2, 0;
end;
onInit:
initnpctimer;
stopnpctimer;
L_CleanUp:
set $@ELE_CAVE_STATUS, 0;
set $@ELE_CAVE_PLAYER_COUNT, 0;
set $@ELE_CAVE_LEVEL, 0;
set $@ELE_CAVE_ROUND_TIMER, 0;
killmonster "005-4.gat", "Switch#elecave::onBlueDeath";
killmonster "005-4.gat", "Switch#elecave::onRedDeath";
stopnpctimer;
setnpctimer 0;
end;
}
