home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / gallery.dir / 00003.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  408 b   |  16 lines
  1. on mouseDown
  2.   set WhichSprite to the clickOn
  3.   puppetSprite(WhichSprite, 1)
  4.   set the castNum of sprite WhichSprite to the number of cast (the name of cast the castNum of sprite WhichSprite && "lit")
  5.   repeat while the stillDown
  6.     updateStage()
  7.   end repeat
  8.   puppetSprite(WhichSprite, 0)
  9.   galleryProductSelect(gProductSelect)
  10. end
  11.  
  12. on mouseUp
  13.   global gProductSelect
  14.   set WhichSprite to the clickOn
  15. end
  16.