Defaulting Exit #3736

Parent —Owner —Flags Source rpg_march_2006/Dependencies/3736.txt

Aliases: Defaulting Exit

3 verbs · 3 properties · 1 children

Verbs

VerbSpecFlagsDefinerLines
oleave_msgthis none this#373612
oarrive_msgthis none this#373626
movetothis none this#37362

Properties

PropertyDefinerFlagsOwnerValue
key#3736—not readable (E_PERM)
aliases#3736—{"Defaulting Exit"}
object_size#3736—{2239, 1141286552}

Ancestry

Ancestors (nearest first): none

Children: #11286 Secure Exit

Source

oleave_msg

Spec this none thisDefiner #3736

Referenced by

none

Source

1z = pass(@args);
2if ((typeof(z) == STR) && (z != ""))
3  return z;
4endif
5for k in ({this.name, @this.aliases})
6  if (k in {"east", "west", "south", "north", "northeast", "southeast", "southwest", "northwest", "out", "up", "down"})
7    return ("goes " + k) + ".";
8  elseif (k == "leave")
9    return "leaves";
10  endif
11endfor
12return ("leaves for the " + this.name) + ".";

oarrive_msg

Spec this none thisDefiner #3736

Referenced by

none

Source

1z = pass(@args);
2if ((typeof(z) == STR) && (z != ""))
3  return z;
4else
5  back = $nothing;
6  for q in (this.dest.exits)
7    if ($object_utils:has_property(q, "dest") && (q.dest == this.source))
8      back = q;
9    endif
10  endfor
11  if (!valid(back))
12    name = "";
13  elseif ("up" in (aliases = {back.name, @back.aliases}))
14    name = " from above";
15  elseif ("down" in aliases)
16    name = " from below";
17  else
18    name = "";
19    for q in ({"north", "south", "east", "west", "northeast", "southeast", "southwest", "northwest"})
20      if (q in aliases)
21        name = " from the " + q;
22      endif
23    endfor
24  endif
25  return ("arrives" + name) + ".";
26endif

moveto

Spec this none thisDefiner #3736

Referenced by

none

Source

1result = ((caller_perms() == this.owner) || (args[1] == $nothing)) ? pass(@args) | 0;
2return result;