diff options
Diffstat (limited to 'src/q_invas.c')
| -rw-r--r-- | src/q_invas.c | 201 |
1 files changed, 0 insertions, 201 deletions
diff --git a/src/q_invas.c b/src/q_invas.c deleted file mode 100644 index 59c71d62..00000000 --- a/src/q_invas.c +++ /dev/null @@ -1,201 +0,0 @@ -#undef cquest -#define cquest (quest[QUEST_INVASION]) - -bool_ quest_invasion_gen_hook(char *fmt) -{ - 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; -} -bool_ quest_invasion_ai_hook(char *fmt) -{ - monster_type *m_ptr; - s32b m_idx; - - m_idx = get_next_arg(fmt); - m_ptr = &m_list[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 - { - process_hooks_return[0].num = cquest.data[0]; - process_hooks_return[1].num = cquest.data[1]; - return (TRUE); - } - } - - return (FALSE); -} -bool_ quest_invasion_turn_hook(char *fmt) -{ - bool_ old_quick_messages = quick_messages; - - 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 */ - quick_messages = FALSE; - 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; - - quick_messages = old_quick_messages; - - quest_invasion_init_hook(QUEST_INVASION); - del_hook(HOOK_END_TURN, quest_invasion_turn_hook); - process_hooks_restart = TRUE; - return (FALSE); -} -bool_ quest_invasion_dump_hook(char *fmt) -{ - if (cquest.status == QUEST_STATUS_FAILED) - { - fprintf(hook_file, "\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(hook_file, "\n You saved Gondolin from destruction."); - } - return (FALSE); -} -bool_ quest_invasion_death_hook(char *fmt) -{ - s32b r_idx, m_idx; - - m_idx = get_next_arg(fmt); - 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(HOOK_MONSTER_DEATH, quest_invasion_death_hook); - process_hooks_restart = TRUE; - return (FALSE); - } - - return FALSE; -} -bool_ quest_invasion_stair_hook(char *fmt) -{ - cptr down; - - down = get_next_arg_str(fmt); - - if (p_ptr->inside_quest != QUEST_INVASION) return FALSE; - - if (cave[p_ptr->py][p_ptr->px].feat != FEAT_LESS) return TRUE; - - if (!strcmp(down, "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(HOOK_STAIR, quest_invasion_stair_hook); - process_hooks_restart = TRUE; - return (FALSE); - } - - return TRUE; -} -bool_ quest_invasion_init_hook(int q_idx) -{ - add_hook(HOOK_END_TURN, quest_invasion_turn_hook, "invasion_turn"); - add_hook(HOOK_CHAR_DUMP, quest_invasion_dump_hook, "invasion_dump"); - if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED)) - { - add_hook(HOOK_MONSTER_AI, quest_invasion_ai_hook, "invasion_ai"); - add_hook(HOOK_GEN_QUEST, quest_invasion_gen_hook, "invasion_gen"); - add_hook(HOOK_MONSTER_DEATH, quest_invasion_death_hook, "invasion_death"); - add_hook(HOOK_STAIR, quest_invasion_stair_hook, "invasion_stair"); - } - return (FALSE); -} |