@verb #1151:"bk ck fk hk ik lk mk pk sk tk wk 4k" any none none rxd #562
@program #1151:"bk ck fk hk ik lk mk pk sk tk wk 4k" any none none
"See above."
dobj = $string_utils:match_player(dobjstr)
pn = (p = player).name
dn = (d = dobj).name
g = d.gender[1] == "f" ? "her" | "him"
if (verb == "bk")
  p:tell("You blow ", dn, " a kiss.")
  d:tell(pn, " blows you a kiss.")
elseif (verb == "ck")
  p:tell("You kiss ", dn, " lightly onna cheek.")
  d:tell(pn, " kisses you lightly onna cheek.")
elseif (verb == "fk")
  p:tell("You french kiss ", dn, " passionately.")
  d:tell(pn, " french kisses you passionately.")
elseif (verb == "hk")
  p:tell("You kiss ", dn, "'s hand gallantly.")
  d:tell(pn, " kisses your hand gallantly.")
elseif (verb == "ik")
  p:tell("You give ", dn, " an innocent look then reach over and kiss ", g, " passionately.")
  d:tell(pn, " gives you an innocent look then reaches over and kisses you passionately.")
elseif (verb == "lk")
  p:tell("You give ", dn, " a long, lingering kiss.")
  d:tell(pn, " gives you a long, lingering kiss.")
elseif (verb == "mk")
  p:tell("You give ", dn, " a minty fresh kiss!")
  d:tell(pn, " gives you a minty fresh kiss!")
elseif (verb == "pk")
  p:tell("You kiss ", dn, " playfully.")
  d:tell(pn, " kisses you playfully.")
elseif (verb == "sk")
  p:tell("You kiss ", dn, " softly on the lips.")
  d:tell(pn, " kisses you softly on the lips.")
elseif (verb == "tk")
  p:tell("You give ", dn, " a tender kiss that makes ", g, " wanna come back for more.")
  d:tell(pn, " gives you a tender kiss that makes you wanna go back for more.")
elseif (verb == "wk")
  p:tell("You kiss ", dn, " warmly.")
  d:tell(pn, " kisses you warmly.")
elseif (verb == "4k")
  p:tell("You give ", dn, " a long, passionate kiss that seems to last forever.")
  d:tell(pn, " gives you a long passionate kiss that seems to last forever.")
endif
"Last modified by Cecil (#7407) on Fri Jan 25 09:22:42 2002 MST."
.