home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 September / macgaichiban199609.bin / MOVIES / PTM / 00061.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  506 b   |  24 lines
  1. global gslevel
  2.  
  3. on startMovie
  4.   set gslevel to the soundLevel
  5. end
  6.  
  7. on changevol
  8.   puppetSprite(24, 1)
  9.   set the type of sprite 24 to 1
  10.   set the ink of sprite 24 to 36
  11.   set the foreColor of sprite 24 to 255
  12.   set the backColor of sprite 24 to 0
  13.   set the castNum of sprite 24 to the number of cast ("VOL" & gslevel)
  14.   set the locH of sprite 24 to 320
  15.   set the locV of sprite 24 to 240
  16.   updateStage()
  17. end
  18.  
  19. on chvol
  20.   set gslevel to (mouseV() - 156) / 18
  21.   set the soundLevel to gslevel
  22.   changevol()
  23. end
  24.