home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Treasure Mathstorm
/
TMSWINCD.ISO
/
pc
/
install
/
labrnth1.mps
< prev
next >
Wrap
Text File
|
1996-10-13
|
1KB
|
95 lines
;Labyrinth Demo Slideshow
;by Andy Wally 10/97
yield off
pbExit=RPButton 592 451 31005
set pbExit "hit" leavepreviews
pbDemos=RPButton 496 451 31006
set pbDemos "hit" leavethispreview
Scene 31200
animIntro1=OMAnimation 0 0 31202
animIntro2=OMAnimation 0 0 31201
set animIntro1 frame 2
set animIntro2 frame 2
set animIntro1 touchy 0
set animIntro2 touchy 0
yield on
voice=RSound 31420 -1
play voice start
play animIntro1
pause 2
play animIntro2
pause 6
call RingofFire
procedure RingofFire
[
yield off
drop animIntro1
drop animIntro2
Scene 31210
yield on
voice=RSound 31421 -1
play voice start
set voice finished screenshots
]
procedure screenshots
[
yield off
Scene 31220
yield on
voice=RSound 31422 -1
play voice start
pause 8 start
call monkey
]
procedure monkey
[
yield off
Scene 31230
yield on
voice=RSound 31423 -1
play voice start
pause 11
voice=RSound 31424 -1
play voice start
pause 2
relay lab1.mps
]
procedure leavethispreview
[
click=RSound 31405 -1
play click start
pause 1
exit
]
procedure leavepreviews
[
wp=RWorldPort
firsttime=0
set wp intVariable 1 firsttime
click=RSound 31405 -1
play click start
pause 1
quit
]