;Script:  Line kiss 2
;Author:  Sweden here (Hampus Ström)
;Date  :  1996-04-18
;Desc  :  Draws a line from you to your target and makes a heart in the
;         end of of the line

{ MOUSEPOS y = x =
        "!)kiss Kiss!" MOUSEPOS SAYAT
        PENFRONT 255 0 0 PENCOLOR 3 PENSIZE
    POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO
        "bigheart1" x 44 - y 44 - ADDLOOSEPROP
        "bigheart2" x 0 - y 44 - ADDLOOSEPROP
        "bigheart3" x 44 - y 0 - ADDLOOSEPROP
        "bigheart4" x 0 - y 0 - ADDLOOSEPROP
    "" CHATSTR =
  } CHATSTR "kiss1" == IF