25%, not 50%
authornemo
Mon, 20 Jun 2011 09:15:24 -0400
changeset 5266 1c2a7547efaa
parent 5265 e6b1a11c15e8
child 5267 e9ae019e9bb4
25%, not 50%
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Mon Jun 20 10:36:20 2011 +0200
+++ b/hedgewars/uLandGraphics.pas	Mon Jun 20 09:15:24 2011 -0400
@@ -761,7 +761,6 @@
                             (((((LandPixels[y,x] and RMask shr RShift) div 2)+((cExplosionBorderColor and RMask) shr RShift) div 2) and $FF) shl RShift) or
                             (((((LandPixels[y,x] and GMask shr GShift) div 2)+((cExplosionBorderColor and GMask) shr GShift) div 2) and $FF) shl GShift) or
                             (((((LandPixels[y,x] and BMask shr BShift) div 2)+((cExplosionBorderColor and BMask) shr BShift) div 2) and $FF) shl BShift) or ($FF shl AShift);
-        //LandPixels[y,x]:= $FFFFFFFF;
         Land[y,x]:= lfBasic
         end
     else if ((((Land[y, x-1] and lfDamaged) <> 0) and ((Land[y+1,x-1] and lfDamaged) <> 0) and ((Land[y+2,x] and lfDamaged) <> 0)) or
@@ -773,14 +772,12 @@
             (((Land[y+1, x] and lfDamaged) <> 0) and ((Land[y+1,x-1] and lfDamaged) <> 0) and ((Land[y,x-2] and lfDamaged) <> 0)) or
             (((Land[y-1, x] and lfDamaged) <> 0) and ((Land[y-1,x-1] and lfDamaged) <> 0) and ((Land[y,x-2] and lfDamaged) <> 0))) then
         begin
-        //LandPixels[y,x]:= (LandPixels[y,x] and not AMask) or (64 shl AShift);
-        if (LandPixels[y,x] = 0) then LandPixels[y,x]:= (cExplosionBorderColor and not AMask) or (128 shl AShift)
+        if (LandPixels[y,x] = 0) then LandPixels[y,x]:= (cExplosionBorderColor and not AMask) or (64 shl AShift)
         else
             LandPixels[y,x]:=
                             (((((LandPixels[y,x] and RMask shr RShift) * 3 div 4)+((cExplosionBorderColor and RMask) shr RShift) div 4) and $FF) shl RShift) or
                             (((((LandPixels[y,x] and GMask shr GShift) * 3 div 4)+((cExplosionBorderColor and GMask) shr GShift) div 4) and $FF) shl GShift) or
                             (((((LandPixels[y,x] and BMask shr BShift) * 3 div 4)+((cExplosionBorderColor and BMask) shr BShift) div 4) and $FF) shl BShift) or ($FF shl AShift);
-        //LandPixels[y,x]:= $FFFFFFFF;
         Land[y,x]:= lfBasic
         end
     end;