home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_14.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  547 b   |  36 lines
  1. on exitFrame
  2.   repeat while soundBusy(1)
  3.     if the timer > 5 then
  4.       moveh6()
  5.     end if
  6.     if the mouseDown then
  7.       exith()
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on moveh6
  13.   global gtime1
  14.   if gtime1 = 24 then
  15.     set gtime1 to 1
  16.   else
  17.     set gtime1 to gtime1 + 1
  18.   end if
  19.   if (gtime1 mod 12) = 0 then
  20.     curh()
  21.   end if
  22.   if (gtime1 mod 4) = 0 then
  23.     freh()
  24.   end if
  25.   updateStage()
  26.   startTimer()
  27. end
  28.  
  29. on freh
  30.   if the locV of sprite 5 = 240 then
  31.     set the locV of sprite 5 to 550
  32.   else
  33.     set the locV of sprite 5 to 240
  34.   end if
  35. end
  36.