home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / quit.dir / 00013.ls < prev    next >
Encoding:
Text File  |  1995-01-24  |  371 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 "No lit"
  5.   repeat while the stillDown
  6.     updateStage()
  7.   end repeat
  8. end
  9.  
  10. on mouseUp
  11.   set WhichSprite to the clickOn
  12.   set the castNum of sprite WhichSprite to the number of cast "No"
  13.   puppetSprite(WhichSprite, 0)
  14.   play done
  15. end
  16.