home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp13.dxr / script_3.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  655 b   |  25 lines
  1. on exitFrame
  2.   global gtime1, gnum1
  3.   set gtime1 to 30
  4.   set gnum1 to 1
  5.   startTimer()
  6.   repeat with n = 15 to 26
  7.     set h to the locH of sprite n
  8.     set v to the locV of sprite n
  9.     set mh to (the locH of sprite (n - 14) - h) / 10
  10.     set mv to (the locV of sprite (n - 14) - v) / 10
  11.     repeat with c = 1 to 10
  12.       set the locH of sprite n to h + (mh * c)
  13.       set the locV of sprite n to v + (mv * c)
  14.       updateStage()
  15.       waith(3)
  16.     end repeat
  17.     set the locH of sprite n to the locH of sprite (n - 14)
  18.     set the locV of sprite n to the locV of sprite (n - 14)
  19.     updateStage()
  20.     waith(3)
  21.   end repeat
  22.   sound stop 2
  23.   waith(50)
  24. end
  25.