hedgewars/uLandGraphics.pas
changeset 5386 ba85acff9828
parent 5384 83d3b50d7e24
child 5480 37bafa5a7016
equal deleted inserted replaced
5384:83d3b50d7e24 5386:ba85acff9828
   833                                 begin
   833                                 begin
   834                                 bRes:= true;
   834                                 bRes:= true;
   835                                 updateBlock:= true;
   835                                 updateBlock:= true;
   836                                 if d = 1 then resweepCol:= true
   836                                 if d = 1 then resweepCol:= true
   837                                 else resweepGfx:= true;
   837                                 else resweepGfx:= true;
   838                                 if not resweepGfx then
   838                                 if d = 1 then
   839                                     if (yy = ty) and (y > 0) then
   839                                     if (yy = ty) and (y > 0) then
   840                                         begin
   840                                         begin
   841                                         LandDirty[y-1, x]:= 1;
   841                                         LandDirty[y-1, x]:= 1;
   842                                         recheck:= true;
   842                                         recheck:= true;
   843                                         end
   843                                         end