home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / intro.dir / 00081_Script_81 < prev    next >
Text File  |  1995-06-14  |  429b  |  14 lines
  1. global cAudioLevel, gPTimerSet, gPresentationTime, gRedSet, gPresentationLight, gYellowSet
  2. global gLightColor
  3.  
  4. on exitFrame
  5.   global cAudioLevel, gSoundlevel
  6.   set cAudioLevel = 46
  7.   set gSoundlevel = the soundlevel
  8.   puppetSprite cAudioLevel, 1
  9.   if gPTimerSet then
  10.     puppetSprite gPresentationLight, 1
  11.     set the castnum of sprite gPresentationLight = the number of cast gLightColor
  12.     updateStage
  13.   end if
  14. end