home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01b.dxr / script_4.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  731 b   |  45 lines
  1. on exitFrame
  2.   if not soundBusy(2) then
  3.     endsubh()
  4.   end if
  5.   if the timer > 5 then
  6.     countt()
  7.   end if
  8.   go(the frame)
  9. end
  10.  
  11. on countt
  12.   global gtime1, gland
  13.   if gtime1 = 24 then
  14.     set gtime1 to 1
  15.   else
  16.     set gtime1 to gtime1 + 1
  17.   end if
  18.   if (gtime1 mod 2) = 0 then
  19.     curh()
  20.     airthh()
  21.   end if
  22.   do("moveH" & string(gland))
  23.   startTimer()
  24. end
  25.  
  26. on curh
  27.   global gwlist1
  28.   setAt(gwlist1, 1, getAt(gwlist1, 1) * -1)
  29.   if getAt(gwlist1, 1) = 1 then
  30.     cursor([3, 4])
  31.   else
  32.     cursor([5, 6])
  33.   end if
  34. end
  35.  
  36. on airthh
  37.   global gwlist1
  38.   if getAt(gwlist1, 2) = 6 then
  39.     setAt(gwlist1, 2, 1)
  40.   else
  41.     setAt(gwlist1, 2, getAt(gwlist1, 2) + 1)
  42.   end if
  43.   set the memberNum of sprite 15 to 140 + getAt(gwlist1, 2)
  44. end
  45.