home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 9 / cdrt09.iso / mac / UTAHDEMO / SHARED.DIR / 00736_Script_736 < prev    next >
Text File  |  1995-01-13  |  732b  |  27 lines
  1. -- r menu init
  2.  
  3. on resortMenuInit tf
  4.   global timeOutSeconds
  5.   puppetSprite 10, FALSE
  6.   if ((tf) and ((the lastRoll) < (60 * timeOutSeconds))) then return
  7.   if (the stillDown) then return
  8.  
  9.   puppetSprite 17, TRUE
  10.   repeat with n = 0 to 4
  11.     set the locV of sprite 17 to the locV of sprite (9+n)
  12.     set the locH of sprite 17 to the locH of sprite (9+n)
  13.     set the castNum of sprite 17 to (g31 + n)
  14.     set the stretch of sprite 17 to FALSE
  15.     updateStage
  16.     delayLoop
  17.   end repeat
  18.   set the locV of sprite 17 to 1400
  19.   updateStage
  20.  
  21.   if (tf) then
  22.     puppetSprite 8, TRUE
  23.     set the locV of sprite 8 to 436
  24.     set the stretch of sprite 8 to FALSE
  25.     updateStage
  26.   end if
  27.   set the timeOutLapsed to 0