@verb #9613:"moan mn" any none none rdo #9613
@program #9613:"moan mn" any none none
dobj = $string_utils:match_player(dobjstr)
if (!valid(dobj))
  return player:tell("Moan at who?")
endif
if (dobj.location != player.location)
  player:tell("Sorry, too far away.")
  return
endif
player:tell("You moan erotically at ", dobj:title(), ".")
player.location:announce_all_but({dobj, player}, player:title(), " moans erotically at ", dobj:title(), ".")
dobj:tell(player:title(), " moans at you erotically.")
"Last modified by Xavvy (#9613) on Tue Aug 22 12:58:16 2000 MDT."
.