#undef cquest
#define cquest (quest[QUEST_BETWEEN])

bool_ quest_between_move_hook(char *fmt)
{
	s32b y;
	s32b x;
	cave_type *c_ptr;

	y = get_next_arg(fmt);
	x = get_next_arg(fmt);
	c_ptr = &cave[y][x];

	if (cquest.status != QUEST_STATUS_TAKEN) return FALSE;

	/* The tower of Turgon */
	if ((c_ptr->feat == FEAT_SHOP) && (c_ptr->special == 27))
	{
		cmsg_print(TERM_YELLOW, "Turgon is there.");
		cmsg_print(TERM_YELLOW, "'Ah, thank you, noble hero! Now please return to Minas Anor to finish the link.'");

		cquest.status = QUEST_STATUS_COMPLETED;

		return TRUE;
	}

	/* Only 1 ambush */
	if (cquest.data[0]) return (FALSE);

	if (!p_ptr->wild_mode)
	{
		if (p_ptr->wilderness_y > 19) return (FALSE);
	}
	else
	{
		if (p_ptr->py > 19) return (FALSE);
	}

	/* Mark as entered */
	cquest.data[0] = TRUE;

	p_ptr->wild_mode = FALSE;
	p_ptr->inside_quest = QUEST_BETWEEN;
	p_ptr->leaving = TRUE;

	cmsg_print(TERM_YELLOW, "Looks like a full wing of thunderlords ambushes you!");
	cmsg_print(TERM_YELLOW, "Trone steps forth and speaks: 'The secret of the Void Jumpgates");
	cmsg_print(TERM_YELLOW, "will not be used by any but the thunderlords!'");

	return FALSE;
}
bool_ quest_between_gen_hook(char *fmt)
{
	int x, y;
	int xstart = 2;
	int ystart = 2;

	if (p_ptr->inside_quest != QUEST_BETWEEN) 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, "between.map", &ystart, &xstart, cur_hgt, cur_wid, TRUE);
	process_dungeon_file_full = FALSE;

	/* Otherwise instadeath */
	energy_use = 0;

	dungeon_flags2 |= DF2_NO_GENO;

	return TRUE;
}
bool_ quest_between_finish_hook(char *fmt)
{
	s32b q_idx;
	object_type forge, *q_ptr;

	q_idx = get_next_arg(fmt);

	if (q_idx != QUEST_BETWEEN) return FALSE;

	c_put_str(TERM_YELLOW, "Ah you finally arrived, I hope your travel wasn't too hard.", 8, 0);
	c_put_str(TERM_YELLOW, "As a reward you can freely use the Void Jumpgates for quick travel.", 9, 0);
	c_put_str(TERM_YELLOW, "Oh and take that horn, it shall serve you well.", 10, 0);

	/* prepare the reward */
	q_ptr = &forge;
	object_prep(q_ptr, test_item_name("& Golden Horn~ of the Thunderlords"));
	q_ptr->found = OBJ_FOUND_REWARD;
	q_ptr->number = 1;


	/* Mega-Hack -- Actually create the Golden Horn of the Thunderlords */
	k_allow_special[test_item_name("& Golden Horn~ of the Thunderlords")] = TRUE;
	apply_magic(q_ptr, -1, TRUE, TRUE, TRUE);
	k_allow_special[test_item_name("& Golden Horn~ of the Thunderlords")] = FALSE;
	object_aware(q_ptr);
	object_known(q_ptr);
	q_ptr->discount = 100;
	q_ptr->ident |= IDENT_STOREB;
	(void)inven_carry(q_ptr, FALSE);

	/* Continue the plot */
	*(quest[q_idx].plot) = QUEST_NULL;

	del_hook(HOOK_QUEST_FINISH, quest_between_finish_hook);
	process_hooks_restart = TRUE;

	return TRUE;
}
bool_ quest_between_death_hook(char *fmt)
{
	int i, mcnt = 0;

	if (p_ptr->inside_quest != QUEST_BETWEEN) return FALSE;

	for (i = m_max - 1; i >= 1; i--)
	{
		/* Access the monster */
		monster_type *m_ptr = &m_list[i];

		/* Ignore "dead" monsters */
		if (!m_ptr->r_idx) continue;

		if (m_ptr->status <= MSTATUS_NEUTRAL) mcnt++;
	}

	if (mcnt < 2)
	{
		cmsg_print(TERM_YELLOW, "You can escape now.");
		cave_set_feat(p_ptr->py, p_ptr->px, FEAT_LESS);
		cave[p_ptr->py][p_ptr->px].special = 0;

		return FALSE;
	}


	return FALSE;
}
bool_ quest_between_dump_hook(char *fmt)
{
	if (cquest.status >= QUEST_STATUS_COMPLETED)
	{
		fprintf(hook_file, "\n You established a permanent void jumpgates liaison between Minas Anor and Gondolin,");
		fprintf(hook_file, "\n  thus allowing the last alliance to exist.");
	}
	return (FALSE);
}
bool_ quest_between_forbid_hook(char *fmt)
{
	s32b q_idx;
	q_idx = get_next_arg(fmt);

	if (q_idx != QUEST_BETWEEN) return (FALSE);

	if (p_ptr->lev < 45)
	{
		c_put_str(TERM_WHITE, "I fear you are not ready for the next quest, come back later.", 8, 0);
		return (TRUE);
	}
	return (FALSE);
}
bool_ quest_between_init_hook(int q)
{
	if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED))
	{
		add_hook(HOOK_MOVE, quest_between_move_hook, "between_move");
		add_hook(HOOK_GEN_QUEST, quest_between_gen_hook, "between_gen");
		add_hook(HOOK_QUEST_FINISH, quest_between_finish_hook, "between_finish");
		add_hook(HOOK_MONSTER_DEATH, quest_between_death_hook, "between_death");
	}
	add_hook(HOOK_CHAR_DUMP, quest_between_dump_hook, "between_dump");
	add_hook(HOOK_INIT_QUEST, quest_between_forbid_hook, "between_forbid");
	return (FALSE);
}
