hedgewars/uGears.pas
changeset 5284 34abd278344e
parent 5279 66969e7494c5
child 5296 0bb518ad2da8
equal deleted inserted replaced
5283:bc0459372238 5284:34abd278344e
  1290 
  1290 
  1291 if (Mask and EXPLDontDraw) = 0 then
  1291 if (Mask and EXPLDontDraw) = 0 then
  1292     if (GameFlags and gfSolidLand) = 0 then
  1292     if (GameFlags and gfSolidLand) = 0 then
  1293         begin
  1293         begin
  1294         cnt:= DrawExplosion(X, Y, Radius) div 1608; // approx 2 16x16 circles to erase per chunk
  1294         cnt:= DrawExplosion(X, Y, Radius) div 1608; // approx 2 16x16 circles to erase per chunk
  1295         if cnt > 0 then
  1295         if (cnt > 0) and (SpritesData[sprChunk].Texture <> nil) then
  1296             for i:= 0 to cnt do
  1296             for i:= 0 to cnt do
  1297                 AddVisualGear(X, Y, vgtChunk)
  1297                 AddVisualGear(X, Y, vgtChunk)
  1298         end;
  1298         end;
  1299 
  1299 
  1300 uAIMisc.AwareOfExplosion(0, 0, 0)
  1300 uAIMisc.AwareOfExplosion(0, 0, 0)