hedgewars/uGears.pas
changeset 5482 c047e70c53f4
parent 5476 649d35cf95ff
child 5490 18c6049b5ae3
--- a/hedgewars/uGears.pas	Sat Jul 30 15:36:11 2011 -0400
+++ b/hedgewars/uGears.pas	Sat Jul 30 17:23:47 2011 -0400
@@ -914,7 +914,7 @@
             CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked;
         if delay2 = 0 then
             begin
-            if CurrentHedgehog^.Gear^.State and gstAttacked = 0 then SweepDirty;
+            if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0) then SweepDirty;
             CheckNoDamage;
             AliveCount:= 0; // shorter version of check for win to allow typical step activity to proceed
             for i:= 0 to Pred(ClansCount) do