View/Edit #1:contains

Switch to edit mode.

Name(s): contains
1:  "obj1:contains(obj2) -- does obj1 contain obj2?"
2:  "Return true iff obj2 is under obj1 in the containment hierarchy; that is, if obj1 is obj2's location, or its location's location, or ..."
3:  {what} = args
4:  while (valid(what))
5:    what = what.location
6:    if (what == this)
7:      return 1
8:    endif
9:  endwhile
10: return 0
11: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
12: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
13: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]