home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / shared.dir / 05300.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  508 b   |  18 lines
  1. global gStopSprite
  2.  
  3. on mouseDown
  4.   set the puppet of sprite the clickOn to 1
  5.   set the castNum of sprite the clickOn to the number of cast (the name of cast the castNum of sprite the clickOn && "lit")
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global soundLevel
  11.   set the puppet of sprite gStopSprite to 1
  12.   if soundLevel > 0 then
  13.     set soundLevel to soundLevel - 1
  14.   end if
  15.   set the castNum of sprite gStopSprite to the number of cast ("sound level" && soundLevel)
  16.   set the puppet of sprite the clickOn to 0
  17. end
  18.