/**************************************************************************
*  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
*  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
*                                                                         *
*  Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael         *
*  Chastain, Michael Quan, and Mitchell Tse.                              *
*                                                                         *
*  In order to use any part of this Merc Diku Mud, you must comply with   *
*  both the original Diku license in 'license.doc' as well the Merc       *
*  license in 'license.txt'.  In particular, you may not remove either of *
*  these copyright notices.                                               *
*                                                                         *
*  Much time and thought has gone into this software and you are          *
*  benefiting.  We hope that you share your changes too.  What goes       *
*  around, comes around.                                                  *
***************************************************************************
*       ROM 2.4 is copyright 1993-1998 Russ Taylor                        *
*       ROM has been brought to you by the ROM consortium                 *
*           Russ Taylor (rtaylor@hypercube.org)                           *
*           Gabrielle Taylor (gtaylor@hypercube.org)                      *
*           Brian Moore (zump@rom.org)                                    *
*       By using this code, you have agreed to follow the terms of the    *
*       ROM license, in the file Rom24/doc/rom.license                    *
***************************************************************************
*       1stMUD ROM Derivative (c) 2001-2003 by Ryan Jennings              *
*            http://1stmud.dlmud.com/  <r-jenn@shaw.ca>                   *
***************************************************************************/

#include "merc.h"
#include "interp.h"
#include "lookup.h"
#include "tables.h"

/* random room generation procedure */
ROOM_INDEX_DATA *get_random_room(CHAR_DATA * ch)
{
	ROOM_INDEX_DATA *room;

	for (;;)
	{
		room = get_room_index(number_range(0, 65535));
		if (room != NULL)
			if (can_see_room(ch, room) && !room_is_private(room) &&
				!IS_SET(room->room_flags, ROOM_PRIVATE) &&
				!IS_SET(room->room_flags, ROOM_SOLITARY) &&
				!IS_SET(room->area->area_flags, AREA_CLOSED) &&
				!IS_SET(room->room_flags, ROOM_ARENA) &&
				!IS_SET(room->room_flags, ROOM_SAFE) && (IS_NPC(ch) ||
														 IS_SET(ch->act,
																ACT_AGGRESSIVE)
														 ||
														 !IS_SET
														 (room->room_flags,
														  ROOM_LAW)))
				break;
	}

	return room;
}

