diff options
Diffstat (limited to 'npc/030-4/mana_battery.txt')
| -rwxr-xr-x | npc/030-4/mana_battery.txt | 433 |
1 files changed, 433 insertions, 0 deletions
diff --git a/npc/030-4/mana_battery.txt b/npc/030-4/mana_battery.txt new file mode 100755 index 00000000..2091f5b5 --- /dev/null +++ b/npc/030-4/mana_battery.txt @@ -0,0 +1,433 @@ + + + + +030-4,32,21,0 script AniManOMat NPC400,{ + $@XmasBattleStatusClone = 0; + callfunc "XmasStates"; + @xmas_battle_side = 0; + if ($@XmasBattleCoolDown) + goto L_CoolDown; + if (@xmas_side) + @xmas_battle_side = 1; + if ($@XmasBattleStatus) + goto L_BattleInProgress; + if (@xmas_state < $@xmas_boss_door_open_state) + goto L_ThrowOut; + if ((@xmas_boss_start) && (@xmas_state > $@xmas_boss_door_open_state)) + goto L_Helper; + if (@xmas_state == $@xmas_boss_door_open_state) + goto L_InitiateBattle; + goto L_InitiateBattle; + +L_InitiateBattle: + callfunc "XmasSetBossStart"; + if(@xmas_battle_side) + goto L_BattleBad; + goto L_BattleGood; + +L_BattleBad: + mes "[Orum's Homunculus]"; + mes "\"So this is where this whole shallow charade will end...\""; + mes "\"Good. Are you ready to get this over with?\""; + menu + "Huh? Sure, why not.", L_KeepGoing, + "Wait a sec.", L_close, + "Well... since you ask... I prefer to leave now, this is way to dangerous. I have responsibities.", L_Coward; + +L_KeepGoing: + mes "[Orums Homunculus]"; + mes "\"Okay now listen closely, at least for once.\""; + mes "\"Put the mana battery into that vessel in front of you.\""; + next; + menu + "Ok.", L_YeahOk, + "No way, I prefer to leave. Now!", L_Coward, + "Give me a second, I need to consider my options.", L_close; + +L_YeahOk: + mes "You carefully install the Mana Battery as good as you can manage."; + mes "As you bend over, you notice a strong sulphur odour coming from the crate"; + next; + mes "[Orum]"; + mes "\"Ok. now this should be enough.\""; + mes "\"Get out of here, before the bomb explodes!.\""; + menu + "Agreed.", L_StartBad, + "You know what? If I pull this lever this should become HUGE! (Beware! that's dangerous)", L_StartBadHard; + +L_BattleGood: + mes "You stare into a box that even through your unexperienced eyes looks less than secure to harbour such a powerful device as the mana battery is."; + menu + "Ok, this should be where the battery belongs.", L_StartGood, + "No WAY! I am not going to put my life in danger", L_close, + "Ok that does it, I am going to leave! I cannot be responsible for blowing up the entire mana world.", L_Coward, + "I studied magic and this looks all wrong. (Beware! that's dangerous)", L_StartGoodHard; + +L_StartGood: + if ($@XmasBattleStatus) + goto L_BattleInProgress; + @xmas_battle_status = 1; + goto L_Start; + +L_StartGoodHard: + if ($@XmasBattleStatus) + goto L_BattleInProgress; + callsub S_CheckHardReq; + delitem $@xmas_boss_req$[ @xmas_battle_side ], $@xmas_boss_amount[ @xmas_battle_side ]; + mes "You pour a handfull of " + $@xmas_boss_req$[@xmas_battle_side] + " over the Mana Battery."; + @xmas_battle_status = 2; + goto L_Start; + +L_StartBad: + if ($@XmasBattleStatus) + goto L_BattleInProgress; + @xmas_battle_status = 3; + goto L_Start; + +L_StartBadHard: + if ($@XmasBattleStatus) + goto L_BattleInProgress; + callsub S_CheckHardReq; + delitem $@xmas_boss_req$[ @xmas_battle_side ], $@xmas_boss_amount[ @xmas_battle_side ]; + mes "You pour a handfull of " + $@xmas_boss_req$[@xmas_battle_side] + " over the Mana Battery."; + @xmas_battle_status = 4; + goto L_Start; + +L_Start: + mes "You struggle a little with your task, since the mana battery doesn't seem to fit in as smooth as you expected it."; + next; + mes "W00t!"; + next; + mes "Now it is glowing wildly"; + next; + mes "it seems like this will not turn out as planned, Look this Guard of Honour is going crazy!"; + next; + npctalk strnpcinfo(0), "The Guards are out of control!"; + if ($@XmasBattleStatus) + goto L_BattleAlreadyStarted; + $@XmasBattleStatus = @xmas_battle_status; + $@XmasBattleStatusClone = $@XmasBattleStatus; + $@XmasBossRound = 0; + $@XmasBossPlayerCount = getmapusers("030-4"); + areamonster "030-4", 20, 21, 40, 40, "", 1114, 1, "AniManOMat::OnGuardDeath"; + initnpctimer; + goto L_close; + +L_ThrowOut: + // if the player didnt get a bomb yet + mes "This looks dangerous. Come back when you are prepared"; + next; + warp "030-2",151,25; + goto L_close; + +L_Coward: + //Player chose to cancel + mes "What a pitty now you still have a bomb in your hands but..."; + mes "As you wish."; + next; + warp "030-2",151,25; + goto L_close; + +L_Helper: + //Player used up his own chance to start + mes "mmh the AniManOMat is empty again, maybe we should try with a different mana battery."; + menu + "No I prefer to leave now, get me out of here.", L_Quit, + "Wait let me check if i can fix this ...(Beware!)", L_Repeat, + "Why would I do that? Aaaah... Nevermind.", L_close; + +L_Repeat: + //Player wants to try again on hard mode again + if ($@XmasBattleStatus) + goto L_BattleInProgress; + callsub S_CheckHardReq; + delitem $@xmas_boss_req$[ @xmas_battle_side ], $@xmas_boss_amount[ @xmas_battle_side ]; + @xmas_battle_status = (2 * (@xmas_battle_side)) + 2; + goto L_Start; + +L_Quit: + warp "030-2",151,25; + goto L_close; + +L_CoolDown: + mes "The AniManOMat is too hot to handle right now, you should wait a bit to try a new battery."; + menu + "No I prefer to leave now, get me out of here.", L_Quit, + "Ughhh, but I'm certain this time the battery will work!", L_close; + +L_BattleInProgress: + mes "The mana battery looks like it is about to explode. You better take cover!"; + goto L_close; + +L_BattleAlreadyStarted: + mes "Seems like someone was faster than you."; + goto L_close; + +L_close: + callsub S_ClearVariables; + close; + + // per NPC logic +OnTimer5000: + setnpctimer 0; + if ($@XmasBattleStatus) + goto L_CaveLogic; + goto L_CleanUp; + +L_Return_1: + $@XmasBossPlayerCount = 0; + areatimer 0, "030-4", 0, 0, 60, 60, 10, "AniManOMat::OnTick"; + end; + +L_CaveLogic: + if ($@XmasBossPlayerCount < 1) + goto L_AllDead; + set $@BombTimer, $@BombTimer + 5; // Advance 5 seconds + if ((mobcount("030-4", "AniManOMat::OnGuardDeath") + 1) == 0) + goto L_NextWave; + if ($@BombTimer >= 120) + goto L_NextWave; + goto L_Return_1; + +L_NextWave: + $@BombTimer = 0; + $@DangerCellNumber = rand(8); + $@XmasBossRound = $@XmasBossRound + 1; + if (($@XmasBossRound > 10) && ((mobcount("030-4", "AniManOMat::OnGuardDeath") + 1) == 0)) + goto L_Finished; + // Break/LastChance(s) + if (($@XmasBossRound > 10) && ($@XmasBossRound <= 16)) + goto L_Return_1; + //KillerWaves + if ($@XmasBossRound > 16) + areamonster "030-4", 0, 0, 50, 50, "", 1114, $@XmasBossRound*2 + $@XmasBossPlayerCount*3, "AniManOMat::OnGuardDeath"; + //Normal Waves 1 to 10 + // Guard Amount doubles if on hard mode + $@GuardAmount = 1 + (6 + ($@XmasBossRound) + (2 * $@XmasBossPlayerCount)) / 7; + $@SkullAmount = 1 + ($@GuardAmount * $@GuardAmount) / 4; + + if ($@GuardAmount > 15) + $@GuardAmount = 15; + + //Obliatory Guard Of Honour in the Southern Hallway + areamonster "030-4", 30, 43, 39, 49, "", 1114, $@GuardAmount, "AniManOMat::OnGuardDeath"; + //CopperSlimes, I love Copper Slimes anywhere anytime + areamonster "030-4", 20, 21, 49, 49, "", 1098, rand(2,7), "AniManOMat::OnGuardDeath"; + //IceSkulls for hard mode in room 3 and 4 + if ($@XmasBattleStatus == 2 || $@XmasBattleStatus == 4) + areamonster "030-4", 20, 32, 28, 39, "", 1085, $@SkullAmount / 2, "AniManOMat::OnGuardDeath"; + if ($@XmasBattleStatus == 2 || $@XmasBattleStatus == 4) + areamonster "030-4", 41, 32, 49, 39, "", 1085, $@SkullAmount / 2 + 1, "AniManOMat::OnGuardDeath"; + //Angry Sea Slimes for Easy Mode in Nice Version in Room 3,4,5,6 + if ($@XmasBattleStatus == 1) + areamonster "030-4", 20, 32, 28, 49, "", 1109, $@SkullAmount, "AniManOMat::OnGuardDeath"; + if ($@XmasBattleStatus == 1) + areamonster "030-4", 41, 32, 49, 49, "", 1109, $@SkullAmount, "AniManOMat::OnGuardDeath"; + //Candied Slimes for Nice Mode in Rooms 1 and 2 + if ($@XmasBattleStatus == 1 || $@XmasBattleStatus == 2) + areamonster "030-4", 20, 21, 28, 28, "", 1111, ($@XmasBossRound / 2) + 1, "AniManOMat::OnGuardDeath"; + if ($@XmasBattleStatus == 1 || $@XmasBattleStatus == 2) + areamonster "030-4", 41, 21, 49, 28, "", 1111, ($@XmasBossRound / 2) + 2, "AniManOMat::OnGuardDeath"; + //Bluepars for Easy mode in Naughty Variant in Rooms 3,4,5,6 + if ($@XmasBattleStatus == 3) + areamonster "030-4", 20, 32, 28, 49, "", 1107, $@SkullAmount, "AniManOMat::OnGuardDeath"; + if ($@XmasBattleStatus == 3) + areamonster "030-4", 41, 32, 49, 49, "", 1107, $@SkullAmount, "AniManOMat::OnGuardDeath"; + // Wicked Mushrooms for Naughty Mode in Rooms 1 and 2 + if ($@XmasBattleStatus == 3 || $@XmasBattleStatus == 4) + areamonster "030-4", 20, 21, 28, 28, "", 1106, $@XmasBossRound + ($@XmasBossRound / 2), "AniManOMat::OnGuardDeath"; + if ($@XmasBattleStatus == 3 || $@XmasBattleStatus == 4) + areamonster "030-4", 41, 21, 49, 28, "", 1106, $@XmasBossRound + ($@XmasBossRound / 2), "AniManOMat::OnGuardDeath"; + + $@msgnumber = (2 * $@XmasBossRound) + (($@XmasBattleStatus - 1) >> 1); + $@msg$ = $@XmasBossMes$[ $@msgnumber ]; + $@msgnumber = 0; + if ($@XmasBossRound > 10) goto L_Return_1; + callsub S_Announce; + goto L_Return_1; + +OnTick: + if (ispcdead()) end; + $@XmasBossPlayerCount = $@XmasBossPlayerCount + 1; + if(isin("030-4", $@DangerCellX1[$@DangerCellNumber], $@DangerCellY1[$@DangerCellNumber], $@DangerCellX2[$@DangerCellNumber], $@DangerCellY2[$@DangerCellNumber])) + goto L_DangerCell; + end; + +L_DangerCell: + message strcharinfo(0), "Target Aquired. Locking on Now."; + misceffect 10001, strcharinfo(0); + heal ((MaxHp/100) * -20), 0; + end; + +OnGuardDeath: + end; + +L_AllDead: + $@msg$ = $@xmas_final_announce$[ ($@XmasBattleStatus - 1) / 2 ]; + callsub S_Announce; + goto L_CleanUp; + +L_Finished: + $@msg$ = $@xmas_final_announce$[ (($@XmasBattleStatus - 1) / 2) + 2 ]; + callsub S_Announce; + goto L_CleanUp; + +L_CleanUp: + areatimer 0, "030-4", 0, 0, 50, 50, 10, "AniManOMat::OnReward"; + $@XmasBossPlayerCount = 0; + $@XmasBossRound = 0; + $@BombTimer = 0; + $@GuardAmount = 0; + $@SkullAmount = 0; + killmonster "030-4", "AniManOMat::OnGuardDeath"; + stopnpctimer; + donpcevent "#XmasChamberCooler::OnCommandCoolDown"; + end; + +OnReward: + if (ispcdead()) + end; + if (($@XmasBattleStatusClone % 2) == 0) + XMASTIME = XMASTIME | $@xmas_boss_hero_bit; + @xmas_state = (XMASTIME & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT; + @bonus = (55 - (BaseLevel / 2)); + DailyQuestBonus = DailyQuestBonus + @bonus; + message strcharinfo(0), "You feel a temporary rush of power and zest for action."; + if (@xmas_state != $@xmas_boss_door_open_state ) + goto L_End; + @xmas_state = $@xmas_reward_start; + callfunc "XmasSetState"; + @xmas_state = 0; + @karma_bonus = $@xmas_boss_bonus; + message strcharinfo(0), "Wow, what happened here?."; + goto L_End; + +L_End: + if ((($@XmasBattleStatus - 1) / 2) == 0) goto L_EndNice; + goto L_EndNaughty; + +L_EndNaughty: + callfunc "XmasNaughty"; + callsub S_ClearVariables; + end; + +L_EndNice: + callfunc "XmasNice"; + callsub S_ClearVariables; + end; + +OnCommandChamberReset: + areatimer 0, "030-4", 0, 0, 50, 50, 10, "AniManOMat::OnReward"; + $@XmasBattleStatus = 0; + $@XmasBossPlayerCount = 0; + $@XmasBossRound = 0; + $@BombTimer = 0; + $@GuardAmount = 0; + $@SkullAmount = 0; + killmonster "030-4", "AniManOMat::OnGuardDeath"; + stopnpctimer; + setnpctimer 0; + goto L_Restart; + +OnInit: + goto L_Restart; + +L_Restart: + $@XmasBattleStatus = 0; + setarray $@XmasBossMes$, + "", // unused + "", // unused + "Scrrreeeeeeeeeeeeeeeeeeeeeaaaaaaaaaaaaaaaaaaaaatch", + "Scrrreeeeeeeeeeeeeeeeeeeeeaaaaaaaaaaaaaaaaaaaaatch", + "Avalia : I am getting a weird sensation ... ", + "Orums Homunculus : I think they know what we are up to!", + "Avalia : Oh no! This is going to blow up", + "Orums Homunculus : The Door is locked you idiot, fight for your life.", + "Avalia : Guards of Honor I demand you: STOP!", + "Orums Homunculus : Okay, this is somewhat funny... why are they coming back?!?", + "Avalia : You brave fighters! Deactivate the nutcrackers! they are out of control!", + "Orums Homunculus : The good news is: if we make it this time we will never have to do that again!", + "Avalia : Oh boy we are so screwed.", + "Orums Homunculus : Report: I am an Idiot", + "Avalia : Quick, we need to kill the nutcrackers, before they ruin everything we've been working for.", + "Orums Homunculus : Strange they are getting more and not less.", + "Avalia : Oh no, they are too powerful. Fight my warriors, Fight for the spirit of Christmas.", + "Orums Homunculus : If I was smart enough to stop talking, it would have happened already..", + "Avalia : I cannot believe it, this is making them stronger. More and more of them are coming.", + "Orums Homunculus : I think we are almost done, the bomb should explode any second.", + "Avalia : Those poor creatures. Just kill them all.", + "Orums Homunculus : A N Y S E C O N D.", + "Avalia : Oh well... just try again, I trust in you.", + "Orum's Homunculus : just lol.", + "Avalia : Wow! You saved christmas.", + "Orum's Homunculus : Yep, it's over... and strange enough you survived."; + + setarray $@xmas_final_announce$, + "Avalia : Oh no, not only did you slay half my Guard of Honour, but also the issue was not fixed, try to install the battery again!", + "Orum's Homunculus : Boy are you lame. So what now? The battery is still not placed! Go try again!", + "Avalia : W00t you actually made it through. I think now that the manabattery lost some of its abundant power this seems to have given those nutcrackers that didn't go crazy a good boost of life energy. Thank you for your help all and come see me for a reward.", + "Orum's Homunculus : Good. They are dead. Now GET OUT OF THERE, this bomb is dangerous!"; + // Danger Cells to attack sitters + // 0: 19,20,29,29 + // 1: 30,20,40,29 + // 2: 41,20,50,29 + // 3: 19,31,29,40 + // 4: 30,31,40,40 + // 5: 41,31,50,40 + // 6: 19,42,29,50 + // 7: 30,42,40,50 + // 8: 41,42,50,50 + setarray $@DangerCellX1, 19, 30, 41, 19, 30, 41, 19, 30, 41; + setarray $@DangerCellY1, 20, 20, 20, 31, 31, 31, 42, 42, 42; + setarray $@DangerCellX2, 29, 40, 50, 29, 40, 50, 29, 40, 50; + setarray $@DangerCellY2, 29, 29, 29, 40, 40, 40, 50, 50, 50; + end; + +S_Announce: + mapannounce "030-4", "Danger Cell Activated. Zone " + $@DangerCellNumber + " activated.", 0; + mapannounce "030-4", $@msg$, 0; + mapannounce "030-2", $@msg$, 0; + $@msg$ = ""; + return; + +S_CheckHardReq: + if (BaseLevel < $@BossHardLevel) + goto L_NotHighEnough; + if (countitem($@xmas_boss_req$[ @xmas_battle_side ]) < $@xmas_boss_amount[ @xmas_battle_side ]) + goto L_NotEnoughItems; + goto L_Return; + +L_NotEnoughItems: + mes "Nono, you need to bring " + $@xmas_boss_amount[ @xmas_battle_side ] + " " + $@xmas_boss_req$[ @xmas_battle_side ] + "s."; + goto L_close; + +L_NotHighEnough: + mes "\"Err no sweetie, you don't. just do it the normal way.\""; + goto L_close; + +L_Return: + return; + +S_ClearVariables: + @xmas_battle_side = 0; + @bonus = 0; + @xmas_state = 0; + @xmas_battle_status = 0; + @karma_bonus = 0; + return; +} + +030-4,0,0,0 script #XmasChamberCooler NPC32767,{ + end; +OnCommandCoolDown: + $@XmasBattleStatus = 0; + $@XmasBattleCoolDown = 1; + initnpctimer; + end; + +OnTimer120000: + $@XmasBattleCoolDown = 0; + stopnpctimer; + end; +} |