From beisner@gj.net Wed Sep  4 11:44:42 1996
Date: Wed, 04 Sep 1996 12:38:29 -0600
From: Barbara Eisner 
To: peanut@chatlink.com
Subject: BLOWKISS

Eric--

Here's the corrected BLOWKISS script.  Enjoy!

?Barbara(c)

  [ Part 2: "Attached Text" ]
    [The following text is in the "iso-8859-1" character set]
    [Your display is set for the "US-ASCII" character set]
    [Some characters may be displayed incorrectly]

(This is the revised BlowKiss script.  Now both the sender and receiver will
hear the kiss.  Curt Lewis gave me the correction.  --BarbaraŠ)

It blows a kiss to someone anywhere in the room, and leaves a trail 
behind so they know who did it.  (Nothing more annoying than kissing 
someone and they think it was the person next to you).  Well, It's real 
simple.  Let me know how to improve/modify it.  I'm always open for 
improvements.

Enjoy:

;---------------------------------------------------------------------------
;Script:  BlowKiss
;Author:  Leige (Chris Edwards)
;Date  :  March 30, 1996
;Desc  :  Make a heart fly through the air towards a target,
;         and then makes a kiss sound.

        { 
        ;Get the mouse position
          MOUSEPOS ty = tx =

;Use a simple line algorithm to place 4 hearts in line from you to the 
;target.
          "Heart" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
          "Heart" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
          "Heart" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / -
ADDLOOSEPROP
          "Heart" tx ty ADDLOOSEPROP

          ;Wait a sec and play the kiss sound.
          { ")kiss" SAY } 120 ALARMEXEC

          ;  ^  HERE IS THE CHANGE! ...


          ;Smooch!!!!! Let them know what happened (as if they couldn't
          ;figure it out)
          "!KISS!!!" tx 10 + ty 10 - SAYAT

          ;Clean up the mess you made (and everyone elses for that matter)
          ;Mother would be proud!!
          {CLEARLOOSEPROPS} 250 ALARMEXEC

          ;Empty out the chat string so people don't think you're taking to
          ;yourself again.
          "" CHATSTR =

        } CHATSTR "^bkiss" GREPSTR IF

;----------------------------------------------------------------------------

;A note from BarbaraŠ:  Since I have several heart and kiss props in my prop
;file, I renamed "Heart" a unique name and did the same with the selected 
;prop.  That way, I will alway have the same heart appear. 

  [ Part 3: "Attached Text" ]
Barbara Eisner
beisner@gj.net
http://www.gj.net/~beisner/beisner.htm

"The Internet: Mental equivalent of an opened box of chocolates." 

    Source: geocities.com/siliconvalley/network/8524/scripts

               ( geocities.com/siliconvalley/network/8524)                   ( geocities.com/siliconvalley/network)                   ( geocities.com/siliconvalley)