View/Edit #9613:moan mn

Name(s): moan mn

1:  dobj = $string_utils:match_player(dobjstr)
2:  if (!valid(dobj))
3:    return player:tell("Moan at who?")
4:  endif
5:  if (dobj.location != player.location)
6:    player:tell("Sorry, too far away.")
7:    return
8:  endif
9:  player:tell("You moan erotically at ", dobj:title(), ".")
10: player.location:announce_all_but({dobj, player}, player:title(), " moans erotically at ", dobj:title(), ".")
11: dobj:tell(player:title(), " moans at you erotically.")
12: "Last modified by Xavvy (#9613) on Tue Aug 22 12:58:16 2000 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Xavvy (#9613)

You are not logged in.