inherit "std/object";
#define BRIGHTNESS 50 

int amount_of_fuel;
status is_lighted;
 
void setup() {
  amount_of_fuel = 2000; 
  set_name("torch"); 
  set_main_plural("torches");
  set_short("Torch");
  set_long("A small torch.\n");
  is_lighted = 0;
  set_weight(50);
  set_value(50);
} /* setup() */

string short(int i) {
    if (is_lighted)
        return ::short(0) + " (lit)";
    return ::short(0);
} /* short() */
 
string pretty_plural() {
  if (is_lighted)
    return ::pretty_plural() + " (lit)";
  return ::pretty_plural();
} /* pretty_plural() */

void set_fuel(int f) { amount_of_fuel = f; }
 
void init() {
  this_player()->add_command("light", this_object());
  this_player()->add_command("extinguish", this_object());
  this_player()->add_command("dowse", this_object());
} /* init() */
 
int do_light() {
  if (is_lighted) {
/*
    write(capitalize(short(0))+" is already lit.\n");
*/
    return 0;
  }
  if (amount_of_fuel <= 0) {
    write(capitalize(short(0))+" is burnt out.\n");
    return 0;
  }
  is_lighted = 1;
  call_out("out_of_fuel", amount_of_fuel * 2);
  amount_of_fuel = 0;
  set_light(BRIGHTNESS);
  return 1;
} /* do_light() */
 
void out_of_fuel() {
/* perhaps we can something clever here with events. */
  is_lighted = 0;
  set_light(0);
  say("The " + short(0) + " goes out.\n");
  write("The " + short(0) + " goes out.\n");
  set_long("The remains of a torch.  It doesn't look like it has anything "+
"left to burn on it.\n");
} /* out_of_fuel() */
 
int do_extinguish(object *indir, string s1, string s2, string prep) {
  int i;

  if (!is_lighted) {
    write(capitalize(short(0))+" is not lit.\n");
    return 0;
  }
  i = remove_call_out("out_of_fuel");
  amount_of_fuel = i/2;
  is_lighted = 0;
  set_light(0);
  return 1;
} /* do_extenguish() */

void dest_me() {
  set_light(0);
  ::dest_me();
} /* dest_me() */

mixed query_dynamic_auto_load() {
  return ([ "::" : ::query_dynamic_auto_load(),
            "amount of fuel" : amount_of_fuel,
            "is lit" : is_lighted,
          ]);
} /* query_dynamic_auto_load() */

void init_dynamic_arg(mapping arg) {
  amount_of_fuel = arg["amount of fuel"];
  if (arg["is lit"])
    do_light();
} /* init_dynamic_arg() */