@verb #7113:"hug*e" any none none rdo #7113
@program #7113:"hug*e" any none none
if (!args)
  return player:Tell(E_ARGS)
endif
p = $su:match_player(dobjstr)
if (!is_player(p))
  p = dobjstr
elseif (p == #8529)
  p = #9156
endif
player.location:announce_all(player:title(), " gives ", p:title(), " ", verb == "hug" ? "a great big hug!" | "a REALLY REALLY HUGE hug!")
"Last modified by Drag (#7113) on Wed Apr 15 20:28:28 1998 EDT."
.