furnace #367

look_self

Spec this none thisFlags rxdOwner #361Definer #367

Referenced by

none

Source

pass(@args);
player:tell("You can see about ", $su:gn(length($recycler.contents)), " pieces of coal burning inside.");

watch_tell

Spec this none thisFlags rxdOwner #361Definer #367

Referenced by

none

Source

if (this.open)
{sign, itemname, parent, ?location} = args;
bold = is_a(parent, $actor) ? $ansi.bold_on | "";
if (!is_a(parent, $decal))
itemname = ($su:a_or_an(itemname) + " ") + itemname;
endif
if (is_a(parent, $weather) && (parent(parent) == $weather))
itemname = itemname + " sky";
endif
if (sign == "+")
this.location:announce_all($ansi.yellow, bold, $su:subst(this.obj_create_msg, {{"[item]", itemname}}), $ansi.reset);
else
this.location:announce_all($ansi.red, bold, $su:subst(this.obj_burn_msg, {{"[item]", itemname}}), $ansi.reset);
endif
endif
if (random(100) < 10)
if (!this.location:occupants($player))
this:close();
endif
endif

open

Spec this none noneFlags rxdOwner #361Definer #367

Referenced by

none

Source

if (this.viewer)
player:tell("You'll have to get ", this.viewer.name, " to step back from the viewport first.");
return;
endif
pass(@args);
if (this.open)
$recycler.watchers = setadd($recycler.watchers, this);
endif

close

Spec this none noneFlags rxdOwner #361Definer #367

Referenced by

• #367:watch_tell line 18: this:close

Source

pass(@args);
if (!this.open)
$recycler.watchers = setremove($recycler.watchers, this);
endif

view watch

Spec this none noneFlags rxdOwner #361Definer #367

Referenced by

none

Source

if (this.open)
player:tell("You can already see inside, the door is open!");
return;
elseif (this.viewer)
player:tell("You can't do that, ", this.viewed.name, " beat you to it.");
return;
elseif (!player.programmer)
player:tell(this.fail_view_msg);
this.location:announce_all_but({player}, $su:ps(this.ofail_view_msg));
this:area():god_check(player, this);
return;
endif
this.viewer = player;
player:tell(this.view_msg);
this.location:announce_all_but({player}, $su:ps(this.oview_msg));
$recycler:do_player_watch(player);
player:tell(this.endview_msg);
this.location:announce_all_but({player}, $su:ps(this.oendview_msg));
this.viewer = #-1;

heartbeat

Spec this none thisFlags rxdOwner #361Definer #367

Referenced by

none

Source

return;
if (length($recycler.contents) < 5)
this.location:broadcast_noise("From %dir you hear a %vol computer voice: WARNING!  BOILER COAL CRITICAL!", 7);
this.location:announce_all("A loud computer voice erupts from the furnace: WARNING!  BOILER COAL CRITICAL!");
endif

alert

Spec this none thisFlags rxdOwner #361Definer #367

Referenced by

none

Source

l = args[1];
if (l > 100)
m1 = "The boiler room rumbles, and a blast of heat belches from the furnace, nearly knocking you down.";
m2 = "A %vol rumble and a blast of heat wash over you from %dir.";
vol = 9;
elseif (l > 50)
m1 = "The boiler shudders, and a wave of heat thrums from the furnace.";
m2 = "From %dir you hear a %vol rumble and a wave of heat.";
vol = 5;
else
m1 = "The boiler shivers with a low rumble.";
m2 = "";
vol = 0;
endif
this.location:announce_all(m1);
if (vol)
this.location:broadcast_noise(m2, vol);
endif

new_player

Spec this none thisFlags rxdOwner #361Definer #367

Referenced by

• #4:req*uest line 15: $furnace:new_player

Source

m1 = tostr("From ", this:dname(), ", a baby screams, then fades into the distance.");
m2 = "You hear a %vol baby's cry from %dir.";
vol = 6;
this.location:announce_all(m1);
fork (0)
this.location:broadcast_noise(m2, vol);
endfork