PC Direct 1995 September/PCD0995.ISO/files/vision.dir/00191.ls

Text File | 1995-01-24 | 1.1 KB | 32 lines

global cAudioLevel, gLastSprite, gPTimerSet, gPresentationTime, gRedSet, gPresentationLight, gYellowSet, gLightColor, gSoundlevel

on startMovie
  set gPresentationLight to 48
  set cAudioLevel to 46
  puppetSprite(cAudioLevel, 1)
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  preLoadCast(231, 237)
  set gLastSprite to 0
  if gPTimerSet then
    puppetSprite(gPresentationLight, 1)
    set the castNum of sprite gPresentationLight to the number of cast gLightColor
  end if
  updateStage()
end

on enterFrame
  if gPTimerSet then
    if (the timer > (gPresentationTime * 3600)) and not gRedSet then
      set gLightColor to "Red timer light lit"
      set the castNum of sprite gPresentationLight to the number of cast gLightColor
      set gRedSet to 1
      exit
    end if
    if (the timer > ((gPresentationTime * 3600) - 7200)) and not gYellowSet then
      set gLightColor to "Yellow timer light lit"
      set the castNum of sprite gPresentationLight to the number of cast gLightColor
      set gYellowSet to 1
    end if
  end if
end