View/Edit #9131:@iprops

Switch to edit mode.

1:  "Copied from d.Fo (#6570):@iprops by Everyman (#61) Jun 16 22:36:51 2003"
2:  "EveFO:@iprops #<obj>"
3:  if (caller || player != this)
4:    raise(E_PERM)
5:  endif
6:  dobj = (p = player):my_match_object(argstr)
7:  if (!argstr)
8:    return p:tell("Syntax:  @iprops #<obj>")
9:  elseif (!$recycler:valid(dobj))
10:   return p:tell("No such object.")
11: elseif (!(props = properties(dobj)))
12:   return p:tell("There are no properties on ", $string_utils:nn(dobj), ".")
13: endif
14: iprops = {}
15: for prop in (props)
16:   try
17:     {owner, perms} = property_info(dobj, prop)
18:     value = tostr(toliteral(dobj.(prop)))
19:     length(value) > (ll = p:linelength()) - 36 ? value = value[1..ll - 39] + "..." | 0
20:   except e (ANY)
21:     {owner, perms, value} = {"#?", "????", e[1]}
22:   endtry
23:   typeof(value) == $LIST ? value = tostr(toliteral(value)) | 0
24:   iprops = {@iprops, {prop, tostr(owner), perms, value}}
25: endfor
26: p:tell($string_utils:center(tostr(" Information for properties on: ", $string_utils:nn(dobj), " "), ll, "-", "-"))
27: #6570:tell_columns({20, 5, 5, ll - 36}, {"property", "owner", "perms", "value"}, iprops, 1, 1)
28: "Last modified by Dax (#789) on Tue May  3 13:55:57 2005 MDT."

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