/* RT Enter portals */
CH_CMD(do_enter)
{
	ROOM_INDEX_DATA *location;

	if (ch->fighting != NULL)
		return;

	/* nifty portal stuff */
	if (!IS_NULLSTR(argument))
	{
		ROOM_INDEX_DATA *old_room;
		OBJ_DATA *portal;
		CHAR_DATA *fch, *fch_next;

		old_room = ch->in_room;

		portal = get_obj_list(ch, argument, ch->in_room->first_content);

		if (portal == NULL)
		{
			chprintln(ch, "You don't see that here.");
			return;
		}

		if (portal->item_type != ITEM_PORTAL ||
			(IS_SET(portal->value[1], EX_CLOSED) && !IS_TRUSTED(ch, ANGEL)))
		{
			chprintln(ch, "You can't seem to find a way in.");
			return;
		}

		if (!IS_TRUSTED(ch, ANGEL) &&
			!IS_SET(portal->value[2], GATE_NOCURSE) &&
			(IS_AFFECTED(ch, AFF_CURSE) ||
			 IS_SET(old_room->room_flags, ROOM_NO_RECALL)))
		{
			chprintln(ch, "Something prevents you from leaving...");
			return;
		}

		if (IS_SET(portal->value[2], GATE_RANDOM) || portal->value[3] == -1)
		{
			location = get_random_room(ch);
			portal->value[3] = location->vnum;	/* for record keeping :) */
		}
		else if (IS_SET(portal->value[2], GATE_BUGGY) && (number_percent() < 5))
			location = get_random_room(ch);
		else
			location = get_room_index(portal->value[3]);

		if (location == NULL || location == old_room ||
			!can_see_room(ch, location) || (room_is_private(location)
											&& !IS_TRUSTED(ch, IMPLEMENTOR)))
		{
			act("$p doesn't seem to go anywhere.", ch, portal, NULL, TO_CHAR);
			return;
		}

		if (IS_NPC(ch) && IS_SET(ch->act, ACT_AGGRESSIVE) &&
			IS_SET(location->room_flags, ROOM_LAW))
		{
			chprintln(ch, "Something prevents you from leaving...");
			return;
		}

		act("$n steps into $p.", ch, portal, NULL, TO_ROOM);

		if (IS_SET(portal->value[2], GATE_NORMAL_EXIT))
			act("You enter $p.", ch, portal, NULL, TO_CHAR);
		else
			act("You walk through $p and find yourself somewhere else...",
				ch, portal, NULL, TO_CHAR);

		char_from_room(ch);
		char_to_room(ch, location);

		if (IS_SET(portal->value[2], GATE_GOWITH))	/* take the gate along */
		{
			obj_from_room(portal);
			obj_to_room(portal, location);
		}

		if (IS_SET(portal->value[2], GATE_NORMAL_EXIT))
			act("$n has arrived.", ch, portal, NULL, TO_ROOM);
		else
			act("$n has arrived through $p.", ch, portal, NULL, TO_ROOM);

		do_function(ch, &do_look, "auto");

		/* charges */
		if (portal->value[0] > 0)
		{
			portal->value[0]--;
			if (portal->value[0] == 0)
				portal->value[0] = -1;
		}

		/* protect against circular follows */
		if (old_room == location)
			return;

		for (fch = old_room->first_person; fch != NULL; fch = fch_next)
		{
			fch_next = fch->next_in_room;

			if (portal == NULL || portal->value[0] == -1)
				/* no following through dead portals */
				continue;

			if (fch->master == ch && IS_AFFECTED(fch, AFF_CHARM) &&
				fch->position < POS_STANDING)
				do_function(fch, &do_stand, "");

			if (fch->master == ch && fch->position == POS_STANDING)
			{

				if (IS_SET(ch->in_room->room_flags, ROOM_LAW) &&
					(IS_NPC(fch) && IS_SET(fch->act, ACT_AGGRESSIVE)))
				{
					act("You can't bring $N into the city.",
						ch, NULL, fch, TO_CHAR);
					act("You aren't allowed in the city.",
						fch, NULL, NULL, TO_CHAR);
					continue;
				}

				act("You follow $N.", fch, NULL, ch, TO_CHAR);
				do_function(fch, &do_enter, argument);
			}
		}

		if (portal != NULL && portal->value[0] == -1)
		{
			act("$p fades out of existence.", ch, portal, NULL, TO_CHAR);
			if (ch->in_room == old_room)
				act("$p fades out of existence.", ch, portal, NULL, TO_ROOM);
			else if (old_room->first_person != NULL)
			{
				act("$p fades out of existence.",
					old_room->first_person, portal, NULL, TO_CHAR);
				act("$p fades out of existence.",
					old_room->first_person, portal, NULL, TO_ROOM);
			}
			extract_obj(portal);
		}

		/* 
		 * If someone is following the char, these triggers get activated
		 * for the followers before the char, but it's safer this way...
		 */
		if (IS_NPC(ch) && HAS_TRIGGER_MOB(ch, TRIG_ENTRY))
			p_percent_trigger(ch, NULL, NULL, NULL, NULL, NULL, TRIG_ENTRY);
		if (!IS_NPC(ch))
		{
			p_greet_trigger(ch, PRG_MPROG);
			p_greet_trigger(ch, PRG_OPROG);
			p_greet_trigger(ch, PRG_RPROG);
		}

		return;
	}

	chprintln(ch, "Nope, can't do it.");
	return;
}

CH_CMD(do_worship)
{
	CHAR_DATA *priest;
	DEITY_DATA *i;

	if (IS_NULLSTR(argument))
	{
		chprintln(ch, "Syntax: worship <deity>");
		chprintln(ch, "      : worship list");
		return;
	}

	if (!str_cmp(argument, "list"))
	{
		for (i = deity_first; i; i = i->next)
			chprintlnf(ch, "\t%-12s : %s", i->name, i->desc);

		return;
	}

	for (priest = ch->in_room->first_person; priest != NULL;
		 priest = priest->next_in_room)
		if (IS_NPC(priest) && IS_SET(priest->act, ACT_IS_HEALER))
			break;

	if (priest == NULL)
	{
		chprintln(ch, "There is no priest here!");
		return;
	}

	if (ch->pcdata->questpoints < 250)
	{
		chprintln(ch, "You need 250 questpoints to change your deity.");
		return;
	}

	i = deity_lookup(argument);

	if (i == NULL)
	{
		chprintln(ch, "That deity doesn't exist.");
		return;
	}

	ch->deity = i;
	chprintlnf(ch, "You now worship %s.", i->name);
	ch->pcdata->questpoints -= 250;
	return;
}