; Kiss somebody by positioning the mouse and then say "lkiss"

  { "!)kiss Kiss!" MOUSEPOS SAYAT
         PENFRONT
     255 0 0 PENCOLOR 2 PENSIZE
     POSX POSY MOUSEPOS LINE
     PAINTUNDO
    "" CHATSTR =
  } CHATSTR "lkiss" == IF