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

// Rust -- An example for the guys on Red Dragon...
// This can't get much easier because call_out's interface isn't too good.
// I'll try to explain what is going on...
// If you don't understand any part of this, post to lima.help on Lima Bean.

inherit ROOM;
inherit CLASS_COMBAT_RESULT;

private void do_burning(object player)
{
    // First check to see if the player is here.  If he isn't, stop burning
    // him by returning
    if ( !player )
	return;  // object has been destroyed.

    if ( environment(player) != this_object() )
    {
	return;
    }

    //reduce hit points here
    player->simple_action("$N $vare burned by the lava.");
    player->hurt_us(5);
//	kind : "fire",
//	damage : 5,
//	message : "$T $v1scream in pain!\n"));  

    // Now we call_out again...
    call_out((: do_burning($(player)) :), 5);
}

private void when_person_enters(object o)
{
    // If the object passed to us isn't living, then it was a regular old
    // object (probably someone dropped it)
    // So let's have it burn up in the lava.
    if ( !o->is_living()&&!o->is_vehicle() )
    {
        receive_inside_msg(capitalize(o->the_short()) + " sinks and "
            "melts into the lava...\n");
	destruct(o);
    }

    // This is the initial call to the burn_player function...  The call keeps
    // getting renewed from inside do_burning () until the person leaves.
    call_out( (: do_burning($(o)):), 5);
}

void setup() 
{
    set_brief("Lava Cave");
    set_area("none");
    set_long("The floor of this cave is burning lava!");
    set_exits( ([ "southeast" : "Wizroom" ]) );
    add_item("lava", "floor",
	     (["adjs" : ({ "burning", "hot" }),
	      "look" : "It looks hot!",
	      "touch" : "That would be daft!",
	      "get" : "I can think of smarter things to do, but "
		      "not much dumber than that.", ]));

    // Set it up so our functions get called when something enters.
    add_hook("object_arrived", (: when_person_enters :));
}