hedgewars/uGearsHedgehog.pas
branchicegun
changeset 8557 18330b24b92c
parent 8494 53b91a602955
child 8560 134a098235fa
--- a/hedgewars/uGearsHedgehog.pas	Sat Feb 23 19:34:02 2013 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Sun Feb 24 21:40:06 2013 +0200
@@ -374,7 +374,10 @@
                                  end;
                     //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);
                        amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
-                       amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
+                       amIceGun: begin
+                       newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
+                       newGear^.radius := 8;
+                       end;
             end;
             if altUse and (newGear <> nil) then
                begin