hedgewars/uLandGraphics.pas
branch0.9.15
changeset 4700 e8fd20b2d66b
parent 4695 ac2cb3b99d70
child 4791 458d9854c679
equal deleted inserted replaced
4698:6f14ef3e40ae 4700:e8fd20b2d66b
   197                LandPixels[t, i]:= LandBackPixel(i, t)
   197                LandPixels[t, i]:= LandBackPixel(i, t)
   198            else
   198            else
   199                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   199                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   200            end
   200            end
   201        else
   201        else
   202            if ((Land[t, i] and lfObject) <> 0) or disableLandBack then
   202            if ((Land[t, i] and lfObject) <> 0) or (disableLandBack and ((Land[t, i] and lfIndestructible) = 0)) then
   203                if (cReducedQuality and rqBlurryLand) = 0 then
   203                if (cReducedQuality and rqBlurryLand) = 0 then
   204                    LandPixels[t, i]:= 0
   204                    LandPixels[t, i]:= 0
   205                else
   205                else
   206                    LandPixels[t div 2, i div 2]:= 0;
   206                    LandPixels[t div 2, i div 2]:= 0;
   207 
   207 
   215                LandPixels[t, i]:= LandBackPixel(i, t)
   215                LandPixels[t, i]:= LandBackPixel(i, t)
   216            else
   216            else
   217                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   217                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   218            end
   218            end
   219        else
   219        else
   220            if ((Land[t, i] and lfObject) <> 0) or disableLandBack then
   220            if ((Land[t, i] and lfObject) <> 0) or (disableLandBack and ((Land[t, i] and lfIndestructible) = 0)) then
   221                if (cReducedQuality and rqBlurryLand) = 0 then
   221                if (cReducedQuality and rqBlurryLand) = 0 then
   222                    LandPixels[t, i]:= 0
   222                    LandPixels[t, i]:= 0
   223                else
   223                else
   224                    LandPixels[t div 2, i div 2]:= 0;
   224                    LandPixels[t div 2, i div 2]:= 0;
   225 
   225 
   233                LandPixels[t, i]:= LandBackPixel(i, t)
   233                LandPixels[t, i]:= LandBackPixel(i, t)
   234            else
   234            else
   235                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   235                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   236            end
   236            end
   237        else
   237        else
   238            if ((Land[t, i] and lfObject) <> 0) or disableLandBack then
   238            if ((Land[t, i] and lfObject) <> 0) or (disableLandBack and ((Land[t, i] and lfIndestructible) = 0)) then
   239                if (cReducedQuality and rqBlurryLand) = 0 then
   239                if (cReducedQuality and rqBlurryLand) = 0 then
   240                    LandPixels[t, i]:= 0
   240                    LandPixels[t, i]:= 0
   241                else
   241                else
   242                    LandPixels[t div 2, i div 2]:= 0;
   242                    LandPixels[t div 2, i div 2]:= 0;
   243 
   243 
   251                LandPixels[t, i]:= LandBackPixel(i, t)
   251                LandPixels[t, i]:= LandBackPixel(i, t)
   252            else
   252            else
   253                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   253                LandPixels[t div 2, i div 2]:= LandBackPixel(i, t)
   254            end
   254            end
   255        else
   255        else
   256            if ((Land[t, i] and lfObject) <> 0) or disableLandBack then
   256            if ((Land[t, i] and lfObject) <> 0) or (disableLandBack and ((Land[t, i] and lfIndestructible) = 0)) then
   257               if (cReducedQuality and rqBlurryLand) = 0 then
   257               if (cReducedQuality and rqBlurryLand) = 0 then
   258                   LandPixels[t, i]:= 0
   258                   LandPixels[t, i]:= 0
   259               else
   259               else
   260                   LandPixels[t div 2, i div 2]:= 0;
   260                   LandPixels[t div 2, i div 2]:= 0;
   261 FillLandCircleLinesBG:= cnt;
   261 FillLandCircleLinesBG:= cnt;
   413                 if (cReducedQuality and rqBlurryLand) = 0 then
   413                 if (cReducedQuality and rqBlurryLand) = 0 then
   414                     LandPixels[ty, tx]:= LandBackPixel(tx, ty)
   414                     LandPixels[ty, tx]:= LandBackPixel(tx, ty)
   415                 else
   415                 else
   416                     LandPixels[ty div 2, tx div 2]:= LandBackPixel(tx, ty)
   416                     LandPixels[ty div 2, tx div 2]:= LandBackPixel(tx, ty)
   417             else
   417             else
   418                 if ((Land[ty, tx] and lfObject) <> 0) or disableLandBack then
   418                 if ((Land[ty, tx] and lfObject) <> 0) or (disableLandBack and ((Land[ty, tx] and lfIndestructible) = 0)) then
   419                     if (cReducedQuality and rqBlurryLand) = 0 then
   419                     if (cReducedQuality and rqBlurryLand) = 0 then
   420                         LandPixels[ty, tx]:= 0
   420                         LandPixels[ty, tx]:= 0
   421                     else
   421                     else
   422                         LandPixels[ty div 2, tx div 2]:= 0;
   422                         LandPixels[ty div 2, tx div 2]:= 0;
   423     inc(y, dY)
   423     inc(y, dY)
   525                 if (cReducedQuality and rqBlurryLand) = 0 then
   525                 if (cReducedQuality and rqBlurryLand) = 0 then
   526                     LandPixels[ty, tx]:= LandBackPixel(tx, ty)
   526                     LandPixels[ty, tx]:= LandBackPixel(tx, ty)
   527                 else
   527                 else
   528                     LandPixels[ty div 2, tx div 2]:= LandBackPixel(tx, ty)
   528                     LandPixels[ty div 2, tx div 2]:= LandBackPixel(tx, ty)
   529             else
   529             else
   530               if ((Land[ty, tx] and lfObject) <> 0) or disableLandBack then
   530               if ((Land[ty, tx] and lfObject) <> 0) or (disableLandBack and ((Land[ty, tx] and lfIndestructible) = 0)) then
   531                 if (cReducedQuality and rqBlurryLand) = 0 then
   531                 if (cReducedQuality and rqBlurryLand) = 0 then
   532                 LandPixels[ty, tx]:= 0
   532                 LandPixels[ty, tx]:= 0
   533                 else
   533                 else
   534                 LandPixels[ty div 2, tx div 2]:= 0;
   534                 LandPixels[ty div 2, tx div 2]:= 0;
   535 
   535