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