/**************************************************************************/
// flags.cpp - implementation of do_flag() - needs a rewrite
/***************************************************************************
 * The Dawn of Time v1.69r (c)1997-2004 Michael Garratt                    *
 * >> A number of people have contributed to the Dawn codebase, with the   *
 *    majority of code written by Michael Garratt - www.dawnoftime.org     *
 * >> To use this source code, you must fully comply with all the licenses *
 *    in licenses.txt... In particular, you may not remove this copyright  *
 *    notice.                                                              *
 ***************************************************************************
 * >> Original Diku Mud copyright (c)1990, 1991 by Sebastian Hammer,       *
 *    Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, & Katja Nyboe.   *
 * >> Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael       *
 *    Chastain, Michael Quan, and Mitchell Tse.                            *
 * >> ROM 2.4 is copyright 1993-1995 Russ Taylor and has been brought to   *
 *    you by the ROM consortium: Russ Taylor(rtaylor@pacinfo.com),         *
 *    Gabrielle Taylor(gtaylor@pacinfo.com) & Brian Moore(rom@rom.efn.org) *
 * >> Oblivion 1.2 is copyright 1996 Wes Wagner                            *
 **************************************************************************/

#include "include.h" // dawn standard includes

int flag_lookup args( ( const char *name, const struct flag_type *flag_table) );

/**************************************************************************/
void do_flag(char_data *ch, char *argument)
{
    char arg1[MIL],arg2[MIL],arg3[MIL];
    char word[MIL];
    char_data *victim;
    long *flag, old = 0, nw = 0, marked = 0, pos;
    char type;
    const struct flag_type *flag_table;

    argument = one_argument(argument,arg1);
    argument = one_argument(argument,arg2);
    argument = one_argument(argument,arg3);

    type = argument[0];

    if (type == '=' || type == '-' || type == '+')
        argument = one_argument(argument,word);

    if (arg1[0] == '\0')
    {
	ch->println("Syntax:");
	ch->println("  flag mob  <name> <field> <flags>");
	ch->println("  flag char <name> <field> <flags>");
	ch->println("  flag obj  <name> <field> <flags>");
	ch->println("  flag room <room> <field> <flags>");
	ch->println("  mob  flags: act,aff,off,imm,res,vuln,form,part");
	ch->println("  char flags: plr,comm,aff,imm,res,vuln,thief,killer");
	ch->println("  obj  flags: extra,wear,weap,cont,gate,exit");
	ch->println("  room flags: room");
	ch->println("  +: add flag, -: remove flag, = set equal to");
	ch->println("  otherwise flag toggles the flags listed.");
	return;
    }

    if (arg2[0] == '\0')
    {
	ch->println("What do you wish to set flags on?");
	return;
    }

    if (arg3[0] == '\0')
    {
	ch->println("You need to specify a flag to set.");
	return;
    }

    if (argument[0] == '\0')
    {
	ch->println("Which flags do you wish to change?");
	return;
    }

    if (!str_prefix(arg1,"mob") || !str_prefix(arg1,"char"))
    {
	victim = get_char_world(ch,arg2);
	if (victim == NULL)
	{
	    ch->println("You can't find them.");
	    return;
	}

        /* select a flag to set */
	if (!str_prefix(arg3,"act"))
	{
	    if (!IS_NPC(victim))
	    {
		ch->println("Use plr for PCs.");
		return;
	    }

	    flag = &victim->act;
	    flag_table = act_flags;
	}

	else if (!str_prefix(arg3,"plr"))
	{
	    if (IS_NPC(victim))
	    {
		ch->println("Use act for NPCs.");
		return;
	    }

	    flag = &victim->act;
	    flag_table = plr_flags;
	}

 	else if (!str_prefix(arg3,"aff"))
	{
	    flag = &victim->affected_by;
	    flag_table = affect_flags;
	}

  	else if (!str_prefix(arg3,"immunity"))
	{
	    flag = &victim->imm_flags;
	    flag_table = imm_flags;
	}

	else if (!str_prefix(arg3,"resist"))
	{
	    flag = &victim->res_flags;
	    flag_table = imm_flags;
	}

	else if (!str_prefix(arg3,"vuln"))
	{
	    flag = &victim->vuln_flags;
	    flag_table = imm_flags;
	}

	else if (!str_prefix(arg3,"form"))
	{
	    if (!IS_NPC(victim))
	    {
	 	ch->println("Form can't be set on PCs.");
		return;
	    }

	    flag = &victim->form;
	    flag_table = form_flags;
	}

	else if (!str_prefix(arg3,"parts"))
	{
	    if (!IS_NPC(victim))
	    {
		ch->println("Parts can't be set on PCs.");
		return;
	    }

	    flag = &victim->parts;
	    flag_table = part_flags;
	}

	else if (!str_prefix(arg3,"comm"))
	{
	    if (IS_NPC(victim))
	    {
		ch->println("Comm can't be set on NPCs.");
		return;
	    }

	    flag = &victim->comm;
	    flag_table = comm_flags;
	}

	else if (!str_prefix(arg3,"thief"))
	{
	    if(IS_NPC(victim)){
			ch->println("Not on NPCs.");
			return;
		}
		if(!IS_THIEF(victim)){
			ch->printf("%s is not currently marked as a thief.", PERS(victim, ch));
			return;
		}
		ch->printf("Thief status removed on %s.", PERS(victim, ch));
		victim->pcdata->thief_until=0;
		return;
	}

	else if (!str_prefix(arg3,"killer"))
	{
	    if(IS_NPC(victim)){
			ch->println("Not on NPCs.");
			return;
		}
		if(!IS_KILLER(victim)){
			ch->printf("%s is not currently marked as a killer.", PERS(victim, ch));
			return;
		}
		ch->printf("Killer status removed on %s.", PERS(victim, ch));
		victim->pcdata->killer_until=0;
		return;
	}
	else 
	{
	    ch->println("That's not an acceptable flag.");
	    return;
	}

	old = *flag;
	victim->zone = NULL;

	if (type != '=')
	    nw = old;

        /* mark the words */
        for (; ;)
        {
	    argument = one_argument(argument,word);

	    if (word[0] == '\0')
		break;

	    pos = flag_lookup(word,flag_table);
	    if (pos == 0)
	    {
		ch->println("That flag doesn't exist!");
		return;
	    }
	    else
		SET_BIT(marked,pos);
	}

	for (pos = 0; flag_table[pos].name != NULL; pos++)
	{
	    if (!flag_table[pos].settable && IS_SET(old,flag_table[pos].bit))
	    {
		SET_BIT(nw,flag_table[pos].bit);
		continue;
	    }

	    if (IS_SET(marked,flag_table[pos].bit))
	    {
		switch(type)
		{
		    case '=':
		    case '+':
			SET_BIT(nw,flag_table[pos].bit);
			break;
		    case '-':
			REMOVE_BIT(nw,flag_table[pos].bit);
			break;
		    default:
			if (IS_SET(nw,flag_table[pos].bit))
			    REMOVE_BIT(nw,flag_table[pos].bit);
			else
			    SET_BIT(nw,flag_table[pos].bit);
		}
	    }
	}
	*flag = nw;
	return;
    }
}
/**************************************************************************/
/**************************************************************************/
/**************************************************************************/