1e6
@verb #6169:"warm" any none none rxd #9988
@program #6169:"warm" any none none
this:update_usage(verb, player)
"dobj = $string_utils:match_object(dobjstr, player.location);"
dobj = $string_utils:match_player(dobjstr)
if (!valid(dobj))
  return player:tell("Hug who?")
endif
player:tell("You hug ", dobj:title(), " warmly.")
player.location:announce_all_but({dobj, player}, player:title(), " hugs ", dobj:title(), " warmly.")
dobj:tell(player:title(), " hugs you warmly.")
.

0