@verb #9579:"hkiss" any none none rdo #9579
@program #9579:"hkiss" any none none
"Copied from BIG_PUN (#2369):hkiss Nov 17 17:21:41 1998"
"Copied from FiReStArTeR (#2340):hkiss Nov  9 20:41:54 1998"
dest = dobj
if (!valid(dest))
  if (!valid(dest = $string_utils:match_player(dobjstr)))
    player:tell("Unknown player ", dobjstr, ".")
  endif
endif
if (!(dest in connected_players()))
  player:tell(dobjstr, " is not connected.")
else
  dest:tell("                 K \\           ")
  dest:tell("                IS\\Fr\\         ")
  dest:tell("               SKISS\\om\\       ")
  dest:tell("              KISSKIS \\Me\\     ")
  dest:tell("             SKISSKISS         ")
  dest:tell("           sKISSKISSKISs       ")
  dest:tell("         sSKISSKISSKISSKIs     ")
  dest:tell("       sSKISSKISSKISSKISSKISs  ")
  dest:tell("      SKISSKISSKISSKISSKISSKIS ")
  dest:tell("      SKISSKISSKISSKISSKISSKIS ")
  dest:tell("       SKISSKISSKISSKISSKISSK  ")
  dest:tell(player.name, " has kissed you.")
  player:tell("You haved kissed ", dobjstr, ".")
  dest.location:announce_all(dest.name, " has gotten a kiss from ", player.name, ".")
endif
.