home *** CD-ROM | disk | FTP | other *** search
- ;debug on
- ;Labyrinth off
- yield off
- Scene 31000
-
-
-
- pbRr1=RPButton 50 180 31001
- set pbRr1 "hit" rr1
-
- pbLab=RPButton 250 180 31002
- set pbLab "hit" lab
-
- pbOt3=RPButton 450 180 31003
- set pbOt3 "hit" ot3
-
- pbMoredemos=RPButton 120 360 31004
- set pbMoredemos "hit" moredemos
-
- pbOrder=RPButton 350 360 31007
- set pbOrder "hit" orderProd
-
-
-
- pbExit=RPButton 592 451 31005
- set pbExit "hit" leavepreviews
-
- wp=RWorldPort
-
- yield on
-
- get wp intVariable 1 firsttime
- if firsttime=0
- [
- voice=RSound 31400 -1
- play voice start
- set wp intVariable 1 1
- ]
-
- wait
-
-
-
- procedure leavepreviews
- [
- set wp intVariable 1 0
- click=RSound 31405 -1
- play click start
- pause 1
- quit
- ]
-
- procedure moredemos
- [
- play voice stop
- click=RSound 31405 -1
- play click start
- drop voice
- yield off
- Scene 31008
- drop pbRr1
- drop pbLab
- drop pbOt3
- drop pbMoredemos
- drop pbOrder
- pbDemoMenu=RPButton 496 451 31006
- set pbDemoMenu "hit" returntomenu
- yield on
- drop click
- voice=RSound 31402 -1
- play voice start
- ]
-
- procedure orderProd
- [
- play voice stop
- click=RSound 31405 -1
- play click start
-
- drop voice
- yield off
- Scene 31009
- drop pbRr1
- drop pbLab
- drop pbOt3
-
-
- pbRr1=RPButton 56 146 31001
- set pbRr1 "hit" rr1
-
- pbLab=RPButton 248 146 31002
- set pbLab "hit" lab
-
- pbOt3=RPButton 440 146 31003
- set pbOt3 "hit" ot3
-
- drop pbMoredemos
- drop pbOrder
- pbDemoMenu=RPButton 496 451 31006
- set pbDemoMenu "hit" returntomenu
- yield on
- drop click
- voice=RSound 31401 -1
- play voice start
- ]
-
-
- procedure lab
- [
- play voice stop
- drop voice
-
- click=RSound 31405 -1
- play click start
- pause 1
- call labrnth1.mps
- ]
-
- procedure rr1
- [
- play voice stop
- drop voice
-
- click=RSound 31405 -1
- play click start
- pause 1
- call reader1.mps
- ]
-
- procedure ot3
- [
- play voice stop
- drop voice
-
- click=RSound 31405 -1
- play click start
- pause 1
- call ot3.mps
- ]
-
-
- procedure returntomenu
- [
- play voice stop
- drop voice
- click=RSound 31405 -1
- play click start
- yield off
- drop pbDemoMenu
- Scene 31000
-
- drop pbRr1
- drop pbLab
- drop pbOt3
-
- pbRr1=RPButton 50 180 31001
- set pbRr1 "hit" rr1
-
- pbLab=RPButton 250 180 31002
- set pbLab "hit" lab
-
- pbOt3=RPButton 450 180 31003
- set pbOt3 "hit" ot3
-
- pbMoredemos=RPButton 120 360 31004
- set pbMoredemos "hit" moredemos
-
- pbOrder=RPButton 350 360 31007
- set pbOrder "hit" orderProd
-
- yield on
- ]
-
-