home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / intro.dir / 00081.ls < prev    next >
Encoding:
Text File  |  1995-01-24  |  418 b   |  14 lines
  1. global cAudioLevel, gPTimerSet, gPresentationTime, gRedSet, gPresentationLight, gYellowSet, gLightColor
  2.  
  3. on exitFrame
  4.   global cAudioLevel, gSoundlevel
  5.   set cAudioLevel to 46
  6.   set gSoundlevel to the soundLevel
  7.   puppetSprite(cAudioLevel, 1)
  8.   if gPTimerSet then
  9.     puppetSprite(gPresentationLight, 1)
  10.     set the castNum of sprite gPresentationLight to the number of cast gLightColor
  11.     updateStage()
  12.   end if
  13. end
  14.