Room Class #2

will_accept

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

room = this;
what = args[1];
do_check = 0;
" Make sure the recursive location can be referenced (i.e., the object is not ";
" in #-1). ";
rec_loc_ok = what.location:has_prop("location");
"";
" Just double-checking... ";
if (what.location == room)
return 1;
else
if (rec_loc_ok)
if (what.location.location != room)
" The container holding the target object is NOT in the room. ";
do_check = 1;
else
return 1;
endif
else
" The container holding the target is in #-1. ";
do_check = 1;
endif
endif
if (do_check)
combined = room.how_full + what.encumbrance;
if (combined > room.capacity)
" The added encumbrance of the target object will exceed ";
" the room's capacity. ";
return 0;
else
" Ok, the encumbrance check has passed. ";
return 1;
endif
endif

match_exit

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

" #2:match_exit( string ) [ this none this ] ";
"";
" string:  a name of an exit typed on the command line ";
"";
" Returns:  OBJ ";
" OBJ: object number of the exit matched or error ";
"";
" Modifies:  none ";
" Owner:  $dm ";
" Writer:  ixion(#5) from LambdaMOO core";
" Perms:  don't know ";
" Called by:  $player:north south east west ";
" Screen Outputs:  none ";
"";
" Description:  <Description> ";
"               [..more..] ";
"";
" NOTE:  <any specific notes or warnings> ";
" Examples:  <EXAMPLE1> ";
"            <EXAMPLE2> ";
"";
" Error Codes:  ";
syntax = "SYNTAX:  <verb_name> <proper_args> [optional_syntax]";
example = "For example:  <verb_name> <example_syntax>";
alternate_example = "For example:  <verb_name> <alternate_syntax>";
what = args[1];
if (what)
ERR = $failed_match;
for e in (this.exits)
if (valid(e) && (what in {e.name, @e.aliases}))
if (ERR == $failed_match)
ERR = e;
elseif (ERR != e)
return $ambiguous_match;
endif
endif
endfor
return ERR;
else
return $nothing;
endif

enterfunc

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

"$room:enterfunc this none this";
"Display room description and contents.";
who = args[1];
if (who:is_a($animate))
this:describe_to(who);
who:lower_endurance(this.endurance_cost);
endif

display_contents

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

nonanimate = {};
outstr = "You see ";
for xobj in (this.contents)
if (xobj:is_a($animate))
player:tell(xobj.name);
else
nonanimate = {@nonanimate, xobj};
endif
endfor
if (nonanimate)
outstr = outstr + nonanimate[1].name;
if (length(nonanimate) > 1)
for xobj in (nonanimate[2..length(nonanimate)])
outstr = (outstr + ", ") + xobj.name;
endfor
endif
player:tell(outstr + ".");
endif

display_exits

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

" <obj_num>:<verb_name>(<TYPE>, <TYPE>, ...) [<DOBJ> <PREP> <IOBJ>] ";
"";
" <ARGS1>:  <Description> ";
" <ARGS2>:  <Description> ";
" <...> ";
"";
" Returns:  [{]<TYPE>, <TYPE>, ...[}] ";
" <RETTYPE1>:  <Description> ";
" <RETTYPE2>:  <Description> ";
"";
" Modifies:  <OBJ>.<prop>, <OBJ>.<prop>, ... ";
" Owner:  <OBJ> ";
" Writer:  <name>(OBJ#) [source (i.e., LambdaMOO core?)]";
" Perms:  <OWNER> | <CALLER> | <PLAYER> ";
" Called by:  <OBJ>:<verb>, <OBJ>:<verb>, [Description] ... ";
" Screen Outputs:  <Description> ";
"";
" Description:  <Description> ";
"               [..more..] ";
"";
" NOTE:  <any specific notes or warnings> ";
"";
" Error Codes:  ";
for xit in (this.exits)
player:tell(xit.direction, " ==> ", xit.dest.name);
endfor

describe_to

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

• #2:enterfunc line 5: this:describe_to
• #58:describe_to line 3: pass(
• #60:describe_to line 4: pass(

Source

"$room:describe_to(target) this none this";
"returns 0 if target isn't a valid animate objidnum";
{target} = args;
if (!target:is_a($animate))
return 0;
else
shownum = "";
if (target:is_a($architect))
shownum = (" (" + tostr(this)) + ")";
endif
colors = this.colors;
target:sees(3, {(colors[1] + this.name) + shownum});
for x in (this.description)
target:sees(3, {colors[2] + x});
endfor
nonanimates = {};
animates = {};
for xobj in (this.contents)
if (xobj:is_a($animate))
animates = {@animates, xobj};
else
nonanimates = {@nonanimates, xobj};
endif
endfor
if (nonanimates)
target:tell("~" + colors[3]);
for xobj in (nonanimates)
xobj:describe_to(target);
endfor
endif
animates = setremove(animates, target);
if (animates)
target:tell("~" + colors[4]);
for xobj in (animates)
xobj:describe_to(target);
endfor
endif
"dont forget the exits!";
player:tell("~" + colors[5]);
for xit in (this.exits)
target:sees(3, {(xit.direction + " ==> ") + xit.dest.name});
endfor
endif

get_animates

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

"$room:get_animates() this one this";
"returns a list of animates that are in this room";
animates = {};
for each in (this.contents)
if (each:is_a($animate))
animates = {@animates, each};
endif
endfor
return animates;

exitfunc

Spec this none thisFlags rwxdOwner #10Definer #2

Referenced by

none

Source

"$room:exitfunc this none this";