/***************************************************************************
 *          This snippet was written by Donut for the Khrooon Mud.         *
 *            Original Coded by Yago Diaz <yago@cerberus.uab.es>           *
 *        	(C) June 1997	                                           *
 *        	(C) Last Modification October 1997			   *
 *		Major enhancement/neatening done by	                   *
 *					Kharas (root@fading.tcimet.net)    *
 *		(eg: Made sum_dat table, shortened function, etc)          *
 *		Rewrite summoner_data, summoner_table, ... by Yago         *
 *			November 1997					   *
 ***************************************************************************/

#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "recycle.h"
#include "tables.h"
#include "newclan.h"
#define MONEY "Gold"

struct summoner_data
{
	char *name;
	int cost;
	int vnum;
};

const struct summoner_data summoner_table[] =
{
/* Name *//* Cost *//* Vnum */
{ "The Mutant Dump", 150, 11800 },
{ "City Of Annonymous", 200, 12500 },
{ "Hell", 100, 10416 },
{ "Troy", 9000, 10983 },
{ "Divided Souls", 75, 11600 },
{ "Drakyri Isle", 100, 11700 },
{ "Sanuba Desert", 900, 42900 },
{ "Shadow Grove", 50, 1300 },
{ "Mysteria", 850, 1951 },
{ "Githyanki Keep", 300, 7750 },
{ "Keep of Mahntor", 75, 2361 },
{ "Black Water Park", 7500, 17527 },
{ "Kingdoms", 10000, 17542 },
//    { "Remort Challenge",     1000,            9400 },
		{ NULL, 0, 0 } };
DECLARE_DO_FUN( do_look );

CHAR_DATA * find_summoner( CHAR_DATA *ch );

CHAR_DATA *find_summoner(CHAR_DATA *ch)
{
	CHAR_DATA * summoner;

	for (summoner = ch->in_room->people; summoner != NULL; summoner
			= summoner->next_in_room)
	{
		if (!IS_NPC(summoner))
			continue;

		if (summoner->spec_fun == spec_lookup("spec_summoner"))
			return summoner;
	}

	if (summoner == NULL || summoner->spec_fun != spec_lookup("spec_summoner"))
	{
		send_to_char("You can't do that here.\n\r", ch);
		return NULL;
	}

	if (summoner->fighting != NULL)
	{
		send_to_char("Wait until the fighting stops.\n\r", ch);
		return NULL;
	}

	return NULL;
}

void do_travel(CHAR_DATA *ch, char *argument)
{
	CHAR_DATA *summoner, *pet;
	ROOM_INDEX_DATA *room;
	int i;
	char buf[MAX_STRING_LENGTH], arg[MAX_STRING_LENGTH];
	char arg1[MAX_STRING_LENGTH];

	argument = one_argument(argument, arg);
	argument = one_argument(argument, arg1);

	summoner = find_summoner(ch);

	if (!summoner)
		return;

	if (ch->fight_timer > 0) {
		act("$N says 'You cannot travel whilst still that bloody!'", ch, NULL, summoner, TO_CHAR);
		return;
	}

	if (arg[0] == '\0')
	{
		sprintf(buf, "You must tell me what travel you want to do:\n\r"
			"\tTRAVEL list - shows possible locations to travel to.\n\r"
			"\tTRAVEL buy <name> - Travel to selected location.");
		act("$N says '$t'", ch, buf, summoner, TO_CHAR);
		return;
	}

	if (!str_cmp(arg, "list"))
	{
		sprintf(buf, "%s says you may travel to the following locations:\n\r",
				PERS(ch,summoner));
		send_to_char(buf, ch);
		for (i = 0; summoner_table[i].name != NULL; i++)
		{
			sprintf(buf, "\t%-15s - %-3d %s\n\r", summoner_table[i].name,
					summoner_table[i].cost, MONEY);
			send_to_char(buf, ch);
		}
		return;
	}

	if (!str_cmp(arg, "buy"))
	{
		if (arg1[0] == '\0')
		{
			sprintf(buf, "You must tell me where you wish to travel");
			act("$N says '$t'.", ch, buf, summoner, TO_CHAR);
			return;
		}

		for (i = 0; summoner_table[i].name != NULL; i++)
			if (is_name(arg1, summoner_table[i].name))
				break;

		if (summoner_table[i].name == NULL)
		{
			sprintf(buf, "That location of travel is not on the list");
			act("$N says '$t'.", ch, buf, summoner, TO_CHAR);
			return;
		}

		if ((ch->silver / 100 + ch->gold + ch->platinum * 100)
				>= summoner_table[i].cost)
			send_to_char("Splendid, you have the required funds.\n\r", ch);
		else
		{
			sprintf(buf, "You don't have enough %s for my services", MONEY);
			act("$N says '$t'.", ch, buf, summoner, TO_CHAR);
			return;
		}

		room = get_room_index(summoner_table[i].vnum);

		if (!room)
		{
			send_to_char("That location's room doesn't seem to exist,"
				"Please inform your Imp.\n\r", ch);
			return;
		}

		if ((pet = ch->pet) != NULL && pet->in_room == ch->in_room)
		{
			char_from_room(pet);
			char_to_room(pet, get_room_index(summoner_table[i].vnum));
		}

		char_from_room(ch);
		char_to_room(ch, get_room_index(summoner_table[i].vnum));

		deduct_cost(ch, summoner_table[i].cost, VALUE_GOLD);
		sprintf(
				buf,
				"%s utters the words 'hasidsindsad'\n\rYou are surrounded by a violet fog.\n\r",
				summoner->short_descr);
		send_to_char(buf, ch);
		do_look(ch, "");
		return;
	}
	else
		do_travel(ch, "");
}