home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / qh_demo.exe / DEMOHNT3.DXR / 00113.ls < prev    next >
Encoding:
Text File  |  1996-08-09  |  1.9 KB  |  65 lines
  1. on exitFrame
  2.   set alist to [0, 3, 6, 1]
  3.   set blist to [0, 4, 2, 7]
  4.   set aalist to [0, 5, 2, 8]
  5.   set bblist to [0, 2, 6, 0]
  6.   set ralist to [1, 0, 0, 0]
  7.   set rblist to [1, 0, 0, 0]
  8.   repeat with c = 0 to 9
  9.     repeat with r = 1 to 3
  10.       repeat with n = 2 to 4
  11.         set the castNum of sprite (9 + n) to ((getAt(alist, n) + c) mod 10) + 151 + (10 * r)
  12.         set the castNum of sprite (12 + n) to ((getAt(blist, n) + c) mod 10) + 151 + (10 * r)
  13.       end repeat
  14.       waitupdateh(1)
  15.     end repeat
  16.     repeat with n = 2 to 4
  17.       set the castNum of sprite (9 + n) to ((getAt(alist, n) + c + 1) mod 10) + 151
  18.       set the castNum of sprite (12 + n) to ((getAt(blist, n) + c + 1) mod 10) + 151
  19.     end repeat
  20.     waitupdateh(1)
  21.   end repeat
  22.   repeat with c = 0 to 9
  23.     repeat with r = 1 to 3
  24.       repeat with n = 2 to 4
  25.         if getAt(ralist, n) = 0 then
  26.           set the castNum of sprite (9 + n) to ((getAt(alist, n) + c) mod 10) + 151 + (10 * r)
  27.         end if
  28.         if getAt(rblist, n) = 0 then
  29.           set the castNum of sprite (12 + n) to ((getAt(blist, n) + c) mod 10) + 151 + (10 * r)
  30.         end if
  31.       end repeat
  32.       waitupdateh(1)
  33.     end repeat
  34.     repeat with n = 2 to 4
  35.       if getAt(ralist, n) = 0 then
  36.         set the castNum of sprite (9 + n) to ((getAt(alist, n) + c + 1) mod 10) + 151
  37.       end if
  38.       if getAt(aalist, n) = ((getAt(alist, n) + c + 1) mod 10) then
  39.         setAt(ralist, n, 1)
  40.       end if
  41.       if getAt(rblist, n) = 0 then
  42.         set the castNum of sprite (12 + n) to ((getAt(blist, n) + c + 1) mod 10) + 151
  43.       end if
  44.       if getAt(bblist, n) = ((getAt(blist, n) + c + 1) mod 10) then
  45.         setAt(rblist, n, 1)
  46.       end if
  47.     end repeat
  48.     waitupdateh(1)
  49.   end repeat
  50.   unLoadCast(73, 74)
  51.   repeat while soundBusy(2)
  52.     nothing()
  53.   end repeat
  54.   unLoadCast(111, 120)
  55.   unLoadCast(150, 190)
  56. end
  57.  
  58. on waitupdateh num
  59.   updateStage()
  60.   startTimer()
  61.   repeat while the timer < num
  62.     nothing()
  63.   end repeat
  64. end
  65.