/**************************************************************************
*  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-2004 by Markanth                *
*            http://www.firstmud.com/  <markanth@firstmud.com>            *
*         By using this code you have agreed to follow the term of        *
*             the 1stMud license in ../doc/1stMud/LICENSE                 *
***************************************************************************/

#include "merc.h"
#include "recycle.h"
#include "interp.h"
#include "globals.h"
#include "data_table.h"
#include "olc.h"

DataTable wiz_data_table[] = {
	DTE(STRING, wiz, name, NULL, NULL, str, NULL),
	DTE(STRING, wiz, email, NULL, NULL, str, NULL),
	DTE(STRING, wiz, jobs, NULL, NULL, str, NULL),
	DTE(INT, wiz, level, NULL, NULL, int, NULL),
	DTE_END
};

TableSave_Fun(rw_wiz_data)
{
	rw_list(type, WIZ_FILE, WizData, wiz);
}

void add_to_wizlist(WizData * wiz)
{
	WizData *tmp;

	for (tmp = wiz_first; tmp; tmp = tmp->next)

	{
		if (wiz->level > tmp->level)

		{
			Insert(wiz, tmp, wiz, next, prev);
			break;
		}
	}
	if (!tmp)
		Link(wiz, wiz, next, prev);
}

Do_Fun(do_wizlist)
{
	char arg1[MIL];
	char arg2[MIL];
	WizData *curr;
	WizData *next;
	bool found = false;

	argument = first_arg(argument, arg1, false);
	argument = first_arg(argument, arg2, false);

	if (!NullStr(arg1) && (ch->level >= MAX_LEVEL - 1))
	{
		if (!str_prefix(arg1, "add"))
		{
			int level;

			if (!is_number(arg2) || NullStr(argument))
			{
				cmd_syntax(ch, NULL, n_fun, "add <level> <name>", NULL);
				return;
			}
			level = atoi(arg2);
			if ((level < LEVEL_IMMORTAL) || (level > MAX_LEVEL))

			{
				cmd_syntax(ch, NULL, n_fun, "add <level> <name>", NULL);
				return;
			}
			curr = new_wiz();
			replace_str(&curr->name, capitalize(argument));
			replace_str(&curr->email, "-Use Personal Board-");
			replace_str(&curr->jobs, "Nothing yet.");
			curr->level = level;
			add_to_wizlist(curr);
			rw_wiz_data(act_write);
			return;
		}
		if (!str_prefix(arg1, "delete"))
		{
			if (NullStr(arg2))
			{
				cmd_syntax(ch, NULL, n_fun, "delete <name>", NULL);
				return;
			}
			for (curr = wiz_first; curr != NULL; curr = next)
			{
				next = curr->next;
				if (!str_cmp(arg2, curr->name))
				{
					found = true;
					UnLink(curr, wiz, next, prev);
					free_wiz(curr);
				}
			}
			if (found)
			{
				chprintlnf(ch, "%s deleted.", capitalize(arg2));
				rw_wiz_data(act_write);
			}
			else
				chprintlnf(ch, "%s not found.", capitalize(arg2));
			return;
		}
		if (!str_prefix(arg1, "email"))
		{
			if (NullStr(arg2) || NullStr(argument))
			{
				cmd_syntax(NULL, n_fun, "email <name> <email>", NULL);
				return;
			}
			if ((argument = is_invalid_email(strip_color(argument))) != NULL)
			{
				chprintln(ch, argument);
				return;
			}
			for (curr = wiz_first; curr != NULL; curr = curr->next)
			{
				if (!str_cmp(arg2, curr->name))
				{
					replace_str(&curr->email, argument);
					rw_wiz_data(act_write);
					break;
				}
			}
			if (curr)
				chprintlnf(ch, "%s's email changed to %s.", curr->name,
						   curr->email);
			else
				chprintlnf(ch, "%s not found.", capitalize(arg2));
			return;
		}
		if (!str_prefix(arg1, "jobs"))
		{
			if (NullStr(arg2) || NullStr(argument))
			{
				cmd_syntax(ch, NULL, n_fun, "jobs <name> <jobs>", NULL);
				return;
			}
			for (curr = wiz_first; curr != NULL; curr = curr->next)
			{
				if (!str_cmp(arg2, curr->name))
				{
					replace_str(&curr->jobs, argument);
					rw_wiz_data(act_write);
					break;
				}
			}
			if (curr)
				chprintlnf(ch, "%s's jobs are now %s.", curr->name,
						   curr->jobs);
			else
				chprintlnf(ch, "%s not found.", capitalize(arg2));
			return;
		}
		cmd_syntax(ch, NULL, n_fun, "delete <name>", "add <level> <name>",
				   "email <name <addr>", "jobs <name> <descr>", NULL);
		return;
	}
	if (wiz_first == NULL)
	{
		chprintln(ch, "No immortals listed at this time.");
		return;
	}
	chprintln(ch, "\n\r                      {=Wo{x");
	chprintln(ch, "                     {=W/{x");
	chprintln(ch,
			  "                    {=W/{=Y------------------------------------{x");
	chprintln(ch,
			  "  {=W========={=Go{=W[[[{1O{=W][[[{=Y< @ |-|.|`|>,<>`|.  <>|''  < <> |>,|]>>========={x");
	chprintln(ch,
			  "                    {=W\\{=Y------------------------------------{x");
	chprintln(ch, "                     {=W\\{x");
	chprintln(ch, "                      {=Wo{x\n\r");
	chprintln(ch, "                        {CIMMORTALS OF {N{x" NEWLINE);
	for (curr = wiz_first; curr != NULL; curr = curr->next)
	{
		chprintlnf(ch,
				   "                  {w[{R%3d{w]{W %s ({w%s{W) in charge of {w%s{W.{x",
				   curr->level, str_width(10, curr->name), curr->email,
				   curr->jobs);
		found = true;
	}
	if (!found)
		chprintln(ch,
				  "                   {WNo Immortals Found At This Time.{x");
	chprintln(ch, NULL);
	return;
}

void update_wizlist(CharData * ch, int level)
{
	WizData *next;
	WizData *curr;
	char jobs[MIL];

	if (IsNPC(ch))
		return;

	for (curr = wiz_first; curr != NULL; curr = next)
	{
		next = curr->next;
		if (curr->level < LEVEL_IMMORTAL || !str_cmp(ch->name, curr->name))
		{
			strcpy(jobs, curr->jobs);
			UnLink(curr, wiz, next, prev);
			free_wiz(curr);
			break;
		}
	}
	if (level < LEVEL_IMMORTAL)
	{
		rw_wiz_data(act_write);
		return;
	}
	curr = new_wiz();
	replace_str(&curr->name, ch->name);
	replace_str(&curr->email,
				GetStr(ch->pcdata->email, "-User Personal Board-"));
	replace_str(&curr->jobs, GetStr(jobs, "nothing yet"));
	curr->level = level;
	add_to_wizlist(curr);
	rw_wiz_data(act_write);
	return;
}