home *** CD-ROM | disk | FTP | other *** search
/ Treasure Mathstorm / TMSWINCD.ISO / pc / install / labrnth1.mps < prev    next >
Text File  |  1996-10-13  |  1KB  |  95 lines
  1. ;Labyrinth Demo Slideshow
  2.  
  3. ;by Andy Wally 10/97
  4. yield off
  5.  
  6. pbExit=RPButton 592 451 31005
  7. set pbExit "hit" leavepreviews
  8.  
  9.  
  10. pbDemos=RPButton 496 451 31006
  11. set pbDemos "hit" leavethispreview
  12.  
  13.  
  14. Scene 31200
  15. animIntro1=OMAnimation 0 0 31202
  16. animIntro2=OMAnimation 0 0 31201
  17. set animIntro1 frame 2
  18. set animIntro2 frame 2
  19. set animIntro1 touchy 0
  20. set animIntro2 touchy 0
  21. yield on
  22. voice=RSound 31420 -1
  23. play voice start
  24. play animIntro1
  25. pause 2
  26. play animIntro2
  27. pause 6
  28. call RingofFire
  29.  
  30.  
  31.  
  32. procedure RingofFire
  33.     [
  34.    yield off
  35.    drop animIntro1
  36.    drop animIntro2
  37.     Scene 31210
  38.    yield on
  39.    voice=RSound 31421 -1
  40.    play voice start
  41.     set voice finished screenshots
  42.    ]
  43.  
  44. procedure screenshots
  45.     [
  46.    yield off
  47.     Scene 31220
  48.     yield on
  49.    voice=RSound 31422 -1
  50.    play voice start
  51.    pause 8 start
  52.    call monkey
  53.    ]
  54.  
  55. procedure monkey
  56.     [
  57.    yield off
  58.     Scene 31230
  59.    yield on
  60.    voice=RSound 31423 -1
  61.    play voice start
  62.    pause 11
  63.    voice=RSound 31424 -1
  64.    play voice start
  65.    pause 2
  66.    relay lab1.mps
  67.    ]
  68.  
  69. procedure leavethispreview
  70.   [
  71.   click=RSound 31405 -1
  72.   play click start
  73.   pause 1
  74.   exit
  75.   ]
  76.  
  77.  
  78. procedure leavepreviews
  79.   [
  80.   wp=RWorldPort
  81.   firsttime=0
  82.   set wp intVariable 1 firsttime
  83.   click=RSound 31405 -1
  84.   play click start
  85.   pause 1
  86.   quit
  87.   ]
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.