Mercurial Mercurial > sheepy-clone / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLandGraphics.pas
changeset 3596 51062794ed01
parent 3595 341e407e3754
child 3601 8a74c9ceaf71
equal deleted inserted replaced
3595:341e407e3754 3596:51062794ed01 
   139      end;
 
   139      end;
 
   140   if (dx = dy) then ChangeCircleLines(x, y, dx, dy, doSet)
 
   140   if (dx = dy) then ChangeCircleLines(x, y, dx, dy, doSet)
 
   141 end;
 
   141 end;
 
   142 
   142 
   143 procedure FillLandCircleLines0(x, y, dx, dy: LongInt);
 
   143 procedure FillLandCircleLines0(x, y, dx, dy: LongInt);
 
   144 var i: LongInt;
 
   144 var i, t: LongInt;
 
   145 begin
 
   145 begin
 
   146 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
   146 t:= y + dy;
 
       
   147 if (t and LAND_HEIGHT_MASK) = 0 then
 
   147     for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   148     for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   148         if (not isMap and ((Land[y + dy, i] and lfIndestructible) = 0)) or ((Land[y + dy, i] and lfBasic) <> 0) then
 
   149         if (not isMap and ((Land[t, i] and lfIndestructible) = 0)) or ((Land[t, i] and lfBasic) <> 0) then
 
   149             if (cReducedQuality and rqBlurryLand) = 0 then
 
   150             if (cReducedQuality and rqBlurryLand) = 0 then
 
   150                 LandPixels[y + dy, i]:= 0
 
   151                 LandPixels[t, i]:= 0
 
   151             else
 
   152             else
 
   152                 LandPixels[(y + dy) div 2, i div 2]:= 0;
 
   153                 LandPixels[t div 2, i div 2]:= 0;
 
   153 
   154 
   154 if ((y - dy) and LAND_HEIGHT_MASK) = 0 then
 
   155 t:= y - dy;
 
       
   156 if (t and LAND_HEIGHT_MASK) = 0 then
 
   155     for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   157     for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   156         if (not isMap and ((Land[y - dy, i] and lfIndestructible) = 0)) or ((Land[y - dy, i] and lfBasic) <> 0) then
 
   158         if (not isMap and ((Land[t, i] and lfIndestructible) = 0)) or ((Land[t, i] and lfBasic) <> 0) then
 
   157             if (cReducedQuality and rqBlurryLand) = 0 then
 
   159             if (cReducedQuality and rqBlurryLand) = 0 then
 
   158                 LandPixels[y - dy, i]:= 0
 
   160                 LandPixels[t, i]:= 0
 
   159             else
 
   161             else
 
   160                 LandPixels[(y - dy) div 2, i div 2]:= 0;
 
   162                 LandPixels[t div 2, i div 2]:= 0;
 
   161 
   163 
   162 if ((y + dx) and LAND_HEIGHT_MASK) = 0 then
 
   164 t:= y + dx;
 
       
   165 if (t and LAND_HEIGHT_MASK) = 0 then
 
   163     for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   166     for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   164         if (not isMap and ((Land[y + dx, i] and lfIndestructible) = 0)) or ((Land[y + dx, i] and lfBasic) <> 0) then
 
   167         if (not isMap and ((Land[t, i] and lfIndestructible) = 0)) or ((Land[t, i] and lfBasic) <> 0) then
 
   165             if (cReducedQuality and rqBlurryLand) = 0 then
 
   168             if (cReducedQuality and rqBlurryLand) = 0 then
 
   166                 LandPixels[y + dx, i]:= 0
 
   169                 LandPixels[t, i]:= 0
 
   167             else
 
   170             else
 
   168                 LandPixels[(y + dx) div 2, i div 2]:= 0;
 
   171                 LandPixels[t div 2, i div 2]:= 0;
 
   169 
   172 
   170 if ((y - dx) and LAND_HEIGHT_MASK) = 0 then
 
   173 t:= y - dx;
 
       
   174 if (t and LAND_HEIGHT_MASK) = 0 then
 
   171     for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   175     for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   172         if (not isMap and ((Land[y - dx, i] and lfIndestructible) = 0)) or ((Land[y - dx, i] and lfBasic) <> 0) then
 
   176         if (not isMap and ((Land[t, i] and lfIndestructible) = 0)) or ((Land[t, i] and lfBasic) <> 0) then
 
   173             if (cReducedQuality and rqBlurryLand) = 0 then
 
   177             if (cReducedQuality and rqBlurryLand) = 0 then
 
   174                 LandPixels[y - dx, i]:= 0
 
   178                 LandPixels[t, i]:= 0
 
   175             else
 
   179             else
 
   176                 LandPixels[(y - dx) div 2, i div 2]:= 0;
 
   180                 LandPixels[t div 2, i div 2]:= 0;
 
   177 
   181 
   178 end;
 
   182 end;
 
   179 
   183 
   180 procedure FillLandCircleLinesBG(x, y, dx, dy: LongInt);
 
   184 procedure FillLandCircleLinesBG(x, y, dx, dy: LongInt);
 
   181 var i: LongInt;
 
   185 var i, t: LongInt;
 
   182 begin
 
   186 begin
 
   183 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
   187 t:= y + dy;
 
       
   188 if (t and LAND_HEIGHT_MASK) = 0 then
 
   184    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   189    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   185        if ((Land[y + dy, i] and lfBasic) <> 0) then
 
   190        if ((Land[t, i] and lfBasic) <> 0) then
 
   186            if (cReducedQuality and rqBlurryLand) = 0 then
 
   191            if (cReducedQuality and rqBlurryLand) = 0 then
 
   187                LandPixels[y + dy, i]:= LandBackPixel(i, y + dy)
 
   192                LandPixels[t, i]:= LandBackPixel(i, t)
 
   188            else
 
   193            else
 
   189                LandPixels[(y + dy) div 2, i div 2]:= LandBackPixel(i, y + dy)
 
   194                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
 
   190        else
 
   195        else
 
   191            if ((Land[y + dy, i] and lfObject) <> 0) then
 
   196            if ((Land[t, i] and lfObject) <> 0) then
 
   192                if (cReducedQuality and rqBlurryLand) = 0 then
 
   197                if (cReducedQuality and rqBlurryLand) = 0 then
 
   193                    LandPixels[y + dy, i]:= 0
 
   198                    LandPixels[t, i]:= 0
 
   194                else
 
   199                else
 
   195                    LandPixels[(y + dy) div 2, i div 2]:= 0;
 
   200                    LandPixels[t div 2, i div 2]:= 0;
 
   196 
   201 
   197 if ((y - dy) and LAND_HEIGHT_MASK) = 0 then
 
   202 t:= y - dy;
 
       
   203 if (t and LAND_HEIGHT_MASK) = 0 then
 
   198    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   204    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   199        if ((Land[y - dy, i] and lfBasic) <> 0) then
 
   205        if ((Land[t, i] and lfBasic) <> 0) then
 
   200            if (cReducedQuality and rqBlurryLand) = 0 then
 
   206            if (cReducedQuality and rqBlurryLand) = 0 then
 
   201                LandPixels[y - dy, i]:= LandBackPixel(i, y - dy)
 
   207                LandPixels[t, i]:= LandBackPixel(i, t)
 
   202            else
 
   208            else
 
   203                LandPixels[(y - dy) div 2, i div 2]:= LandBackPixel(i, y - dy)
 
   209                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
 
   204        else
 
   210        else
 
   205            if ((Land[y - dy, i] and lfObject) <> 0) then
 
   211            if ((Land[t, i] and lfObject) <> 0) then
 
   206                if (cReducedQuality and rqBlurryLand) = 0 then
 
   212                if (cReducedQuality and rqBlurryLand) = 0 then
 
   207                    LandPixels[y - dy, i]:= 0
 
   213                    LandPixels[t, i]:= 0
 
   208                else
 
   214                else
 
   209                    LandPixels[(y - dy) div 2, i div 2]:= 0;
 
   215                    LandPixels[t div 2, i div 2]:= 0;
 
   210 
   216 
   211 if ((y + dx) and LAND_HEIGHT_MASK) = 0 then
 
   217 t:= y + dx;
 
       
   218 if (t and LAND_HEIGHT_MASK) = 0 then
 
   212    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   219    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   213        if ((Land[y + dx, i] and lfBasic) <> 0) then
 
   220        if ((Land[t, i] and lfBasic) <> 0) then
 
   214            if (cReducedQuality and rqBlurryLand) = 0 then
 
   221            if (cReducedQuality and rqBlurryLand) = 0 then
 
   215            LandPixels[y + dx, i]:= LandBackPixel(i, y + dx)
 
   222            LandPixels[t, i]:= LandBackPixel(i, t)
 
   216             else 
   223             else 
   217            LandPixels[(y + dx) div 2, i div 2]:= LandBackPixel(i, y + dx)
 
   224            LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
 
   218        else
 
   225        else
 
   219             if ((Land[y + dx, i] and lfObject) <> 0) then
 
   226             if ((Land[t, i] and lfObject) <> 0) then
 
   220             if (cReducedQuality and rqBlurryLand) = 0 then
 
   227             if (cReducedQuality and rqBlurryLand) = 0 then
 
   221           LandPixels[y + dx, i]:= 0
 
   228           LandPixels[t, i]:= 0
 
   222             else
 
   229             else
 
   223            LandPixels[(y + dx) div 2, i div 2]:= 0;
 
   230            LandPixels[t div 2, i div 2]:= 0;
 
   224 
   231 
   225 if ((y - dx) and LAND_HEIGHT_MASK) = 0 then
 
   232 t:= y - dx;
 
       
   233 if (t and LAND_HEIGHT_MASK) = 0 then
 
   226    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   234    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   227        if ((Land[y - dx, i] and lfBasic) <> 0) then
 
   235        if ((Land[t, i] and lfBasic) <> 0) then
 
   228             if (cReducedQuality and rqBlurryLand) = 0 then
 
   236             if (cReducedQuality and rqBlurryLand) = 0 then
 
   229           LandPixels[y - dx, i]:= LandBackPixel(i, y - dx)
 
   237           LandPixels[t, i]:= LandBackPixel(i, t)
 
   230         else 
   238         else 
   231          LandPixels[(y - dx) div 2, i div 2]:= LandBackPixel(i, y - dx)
 
   239          LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
 
   232 
   240 
   233        else
 
   241        else
 
   234           if ((Land[y - dx, i] and lfObject) <> 0) then
 
   242           if ((Land[t, i] and lfObject) <> 0) then
 
   235               if (cReducedQuality and rqBlurryLand) = 0 then
 
   243               if (cReducedQuality and rqBlurryLand) = 0 then
 
   236                 LandPixels[y - dx, i]:= 0
 
   244                 LandPixels[t, i]:= 0
 
   237               else
 
   245               else
 
   238                 LandPixels[(y - dx) div 2, i div 2]:= 0;
 
   246                 LandPixels[t div 2, i div 2]:= 0;
 
   239 
   247 
   240 end;
 
   248 end;
 
   241 
   249 
   242 procedure FillLandCircleLinesEBC(x, y, dx, dy: LongInt);
 
   250 procedure FillLandCircleLinesEBC(x, y, dx, dy: LongInt);
 
   243 var i: LongInt;
 
   251 var i, t: LongInt;
 
   244 begin
 
   252 begin
 
   245 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then
 
   253 t:= y + dy;
 
       
   254 if (t and LAND_HEIGHT_MASK) = 0 then
 
   246    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   255    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   247        if ((Land[y + dy, i] and lfBasic) <> 0) or ((Land[y + dy, i] and lfObject) <> 0) then
 
   256        if ((Land[t, i] and lfBasic) <> 0) or ((Land[t, i] and lfObject) <> 0) then
 
   248           begin
 
   257           begin
 
   249            if (cReducedQuality and rqBlurryLand) = 0 then
 
   258            if (cReducedQuality and rqBlurryLand) = 0 then
 
   250             LandPixels[y + dy, i]:= cExplosionBorderColor
 
   259             LandPixels[t, i]:= cExplosionBorderColor
 
   251           else
 
   260           else
 
   252             LandPixels[(y + dy) div 2, i div 2]:= cExplosionBorderColor;
 
   261             LandPixels[t div 2, i div 2]:= cExplosionBorderColor;
 
   253 
   262 
   254           Land[y + dy, i]:= Land[y + dy, i] or lfDamaged;
 
   263           Land[t, i]:= Land[t, i] or lfDamaged;
 
   255           Despeckle(i, y + dy);
 
   264           //Despeckle(i, t);
 
   256           LandDirty[(y + dy) div 32, i div 32]:= 1;
 
   265           LandDirty[t div 32, i div 32]:= 1;
 
   257           end;
 
   266           end;
 
   258 if ((y - dy) and LAND_HEIGHT_MASK) = 0 then
 
   267 
       
   268 t:= y - dy;
 
       
   269 if (t and LAND_HEIGHT_MASK) = 0 then
 
   259    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   270    for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do
 
   260        if ((Land[y - dy, i] and lfBasic) <> 0) or ((Land[y - dy, i] and lfObject) <> 0) then
 
   271        if ((Land[t, i] and lfBasic) <> 0) or ((Land[t, i] and lfObject) <> 0) then
 
   261           begin
 
   272           begin
 
   262            if (cReducedQuality and rqBlurryLand) = 0 then
 
   273            if (cReducedQuality and rqBlurryLand) = 0 then
 
   263               LandPixels[y - dy, i]:= cExplosionBorderColor 
   274               LandPixels[t, i]:= cExplosionBorderColor 
   264             else
 
   275             else
 
   265               LandPixels[(y - dy) div 2, i div 2]:= cExplosionBorderColor;
 
   276               LandPixels[t div 2, i div 2]:= cExplosionBorderColor;
 
   266           Land[y - dy, i]:= Land[y - dy, i] or lfDamaged;
 
   277           Land[t, i]:= Land[t, i] or lfDamaged;
 
   267           Despeckle(i, y - dy);
 
   278           //Despeckle(i, t);
 
   268           LandDirty[(y - dy) div 32, i div 32]:= 1;
 
   279           LandDirty[t div 32, i div 32]:= 1;
 
   269           end;
 
   280           end;
 
   270 if ((y + dx) and LAND_HEIGHT_MASK) = 0 then
 
   281 
       
   282 t:= y + dx;
 
       
   283 if (t and LAND_HEIGHT_MASK) = 0 then
 
   271    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   284    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   272        if ((Land[y + dx, i] and lfBasic) <> 0) or ((Land[y + dx, i] and lfObject) <> 0) then
 
   285        if ((Land[t, i] and lfBasic) <> 0) or ((Land[t, i] and lfObject) <> 0) then
 
   273            begin
 
   286            begin
 
   274            if (cReducedQuality and rqBlurryLand) = 0 then
 
   287            if (cReducedQuality and rqBlurryLand) = 0 then
 
   275            LandPixels[y + dx, i]:= cExplosionBorderColor
 
   288            LandPixels[t, i]:= cExplosionBorderColor
 
   276             else
 
   289             else
 
   277            LandPixels[(y + dx) div 2, i div 2]:= cExplosionBorderColor;
 
   290            LandPixels[t div 2, i div 2]:= cExplosionBorderColor;
 
   278 
   291 
   279            Land[y + dx, i]:= Land[y + dx, i] or lfDamaged;
 
   292            Land[t, i]:= Land[t, i] or lfDamaged;
 
   280            Despeckle(i, y + dx);
 
   293            //Despeckle(i, t);
 
   281            LandDirty[(y + dx) div 32, i div 32]:= 1;
 
   294            LandDirty[t div 32, i div 32]:= 1;
 
   282            end;
 
   295            end;
 
   283 if ((y - dx) and LAND_HEIGHT_MASK) = 0 then
 
   296 
       
   297 t:= y - dx;
 
       
   298 if (t and LAND_HEIGHT_MASK) = 0 then
 
   284    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   299    for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do
 
   285        if ((Land[y - dx, i] and lfBasic) <> 0) or ((Land[y - dx, i] and lfObject) <> 0) then
 
   300        if ((Land[t, i] and lfBasic) <> 0) or ((Land[t, i] and lfObject) <> 0) then
 
   286           begin
 
   301           begin
 
   287            if (cReducedQuality and rqBlurryLand) = 0 then
 
   302            if (cReducedQuality and rqBlurryLand) = 0 then
 
   288           LandPixels[y - dx, i]:= cExplosionBorderColor 
   303           LandPixels[t, i]:= cExplosionBorderColor 
   289             else
 
   304             else
 
   290           LandPixels[(y - dx) div 2, i div 2]:= cExplosionBorderColor;
 
   305           LandPixels[t div 2, i div 2]:= cExplosionBorderColor;
 
   291 
   306 
   292           Land[y - dx, i]:= Land[y - dx, i] or lfDamaged;
 
   307           Land[t, i]:= Land[t, i] or lfDamaged;
 
   293           Despeckle(i, y - dy);
 
   308           //Despeckle(i, y - dy);
 
   294           LandDirty[(y - dx) div 32, i div 32]:= 1;
 
   309           LandDirty[t div 32, i div 32]:= 1;
 
   295           end;
 
   310           end;
 
   296 end;
 
   311 end;
 
   297 
   312 
   298 procedure DrawExplosion(X, Y, Radius: LongInt);
 
   313 procedure DrawExplosion(X, Y, Radius: LongInt);
 
   299 var dx, dy, ty, tx, d: LongInt;
 
   314 var dx, dy, ty, tx, d: LongInt;
 
   404                         LandPixels[ty, tx]:= cExplosionBorderColor
 
   419                         LandPixels[ty, tx]:= cExplosionBorderColor
 
   405                     else
 
   420                     else
 
   406                         LandPixels[ty div 2, tx div 2]:= cExplosionBorderColor;
 
   421                         LandPixels[ty div 2, tx div 2]:= cExplosionBorderColor;
 
   407 
   422 
   408                 Land[ty, tx]:= Land[ty, tx] or lfDamaged;
 
   423                 Land[ty, tx]:= Land[ty, tx] or lfDamaged;
 
   409                 LandDirty[(y + dy) shr 5, i shr 5]:= 1;
 
   424                 LandDirty[ty div 32, tx div 32]:= 1;
 
   410                 end;
 
   425                 end;
 
   411     inc(y, dY)
 
   426     inc(y, dY)
 
   412     end;
 
   427     end;
 
   413 
   428 
   414 
   429 
   616             begin
 
   631             begin
 
   617             for x:= 0 to Pred(w) do
 
   632             for x:= 0 to Pred(w) do
 
   618                 if PLongword(@(p^[x * 4]))^ <> 0 then
 
   633                 if PLongword(@(p^[x * 4]))^ <> 0 then
 
   619                    begin
 
   634                    begin
 
   620                    Land[cpY + y, cpX + x]:= lfObject;
 
   635                    Land[cpY + y, cpX + x]:= lfObject;
 
   621                     if (cReducedQuality and rqBlurryLand) = 0 then
 
   636                    if (cReducedQuality and rqBlurryLand) = 0 then
 
   622                    LandPixels[cpY + y, cpX + x]:= PLongword(@(p^[x * 4]))^
 
   637                        LandPixels[cpY + y, cpX + x]:= PLongword(@(p^[x * 4]))^
 
   623                     else
 
   638                    else
 
   624                    LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= PLongword(@(p^[x * 4]))^
 
   639                        LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= PLongword(@(p^[x * 4]))^
 
   625                    end;
 
   640                    end;
 
   626             p:= @(p^[Image^.pitch]);
 
   641             p:= @(p^[Image^.pitch]);
 
   627             end;
 
   642             end;
 
   628      end;
 
   643      end;
 
   629 if SDL_MustLock(Image) then
 
   644 if SDL_MustLock(Image) then
 
   673     end;
 
   688     end;
 
   674 Despeckle:= false
 
   689 Despeckle:= false
 
   675 end;
 
   690 end;
 
   676 
   691 
   677 function SweepDirty: boolean;
 
   692 function SweepDirty: boolean;
 
   678 var x, y, xx, yy: LongInt;
 
   693 var x, y, xx, yy, ty, tx: LongInt;
 
   679     bRes, updateBlock, resweep, recheck: boolean;
 
   694     bRes, updateBlock, resweep, recheck: boolean;
 
   680 begin
 
   695 begin
 
   681 bRes:= false;
 
   696 bRes:= false;
 
   682 reCheck:= true;
 
   697 reCheck:= true;
 
   683 
   698 
   690             begin
 
   705             begin
 
   691             if LandDirty[y, x] <> 0 then
 
   706             if LandDirty[y, x] <> 0 then
 
   692                 begin
 
   707                 begin
 
   693                 updateBlock:= false;
 
   708                 updateBlock:= false;
 
   694                 resweep:= true;
 
   709                 resweep:= true;
 
       
   710                 ty:= y shl 5;
 
       
   711                 tx:= x shl 5;
 
   695                 while(resweep) do
 
   712                 while(resweep) do
 
   696                     begin
 
   713                     begin
 
   697                     resweep:= false;
 
   714                     resweep:= false;
 
   698                     for yy:= y * 32 to y * 32 + 31 do
 
   715                     for yy:= ty to ty + 31 do
 
   699                         for xx:= x * 32 to x * 32 + 31 do
 
   716                         for xx:= tx to tx + 31 do
 
   700                             if Despeckle(xx, yy) then
 
   717                             if Despeckle(xx, yy) then
 
   701                                 begin
 
   718                                 begin
 
   702                                 bRes:= true;
 
   719                                 bRes:= true;
 
   703                                 updateBlock:= true;
 
   720                                 updateBlock:= true;
 
   704                                 resweep:= true;
 
   721                                 resweep:= true;
 
   705                                 if (yy = y*32) and (y > 0) then
 
   722                                 if (yy = ty) and (y > 0) then
 
   706                                     begin
 
   723                                     begin
 
   707                                     LandDirty[y-1, x]:= 1;
 
   724                                     LandDirty[y-1, x]:= 1;
 
   708                                     recheck:= true;
 
   725                                     recheck:= true;
 
   709                                     end
 
   726                                     end
 
   710                                 else if (yy = y*32+31) and (y < LAND_HEIGHT div 32 - 1) then
 
   727                                 else if (yy = ty+31) and (y < LAND_HEIGHT div 32 - 1) then
 
   711                                     begin
 
   728                                     begin
 
   712                                     LandDirty[y+1, x]:= 1;
 
   729                                     LandDirty[y+1, x]:= 1;
 
   713                                     recheck:= true;
 
   730                                     recheck:= true;
 
   714                                     end;
 
   731                                     end;
 
   715                                 if (xx = x*32) and (x > 0) then
 
   732                                 if (xx = tx) and (x > 0) then
 
   716                                     begin
 
   733                                     begin
 
   717                                     LandDirty[y, x-1]:= 1;
 
   734                                     LandDirty[y, x-1]:= 1;
 
   718                                     recheck:= true;
 
   735                                     recheck:= true;
 
   719                                     end
 
   736                                     end
 
   720                                 else if (xx = x*32+31) and (x < LAND_WIDTH div 32 - 1) then
 
   737                                 else if (xx = tx+31) and (x < LAND_WIDTH div 32 - 1) then
 
   721                                     begin
 
   738                                     begin
 
   722                                     LandDirty[y, x+1]:= 1;
 
   739                                     LandDirty[y, tx+1]:= 1;
 
   723                                     recheck:= true;
 
   740                                     recheck:= true;
 
   724                                     end
 
   741                                     end
 
   725                                 end;
 
   742                                 end;
 
   726                     end;
 
   743                     end;
 
   727                 if updateBlock then UpdateLandTexture(x * 32, 32, y * 32, 32);
 
   744                 if updateBlock then UpdateLandTexture(tx, 32, ty, 32);
 
   728                 LandDirty[y, x]:= 0;
 
   745                 LandDirty[y, x]:= 0;
 
   729                 end;
 
   746                 end;
 
   730             end;
 
   747             end;
 
   731         end;
 
   748         end;
 
   732      end;
 
   749      end;
sheepy-clone