home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01a.dxr / script_13.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  884 b   |  46 lines
  1. on exitFrame
  2.   global gflag1
  3.   if the timer > 5 then
  4.     counth()
  5.   end if
  6.   set the locH of sprite 31 to the mouseH
  7.   set the locV of sprite 31 to the mouseV
  8.   set the locH of sprite 32 to the mouseH
  9.   set the locV of sprite 32 to the mouseV
  10.   if gflag1 > 15 then
  11.     sound fadeOut 2, 120
  12.     go(the frame + 1)
  13.   else
  14.     go(the frame)
  15.   end if
  16. end
  17.  
  18. on counth
  19.   global gtime1
  20.   counth2()
  21.   if (gtime1 mod 2) = 0 then
  22.     noriph()
  23.   end if
  24. end
  25.  
  26. on noriph
  27.   global gflag1
  28.   if gflag1 > 8 then
  29.     if not soundBusy(1) then
  30.       set gflag1 to gflag1 + 1
  31.     end if
  32.     exit
  33.   end if
  34.   if gflag1 = 0 then
  35.     set the locH of sprite 34 to 771
  36.   else
  37.     if gflag1 = 8 then
  38.       set the locH of sprite 34 to 757
  39.     else
  40.       set the locH of sprite 34 to 721 - (gflag1 * 103)
  41.       set the memberNum of sprite 34 to (gflag1 mod 2) + 26
  42.     end if
  43.   end if
  44.   set gflag1 to gflag1 + 1
  45. end
  46.