280
@verb #9463:"hug" any none none rdo #9463
@program #9463:"hug" any none none
if (dobj == #-2 || dobj == $ambiguous_match)
  player:tell("Please indicate which ", argstr, " you mean.")
elseif (dobj == #-3 || dobj == $failed_match)
  player:tell($su:capitalize(dobjstr), " isn't here.")
elseif (dobj == #-1 || dobj == $nothing)
  player:tell("Who are you hugging?")
else
  player:tell("You hug ", dobj:title(), ".")
  dobj:tell(player:title(), " hugs you.")
  player.location:announce_all_but({dobj, player}, player:title(), " hugs ", dobj:title(), ".")
endif
"Last modified by Teya (#9463) on Fri Aug  9 20:52:27 2002 MDT."
.

0