The Storeroom #62

disfunc

Spec this none thisFlags rxdOwner #2Definer #62

Referenced by

none

Source

"Copied from The Coat Closet (#11):disfunc by Haakon (#2) Mon May  8 10:41:04 1995 PDT";
if ((((cp = caller_perms()) == (who = args[1])) || $perm_utils:controls(cp, who)) || (caller == this))
"need the first check since guests don't control themselves";
if (who.home == this)
move(who, $limbo);
this:announce("You hear a quiet popping sound; ", who.name, " has disconnected.");
else
pass(who);
endif
endif

enterfunc

Spec this none thisFlags rxdOwner #2Definer #62

Referenced by

none

Source

who = args[1];
if ($limbo:acceptable(who))
move(who, $limbo);
else
pass(who);
endif
if (`!(who in $list_utils:slice(who.remembered_names, 1)) ! ANY => 0')
who.remembered_names = setadd(who.remembered_names, {who, who.name});
endif

match

Spec this none thisFlags rxdOwner #36Definer #62

Referenced by

none

Source

"Copied from The Coat Closet (#11):match by Lambda (#50) Mon May  8 10:42:01 1995 PDT";
m = pass(@args);
if (m == $failed_match)
"... it might be a player off in the body bag...";
m = $string_utils:match_player(args[1]);
if (valid(m) && (!(m.location in {this, $limbo})))
return $failed_match;
endif
endif
return m;

init_for_core

Spec this none thisFlags rxdOwner #2Definer #62

Referenced by

• #62:@destroy-demo line 15: $player_start:init_for_core

Source

if (!caller_perms().wizard)
return E_PERM;
endif
for v in ({"announce*", "emote", "button", "knob"})
if (`verb_info($player_start, v) ! E_VERBNF => 0')
delete_verb($player_start, v);
endif
endfor
for p in ({"out", "quiet", "button"})
if (p in properties($player_start))
delete_property($player_start, p);
endif
endfor
if (!`!(!property_info(#0, "rmprop_demo_1")) ! E_PROPNF => 0')
mom = parent(this);
while (mom != $root_class)
for p in ($object_utils:all_properties(mom))
clear_property($player_start, p);
endfor
(ticks_left() < 5000) && suspend(0);
mom = parent(mom);
endwhile
$player_start.name = "The First Room";
$player_start.aliases = {};
$player_start.description = {"This is all there is right now.", "Wizards should type \"help set-up\" to get important information for starting the roleplaying engine."};
$player_start.exits = $player_start.entrances = {};
endif

keep_clean

Spec this none thisFlags rxdOwner #2Definer #62

Referenced by

none

Source

if ($perm_utils:controls(caller_perms(), this))
junk = {};
for x in (this.contents)
(ticks_left() < 2000) && suspend(0);
if (!is_player(x))
junk = {@junk, x};
elseif ((!(x in connected_players())) && (x.home == this))
`move(x, this.virtual_exits[random($)][2]) ! ANY => "nevermind"';
this:announce_all(x:titlec(), " shambles off for a nap.");
endif
endfor
dest = valid(d = `$local.dead_object_container ! ANY => $nothing') ? d | $nothing;
gripes = (typeof($gripe_recipients) == LIST) ? $gripe_recipients | {$gripe_recipients};
for x in (junk)
(ticks_left() < 4000) && suspend(0);
if (x in this.contents)
"This is old junk that's still around five minutes later.  Clean it up.";
move(x, dest);
for g in (gripes)
g:tell(">**> Swept up abandoned object `", x.name, "' (", x, "), owned by ", x.owner, ", to ", $string_utils:nn(dest), ".");
endfor
endif
endfor
$scheduler:schedule(300, this, "keep_clean");
endif

@destroy-demo

Spec none none noneFlags rdOwner #2Definer #62

Referenced by

none

Source

if (!player.wizard)
return player:tell("Only wizards can destroy the demo.");
endif
for x in [1..18]
p = "rmprop_demo_" + tostr(x);
object = $string_utils:literal_object("$" + p);
if (is_player(object))
$wiz_utils:unset_player(object, $hacker);
endif
$recycler:_recycle(object);
`delete_property(#0, p) ! ANY => player:notify(tostr("Error on deleting #0.", p))';
endfor
`$player_start.virtual_exits = {} ! ANY => player:notify("Error on clearing $player_start.virtual_exits.")';
player:tell("The demo is recycled. You may wish to 'make-core-database' now to compact the core, but that isn't necessary.");
$player_start:init_for_core();

description

Spec this none thisFlags rxdOwner #36Definer #62

Referenced by

none

Source

if (player.owner != player)
guest_msg = tostr("  *** Enter \"help @request\" for information about getting a permanent character on ", $string_utils:capitalize($network.MOO_Name), " ***");
return (typeof(this.description) == LIST) ? {@this.description, "", guest_msg} | {tostr(this.description), "", guest_msg};
endif
return this.description;