home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / hsqdemo.dxr / 00064.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  428 b   |  21 lines
  1. on exitFrame
  2.   global work8, work9
  3.   set work8 to -1
  4.   set work9 to 0
  5.   wtime(20)
  6.   repeat with n = 3 to 9
  7.     puppetSprite(n, 1)
  8.   end repeat
  9.   set xlist to [430, 433, 410, 427, 347, 403, 393]
  10.   repeat with n = 1 to 12
  11.     repeat with m = 1 to 7
  12.       set the locH of sprite (m + 2) to (n * 15) + getAt(xlist, m)
  13.     end repeat
  14.     updateStage()
  15.     wtime01(4)
  16.   end repeat
  17.   puppetSprite(20, 1)
  18.   wtime(45)
  19.   startTimer()
  20. end
  21.