home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00381.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  288 b   |  13 lines
  1. global WhichSprite
  2.  
  3. on mouseDown
  4.   set WhichSprite to the clickOn
  5.   puppetSprite(WhichSprite, 1)
  6.   set the castNum of sprite WhichSprite to the number of cast (the name of cast the castNum of sprite WhichSprite && "lit")
  7.   updateStage()
  8. end
  9.  
  10. on mouseUp
  11.   puppetSprite(WhichSprite, 0)
  12. end
  13.