home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / uq2_demo.exe / uq2_demo.DXR / 00161.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.1 KB  |  50 lines
  1. on exitFrame
  2.   global clkflag
  3.   set the volume of sound 1 to 255
  4.   repeat with l = 1 to 11
  5.     puppetSound("├ë{├ë^├ë├¼1")
  6.     updateStage()
  7.     if clkflag = 0 then
  8.       repeat with n = 1 to 14
  9.         set the locH of sprite (l + 3) to (n * 20) - 215
  10.         updateStage()
  11.         if the mouseDown then
  12.           set clkflag to 1
  13.           exit repeat
  14.         end if
  15.       end repeat
  16.     else
  17.       exit repeat
  18.     end if
  19.     if clkflag = 0 then
  20.       startTimer()
  21.       repeat while the timer < 20
  22.         if the mouseDown then
  23.           set clkflag to 1
  24.           exit repeat
  25.         end if
  26.       end repeat
  27.       set the locH of sprite (l + 14) to 47
  28.       updateStage()
  29.       repeat while the timer < 25
  30.         if the mouseDown then
  31.           set clkflag to 1
  32.           exit repeat
  33.         end if
  34.       end repeat
  35.       next repeat
  36.     end if
  37.     exit repeat
  38.   end repeat
  39.   if clkflag = 1 then
  40.     repeat with n = 1 to 11
  41.       set y to (30 * (n - 1)) + 129
  42.       set the locH of sprite (n + 3) to 65
  43.       set the locV of sprite (n + 3) to y
  44.       set the locH of sprite (n + 14) to 47
  45.       set the locV of sprite (n + 14) to y
  46.     end repeat
  47.   end if
  48.   cursor(200)
  49. end
  50.