diff options
Diffstat (limited to 'src/q_invas.cc')
-rw-r--r-- | src/q_invas.cc | 222 |
1 files changed, 222 insertions, 0 deletions
diff --git a/src/q_invas.cc b/src/q_invas.cc new file mode 100644 index 00000000..64483d28 --- /dev/null +++ b/src/q_invas.cc @@ -0,0 +1,222 @@ +#include "q_invas.hpp" + +#include "cave.hpp" +#include "cave_type.hpp" +#include "hook_chardump_in.hpp" +#include "hook_monster_death_in.hpp" +#include "hook_monster_ai_in.hpp" +#include "hook_monster_ai_out.hpp" +#include "hook_stair_in.hpp" +#include "hooks.hpp" +#include "init1.hpp" +#include "monster2.hpp" +#include "monster_type.hpp" +#include "player_type.hpp" +#include "tables.hpp" +#include "town_type.hpp" +#include "util.hpp" +#include "variable.hpp" + +#define cquest (quest[QUEST_INVASION]) + +static bool_ quest_invasion_gen_hook(void *, void *, void *) +{ + int x, y; + int xstart = 2; + int ystart = 2; + + if (p_ptr->inside_quest != QUEST_INVASION) return FALSE; + + /* Start with perm walls */ + for (y = 0; y < cur_hgt; y++) + { + for (x = 0; x < cur_wid; x++) + { + cave_set_feat(y, x, FEAT_PERM_SOLID); + } + } + dun_level = quest[p_ptr->inside_quest].level; + + /* Set the correct monster hook */ + set_mon_num_hook(); + + /* Prepare allocation table */ + get_mon_num_prep(); + + init_flags = INIT_CREATE_DUNGEON; + process_dungeon_file("maeglin.map", &ystart, &xstart, cur_hgt, cur_wid, TRUE, TRUE); + + for (x = 3; x < xstart; x++) + for (y = 3; y < ystart; y++) + { + if (cave[y][x].feat == FEAT_MARKER) + { + cquest.data[0] = y; + cquest.data[1] = x; + p_ptr->py = y; + p_ptr->px = x; + cave_set_feat(p_ptr->py, p_ptr->px, FEAT_LESS); + } + } + + return TRUE; +} + +static bool_ quest_invasion_ai_hook(void *, void *in_, void *out_) +{ + struct hook_monster_ai_in *in = static_cast<struct hook_monster_ai_in *>(in_); + struct hook_monster_ai_out *out = static_cast<struct hook_monster_ai_out *>(out_); + monster_type *m_ptr = in->m_ptr; + s32b m_idx = in->m_idx; + + if (p_ptr->inside_quest != QUEST_INVASION) return FALSE; + + /* Ugly but thats better than a call to test_monster_name which is SLOW */ + if (m_ptr->r_idx == 825) + { + /* Oups he fleed */ + if ((m_ptr->fy == cquest.data[0]) && (m_ptr->fx == cquest.data[1])) + { + delete_monster_idx(m_idx); + + cmsg_print(TERM_YELLOW, "Maeglin found the way to Gondolin! All hope is lost now!"); + cquest.status = QUEST_STATUS_FAILED; + town_info[2].destroyed = TRUE; + return (FALSE); + } + + /* Attack or flee ?*/ + if (distance(m_ptr->fy, m_ptr->fx, p_ptr->py, p_ptr->px) <= 2) + { + return (FALSE); + } + else + { + out->y = cquest.data[0]; + out->x = cquest.data[1]; + return (TRUE); + } + } + + return (FALSE); +} + +static bool_ quest_invasion_turn_hook(void *, void *, void *) +{ + if (cquest.status != QUEST_STATUS_UNTAKEN) return (FALSE); + if (p_ptr->lev < 45) return (FALSE); + + /* Wait until the end of the current quest */ + if (p_ptr->inside_quest) return ( FALSE); + + /* Wait until the end of the astral mode */ + if (p_ptr->astral) return ( FALSE); + + /* Ok give the quest */ + cmsg_print(TERM_YELLOW, "A Thunderlord appears in front of you and says:"); + cmsg_print(TERM_YELLOW, "'Hello, noble hero. I am Liron, rider of Tolan. Turgon, King of Gondolin sent me.'"); + cmsg_print(TERM_YELLOW, "'Gondolin is being invaded; he needs your help now or everything will be lost.'"); + cmsg_print(TERM_YELLOW, "'Please come quickly!'"); + + cquest.status = QUEST_STATUS_TAKEN; + + quest_invasion_init_hook(QUEST_INVASION); + del_hook_new(HOOK_END_TURN, quest_invasion_turn_hook); + process_hooks_restart = TRUE; + + return (FALSE); +} + +static bool_ quest_invasion_dump_hook(void *, void *in_, void *) +{ + struct hook_chardump_in *in = static_cast<struct hook_chardump_in *>(in_); + FILE *f = in->file; + + if (cquest.status == QUEST_STATUS_FAILED) + { + fprintf(f, "\n You abandoned Gondolin when it most needed you, thus causing its destruction."); + } + if ((cquest.status == QUEST_STATUS_FINISHED) || (cquest.status == QUEST_STATUS_REWARDED) || (cquest.status == QUEST_STATUS_COMPLETED)) + { + fprintf(f, "\n You saved Gondolin from destruction."); + } + return (FALSE); +} + +static bool_ quest_invasion_death_hook(void *, void *in_, void *) +{ + struct hook_monster_death_in *in = static_cast<struct hook_monster_death_in *>(in_); + s32b m_idx = in->m_idx; + s32b r_idx = m_list[m_idx].r_idx; + + if (p_ptr->inside_quest != QUEST_INVASION) return FALSE; + + if (r_idx == test_monster_name("Maeglin, the Traitor of Gondolin")) + { + cmsg_print(TERM_YELLOW, "You did it! Gondolin will remain hidden."); + cquest.status = QUEST_STATUS_COMPLETED; + + del_hook_new(HOOK_MONSTER_DEATH, quest_invasion_death_hook); + process_hooks_restart = TRUE; + + return (FALSE); + } + + return FALSE; +} + +static bool_ quest_invasion_stair_hook(void *, void *in_, void *) +{ + struct hook_stair_in *in = static_cast<struct hook_stair_in *>(in_); + + if (p_ptr->inside_quest != QUEST_INVASION) return FALSE; + + if (cave[p_ptr->py][p_ptr->px].feat != FEAT_LESS) return TRUE; + + if (in->direction == STAIRS_UP) + { + if (cquest.status == QUEST_STATUS_FAILED) + { + cmsg_print(TERM_YELLOW, "The armies of Morgoth totally devastated Gondolin, leaving nothing but ruins..."); + } + else if (cquest.status == QUEST_STATUS_COMPLETED) + { + cmsg_print(TERM_YELLOW, "Turgon appears before you and speaks:"); + cmsg_print(TERM_YELLOW, "'I will never be able to thank you enough.'"); + cmsg_print(TERM_YELLOW, "'My most powerful mages will cast a powerful spell for you, giving you extra life.'"); + + p_ptr->hp_mod += 150; + p_ptr->update |= (PU_HP); + cquest.status = QUEST_STATUS_FINISHED; + } + else + { + /* Flush input */ + flush(); + + if (!get_check("Really abandon the quest?")) return TRUE; + cmsg_print(TERM_YELLOW, "You flee away from Maeglin and his army..."); + cquest.status = QUEST_STATUS_FAILED; + town_info[2].destroyed = TRUE; + } + del_hook_new(HOOK_STAIR, quest_invasion_stair_hook); + process_hooks_restart = TRUE; + return (FALSE); + } + + return TRUE; +} + +bool_ quest_invasion_init_hook(int q_idx) +{ + add_hook_new(HOOK_END_TURN, quest_invasion_turn_hook, "invasion_turn", NULL); + add_hook_new(HOOK_CHAR_DUMP, quest_invasion_dump_hook, "invasion_dump", NULL); + if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED)) + { + add_hook_new(HOOK_MONSTER_AI, quest_invasion_ai_hook, "invasion_ai", NULL); + add_hook_new(HOOK_GEN_QUEST, quest_invasion_gen_hook, "invasion_gen", NULL); + add_hook_new(HOOK_MONSTER_DEATH, quest_invasion_death_hook, "invasion_death", NULL); + add_hook_new(HOOK_STAIR, quest_invasion_stair_hook, "invasion_stair", NULL); + } + return (FALSE); +} |