/* /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 + (int)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();
}
}
