spawn stats tracker #283

watch_tell

Spec this none thisFlags rxdOwner #361Definer #283

Referenced by

• #0:bf_chparent line 31: $sst:watch_tell
• #0:bf_chparent line 32: $sst:watch_tell

Source

":watch_tell(STR plusorminus, STR name, OBJ parent, [OBJ location])";
if (!this.watching)
return;
endif
{plusorminus, name, parent, ?loc = ""} = args;
if (parent in {#-1, $garbage, $fossil})
return;
endif
propname = tostr("_", parent);
tracker = (plusorminus == "-") ? this.recycle_tracker | this;
if (!`oldval = tracker.(propname) ! E_PROPNF => 0')
add_property(tracker, propname, 1, {#7195, "r"});
else
tracker.(propname) = oldval + 1;
endif

look_self

Spec this none thisFlags rxdOwner #361Definer #283

Referenced by

none

Source

pass(@args);
player:tell("");
player:tell("Counts since ", ctime(this.last_reset), ":");
player:tell("");
propvals = {};
for p in (properties(this))
if (p[1] == "_")
propvals = {@propvals, {toobj(p[2..$]), this.(p)}};
endif
$cu:sin(1, ($ansi.cyan + " [... Calculating ...]") + $ansi.reset);
endfor
showtop = min(this.show_top, length(propvals));
player:tell(($ansi.cyan + " [ ... sorting sst list ... ] ") + $ansi.reset);
propvals = $lu:sort_alist_suspended(1, propvals, 2)[$ - (showtop - 1)..$];
propvals = $lu:reverse(propvals);
rank = 0;
for pv in (propvals)
{parent, count} = pv;
rank = rank + 1;
rcount = `this.recycle_tracker.(tostr("_", parent)) ! E_PROPNF => 0';
delta = count - rcount;
delta = (delta > 0) ? tostr("+", delta) | tostr(delta);
player:tell(" ", $ansi.yellow, $su:right(tostr(rank, ". "), 5), $su:left($ansi.bold_on + $su:nn(parent), -33), $su:right($ansi.green + tostr("+", count), 8), $su:right($ansi.red + tostr("-", rcount), 8), $su:right($ansi.white + delta, 8), $ansi.reset);
$cu:sin();
endfor
player:tell("---");

reset

Spec this none noneFlags rxdOwner #361Definer #283

Referenced by

none

Source

if (!player.wizard)
player:tell("The lever won't budge.");
return;
endif
if (this.watching)
player:tell("The lever won't budge while the tracker is on.");
return;
endif
if (this.resetting)
player:tell("The lever is already down.");
return;
endif
this.resetting = 1;
this.location:announce_all($su:ps("%N reaches up and pulls down the lever on the side of %dt. Numbers begin to whir on the display."));
this.last_reset = time();
for p in (properties(this))
if (p[1] == "_")
delete_property(this, p);
endif
$cu:sin();
endfor
rtracker = this.recycle_tracker;
for p in (properties(rtracker))
if (p[1] == "_")
delete_property(rtracker, p);
endif
$cu:sin();
endfor
this.location:announce_all($su:ps("The entries on %dt wink out, and the lever protruding from its side returns to its normal position."));
this.resetting = 0;

turn

Spec this any noneFlags rxdOwner #361Definer #283

Referenced by

none

Source

player:tell("The button doesn't work right now.");
return;
turn_on = 0;
if (prepstr == "on")
turn_on = 1;
elseif (prepstr != "off")
player:tell("Try 'turn ", dobjstr, " on' or 'turn ", dobjstr, " off'.");
return;
endif
if (turn_on)
if (this.watching)
player:tell("It's already on.");
return;
elseif (this.resetting)
player:tell("It won't turn on while it's resetting itself.");
return;
else
this.watching = 1;
$recycler.watchers = setadd($recycler.watchers, this);
this.location:announce_all($su:ps("%N presses the button on the front of %dt. The numbers begin to update."));
return;
endif
else
if (!this.watching)
player:tell("It's already off.");
return;
else
this.watching = 0;
$recycler.watchers = setremove($recycler.watchers, this);
this.location:announce_all($su:ps("%N presses the button on the front of %dt, freezing the numbers displayed."));
endif
endif