home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 December (Bonus) / HAWKING.ISO / 03.DIR / 00325.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  573 b   |  21 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 75
  9.   set voiceLevel to 255
  10.   set currentsoundTrack to "20KALIM.AIF"
  11.   soundSetup()
  12.   puppetVolumeControls()
  13. end
  14.  
  15. on puppetVolumeControls
  16.   global vWindow, vSlider1, vSlider2
  17.   puppetSprite(vWindow, 1)
  18.   puppetSprite(vSlider1, 1)
  19.   puppetSprite(vSlider2, 1)
  20. end
  21.