View/Edit #13:@loc*ations

Switch to edit mode.

1:  "@locations <obj> - list the nested locations of an object, with additional data."
2:  dobj = dobjstr ? player:my_match_object(dobjstr) | player
3:  if ($command_utils:object_match_failed(dobj, dobjstr))
4:    return
5:  elseif (locations = $object_utils:locations(dobj))
6:    lines = {}
7:    for x in ({dobj, @locations})
8:      $command_utils:suspend_if_needed()
9:      obj_name = `(obj_num = x):title() ! ANY => obj_num.name + ": [Broken Title!]"'
10:     par_name = `(par_num = parent(x)):title() ! ANY => par_num.name + ": [Broken Title!]"'
11:     own_name = valid(own_num = x.owner) ? `own_num:title() ! ANY => own_num.name + ": [Broken Title!]"' | tostr(own_num)
12:     lines = {@lines, {obj_name, obj_num, par_num, own_name}}
13:   endfor
14:   player:tellColumns({30, 5, 5, 30}, {"Object", "#", "Parnt", "Owner"}, @lines)
15: else
16:   player:sub_tell("%D (#%d~#) is nowhere.")
17: endif
18: "Last modified by Dax (#789) on Sat May 27 08:43:06 2000 MDT."

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