201
@verb #8045:"cheek" any none none rdo #8045
@program #8045:"cheek" any none none
"Copied from Lao-Tzu (#8084):cheek May 28 23:02:42 1997"
who = player:my_match_object(dobjstr)
if (valid(who))
  who:sub_tell("%N kisses you on the cheek.")
  player:sub_tell("You kiss %1 on the cheek.", who)
  player.location:sub_announce_all_but({player, who}, "%N kisses %1 on %2 cheek.", who, #43:pronoun(who, "pp"))
else
  player:Tell("Who?")
endif
"Last modified by Dax (#789) on Wed Jun  3 08:21:32 1998 EDT."
.

0