diff options
Diffstat (limited to 'src/q_troll.c')
| -rw-r--r-- | src/q_troll.c | 180 |
1 files changed, 180 insertions, 0 deletions
diff --git a/src/q_troll.c b/src/q_troll.c new file mode 100644 index 00000000..b019b673 --- /dev/null +++ b/src/q_troll.c @@ -0,0 +1,180 @@ +#undef cquest +#define cquest (quest[QUEST_TROLL]) + +bool quest_troll_gen_hook(char *fmt) +{ + int x, y; + int xstart = 2; + int ystart = 2; + + if (p_ptr->inside_quest != QUEST_TROLL) 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_full = TRUE; + process_dungeon_file(NULL, "trolls.map", &ystart, &xstart, cur_hgt, cur_wid, TRUE); + process_dungeon_file_full = FALSE; + + for (x = 3; x < xstart; x++) + for (y = 3; y < ystart; y++) + { + if (cave[y][x].feat == FEAT_MARKER) + { + int m_idx; + + m_allow_special[test_monster_name("Tom the Stone Troll")] = TRUE; + m_idx = place_monster_one(y, x, test_monster_name("Tom the Stone Troll"), 0, FALSE, MSTATUS_ENEMY); + m_allow_special[test_monster_name("Tom the Stone Troll")] = FALSE; + + if (m_idx) + { + int o_idx; + + /* Get local object */ + object_type forge, *q_ptr = &forge; + + a_allow_special[ART_GLAMDRING] = TRUE; + + /* Mega-Hack -- Prepare to make "Glamdring" */ + object_prep(q_ptr, lookup_kind(TV_SWORD, SV_BROAD_SWORD)); + + /* Mega-Hack -- Mark this item as "Glamdring" */ + q_ptr->name1 = ART_GLAMDRING; + + /* Mega-Hack -- Actually create "Glamdring" */ + apply_magic(q_ptr, -1, TRUE, TRUE, TRUE); + + a_allow_special[ART_GLAMDRING] = FALSE; + + /* Get new object */ + o_idx = o_pop(); + + if (o_idx) + { + /* Get the item */ + object_type *o_ptr = &o_list[o_idx]; + + /* Structure copy */ + object_copy(o_ptr, q_ptr); + + /* Build a stack */ + o_ptr->next_o_idx = m_list[m_idx].hold_o_idx; + + o_ptr->held_m_idx = m_idx; + o_ptr->ix = 0; + o_ptr->iy = 0; + + m_list[m_idx].hold_o_idx = o_idx; + } + else + { + a_info[q_ptr->name1].cur_num = 0; + } + } + } + } + + /* Reinitialize the ambush ... hehehe */ + cquest.data[0] = FALSE; + return TRUE; +} +bool quest_troll_finish_hook(char *fmt) +{ + s32b q_idx; + + q_idx = get_next_arg(fmt); + + if (q_idx != QUEST_TROLL) return FALSE; + + c_put_str(TERM_YELLOW, "I heard about your noble deeds.", 8, 0); + c_put_str(TERM_YELLOW, "Keep what you found... may it serve you well.", 9, 0); + + /* Continue the plot */ + *(quest[q_idx].plot) = QUEST_NAZGUL; + quest[*(quest[q_idx].plot)].init(*(quest[q_idx].plot)); + + del_hook(HOOK_QUEST_FINISH, quest_troll_finish_hook); + process_hooks_restart = TRUE; + + return TRUE; +} +bool quest_troll_death_hook(char *fmt) +{ + int x, y, xstart = 2, ystart = 2; + 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_TROLL) return FALSE; + + if (r_idx == test_monster_name("Tom the Stone Troll")) + { + cave_set_feat(3, 3, FEAT_LESS); + cave[3][3].special = 0; + + cmsg_print(TERM_YELLOW, "Without Tom, the trolls won't be able to do much."); + cquest.status = QUEST_STATUS_COMPLETED; + del_hook(HOOK_MONSTER_DEATH, quest_troll_death_hook); + process_hooks_restart = TRUE; + return (FALSE); + } + + init_flags = INIT_GET_SIZE; + process_dungeon_file_full = TRUE; + process_dungeon_file(NULL, "trolls.map", &ystart, &xstart, cur_hgt, cur_wid, TRUE); + process_dungeon_file_full = FALSE; + + if (cquest.data[0]) return FALSE; + + cquest.data[0] = TRUE; + + msg_print("Oops, seems like an ambush..."); + + for (x = 3; x < xstart; x++) + for (y = 3; y < ystart; y++) + { + cave_type *c_ptr = &cave[y][x]; + + /* Ahah ! */ + if (c_ptr->info & CAVE_SPEC) + { + int r_idx; + + cave_set_feat(y, x, FEAT_GRASS); + c_ptr->info &= ~CAVE_SPEC; + + r_idx = (rand_int(2) == 0) ? test_monster_name("Forest troll") : test_monster_name("Stone troll"); + place_monster_one(y, x, r_idx, 0, FALSE, MSTATUS_ENEMY); + } + } + + return FALSE; +} +bool quest_troll_init_hook(int q_idx) +{ + if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED)) + { + add_hook(HOOK_MONSTER_DEATH, quest_troll_death_hook, "troll_death"); + add_hook(HOOK_GEN_QUEST, quest_troll_gen_hook, "troll_gen"); + add_hook(HOOK_QUEST_FINISH, quest_troll_finish_hook, "troll_finish"); + } + return (FALSE); +} |