354
@verb #2002:"caress" any none none rdo #2002
@program #2002:"caress" any none none
"Copied from The Ball o' Verbs v2.0 (#1100):caress by Killeen (#562) Fri Dec 30 17:08:23 1994 EST"
a = dobjstr
if (length(a) == 0)
  player:tell(#1100.what)
  return
endif
if (!is_player(dobj))
  player:tell(#1100.noway)
  return
endif
if (player.location != dobj.location)
  player:tell("I don't see ", dobj:title(), " here.")
  return
endif
if (player == dobj)
  player:tell(#1100.heh)
  return
endif
player:tell("...Mmmmmmm.")
player.location:announce_all_but({player, dobj}, player:title(), " is gently caressing ", dobj:title(), " with a twinkle in ", player.gender, " eyes.")
dobj:tell(player:title(), " is gently caressing you with a twinkle in ", player.pp, " eyes.")
"Last modified by Slacker (#55) on Wed Jul 10 11:31:09 2002 MDT."
.

0