/* 
   /std/act/action.c

   Generic actions: Standard action module for mobiles

   add_act(string)	       Set a random actstring 

   add_cact(string)            Set a random combat actstring 

   set_act_time(int)	       Set the mean value for act intervall

   set_cact_time(int)	       Set the mean value for combat act intervall

*/
#pragma save_binary
#pragma strict_types

#include <macros.h>

static	int	monster_act_time,      /* Intervall between actions */
		monster_cact_time;     /* Intervall between combat actions */
static  string  *monster_act,          /* Action strings */
		*monster_cact,         /* Combat action strings */
		*monster_act_left,     /* Action strings left */
		*monster_cact_left;    /* Combat action strings left */

#define SEQ_ACT   "_mon_ran_act"

/*
 * Function name: add_act
 * Description:   Adds an action string that the monster will randomly do.
 * Arguments:     str: Text
 *                flag: True if the action is to occur forever (this
 *                      is frowned upon, so have a good reason). If 0 or
 *                      not present, the action will only occur in the
 *                      presence of a player, or for a short time after
 *                      the monster is alone.
 */
varargs void
add_act(mixed str, int flag)
{
    if (!IS_CLONE)
	return;

    if (!this_object()->seq_query(SEQ_ACT))
    {
	this_object()->seq_new(SEQ_ACT, flag);
	this_object()->seq_clear(SEQ_ACT);
	this_object()->seq_addfirst(SEQ_ACT, ({ random(4),
	    "@@monster_do_act" }));
    }

    if (!str)
        return;

    if (!sizeof(monster_act))
        monster_act = ({});

    monster_act += ({ str });
    monster_act_left = monster_act;
}

/*
 * Function name: query_act
 * Description:   Get the array of actions this mobile do
 * Returns:	  The array
 */
string *
query_act()
{
    return monster_act;
}

/*
 * Function name: add_cact
 * Description:   Sets a combat act string that the monster will randomly do.
 * Arguments:     str: Text
 */
void
add_cact(mixed str)
{
    if (!IS_CLONE)
	return;

    add_act(0); /* Init act sequence */

    if (!sizeof(monster_cact))
        monster_cact = ({});

    if (!str)
        return;

    monster_cact += ({ str });
    monster_cact_left = monster_cact;
}

/*
 * Function name: query_cact
 * Description:   Give the combat act array
 * Returns:	  The array
 */
string *
query_cact()
{
    return monster_cact;
}

/*
 * Function name: set_act_time
 * Description:   Set the mean value for action intervall
 * Arguments:     tim: Intervall
 */
void
set_act_time(int tim)
{
    monster_act_time = tim;
}

/*
 * Function name: set_cact_time
 * Description:   Set the mean value for cchat intervall
 * Arguments:     tim: Intervall
 */
void
set_cact_time(int tim)
{
    monster_cact_time = tim;
}

/*
 *  Description: The actual function action, called by VBFC in seq_heartbeat
 */
string
monster_do_act()
{
    int il;
    string actstr;

    if (!this_object()->query_attack())
    {
        if (!sizeof(monster_act_left))
            monster_act_left = monster_act;

        if (!(il = sizeof(monster_act_left)))
            return 0;

        il = random(il);
        actstr = monster_act_left[il];
        monster_act_left = exclude_array(monster_act_left, il, il);
        il = monster_act_time;
    }
    else  /* In combat */
    {
        if (!sizeof(monster_cact_left))
            monster_cact_left = monster_cact;

        if (!(il = sizeof(monster_cact_left)))
            return 0;

        il = random(il);
        actstr = monster_cact_left[il];
        monster_cact_left = exclude_array(monster_cact_left, il, il);
        il = monster_cact_time;

    }
    this_object()->seq_clear(SEQ_ACT);
    this_object()->seq_addlast(SEQ_ACT, ({ il, "@@monster_do_act" }) );
    
    return actstr;
}

/*
 * Function name: clear_act
 * Description:   clears acts for a monster
 */
void
clear_act()
{
    monster_act = 0;
    monster_act_left = 0;
}

/*
 * Function name: clear_cact
 * Description:   clears cact's for a monster
 */
void
clear_cact()
{
    monster_cact = 0;
    monster_cact_left = 0;
}

string
query_seq_act_name()
{
    return SEQ_ACT;
}