home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq2_demo.exe / uq2_demo.DXR / 00154.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  674 b   |  33 lines
  1. on exitFrame
  2.   global win
  3.   repeat with n = 4 to 25
  4.     puppetSprite(n, 1)
  5.   end repeat
  6.   repeat with l = 1 to 11
  7.     puppetSound(3, 156)
  8.     updateStage()
  9.     if win = 1 then
  10.       startTimer()
  11.       repeat while the timer < 5
  12.         nothing()
  13.       end repeat
  14.     end if
  15.     repeat with n = 1 to 14
  16.       set the locH of sprite (l + 3) to (n * 20) - 215
  17.       updateStage()
  18.     end repeat
  19.     startTimer()
  20.     repeat while the timer < 20
  21.       nothing()
  22.     end repeat
  23.     set the locH of sprite (l + 14) to 47
  24.     updateStage()
  25.     repeat while the timer < 25
  26.       nothing()
  27.     end repeat
  28.   end repeat
  29.   repeat with n = 4 to 25
  30.     puppetSprite(n, 0)
  31.   end repeat
  32. end
  33.