home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / radio.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-05  |  1.2 KB  |  19 lines
  1. on startMovie
  2.   global eightButList, LastButt, knobQuartList, SelectCounter, RedCounter, knobvolumeQuartList, volumecounter, knoblocList, knoblocTwoList, MGIRadio
  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 MGIRadio to 1
  11.   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"])
  12.   set knoblocList to list(273, 310, 168, 206)
  13.   set knoblocTwoList to list(215, 250, 168, 206)
  14.   set knobQuartList to list([273, 291, 168, 187], [292, 310, 168, 187], [292, 310, 188, 206], [273, 291, 188, 206])
  15.   set knobvolumeQuartList to list([215, 232, 168, 187], [233, 250, 168, 187], [233, 250, 188, 206], [215, 232, 188, 206])
  16.   set the volume of sound 1 to 185
  17.   updateStage()
  18. end
  19.