/* Do not remove the headers from this file! see /USAGE for more info. */

// WIP

inherit OBJ;
inherit LIGHT_OBJECT;
inherit M_GETTABLE;
inherit M_READABLE;

int burnt;
float max_fuel;

void mudlib_setup()
{
    set_fuel( 4 );
    set_id( "paper" );
#ifdef USE_SIZE
    set_size( VERY_SMALL );
#endif
#ifdef USE_MASS
    set_mass( VERY_SMALL );
#endif
    set_light_level( 0 );
    set_die_msg( "The $o crumbles into fine ash." );
}

void mangle_text()
{
    string my_text = query_text();
    int text_size = sizeof( my_text );
    int i;

    if( sizeof( my_text ) > 0 )
    {
	if( !burnt )
	{
	    burnt = 1;
	    my_text = "It's somewhat burnt, but reads as follows:\n" + my_text;
	}
	for( i = 0; i < text_size; i++ )
            if(random(max_fuel) > query_num_decays())
		if( !(my_text[i] == ' ' && random(1))) my_text[i] = '?';
	set_text( my_text );
    }
}

mixed extinguish()
{
    mangle_text();
    return ::extinguish();
}

string read()
{
    if( query_is_lit())
	mangle_text();
    return ::read();
}

void set_fuel( int amount )
{
    if( !burnt ) max_fuel = amount;
    ::set_fuel( amount );
}

mixed lpscript_attributes()
{
   return object::lpscript_attributes() + light_object::lpscript_attributes();
}