home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 June / macgaichiban199606.bin / MOVIES / PTM / 00073.ls < prev    next >
Encoding:
Text File  |  1996-03-29  |  1.1 KB  |  51 lines
  1. global gslevel
  2.  
  3. on startMovie
  4.   puppetSprite(38, 1)
  5.   set gslevel to the soundLevel
  6. end
  7.  
  8. on place spnum, castno, h, v
  9.   set the type of sprite spnum to 1
  10.   set the ink of sprite spnum to 0
  11.   set the foreColor of sprite spnum to 255
  12.   set the backColor of sprite spnum to 0
  13.   set the castNum of sprite spnum to castno
  14.   set the locH of sprite spnum to h
  15.   set the locV of sprite spnum to v
  16.   updateStage()
  17. end
  18.  
  19. on setflower
  20.   set movh to 226 + (12 * gslevel)
  21.   place(38, 83, movh, 422)
  22. end
  23.  
  24. on chvolume
  25.   set gslevel to item 2 of the name of cast the castNum of sprite clickOn()
  26.   set gslevel to value(gslevel)
  27.   setflower()
  28.   set the soundLevel to gslevel
  29.   set the soundEnabled to 1
  30. end
  31.  
  32. on changevol
  33.   set nowvol to value(the castNum of sprite 26 - 4)
  34.   set clicksp to value(char 2 of the name of cast the castNum of sprite clickOn())
  35.   if clicksp <> 0 then
  36.     puppetSound("volume")
  37.     updateStage()
  38.     repeat while soundBusy(1)
  39.       nothing()
  40.     end repeat
  41.   end if
  42.   set vol to nowvol + clicksp
  43.   if vol > 7 then
  44.     set vol to vol - 8
  45.   end if
  46.   set the castNum of sprite 26 to 4 + vol
  47.   updateStage()
  48.   set the soundLevel to vol
  49.   set the soundEnabled to 1
  50. end
  51.