home *** CD-ROM | disk | FTP | other *** search
/ Treasure Mathstorm / TMSWINCD.ISO / pc / install / ot3.mps < prev    next >
Text File  |  1996-10-15  |  3KB  |  167 lines
  1. ;OT3 Demo
  2. ;debug on
  3.  
  4. yield off
  5.  
  6. Scene 31300
  7.  
  8.  
  9. pbExit=RPButton 592 451 31005
  10. set pbExit "hit" leavepreviews
  11.  
  12. pbDemos=RPButton 496 451 31006
  13. set pbDemos "hit" leavethispreview
  14.  
  15. voice=RSound 31430 -1
  16. set voice finished hotel
  17. play voice start
  18.  
  19. yield on
  20.  
  21. procedure hotel
  22. [
  23.    yield off
  24.    drop pbExit
  25.    drop pbDemos
  26.     pbExit=RPButton 592 451 31305
  27.     set pbExit "hit" leavepreviews
  28.     pbDemos=RPButton 496 451 31306
  29.     set pbDemos "hit" leavethispreview
  30.  
  31.    drop voice
  32.    Scene 31310
  33.    bmpHotel=OMAnimation 80 185 31311
  34.    set bmpHotel touchy 0
  35.    set bmpHotel movable 0
  36.    yield on
  37.    voice=RSound 31432 -1
  38.    play voice start
  39.    pause 9
  40.    drop voice
  41.    yield off
  42.    movie=RSmackerMovie "241110.smk" 80 185 1500000 0
  43.    set movie finished wagon1
  44.    play movie start
  45.    yield on
  46. ]
  47.  
  48. procedure wagon1
  49. [
  50.    play movie release
  51.    yield off
  52.    drop pbExit
  53.    drop pbDemos
  54.     pbExit=RPButton 592 451 31005
  55.     set pbExit "hit" leavepreviews
  56.     pbDemos=RPButton 496 451 31006
  57.     set pbDemos "hit" leavethispreview
  58.    drop movie
  59.    drop aoHotel
  60.    drop bmpHotel
  61.    Scene 31320
  62.    animWagon1=OMAnimation 0 0 31321
  63.    set animWagon1 frame 2
  64.    set animWagon1 touchy 0
  65.    yield on
  66.    voice=RSound 31433 -1
  67.    play animWagon1
  68.    play voice start
  69.    pause 14
  70.    call wagon2
  71. ]
  72.  
  73. procedure wagon2
  74.     [
  75.    yield off
  76.    drop voice
  77.  
  78.    drop animWagon1
  79.     Scene 31330
  80.    animWagon2a=OMAnimation 0 0 31332
  81.     animWagon2b=OMAnimation 0 0 31333
  82.     animWagon2c=OMAnimation 0 0 31334
  83.     animWagon2d=OMAnimation 0 0 31335
  84.     animWagon2e=OMAnimation 0 0 31336
  85.     animWagon2f=OMAnimation 0 0 31337
  86.    set animWagon2a visible 0
  87.    set animWagon2b visible 0
  88.    set animWagon2c visible 0
  89.    set animWagon2d visible 0
  90.    set animWagon2e visible 0
  91.    set animWagon2f visible 0
  92.    set animWagon2a touchy 0
  93.    set animWagon2b touchy 0
  94.    set animWagon2c touchy 0
  95.    set animWagon2d touchy 0
  96.    set animWagon2e touchy 0
  97.    set animWagon2f touchy 0
  98.     yield on
  99.    voice=RSound 31434 -1
  100. ;   play animWagon2
  101.    play voice start
  102.    pause 1
  103.    set animWagon2a visible 1
  104.    pause 1
  105.    set animWagon2b visible 1
  106.    pause 1
  107.    set animWagon2c visible 1
  108.    pause 1
  109.    set animWagon2d visible 1
  110.    pause 1
  111.    set animWagon2e visible 1
  112.    pause 1
  113.    set animWagon2f visible 1
  114.    set voice finished OT3end
  115.    ]
  116.  
  117. procedure OT3end
  118.   [
  119.    yield off
  120.    drop voice
  121.    drop animWagon2a
  122.    drop animWagon2b
  123.    drop animWagon2c
  124.    drop animWagon2d
  125.    drop animWagon2e
  126.    drop animWagon2f 
  127.    drop animWagon2
  128.     Scene 31340
  129.    yield on
  130.    voice=RSound 31435 -1
  131.    play voice start
  132.    pause 23
  133.    exit
  134.    ]
  135.  
  136. procedure leavethispreview
  137.   [
  138.   set movie finished
  139.   play movie stop
  140.   play movie release
  141.   drop movie
  142.   click=RSound 31405 -1
  143.   play click start
  144.   pause 1
  145.   drop trinkets
  146.   exit
  147.   ]
  148.  
  149.  
  150. procedure leavepreviews
  151.   [
  152.   set movie finished
  153.   play movie stop
  154.   play movie release
  155.   drop movie
  156.   click=RSound 31405 -1
  157.   play click start
  158.   pause 1
  159.   wp=RWorldPort
  160.   firsttime=0
  161.   set wp intVariable 1 firsttime
  162.   drop trinkets
  163.   quit
  164.   ]
  165.  
  166.  
  167.