home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq2_demo.exe / uq2_demo.DXR / 00061.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  792 b   |  33 lines
  1. on exitFrame
  2.   repeat with n = 11 to 30
  3.     puppetSprite(n, 1)
  4.     set x to random(640)
  5.     set y to random(200) + 30
  6.     set the locH of sprite n to x
  7.     set the locV of sprite n to y
  8.   end repeat
  9.   puppetSound(3, cast "├¼D")
  10.   updateStage()
  11.   repeat with n = 11 to 30
  12.     set x to random(640)
  13.     set y to random(400) + 30
  14.     set the locH of sprite n to x
  15.     set the locV of sprite n to y
  16.   end repeat
  17.   updateStage()
  18.   repeat with n = 11 to 30
  19.     set x to random(640)
  20.     set y to random(400) + 30
  21.     set the locH of sprite n to x
  22.     set the locV of sprite n to y
  23.   end repeat
  24.   updateStage()
  25.   repeat with n = 11 to 30
  26.     set x to random(640)
  27.     set y to random(400) + 30
  28.     set the locH of sprite n to x
  29.     set the locV of sprite n to y
  30.     puppetSprite(n, 0)
  31.   end repeat
  32. end
  33.