#include <fuel_handler.h>
#include <move_failures.h>
inherit "/std/object";
inherit "/std/basic/holdable";
#define BRIGHTNESS 30
#define MAX_FUEL 2000
#define FUEL_PER_TICK ( FUEL_TIME * 2 )
private int amount_of_fuel;
private int is_lit;
int finish_it();
void setup_shorts();
void create() {
object::create();
holdable::create();
} /* create() */
void setup() {
amount_of_fuel = MAX_FUEL;
set_name( "torch" );
add_plural( "torches" );
setup_shorts();
add_help_file("torch");
set_long( function() {
string str;
if ( is_lit && amount_of_fuel) {
call_out( (: setup_shorts() :), 2 );
str = "This is a fire burning out of control on the end "
"of a stick of wood. There is a lot of smoke coming "
"off the fire, of the kind that, no matter which "
"way you turn, will go up your nose.";
switch ( amount_of_fuel / ( MAX_FUEL / 10 ) ) {
case 10 :
case 9 :
return str+" The torch looks brand new, it will burn for "
"ages yet.\n";
case 8 :
case 7 :
case 6 :
return str+" Not yet burning for very long, this torch is "
"pretty happy with itself. It doesn't seem "
"to care about its short life span.\n";
case 5 :
case 4 :
return str+" The torch is happily burning. It is in the "
"prime of its life.\n";
case 3 :
return str+" The torch has a little way to go yet, as it is "
"now burning the light wood.\n";
case 2 :
return str+" It looks like this torch won't "
"last much longer. Buying a new one would "
"probably be a good investment.\n";
case 1 :
case 0 :
return str+" The torch is spluttering, there are huge "
"amounts of smoke coming off it. It looks like "
"it is about to go out.\n";
}
}
if ( amount_of_fuel >= MAX_FUEL )
return "This lump of what looks like some sort of tree has a few "
"dirty rags wrapped around the end of it, and it looks as "
"though it might be possible to light them. The dirty rags "
"have some sort of stuff covering them, probably "
"to make them burn better.\n";
if ( amount_of_fuel > MAX_FUEL / 2 )
return "Someone has cut down a tree, chopped it up into smaller "
"chunks and then wrapped the end in some rags. "
"The rags are blackened and it looks like someone set "
"fire to them. Perhaps you can too?\n";
str = "This lump of what looks like some sort of tree has a few "
"dirty rags wrapped around the end. ";
if ( !amount_of_fuel )
return str +"The end is completely blackened. You would "
"have to be extremely clever to get this torch "
"going again.\n";
switch (amount_of_fuel/(MAX_FUEL/10)) {
case 5 :
case 4 :
return str +"The end has been blackened quite a bit, "
"but it looks like there is a fair bit of "
"go still left in it.\n";
case 3 :
case 2 :
return str +"A few rags here and there cling to a meager "
"existence. You could set fire to them and "
"make their life hell for a little while, but "
"not for very long.\n";
case 1 :
case 0 :
return str +"You can just see the remains of some rags "
"attached to the blackened and burnt end of "
"the torch. It will last only for a short while "
"longer.\n";
}
return "Whoops. Tell a creator if you see this.\n";
}
);
is_lit = 0;
set_weight( 6 );
set_value( 50 );
} /* setup() */
void set_fuel(int f) {
amount_of_fuel = f;
if(amount_of_fuel < 0)
amount_of_fuel = 0;
setup_shorts();
} /* set_fuel() */
void init() {
this_player()->add_command( "light", this_object() );
this_player()->add_command( "extinguish", this_object() );
this_player()->add_command( "dowse", this_object() );
} /* init() */
void setup_shorts() {
if ( is_lit && amount_of_fuel) {
set_short( "lit torch" );
set_main_plural( "lit torches" );
remove_adjective( ({ "lightable", "burnt", "out" }) );
add_adjective( "lit" );
} else if ( amount_of_fuel > 0 ) {
set_short( "lightable torch" );
set_main_plural( "lightable torches" );
remove_adjective( ({ "lit", "burnt", "out" }) );
add_adjective( "lightable" );
} else {
set_short( "burnt torch" );
set_main_plural( "burnt torches" );
remove_adjective( ({ "lit", "lightable" }) );
add_adjective( ({ "burnt", "out" }) );
}
} /* setup_shorts() */
int do_light() {
if (environment(this_object()) != this_player()) {
this_player()->add_failed_mess( this_object(),
"You are not carrying $D.\n", ({ }) );
return 0;
}
if (amount_of_fuel <= 0) {
this_player()->add_failed_mess( this_object(), "$D is burnt out.\n",
({ }) );
return 0;
}
if (is_lit) {
this_player()->add_failed_mess( this_object(), "$D is already lit.\n",
({ }) );
return 0;
}
if (!query_holder() &&
!sizeof( this_object()->hold_item( this_player(), -1 ) ) ) {
this_player()->add_failed_mess( this_object(), "Unable to hold $D, "
"your arms are probably full.\n", ({ }) );
return 0;
}
is_lit = 1;
FUEL_HANDLER->add_burner( this_object() );
set_light( BRIGHTNESS );
call_out( "setup_shorts", 2);
return 1;
} /* do_light() */
void out_of_fuel() {
is_lit = amount_of_fuel = 0;
set_light( 0 );
set_value( 0 );
FUEL_HANDLER->remove_burner( this_object() );
tell_room( environment(), one_short() +" splutters violently "
"for the last time before it crumbles to dust.\n" );
call_out( "finish_it", 2 );
} /* out_of_fuel() */
void do_warning() {
tell_room( environment(), poss_short() +" starts to sputter and smoke a "
"lot as it is now burning the light wood. It is on its last "
"legs.\n");
return;
} /* do_warning() */
void consume_fuel() {
amount_of_fuel -= FUEL_PER_TICK;
if(amount_of_fuel < 0)
amount_of_fuel = 0;
switch ( amount_of_fuel ) {
case (200-FUEL_PER_TICK) .. 200:
do_warning();
break;
case 0:
out_of_fuel();
break;
default:
/* do nothing */
}
} /* consume_fuel() */
int do_extinguish(object *, string, string, string) {
if ( !is_lit && objectp( this_player() ) ) {
this_player()->add_failed_mess(this_object(), "$D is not lit.\n", ({ }) );
return 0;
} else if ( !is_lit ) {
return 0;
}
FUEL_HANDLER->remove_burner( this_object() );
is_lit = 0;
set_light( 0 );
call_out( "setup_shorts", 2);
return 1;
} /* do_extinguish() */
int do_dowse() {
return do_extinguish(({ }), 0, 0, 0);
} /* do_dowse() */
void dest_me() {
FUEL_HANDLER->remove_burner( this_object() );
set_light( 0 );
holdable::dest_me();
object::dest_me();
} /* dest_me() */
mixed *stats() {
return ::stats() + ({
({ "fuel" , amount_of_fuel, }),
({ "is lit", is_lit, }),
});
} /* stats() */
mixed query_dynamic_auto_load() {
return ([ "::" : object::query_dynamic_auto_load(),
"amount of fuel" : amount_of_fuel,
"hold" : holdable::query_dynamic_auto_load(),
"is lit" : is_lit,
]);
} /* query_dynamic_auto_load() */
int held_this_item(int type, object holder, mixed arg) {
if (!type) {
if (holder && is_lit) {
tell_object( holder,
"You extinguish the "+ short() +" as you put it down.\n");
tell_room( environment(holder ),
holder->short() +" extinguishes the "+
short() +" as "+ holder->query_pronoun()
+" puts it down.\n", ({ holder }));
}
do_extinguish( ({ }), "", "", "");
} else if (type == 2) {
if (arg && holder && amount_of_fuel > 0) {
set_light( BRIGHTNESS );
FUEL_HANDLER->add_burner( this_object() );
is_lit = 1;
} else {
is_lit = 0;
}
setup_shorts();
}
return 1;
} /* held_this_item() */
void init_dynamic_arg( mapping arg ) {
amount_of_fuel = arg["amount of fuel"];
is_lit = arg["is lit"];
if (arg["hold"]) {
holdable::init_dynamic_arg(arg["hold"], arg["is lit"]);
}
::init_dynamic_arg(arg["::"]);
} /* init_dynamic_arg() */
void init_static_arg(mapping arg) {
} /* init_static_arg() */
mapping query_static_auto_load() {
return 0;
} /* query_static_auto_load() */
varargs int move( mixed ob, string mess1, string mess2 ) {
int ret;
ret = holdable::move(ob);
if (ret != MOVE_OK) {
return ret;
}
return object::move( ob, mess1, mess2 );
} /* move() */
void self_light() {
is_lit = 1;
FUEL_HANDLER->add_burner( this_object() );
set_light( BRIGHTNESS );
call_out( (: setup_shorts() :), 2);
return;
}/*self_light*/
int finish_it () {
this_object()->move( "/room/rubbish" );
return 1;
} /* finish_it*/
int query_torch() {
return 1;
}
int query_lit() {
return is_lit;
}
int query_fuel() {
return amount_of_fuel;
}
