hedgewars/uGearsUtils.pas
changeset 13604 73b096e1d895
parent 13597 f7cbf7d8298d
child 13609 13f68f3e7153
equal deleted inserted replaced
13603:369efa5e01fa 13604:73b096e1d895
   214         end;
   214         end;
   215     Gear:= Gear^.NextGear
   215     Gear:= Gear^.NextGear
   216     end;
   216     end;
   217 
   217 
   218 if (Mask and EXPLDontDraw) = 0 then
   218 if (Mask and EXPLDontDraw) = 0 then
   219     if (GameFlags and gfSolidLand) = 0 then
   219     if ((GameFlags and gfSolidLand) = 0) or ((Mask and EXPLForceDraw) <> 0) then
   220         begin
   220         begin
   221         cnt:= DrawExplosion(X, Y, Radius) div 1608; // approx 2 16x16 circles to erase per chunk
   221         cnt:= DrawExplosion(X, Y, Radius) div 1608; // approx 2 16x16 circles to erase per chunk
   222         if (cnt > 0) and (SpritesData[sprChunk].Texture <> nil) then
   222         if (cnt > 0) and (SpritesData[sprChunk].Texture <> nil) then
   223             for i:= 0 to cnt do
   223             for i:= 0 to cnt do
   224                 AddVisualGear(X, Y, vgtChunk)
   224                 AddVisualGear(X, Y, vgtChunk)