home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / office95 / bucket2.dir / 00056_Script_56 < prev    next >
Text File  |  1995-10-18  |  3KB  |  102 lines
  1. on startmovie
  2.   global autoMode,pauseSprite,previousSprite,nextSprite,menuSprite,quitSprite
  3.   put 45 into menuSprite
  4.   put 47 into pauseSprite 
  5.   put 46 into previousSprite
  6.   put 48 into nextSprite
  7.   put 44 into quitSprite -- not used in this demo
  8.   put true into autoMode
  9. end
  10.  
  11. on initSprites
  12.   global pauseSprite,previousSprite,nextSprite,menuSprite,quitSprite
  13.   puppetSprite pauseSprite,true
  14.   puppetSprite previousSprite,true
  15.   puppetSprite nextSprite,true
  16.   puppetSprite quitSprite,true
  17.   puppetSprite menuSprite,true
  18. end
  19.  
  20. on turnOffSprites
  21.   global pauseSprite,previousSprite,nextSprite,menuSprite,quitSprite
  22.   puppetSprite pauseSprite,false
  23.   puppetSprite previousSprite,false
  24.   puppetSprite nextSprite,false
  25.   puppetSprite quitSprite,false
  26.   puppetSprite menuSprite,false
  27. end
  28.  
  29. on pauseMode
  30.   global autoMode,pauseSprite,nextSprite
  31.   
  32.   if autoMode then
  33.     put false into autoMode
  34.     set the castNum of sprite pauseSprite to the castNum of sprite pauseSprite + 1
  35.     --put the ticks into startTime
  36.     --repeat while the mouseDown or the ticks < startTime + 20
  37.     --updatestage
  38.     --end repeat
  39.     --set the castNum of sprite pauseSprite to the number of cast "paused"
  40.     updateStage
  41.     pause
  42.   else
  43.     put true into autoMode
  44.     set the castNum of sprite pauseSprite to the castNum of sprite pauseSprite - 1
  45.     --put the ticks into startTime
  46.     --repeat while the mouseDown or the ticks < startTime + 20
  47.     --updatestage
  48.     --end repeat
  49.     --set the castNum of sprite pauseSprite to the number of cast "pause"
  50.     updateStage
  51.     continue
  52.   end if
  53. end
  54.  
  55. on goNext
  56.   global nextSprite,pauseSprite,autoMode
  57.   set autoMode to true
  58.   set the castNum of sprite pauseSprite to the number of cast "pause"
  59.   depress nextSprite
  60.   go marker (1)
  61.   
  62. end
  63.  
  64. on goPrevious
  65.   global previousSprite,pauseSprite,autoMode
  66.   set autoMode to true
  67.   set the castNum of sprite pauseSprite to the number of cast "pause"
  68.   depress previousSprite
  69.   go marker(-1)
  70.   
  71. end
  72.  
  73. on goMenu
  74.   global menuSprite
  75.   depress menuSprite
  76.   turnOffSprites
  77.   sound stop 1
  78.   go frame "Menu" of movie "BucMenu.dir"
  79. end
  80.  
  81. on goCredits
  82.   turnOffSprites
  83. end
  84.  
  85. on creditsQuit
  86.   global quitSprite
  87.   depress quitSprite
  88.   turnOffSprites
  89.   go frame "exit"
  90. end
  91.  
  92. on depress whichSprite
  93.   put the ticks into startTime
  94.   set the castNum of sprite whichSprite to the castNum of sprite whichSprite + 1
  95.   repeat while the mouseDown or the ticks < startTime + 20
  96.     updatestage
  97.   end repeat
  98.   set the castNum of sprite whichSprite to the castNum of sprite whichSprite - 1
  99.   updateStage
  100. end
  101.  
  102.