492
@verb #2111:"stkiss" any none none rxdo #7446
@program #2111:"stkiss" any none none
dobj = $string_utils:match_player(dobjstr)
player:tell("You have given a *very* special kiss to ", dobj.name, ".")
dobj:tell(player.name, " stands before you once again.")
suspend(3)
dobj:tell("From behind ", player.pp, " back ", player.name, " reveals a basket of fruit.")
suspend(3)
dobj:tell("From behind ", player.pp, " back ", player.ps, " reveals a basket of fruit.")
dobj:tell("With ", player.pp, " eyes focusing on your bottom lip", player.ps, " lightly places a strawberry there.")
suspend(3)
dobj:tell(player.name, " gently gently nibbles on the strawberry and licks it with the tip of ", player.pp, " tongue.")
dobj:tell("Teasing your lip until you groan.")
suspend(3)
dobj:tell(player.name, " places the rest of the strawberry into your mouth and gives you a passionate kiss.")
dobj:tell("You hunger for more as ", player.ps, " turns slowly to leave")
dobj:tell("But not without promising to return soon...")
dobj.location:announce_all_but({dobj}, dobj.name, " says MMMMMM strawberries!")
"Last modified by NH (#2369) on Sun Dec 20 11:05:17 1998 MST."
.

0