@verb #4214:"whuggle huggle" any none none rxdo #8438
@program #4214:"whuggle huggle" any none none
"Silly emote thingy - dedicated to Myra (#8045)."
"Syntax: whuggle <player>"
this:update_usage("whuggle", player)
if (!dobjstr || dobj == player)
  return player:tell(dobj == player ? tostr("You can't ", verb, " yourself - silly! 8^P") | tostr("You need to ", verb, " something."))
elseif ($command_utils:object_match_failed(dobj, dobjstr))
  return
else
  this:update_usage("whuggle", player)
  player.location:sub_announce_all_but({dobj}, "%n wraps %p arms around %1 and wiggles and huggles.", dobj:title())
  dobj:sub_tell("%n wraps %p arms around you and wiggles and huggles!")
endif
.