home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gizmos & Gadgets
/
SSGWINCD.ISO
/
pc
/
install
/
ot3.mps
< prev
next >
Wrap
Text File
|
1996-10-15
|
3KB
|
167 lines
;OT3 Demo
;debug on
yield off
Scene 31300
pbExit=RPButton 592 451 31005
set pbExit "hit" leavepreviews
pbDemos=RPButton 496 451 31006
set pbDemos "hit" leavethispreview
voice=RSound 31430 -1
set voice finished hotel
play voice start
yield on
procedure hotel
[
yield off
drop pbExit
drop pbDemos
pbExit=RPButton 592 451 31305
set pbExit "hit" leavepreviews
pbDemos=RPButton 496 451 31306
set pbDemos "hit" leavethispreview
drop voice
Scene 31310
bmpHotel=OMAnimation 80 185 31311
set bmpHotel touchy 0
set bmpHotel movable 0
yield on
voice=RSound 31432 -1
play voice start
pause 9
drop voice
yield off
movie=RSmackerMovie "241110.smk" 80 185 1500000 0
set movie finished wagon1
play movie start
yield on
]
procedure wagon1
[
play movie release
yield off
drop pbExit
drop pbDemos
pbExit=RPButton 592 451 31005
set pbExit "hit" leavepreviews
pbDemos=RPButton 496 451 31006
set pbDemos "hit" leavethispreview
drop movie
drop aoHotel
drop bmpHotel
Scene 31320
animWagon1=OMAnimation 0 0 31321
set animWagon1 frame 2
set animWagon1 touchy 0
yield on
voice=RSound 31433 -1
play animWagon1
play voice start
pause 14
call wagon2
]
procedure wagon2
[
yield off
drop voice
drop animWagon1
Scene 31330
animWagon2a=OMAnimation 0 0 31332
animWagon2b=OMAnimation 0 0 31333
animWagon2c=OMAnimation 0 0 31334
animWagon2d=OMAnimation 0 0 31335
animWagon2e=OMAnimation 0 0 31336
animWagon2f=OMAnimation 0 0 31337
set animWagon2a visible 0
set animWagon2b visible 0
set animWagon2c visible 0
set animWagon2d visible 0
set animWagon2e visible 0
set animWagon2f visible 0
set animWagon2a touchy 0
set animWagon2b touchy 0
set animWagon2c touchy 0
set animWagon2d touchy 0
set animWagon2e touchy 0
set animWagon2f touchy 0
yield on
voice=RSound 31434 -1
; play animWagon2
play voice start
pause 1
set animWagon2a visible 1
pause 1
set animWagon2b visible 1
pause 1
set animWagon2c visible 1
pause 1
set animWagon2d visible 1
pause 1
set animWagon2e visible 1
pause 1
set animWagon2f visible 1
set voice finished OT3end
]
procedure OT3end
[
yield off
drop voice
drop animWagon2a
drop animWagon2b
drop animWagon2c
drop animWagon2d
drop animWagon2e
drop animWagon2f
drop animWagon2
Scene 31340
yield on
voice=RSound 31435 -1
play voice start
pause 23
exit
]
procedure leavethispreview
[
set movie finished
play movie stop
play movie release
drop movie
click=RSound 31405 -1
play click start
pause 1
drop trinkets
exit
]
procedure leavepreviews
[
set movie finished
play movie stop
play movie release
drop movie
click=RSound 31405 -1
play click start
pause 1
wp=RWorldPort
firsttime=0
set wp intVariable 1 firsttime
drop trinkets
quit
]