/*    /lib/burn.c
 *    from the Dead Souls Object Library
 *    inheritable for things that burn
 *    created by Descartes of Borg 960512
 *    Version: @(#) burn.c 1.3@(#)
 *    Last modified: 96/11/03
 */

#include <lib.h>
#include <medium.h>

inherit LIB_FUEL;
inherit LIB_LIGHT;

private int FuelRequired = 1;
private int Heat = 0;
private int MinHeat = 5;
private int BurnRate = 10;
private int BurntValue = 0;

// abstract methods
int SetValue(int x);
// end abstract methods

int GetBurning();

static void create(){
    fuel::create();
    light::create();
    this_object()->AddSave(({ "Heat" }));
    call_out(function(){
            if( GetBurning() ) set_heart_beat(BurnRate);
            }, 0);
}

int GetBurning(){
    return (Heat >= MinHeat);
}

int GetBurnRate(){
    return BurnRate;
}

static int SetBurnRate(int x){
    return (BurnRate = x);
}

int GetBurntValue(){
    return BurntValue;
}

static int SetBurntValue(int x){
    return (BurntValue = x);
}

int GetFuelRequired(){
    return FuelRequired;
}

static int SetFuelRequired(int x){
    return (FuelRequired = x);
}

int GetHeat(){
    return Heat;
}

static int SetHeat(int x){
    return (Heat = x);
}

int GetMinHeat(){
    return MinHeat;
}

static int SetMinHeat(int x){
    return (MinHeat = x);
}

mixed CanBurn(object who){
    object env = room_environment();
    if(!who && this_player()) who = this_player();
    if(!env){
        return "#That is nowhere!";
    }
    if( env != who && env != environment(who)){
        return "#That is not within your reach!";
    }
    if(env->GetMedium() > MEDIUM_SURFACE){
        return "#There is insufficient air.";
    }
    if( FuelRequired && !GetFuelAmount() )
        return capitalize(GetShort()) + " is out of fuel.";
    if( GetBurning() ) return "It is already burning!";
    return light::CanLight(who);
}

mixed direct_burn_obj_with_obj(){
    return CanBurn(this_player());
}

mixed indirect_burn_obj_with_obj(object target, object source){
    if( !target ) return (source == this_object());
    if( environment() != this_player() )
        return "#You must possess the source to use it.";
    if( !GetBurning() ) return capitalize(GetShort()) + " is not burning!";
    return 1;
}

mixed indirect_burn_obs_with_obj(object *targets, object source){
    if( !targets ) return (source == this_object());
    if( environment() != this_player() )
        return "#You must possess the source to use it.";
    if( !GetBurning() ) return capitalize(GetShort()) + " is not burning!";
    return 1;
}

mixed direct_light_obj(){
    mixed tmp = CanBurn(this_player());

    if( tmp == 1 ){
        return "Light it with what?";
    }
}

mixed direct_light_obj_with_obj(){
    return direct_burn_obj_with_obj();
}

mixed indirect_light_obj_with_obj(object target, object source){
    return indirect_burn_obj_with_obj(target, source);
}

mixed indirect_light_obs_with_obj(object *targets, object source){
    return indirect_burn_obs_with_obj(targets, source);
}

mixed CanExtinguish(object who){
    if( environment() != this_player() &&
            environment() != environment(this_player()) ){
        return "#That is not within your reach!";
    }
    if( !GetBurning() ) return "It is not burning!";
    return 1;
}

mixed direct_extinguish_obj(){
    return CanExtinguish(this_player());
}

mixed eventExtinguish(){
    eventDarken();
    set_heart_beat(Heat = 0);
    return 1;
}

mixed eventBurnOut(){
    if( FuelRequired ){
        SetFuelAmount(0);
    }
    SetValue(BurntValue);
    eventDarken();
    set_heart_beat(Heat = 0);
    return 1;
}

varargs mixed eventBurn(object who, object what, int magic){
    int y;
    if(magic){
        Heat = MinHeat;
        if( FuelRequired ) set_heart_beat(BurnRate);
        SetLit(1);
        return 1;
    }
    if( !what ){
        if( Heat ) return 0;
        else y = MinHeat;
    }
    else y = (Heat + what->GetHeat())/2;
    if( y < Heat ) y = Heat;
    if( !GetBurning() && y >= MinHeat ){
        if( FuelRequired ) set_heart_beat(BurnRate);
    }
    else if( GetBurning() && y < MinHeat ){
        if( FuelRequired ) set_heart_beat(0);
    }
    Heat = y;
    if( Heat < 0 ) Heat = 0;
    SetLit(1);
    return 1;
}

mixed eventLight(object who, object what){
    return eventBurn(who, what);
}

static void heart_beat(){
    object env = room_environment();
    if( FuelRequired ){
        eventDecreaseFuel(1);
        if( !GetFuelAmount() ) eventBurnOut();
    }
    if(!env || env->GetMedium() > MEDIUM_SURFACE){
        eventExtinguish();
    }
}