@verb #9667:"laugh" any none none rdo #9667
@program #9667:"laugh" any none none
"Copied from Dave (#7418):laugh Mar 12 18:58:47 1997"
"Written to replace the horrid, '(player) points at (dude)'s"
"and guffaws!'. Please, I urge you to make a copy of this verb"
"so we can put an end to this raging madness. :)"
"							-- Dave          "
if (!dobjstr)
  player:tell("You laugh.")
  player.location:announce(player:title() + " laughs.")
elseif (valid(dobj))
  player:tell("You laugh at " + dobj:title() + "'s funny.")
  player.location:announce_all_but({player, dobj}, player:title() + " laughs at " + dobj:title() + "'s funny.")
  dobj:tell(player:title() + " laughs at your funny.")
else
  player:tell("What?")
endif
.