#pragma save_binary
#include "spells.h"

static mixed *effects;

void    create()
{
    effects = ({ });
}				/* create() */

/* temp for testing */
mixed   query_effects()
{
    return effects;
}

int     add_spell_effect( int no_rnds, string type, string name, object callee,
			  string func, mixed params )
{
    int     i, j;

    if( (i = member_array( type, effects )) != -1 )
	if( (j = member_array( name, effects[ i + 1 ] )) == -1 )
	    effects[ i + 1 ] += ({ name, ({ no_rnds, callee, func, params }) });
	else
	    effects[ i + 1 ][ j + 1 ] = ({ no_rnds, callee, func, params });
    else
	effects += ({ type, ({ name, ({ no_rnds, callee, func, params }) }) });
}				/* add_spell_effect() */

int     remove_spell_effect( string name )
{
    int     i, j;

    for( i = 0; i < sizeof( effects ); i += 2 )
	if( (j = member_array( name, effects[ i + 1 ] )) != -1 )
	{
	    effects[ i + 1 ] = delete( effects[ i + 1 ], j, 2 );
	    if( !sizeof( effects[ i + 1 ] ) )
	    {
		effects = delete( effects, i, 2 );
		i -= 2;
	    }
	}
    return 1;
}				/* remove_spell_effect() */

mixed   query_spell_effect( string name )
{
    int     i, j;

    if( (i = member_array( name, effects )) == -1 )
	return 0;
    if( sizeof( effects[ i + 1 ] ) )
	return effects[ i..i ] + effects[ 0..1 ];
    return 0;
}				/* query_spell_effect() */

mixed * query_spell_effects_type( string type )
{
    int     i, j;
    mixed * ret;

    if( (i = member_array( type, effects )) == -1 )
	return({ });
    ret = ({ });
    for( j = 0; j < sizeof( effects ); j += 2 )
	ret += ({ effects[ i ], effects[ i + 1 ][ j..j + 1 ] });
    return ret;
}				/* query_spell_effects_type() */

int     do_spell_effects( object attacker )
{
    int     i, j;

    this_object()->remove_property( "casting" );
    for( i = 0; i < sizeof( effects ); i += 2 )
	for( j = 0; j < sizeof( effects[ i + 1 ] ); j += 2 )
	{
	    call_out( "do_call_out_effect", 1, ({ effects[ i + 1 ][ j + 1 ], attacker }) );
	    if( !--effects[ i + 1 ][ j + 1 ][ SP_NO_RNDS ] )
	    {
		effects[ i + 1 ] = delete( effects[ i + 1 ], j, 2 );
		j -= 2;
	    }
	}
    return 0;
}				/* do_spell_effects() */

void    do_call_out_effect( mixed *params )
{
    this_object()->adjust_xp( call_other( params[ 0 ][ SP_OBJECT ],
					  params[ 0 ][ SP_FUNC ],
					  params[ 1 ],
					  params[ 0 ][ SP_PARAM ],
					  params[ 0 ][ SP_NO_RNDS ] ) );
}				/* do_effect() */