hedgewars/uGears.pas
changeset 5294 67278f1cba2c
parent 5284 34abd278344e
child 5296 0bb518ad2da8
--- a/hedgewars/uGears.pas	Tue Jun 21 16:43:05 2011 +0400
+++ b/hedgewars/uGears.pas	Thu Jun 23 21:19:43 2011 +0400
@@ -147,7 +147,7 @@
             @doStepNapalmBomb,
             @doStepSnowball,
             @doStepSnowflake,
-            @doStepPlaceStructure,
+            @doStepStructure,
             @doStepLandGun,
             @doStepTardis);
 
@@ -1292,7 +1292,7 @@
     if (GameFlags and gfSolidLand) = 0 then
         begin
         cnt:= DrawExplosion(X, Y, Radius) div 1608; // approx 2 16x16 circles to erase per chunk
-        if cnt > 0 then
+        if (cnt > 0) and (SpritesData[sprChunk].Texture <> nil) then
             for i:= 0 to cnt do
                 AddVisualGear(X, Y, vgtChunk)
         end;