home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00028_MOVERED.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  676 b   |  28 lines
  1. on MOVERED
  2.   global GRIDY, GRIDV, GRIDH, GRIDN, MV, GN, done, REDSCORE, BLUESCORE, GAMELEN
  3.   set done to 0
  4.   repeat while done = 0
  5.     set MV to 0
  6.     repeat while MV = 0
  7.       set MV to 0
  8.       repeat with N = 1 to 140
  9.         set GN to getAt(GRIDN, N)
  10.         if getAt(GRIDV, GN) = 3 then
  11.           CHECKMOVERED()
  12.         end if
  13.       end repeat
  14.       if MV = 0 then
  15.         set MV to 1
  16.       end if
  17.       if ((REDSCORE - 2) > GAMELEN) or ((BLUESCORE - 2) > GAMELEN) then
  18.         set MV to 1
  19.       end if
  20.     end repeat
  21.     CHECKALLMOVERED()
  22.     if ((REDSCORE - 2) > GAMELEN) or ((BLUESCORE - 2) > GAMELEN) then
  23.       set done to 1
  24.     end if
  25.   end repeat
  26.   SHIFTHEAD()
  27. end
  28.