From cbef37bd5bfb938a2303ee3887520c08be85d8e8 Mon Sep 17 00:00:00 2001
From: Bardur Arantsson <bardur@scientician.net>
Date: Tue, 26 Mar 2013 17:10:10 +0100
Subject: Switch almost everything over to C++

---
 src/q_troll.cc | 183 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 183 insertions(+)
 create mode 100644 src/q_troll.cc

(limited to 'src/q_troll.cc')

diff --git a/src/q_troll.cc b/src/q_troll.cc
new file mode 100644
index 00000000..4a38f2d0
--- /dev/null
+++ b/src/q_troll.cc
@@ -0,0 +1,183 @@
+#include "q_troll.h"
+#include "hooks.h"
+
+#define cquest (quest[QUEST_TROLL])
+
+static bool_ quest_troll_gen_hook(const 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("trolls.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)
+			{
+				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;
+
+					m_list[m_idx].mflag |= MFLAG_QUEST;
+
+					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;
+}
+
+static bool_ quest_troll_finish_hook(const 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;
+}
+
+static bool_ quest_troll_death_hook(const 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("trolls.map", &ystart, &xstart, cur_hgt, cur_wid, TRUE, TRUE);
+
+	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);
+}
-- 
cgit v1.2.3