home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp11.dxr / script_2.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.1 KB  |  63 lines
  1. on countt
  2.   global gtime1, gland, gnum1
  3.   if gtime1 = 24 then
  4.     set gtime1 to 1
  5.   else
  6.     set gtime1 to gtime1 + 1
  7.   end if
  8.   if (gtime1 mod 2) = 0 then
  9.     curh()
  10.   end if
  11.   moveh3()
  12.   startTimer()
  13. end
  14.  
  15. on curh
  16.   global gwlist1
  17.   setAt(gwlist1, 1, getAt(gwlist1, 1) * -1)
  18.   if getAt(gwlist1, 1) = 1 then
  19.     cursor([7, 8])
  20.   else
  21.     cursor([9, 10])
  22.   end if
  23. end
  24.  
  25. on moveh3
  26.   global gtime1, gwlist1, gnum1
  27.   kumoh(2)
  28.   if (gtime1 mod 2) = 0 then
  29.     kumoh(3)
  30.   end if
  31.   if (gtime1 mod 3) = 0 then
  32.     kumoh(4)
  33.   end if
  34.   if (gtime1 mod 3) = 0 then
  35.     set gnum1 to gnum1 + 1
  36.   end if
  37.   set num to getAt(gwlist1, 5)
  38.   if num = 35 then
  39.     set num to 1
  40.   else
  41.     set num to num + 1
  42.   end if
  43.   setAt(gwlist1, 5, num)
  44.   if num < 30 then
  45.     set the locH of sprite 6 to 322 - (num * 15)
  46.   end if
  47. end
  48.  
  49. on kumoh pos
  50.   global gwlist1
  51.   set num to getAt(gwlist1, pos)
  52.   if num = 8 then
  53.     set num to 1
  54.   else
  55.     set num to num + 1
  56.   end if
  57.   setAt(gwlist1, pos, num)
  58.   if num > 5 then
  59.     set num to num - ((num - 5) * 2)
  60.   end if
  61.   set the locV of sprite (pos + 1) to 237 + (1 * num)
  62. end
  63.