/* The following code is based on ILAB OLC by Jason Dinkel */
/* Mobprogram code by Lordrom for Nevermore Mud */

#if defined(macintosh) 
#include <types.h> 
#else 
#include <sys/types.h> 
#endif 
#include <ctype.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <time.h> 
#include "merc.h" 
#include "tables.h" 
#include "olc.h" 
#include "recycle.h" 

#define MPEDIT( fun )           bool fun(CHAR_DATA *ch, char*argument) 

const struct olc_cmd_type mpedit_table[] =
{
/*      {       command         function        }, */

{ "commands", show_commands },
{ "create", mpedit_create },
{ "code", mpedit_code },
{ "show", mpedit_show },
{ "list", mpedit_list },
{ "?", show_help },

{ NULL, 0 } };

void mpedit(CHAR_DATA *ch, char *argument)
{
	MPROG_CODE *pMcode;
	char arg[MAX_INPUT_LENGTH];
	char command[MAX_INPUT_LENGTH];
	int cmd;
	AREA_DATA *ad;

	smash_tilde(argument);
	strcpy(arg, argument);
	argument = one_argument(argument, command);

	EDIT_MPCODE(ch, pMcode);

	if (pMcode)
	{
		ad = get_vnum_area(pMcode->vnum);

		if (ad == NULL) /* ??? */
		{
			edit_done(ch);
			return;
		}

		if (!IS_BUILDER(ch, ad))
		{
			send_to_char("MPEdit: Insufficient security to modify code.\n\r",
					ch);
			edit_done(ch);
			return;
		}
	}

	if (command[0] == '\0')
	{
		mpedit_show(ch, argument);
		return;
	}

	if (!str_cmp(command, "done"))
	{
		edit_done(ch);
		return;
	}

	for (cmd = 0; mpedit_table[cmd].name != NULL; cmd++)
	{
		if (!str_prefix(command, mpedit_table[cmd].name))
		{
			printf_player(ch, "(MPEDIT) %s", arg);
			if ((*mpedit_table[cmd].olc_fun)(ch, argument) && pMcode)
				if ((ad = get_vnum_area(pMcode->vnum)) != NULL)
					SET_BIT(ad->area_flags, AREA_CHANGED);
			return;
		}
	}

	interpret(ch, arg);

	return;
}

void do_mpedit(CHAR_DATA *ch, char *argument)
{
	MPROG_CODE *pMcode;
	char command[MAX_INPUT_LENGTH];

	argument = one_argument(argument, command);

	if (is_number(command))
	{
		int vnum = atoi(command);
		AREA_DATA *ad;

		if ((pMcode = get_mprog_index(vnum)) == NULL)
		{
			send_to_char("MPEdit : That vnum does not exist.\n\r", ch);
			return;
		}

		ad = get_vnum_area(vnum);

		if (ad == NULL)
		{
			send_to_char("MPEdit : Vnum not assigned to an area.\n\r", ch);
			return;
		}

		if (!IS_BUILDER(ch, ad))
		{
			send_to_char("MPEdit : Insufficient security to modify area.\n\r",
					ch);
			return;
		}

		ch->desc->pEdit = (void *) pMcode;
		ch->desc->editor = ED_MPCODE;

		return;
	}

	if (!str_cmp(command, "create"))
	{
		if (argument[0] == '\0')
		{
			send_to_char("Sintaxis : mpedit create [vnum]\n\r", ch);
			return;
		}

		mpedit_create(ch, argument);
		return;
	}

	send_to_char("Sintaxis : mpedit [vnum]\n\r", ch);
	send_to_char("           mpedit create [vnum]\n\r", ch);

	return;
}

MPEDIT (mpedit_create)
{
	MPROG_CODE *pMcode;
	int value = atoi(argument);
	AREA_DATA *ad;

	if (IS_NULLSTR(argument) || value < 1)
	{
		send_to_char("Sintaxis : mpedit create [vnum]\n\r", ch);
		return FALSE;
	}

	ad = get_vnum_area(value);

	if (ad == NULL)
	{
		send_to_char("MPEdit : VNUM not assigned to an area.\n\r", ch);
		return FALSE;
	}

	if (!IS_BUILDER(ch, ad))
	{
		send_to_char("MPEdit : Insufficient security to create MobProgs.\n\r",
				ch);
		return FALSE;
	}

	if (get_mprog_index(value))
	{
		send_to_char("MPEdit: Code vnum already exists.\n\r", ch);
		return FALSE;
	}

	pMcode = new_mpcode();
	pMcode->vnum = value;
	pMcode->next = mprog_list;
	mprog_list = pMcode;
	ch->desc->pEdit = (void *) pMcode;
	ch->desc->editor = ED_MPCODE;

	send_to_char("MobProgram Code Created.\n\r", ch);

	return TRUE;
}

MPEDIT(mpedit_show)
{
	MPROG_CODE *pMcode;
	char buf[MAX_STRING_LENGTH];

	EDIT_MPCODE(ch,pMcode);

	sprintf(buf, "Vnum:       [%d]\n\r"
		"Code:\n\r%s\n\r", pMcode->vnum, pMcode->code);
	send_to_char(buf, ch);

	return FALSE;
}

MPEDIT(mpedit_code)
{
	MPROG_CODE *pMcode;
	EDIT_MPCODE(ch, pMcode);

	if (argument[0] == '\0')
	{
		string_append(ch, &pMcode->code);
		return TRUE;
	}

	send_to_char("Syntax: code\n\r", ch);
	return FALSE;
}

MPEDIT( mpedit_list )
{
	int count = 1;
	MPROG_CODE *mprg;
	char buf[MAX_STRING_LENGTH];
	BUFFER *buffer;
	bool fAll = !str_cmp(argument, "all");
	char blah;
	AREA_DATA *ad;

	buffer = new_buf();

	for (mprg = mprog_list; mprg != NULL; mprg = mprg->next)
		if (fAll
				|| ENTRE(ch->in_room->area->min_vnum, mprg->vnum, ch->in_room->area->max_vnum))
		{
			ad = get_vnum_area(mprg->vnum);

			if (ad == NULL)
				blah = '?';
			else if (IS_BUILDER(ch, ad))
				blah = '*';
			else
				blah = ' ';

			sprintf(buf, "[%3d] (%c) %5d\n\r", count, blah, mprg->vnum);
			add_buf(buffer, buf);

			count++;
		}

	if (count == 1)
	{
		if (fAll)
			add_buf(buffer, "No existing MobPrograms.\n\r");
		else
			add_buf(buffer, "No existing MobPrograms in that area.\n\r");
	}

	page_to_char(buf_string(buffer), ch);
	free_buf(buffer);

	return FALSE;
}