@verb #1061:"fhug" any none none rdo #1061
@program #1061:"fhug" any none none
"Copied from Zero-Space (#9057):fhug Jul 30 13:09:17 2001"
dest = $string_utils:match_player(dobjstr)
player.location:announce_all(player:title(), " gives " + dest:title() + " a fluffypeachjimjimbritmicem hug.")
.