home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / pc / multbird / helpme.dir / 00008_Script_8 < prev    next >
Text File  |  1995-06-27  |  2KB  |  81 lines
  1. on startMovie
  2.   global downSprite
  3.   
  4.   ------------------------------------------------------------------------
  5.   -- This de-activates the timeout script
  6.   ------------------------------------------------------------------------
  7.   
  8.   set the timeoutScript to "doTimeOut()"
  9.   ------------------------------------------------------------------------
  10.   
  11.   
  12.   ------------------------------------------------------------------------
  13.   --  This is the channel where the down buttons will activate
  14.   ------------------------------------------------------------------------
  15.   
  16.   set downSprite = 47
  17.   puppetSprite downSprite,TRUE
  18.   preloadCast "backDown"
  19.   preloadCast "back"
  20.   
  21.   -----------------------------------------------------------------------
  22.   cursor -1
  23. end startMovie
  24.  
  25.  
  26.  
  27. on stopMovie
  28.   global downSprite
  29.   puppetSprite downSprite,FALSE
  30.   unloadCast "backDown"
  31.   unloadCast "back"
  32. end stopMovie
  33.  
  34. ------------------------------------------------------------------------
  35. -- CODE FOR DOWN BUTTONS
  36. ------------------------------------------------------------------------
  37. on questionDown
  38.   global downSprite
  39.   sound stop 1
  40.   puppetSound "back"  
  41.   
  42.   set the castNum of sprite downSprite = the number of cast "?Down"
  43.   set the loch of sprite downSprite = 46
  44.   set the locv of sprite downSprite = 459
  45.   updateStage
  46.   repeat while soundBusy(1)
  47.     --
  48.   end repeat
  49.   puppetSound 0
  50.   set the loch of sprite downSprite = -100
  51.   set the locv of sprite downSprite = -100
  52.   updateStage
  53. end questionDown
  54.  
  55. on backDown
  56.   global downSprite
  57.   sound stop 1
  58.   puppetSound "back"  
  59.   
  60.   set the castNum of sprite downSprite = the number of cast "backDown"
  61.   set the loch of sprite downSprite = 619
  62.   set the locv of sprite downSprite = 459
  63.   updateStage
  64.   repeat while soundBusy(1)
  65.     --
  66.   end repeat
  67.   puppetSound 0
  68.   set the loch of sprite downSprite = -100
  69.   set the locv of sprite downSprite = -100
  70.   updateStage
  71. end backDown
  72. ------------------------------------------------------------------------ 
  73.  
  74. ------------------------------------------------------------------------
  75. -- CODE FOR TIMEOUT SCRIPT
  76. ------------------------------------------------------------------------
  77. on doTimeOut
  78.   set the timeoUtScript = EMPTY
  79.   go "start" of movie "birdDemo.dir"
  80. end doTimeOut
  81. ------------------------------------------------------------------------