732
@verb #2633:"@vo" any none none rd #2633
@program #2633:"@vo" any none none
$dperms:only_owner()
if (!argstr)
  return player:tell("Syntax: ", verb, " dobj")
endif
dobj = toobj((p = player):my_match_object(argstr))
if (!$recycler:valid(dobj))
  return p:tell("[", this, ":@vo] Can't match dobj. ", dobj)
endif
p:tell("---")
p:tell({"1] Change Owner", "2] Change .R", "3] List Verbs", "4] List Props", "5] Dump Verbs"})
p:tell("---")
menu = toint($command_utils:read(""))
if (menu < 1 || menu > 5)
  return p:tell("Not a valid menu item. Pick between 1 and 4 please.")
elseif (menu == 1)
  p:tell("New owner is?")
  nown = toobj($command_utils:read())
  if (!$recycler:valid(nown))
    return p:tell("[", this, ":@vo] Can't match dobj. ", dobj)
  endif
  oown = dobj.owner
  oown.owned_objects = setremove(oown.owned_objects, dobj)
  nown.owned_objects = {@nown.owned_objects, dobj}
  dobj.owner = nown
  p:tell("Owner of ", $su:nn(dobj), " is now ", $su:nn(nown))
elseif (menu == 2)
  pick = $command_utils:y_or_n("Make (n = un)readable?")
  dobj.r = pick
  p:tell($su:nn(dobj), " .R = ", dobj.r)
elseif (menu == 3)
  if (verbs(dobj))
    p:tell({"--- Verbs --- ", @$su:columnize(verbs(dobj), 3)})
  else
    p:tell("No verbs..")
  endif
elseif (menu == 4)
  props = properties(dobj)
  if (!(props = properties(dobj)))
    p:tell("No properties..")
  endif
  p:tell("--- Properties --- ")
  for prop in (props)
    p:tell($su:left(prop, 20), $su:right(toliteral(dobj.(prop)), 45))
  endfor
elseif (menu == 5)
  p:tell("Dumping ", $su:nn(dobj))
  for verb in [1..length(verbs(dobj))]
    vn = verb_info(dobj, verb)[3]
    vc = verb_code(dobj, verb)
    p:tell({tostr("Code of : ", dobj, ":", vn), @vc, ""})
  endfor
endif
"Last modified by Dax (#789) on Tue May  3 14:09:34 2005 MDT."
.

0