home *** CD-ROM | disk | FTP | other *** search
/ Treasure Mathstorm / TMSWINCD.ISO / pc / install / reader1.mps < prev    next >
Text File  |  1996-10-13  |  1KB  |  107 lines
  1. ;Reader 1 Demo
  2.  
  3.  
  4. yield off
  5. Scene 31100
  6. pbExit=RPButton 592 451 31005
  7. set pbExit "hit" leavepreviews
  8. pbDemos=RPButton 496 451 31006
  9. set pbDemos "hit" leavethispreview
  10.  
  11. animIntro=OMAnimation 0 0 31101
  12. set animIntro touchy 0
  13. yield on
  14. voice=RSound 31410 -1
  15. play animIntro
  16. ;call animstacks
  17. play voice start
  18. set  voice finished RRmenu
  19.  
  20.  
  21.  
  22. procedure RRmenu
  23.     [
  24.    yield off
  25.    drop animIntro
  26.     Scene 31110
  27.    yield on
  28.    voice=RSound 31411 -1
  29.    play voice start
  30.    pause 11
  31.    call match
  32.    ]
  33.  
  34. procedure match
  35.     [
  36.    yield off
  37.     Scene 31120
  38.     animMatch=OMAnimation 0 0 31121
  39.    set animMatch touchy 0
  40.     yield on
  41.    voice=RSound 31412 -1
  42.    play animMatch
  43.    play voice start
  44.     pause 9
  45.    call labeler
  46.    ]
  47.  
  48. procedure labeler
  49.     [
  50.    yield off
  51.    drop animMatch
  52.     Scene 31130
  53.    yield on
  54.    voice=RSound 31413 -1
  55.    play voice start
  56.    pause 5
  57.    call train
  58.    ]
  59.  
  60. procedure train
  61.     [
  62.    yield off
  63.     Scene 31140
  64.    yield on
  65.    voice=RSound 31414 -1
  66.    play voice start
  67.    pause 7
  68.    call sorter
  69.    ]
  70.  
  71. procedure sorter
  72.     [
  73.    yield off
  74.     Scene 31150
  75.    yield on
  76.    voice=RSound 31415 -1
  77.    play voice start
  78.    pause 7
  79.    relay "sorter.mps"
  80.    ]
  81.  
  82. procedure leavethispreview
  83.   [
  84.   click=RSound 31405 -1
  85.   play click start
  86.   pause 1
  87.   exit
  88.   ]
  89.  
  90.  
  91. procedure leavepreviews
  92.   [
  93.   wp=RWorldPort
  94.   firsttime=0
  95.   set wp intVariable 1 firsttime
  96.   click=RSound 31405 -1
  97.   play click start
  98.   pause 1
  99.   quit
  100.   ]
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.