home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT2.DXR / 00008.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  586 b   |  29 lines
  1. on exitFrame
  2.   global gwlist1
  3.   if soundBusy(3) then
  4.     repeat while soundBusy(3)
  5.       nothing()
  6.     end repeat
  7.     waith(30)
  8.   end if
  9.   puppetSound(3, 32)
  10.   set gwlist1 to []
  11.   repeat with n = 1 to 20
  12.     set num to random(20)
  13.     if getOne(gwlist1, num) = 0 then
  14.       append(gwlist1, num)
  15.       next repeat
  16.     end if
  17.     set n to n - 1
  18.   end repeat
  19.   repeat with n = 1 to 20
  20.     puppetSprite(n + 21, 1)
  21.     puppetSprite(n + 1, 1)
  22.     set the castNum of sprite (n + 21) to getAt(gwlist1, n) + 190
  23.   end repeat
  24.   repeat while soundBusy(3)
  25.     nothing()
  26.   end repeat
  27.   waith(15)
  28. end
  29.