A Virtual Reality Guide to Texas

home *** CD-ROM | disk | FTP | other *** search

/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00032.ls < prev next >

Wrap

Text File | 1998-06-17 | 3.1 KB | 147 lines

--on goPrev -- Global gSectionPosition, gGoAction -- put "goPrev" into gGoAction -- if gSectionPosition = "First" then -- go marker(0) -- else if gSectionPosition= "Main" then -- RotateRight -- abort -- else -- go the frame - 1 -- end if --end -- --on goNext -- Global gSectionPosition, gGoAction -- put "goNext" into gGoAction -- if gSectionPosition = "Last" then -- go marker(1) -- else if gSectionPosition= "Main" then -- RotateLeft -- abort -- else -- go the frame + 1 -- end if -- --end -- --on goBack WithKey -- Global gSectionPosition, gGoAction -- put "goBack" into gGoAction -- if gSectionPosition = "Main" then -- -- if WithKey then -- -- if the movieName contains "Context" then -- goHome -- else -- ActivateBox -- end if -- -- else -- goHome -- end if -- -- else -- go "Main" -- end if --end -- --on keyDown -- -- put the keyCode into MyCode -- -- if MyCode = 123 then goPrev -- -- if MyCode = 124 then goNext -- -- if the key = return then goBack(1) -- -- if the key = " " then TogglePause -- -- if MyCode = 53 then goHome -- -- put MyCode --end -- --on ClearMusicLoop -- Global gRunIdleMusicLoop, gLoopNeedsStarting -- put "" into gRunIdleMusicLoop -- put false into gLoopNeedsStarting -- ClearMovieSync --end -- --on ClearMovieSync -- Global gSyncableMovie -- put false into gSyncableMovie --end -- --on GoMovie WhatMovie, whatFrame -- Global gPlayedAMovie, gProductDirection, gSyncableMovie -- put "" into gProductDirection -- ClearMusicLoop -- cursor 4 -- PlaySync("Machine C 25%") -- ResetAudio -- ClearMovieSync -- -- if not voidP(whatFrame) then -- go frame whatFrame of movie WhatMovie -- else -- play movie WhatMovie -- end if -- -- put True into gPlayedAMovie -- cursor -1 --end -- --on goNextProduct -- Global gProductDirection -- put "Next" into gProductDirection -- EndPlay --end -- --on goBackProduct -- Global gProductDirection -- put "Back" into gProductDirection -- EndPlay --end -- --on EndPlay -- Cursor 4 -- ResetAudio -- ClearMusicLoop -- Play done -- cursor -1 --end -- --on MovieIsPlaying -- put false into isRunning -- put the castnum of sprite 48 into MyCast -- if MyCast <> 0 then -- if the castType of MyCast = #DigitalVideo then -- if the movierate of sprite 48 then -- put true into isRunning -- end if -- end if -- end if -- return isRunning --end -- --on Idle -- Global gRunIdleMusicLoop, gLoopNeedsStarting -- -- if gRunIdleMusicLoop <> "" and not voidP(gRunIdleMusicLoop) then -- if not SoundBusy(2) and gLoopNeedsStarting then -- --sound PlayFile 2, gRunIdleMusicLoop -- end if -- end if -- -- Global gNextBlink, gIndexPoint -- if the lastEvent > 300 and the moviename = "ticket.dir" then -- if the Ticks > gNextBlink then -- put 1001 into BaseCast -- put gIndexPoint + 1 into gIndexPoint -- if gIndexPoint > 12 then put 1 into gIndexPoint -- SetCast(46, BaseCast + gIndexPoint) -- put the ticks + 2 into gNextBlink -- -- UpdateStage -- end if -- end if -- -- cursor -1 --end