home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 December (Bonus) / HAWKING.ISO / 04.DIR / 00391.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  594 b   |  22 lines
  1. global fSep
  2.  
  3. on startMovie
  4.   global voicePath, soundTrackPath, currentVoice, currentsoundTrack, vWindow, vSlider1, vSlider2, sliderTop, sliderBottom, volumeHPositions, ambientLevel, voiceLevel, gWaitForUser
  5.   set the timeoutScript to "Nothing"
  6.   puppetSprite(45, 0)
  7.   set gWaitForUser to 0
  8.   set ambientLevel to 175
  9.   set voiceLevel to 255
  10.   set currentsoundTrack to EMPTY
  11.   set currentVoice to EMPTY
  12.   soundSetup()
  13.   puppetVolumeControls()
  14. end
  15.  
  16. on puppetVolumeControls
  17.   global vWindow, vSlider1, vSlider2
  18.   puppetSprite(vWindow, 1)
  19.   puppetSprite(vSlider1, 1)
  20.   puppetSprite(vSlider2, 1)
  21. end
  22.