home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT1.DXR / 00015.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  1.2 KB  |  53 lines
  1. on exitFrame
  2.   global gpersonlist
  3.   repeat with n = 0 to 6
  4.     set num to sqrt(51984 - ((228 - (n * 38)) * (228 - (n * 38))))
  5.     set the locH of sprite 13 to 560 - (n * 38)
  6.     set the locV of sprite 13 to 12 + num
  7.     waith()
  8.   end repeat
  9.   repeat with n = 1 to 6
  10.     set num to sqrt(51984 - (n * 38 * (n * 38)))
  11.     set the locH of sprite 13 to 332 - (n * 38)
  12.     set the locV of sprite 13 to 12 + num
  13.     waith()
  14.   end repeat
  15.   set the locV of sprite 13 to -80
  16.   waith()
  17.   startTimer()
  18.   repeat while the timer < 50
  19.     nothing()
  20.   end repeat
  21.   set the locH of sprite 13 to 134
  22.   set the locV of sprite 13 to 8
  23.   waith()
  24.   set the locH of sprite 13 to 141
  25.   set the locV of sprite 13 to 91
  26.   waith()
  27.   set gpersonlist to [random(9)]
  28.   repeat with n = 1 to 3
  29.     set num to random(9)
  30.     if getOne(gpersonlist, num) = 0 then
  31.       append(gpersonlist, num)
  32.       next repeat
  33.     end if
  34.     set n to n - 1
  35.   end repeat
  36.   repeat with n = 1 to 4
  37.     puppetSprite(n + 7, 1)
  38.     set the castNum of sprite (n + 7) to getAt(gpersonlist, n) + 200
  39.   end repeat
  40.   startTimer()
  41.   repeat while the timer < 60
  42.     nothing()
  43.   end repeat
  44. end
  45.  
  46. on waith
  47.   startTimer()
  48.   updateStage()
  49.   repeat while the timer < 3
  50.     nothing()
  51.   end repeat
  52. end
  53.