home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq2_demo.exe / uq2_demo.DXR / 00175.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  378 b   |  19 lines
  1. on exitFrame
  2.   global win
  3.   repeat with n = -37 to 37
  4.     set the locH of sprite 3 to ((n + 113) * 4) - 100
  5.     set a to (n * n / 6) + 240 - 15
  6.     set the locV of sprite 3 to a
  7.     if (n = 20) and (win = 1) then
  8.       puppetSound(3, 184)
  9.     end if
  10.     if (n = 37) and (win = 0) then
  11.       puppetSound(3, 184)
  12.     end if
  13.     updateStage()
  14.   end repeat
  15. end
  16.  
  17. on chkmousedown
  18. end
  19.