@verb #2931:"shug" any none none rxdo #9231
@program #2931:"shug" any none none
if (valid(dobj) && dobj:isa($player))
  $you:say_action("%N %<gives> %d 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
.