home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 September / WPCSEP97.ISO / HTML / ROOM / OTHER / RADIO / FINRADIO.DCR / 00001.ls next >
Encoding:
Text File  |  1996-08-15  |  1.2 KB  |  18 lines
  1. on startMovie
  2.   global eightButList, LastButt, knobQuartList, SelectCounter, RedCounter, knobvolumeQuartList, volumecounter, knoblocList, knoblocTwoList
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   set LastButt to 0
  7.   set SelectCounter to 0
  8.   set RedCounter to 0
  9.   set volumecounter to 0
  10.   set eightButList to list([234, 262, 117, 144, 0, 248, 130, 309, 140, "REAL.AIF"], [266, 295, 117, 144, 0, 281, 130, 309, 90, "DROWN5B.AIF"], [234, 262, 94, 115, 0, 248, 105, 309, 50, "HAWHAW3.AIF"], [266, 295, 94, 115, 0, 281, 106, 309, 100, "DROWN1B.AIF"], [234, 262, 70, 92, 0, 247, 80, 309, 120, "JUNGLE1.AIF"], [266, 295, 70, 92, 0, 280, 81, 309, 70, "AMBER1.AIF"], [234, 262, 45, 66, 0, 246, 56, 309, 90, "JUNGLE2.AIF"], [266, 295, 45, 66, 0, 279, 56, 309, 130, "DROWN4C.AIF"])
  11.   set knoblocList to list(273, 310, 168, 206)
  12.   set knoblocTwoList to list(215, 250, 168, 206)
  13.   set knobQuartList to list([273, 291, 168, 187], [292, 310, 168, 187], [292, 310, 188, 206], [273, 291, 188, 206])
  14.   set knobvolumeQuartList to list([215, 232, 168, 187], [233, 250, 168, 187], [233, 250, 188, 206], [215, 232, 188, 206])
  15.   set the volume of sound 1 to 185
  16.   updateStage()
  17. end
  18.