home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_10.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  946 b   |  43 lines
  1. on exitFrame
  2.   global gflag1
  3.   preLoadCast(65, 70)
  4.   set gflag1 to 1
  5.   repeat while gflag1 <> 15
  6.     if the timer > 5 then
  7.       moveh4()
  8.     end if
  9.     if the mouseDown then
  10.       exith()
  11.     end if
  12.   end repeat
  13.   unLoadCast(65, 70)
  14. end
  15.  
  16. on moveh4
  17.   global gtime1
  18.   if gtime1 = 24 then
  19.     set gtime1 to 1
  20.   else
  21.     set gtime1 to gtime1 + 1
  22.   end if
  23.   if (gtime1 mod 12) = 0 then
  24.     curh()
  25.   end if
  26.   norih()
  27.   updateStage()
  28.   startTimer()
  29. end
  30.  
  31. on norih
  32.   global gflag1
  33.   set gflag1 to gflag1 + 1
  34.   if (gflag1 mod 2) = 0 then
  35.     set the locH of sprite 3 to getAt([79, 267, 435, 540, 407, 415, 243], gflag1 / 2)
  36.     set the locV of sprite 3 to getAt([135, 80, 77, 142, 154, 194, 141], gflag1 / 2)
  37.   else
  38.     set the locH of sprite 3 to getAt([172, 362, 508, 456, 474, 296, 241], gflag1 / 2)
  39.     set the locV of sprite 3 to getAt([93, 67, 88, 140, 226, 154, 161], gflag1 / 2)
  40.     set the memberNum of sprite 3 to (gflag1 / 2) + 63
  41.   end if
  42. end
  43.