The First Room #62

Parent #118Owner #36Flags readSource QuestCore.db

Aliases: The First Room

5 verbs · 61 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #3 generic room

    • #104 RPG room

      • #118 virtual exit room

        • #62 The First Room

Ancestors (nearest first): #118 virtual exit room → #104 RPG room → #3 generic room → #1 Root Class

Children: none

Call graph

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

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

"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;

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

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