@verb #2285:"shug" any none none rxdo #2285
@program #2285:"shug" any none none
"Copied from Lestat_de_Lioncourt (#9831):shug Jan 25 14:45:58 1998"
"Copied from Claudia (#9231):shug Jan 25 14:44:07 1998"
if (valid(dobj) && dobj:isa($player))
  player:tell("You give ", dobj:title(), " a SUPERHUG!!!!.")
  dobj:tell(player:title(), " gives you a SUPERHUG!!!!.")
  player.location:announce_all_but({player, dobj}, player:title(), "gives", dobj:title(), "a SUPERHUG!!!!")
elseif (valid(dobj) && dobj:isa($thing))
  player:tell("Ah, ah, ah... Don't hug an object only ppl!")
else
  player:tell("HUG SOMETHING! ANYTHING BUT AIR!!!")
endif
.