hedgewars/uGearsList.pas
changeset 7093 2d7f1fb73335
parent 7077 74b0265d79e8
child 7168 8defaabce92e
--- a/hedgewars/uGearsList.pas	Fri May 18 13:35:22 2012 -0400
+++ b/hedgewars/uGearsList.pas	Sun May 20 01:00:00 2012 -0400
@@ -33,7 +33,7 @@
     uTextures, uScript, uRenderUtils, uAI, uCollisions,
     uGearsRender, uGearsUtils;
 
-var GCounter: LongWord = 0; // this doesn't get re-initialized, but should be harmless
+var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless
 
 procedure InsertGearToList(Gear: PGear);
 var tmp, ptmp: PGear;
@@ -457,6 +457,7 @@
                 gear^.Tag:= TotalRounds + 3;
                 gear^.Pos:= 1;
                 end;
+      gtIceGun: gear^.Health:= 1000;
     end;
 
 InsertGearToList(gear);