home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq2_demo.exe / uq2_demo.DXR / 00176.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  364 b   |  21 lines
  1. on exitFrame
  2.   global win
  3.   startTimer()
  4.   repeat while the timer < 15
  5.     nothing()
  6.   end repeat
  7.   repeat with n = -2 to 23
  8.     set the locH of sprite 4 to n * 24
  9.     if (n = 15) and (win = 1) then
  10.       puppetSound(3, 183)
  11.     end if
  12.     if (n = 23) and (win = 0) then
  13.       puppetSound(3, 183)
  14.     end if
  15.     updateStage()
  16.   end repeat
  17. end
  18.  
  19. on chkmousedown
  20. end
  21.