home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_8.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  733 b   |  47 lines
  1. on exitFrame
  2.   global gflag1
  3.   set gflag1 to 33
  4.   repeat while gflag1 <> 37
  5.     if the timer > 5 then
  6.       moveh2()
  7.     end if
  8.     if the mouseDown then
  9.       exith()
  10.     end if
  11.   end repeat
  12. end
  13.  
  14. on moveh2
  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.   if (gtime1 mod 3) = 0 then
  25.     handh()
  26.   end if
  27.   if (gtime1 mod 6) = 0 then
  28.     pasoh()
  29.   end if
  30.   updateStage()
  31.   startTimer()
  32. end
  33.  
  34. on handh
  35.   if the locH of sprite 3 = -22 then
  36.     set the locH of sprite 3 to 132
  37.   else
  38.     set the locH of sprite 3 to -22
  39.   end if
  40. end
  41.  
  42. on pasoh
  43.   global gflag1
  44.   set gflag1 to gflag1 + 1
  45.   set the memberNum of sprite 2 to gflag1
  46. end
  47.