home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq_demo.exe / uq_demo.DXR / 00152.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  208 b   |  13 lines
  1. on exitFrame
  2.   set a to 7
  3.   repeat with n = 0 to 14
  4.     set a to a + 1
  5.     puppetSprite(a, 0)
  6.     set a to a + 1
  7.     puppetSprite(a, 0)
  8.   end repeat
  9.   repeat while soundBusy(1)
  10.     nothing()
  11.   end repeat
  12. end
  13.