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