View/Edit #9579:hkiss

Switch to edit mode.

Name(s): hkiss
1:  "Copied from BIG_PUN (#2369):hkiss Nov 17 17:21:41 1998"
2:  "Copied from FiReStArTeR (#2340):hkiss Nov  9 20:41:54 1998"
3:  dest = dobj
4:  if (!valid(dest))
5:    if (!valid(dest = $string_utils:match_player(dobjstr)))
6:      player:tell("Unknown player ", dobjstr, ".")
7:    endif
8:  endif
9:  if (!(dest in connected_players()))
10:   player:tell(dobjstr, " is not connected.")
11: else
12:   dest:tell("                 K \\           ")
13:   dest:tell("                IS\\Fr\\         ")
14:   dest:tell("               SKISS\\om\\       ")
15:   dest:tell("              KISSKIS \\Me\\     ")
16:   dest:tell("             SKISSKISS         ")
17:   dest:tell("           sKISSKISSKISs       ")
18:   dest:tell("         sSKISSKISSKISSKIs     ")
19:   dest:tell("       sSKISSKISSKISSKISSKISs  ")
20:   dest:tell("      SKISSKISSKISSKISSKISSKIS ")
21:   dest:tell("      SKISSKISSKISSKISSKISSKIS ")
22:   dest:tell("       SKISSKISSKISSKISSKISSK  ")
23:   dest:tell(player.name, " has kissed you.")
24:   player:tell("You haved kissed ", dobjstr, ".")
25:   dest.location:announce_all(dest.name, " has gotten a kiss from ", player.name, ".")
26: endif

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: TriNitY (#9579)

You are not logged in.

[home | help | who | search | setup | code]