home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / nttdata / start.dcr / 00013.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.0 KB  |  34 lines
  1. on NowL
  2.   repeat with tr = 17 to 26
  3.     puppetSprite(tr, 1)
  4.   end repeat
  5.   set c to random(5)
  6.   set b to 135
  7.   set a to 300 * random(0)
  8.   repeat with ww = 1 to 20
  9.     set the locV of sprite 3 to cos(584 + a) + random(5) + b
  10.     set the locV of sprite 4 to cos(794 + a) + random(8) + b
  11.     set the locV of sprite 5 to cos(430 + a) + random(5) + b
  12.     set the locV of sprite 6 to cos(885 + a) + random(8) + b
  13.     set the locV of sprite 7 to cos(693 + a) + random(5) + b
  14.     set the locV of sprite 8 to cos(496 + a) + random(8) + b
  15.     set the locV of sprite 9 to cos(274 + a) + random(5) + b
  16.     set the locV of sprite 10 to cos(940 + a) + random(8) + b
  17.     set the locV of sprite 11 to cos(295 + a) + random(5) + b
  18.     set the locV of sprite 12 to cos(594 + a) + random(8) + b
  19.     set a to a + a
  20.     set c to sin(288 + a) + (random(3) * 2) + (ww * 2)
  21.     updateStage()
  22.     wait(1)
  23.   end repeat
  24.   repeat with tr = 17 to 26
  25.     puppetSprite(tr, 0)
  26.   end repeat
  27. end
  28.  
  29. on wait t
  30.   set tt to the timer
  31.   repeat while the timer < (t + tt)
  32.   end repeat
  33. end
  34.