@verb #4214:"hold" any none none rxdo #8438
@program #4214:"hold" any none none
"Allows the player to hold another close to them - lovingly."
this:update_usage(verb, player)
if (!dobjstr)
  player.location:announce(player:title(), " needs a good hugging.")
  player:tell("You look really sad, like you need someone to hold you in their arms.")
else
  "  dobj = $string_utils:match_object(dobjstr, player.location);"
  if ($command_utils:object_match_failed(dobj, dobjstr))
    return
  endif
  player.location:announce_all_but({dobj, player}, player:title(), " holds ", dobj:title(), " close.")
  player:tell("You hold ", dobj:title(), " as close as any two people can get.")
  dobj:tell(player:title(), " holds you as close as two people possibly can get without risking legal action.  You feel the love and the warmth in the embrace.")
endif
.