hedgewars/uGearsHedgehog.pas
changeset 7646 3c18ad8af8a2
parent 7623 addc5b262617
child 7647 e496587db93e
--- a/hedgewars/uGearsHedgehog.pas	Sat Sep 01 15:44:59 2012 -0400
+++ b/hedgewars/uGearsHedgehog.pas	Sat Sep 01 15:46:22 2012 -0400
@@ -357,7 +357,7 @@
                        amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
                        amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
              end;
-             if altUse then
+             if altUse and (newGear <> nil) then
                 begin
                 newGear^.dX:= newDx / newGear^.Density;
                 newGear^.dY:= newDY / newGear^.Density