289
@verb #8045:"shug" any none none rxdo #8045
@program #8045:"shug" any none none
"Copied from Raistlin_Majere (#9780):shug Sep 15 20:23:28 1997"
"Copied from Claudia (#9231):shug Aug 24 10:42:55 1997"
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
.

0