home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / pc / multbird / wait.dir / 00006_Script_6 < prev    next >
Text File  |  1995-06-27  |  2KB  |  85 lines
  1. on startMovie
  2.   global downSprite
  3.   set the mouseDownScript to EMPTY
  4.   set the timeoutScript to "doTimeOut"
  5.   set the timeoutLength to 60 * 60
  6.   
  7.   set downSprite =48
  8.   puppetSprite downSprite,TRUE
  9. end startMovie
  10.  
  11. on stopMovie
  12.   set the timeOUtScript to EMPTY
  13.   unload
  14. end stopMovie
  15.  
  16. on playPuppet soundIn
  17.   puppetSound soundIn
  18.   updateStage
  19.   repeat while soundBusy(1)
  20.     --
  21.   end repeat
  22.   puppetSound 0
  23. end 
  24.  
  25.  
  26. on backDown
  27.   global downSprite
  28.   sound stop 1
  29.   puppetSound "back"  
  30.   
  31.   set the castNum of sprite downSprite = the number of cast "returnDown"
  32.   set the loch of sprite downSprite = 619
  33.   set the locv of sprite downSprite = 459
  34.   updateStage
  35.   repeat while SoundBusy(1) 
  36.     --
  37.   end repeat
  38.   puppetSound(0)
  39.   set the loch of sprite downSprite = -100
  40.   set the locv of sprite downSprite = -100
  41.   updateStage
  42. end  backDown
  43.  
  44. ------------------------------------------------------------------------
  45. -- CODE FOR TIMEOUT SCRIPT
  46. ------------------------------------------------------------------------
  47. on doTimeOut
  48.   set the timeoUtScript = EMPTY
  49.   go "start" of movie "birdDemo.dir"
  50. end doTimeOut
  51. ------------------------------------------------------------------------
  52.  
  53. --------------------------------------------------------------------------------
  54. --               THIS CODE IS FOR THE REAR WINDOW XOBJECT
  55. --                           DO NOT TOUCH
  56. --------------------------------------------------------------------------------
  57.  
  58. -- RearWindow XObject
  59. -- by David Jackson-Shields
  60. -- vers. 1.0.2 (10/11/93)
  61. --
  62. -- ⌐ 1992-94 by Macromedia, Inc. and David Jackson-Shields
  63. -- All Rights Reserved
  64.  
  65. on releaseRearWindow
  66.   if not(the machineType=256) then
  67.     
  68.     global rwObj
  69.     if objectP( rwObj ) then
  70.       rwObj( mDispose )
  71.     end if
  72.     
  73.     -- You must Close the Xlib if you do not have
  74.     -- the XCOD resource installed in the movie with ResEdit:
  75.     CloseXLib
  76.   end if
  77. end releaseRearWindow
  78.  
  79. --------------------------------------------------------------------------------
  80.  
  81.  
  82.  
  83.  
  84.  
  85.