@verb #7113:"superhug" any none none rdo #7113
@program #7113:"superhug" any none none
"Copied from Slayer_Greg (#9733):hug May 11 19:29:22 1997"
"Copied from Daryl (#3887):hug May  5 20:04:14 1997"
{hug, vhug, ohug} = {strsub(strsub(this:msg_hug(), "%n", player.name), "%v", dobj.name), strsub(strsub(this:msg_vhug(), "%n", player.name), "%v", dobj.name), strsub(strsub(this:msg_ohug(), "%n", player.name), "%v", dobj.name)}
if (player.location == dobj.location)
  player:tell(hug)
  dobj:tell(vhug)
  for i in (setremove(setremove(player.location.contents, player), dobj))
    if (i in players())
      i:tell(ohug)
    endif
  endfor
else
  player:tell("You must be in the same location as " + dobj.name + " to hug them")
endif
"Last modified by manta (#7165) on Fri Sep 11 05:18:26 1998 EDT."
.