@verb #1557:"slowdance" any any any rxdo #4312
@program #1557:"slowdance" any any any
if (valid(dobj))
  player:sub_tell("You smile slightly and take %d by the hand, leading %d~o in a slow dance that seems to last forever. You gently sway back and forth, holding each other tightly.")
  dobj:sub_tell("%N smiles slightly and takes you by the hand, leading you in a slow dance that seems to last forever. You gently sway back and forth, holding each other tightly.")
  player.location:sub_announce_all_but({player, dobj}, "%N smiles slightly and takes %d by the hand, leading %d~o in a slow dance that seems to last forever. They gently sway back and forth, holding each other tightly. You feel kinda lonely.")
else
  player:sub_tell("You wish you had someone special to share a slow dance with... BUT YOU DON'T! LOSER! Ha ha ha ha!!!")
  player.location:sub_announce_all_but({player}, "%N wishes %s had someone special to share a slow dance with... BUT %S DOESN'T! THE LOSER! Ha ha ha ha!!!")
endif
.