830 var x, y, xx, yy, ty, tx, d: LongInt;

   830 var x, y, xx, yy, ty, tx, d: LongInt;

   831     bRes, updateBlock, resweepCol, resweepGfx, gfxOnly, recheck, firstpass: boolean;

   831     bRes, updateBlock, resweepCol, resweepGfx, gfxOnly, recheck, firstpass: boolean;

   832 begin

   832 begin

   833 bRes:= false;

   833 bRes:= false;

   834 reCheck:= true;

   834 reCheck:= true;

   835 

   836 

   836 while recheck do

   837 while recheck do

   837     begin

   838     begin

   838     recheck:= false;

   839     recheck:= false;

   839     for y:= 0 to LAND_HEIGHT div 32 - 1 do

   840     for y:= 0 to LAND_HEIGHT div 32 - 1 do