@verb #909:"@gear gear" any any any rxdo #6612
@program #909:"@gear gear" any any any
"@gear [object/player]"
"     Shows the contents of that player, and, if that player is holding"
"     something that is /also/ holding something, it will show what that"
"     is holding."
if (verb == "@gear")
  this:update_usage(verb, player)
endif
if (!args)
  sp = ""
  who = player
elseif (length(args) == 1)
  sp = ""
  who = dobj
else
  sp = args[2]
  who = args[1]
endif
player:tell(sp + $string_utils:left(who, length(tostr(max_object())) + 1) + who.name)
for k in (who.contents)
  this:gear(k, "  " + sp)
endfor
.