oops
authornemo
Sat, 01 Sep 2012 15:46:22 -0400
changeset 7646 3c18ad8af8a2
parent 7645 0e3c2dd9fee6
child 7647 e496587db93e
oops
hedgewars/uGearsHedgehog.pas
--- 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