hedgewars/uGearsList.pas
changeset 7096 c2add22a787e
parent 7093 2d7f1fb73335
child 7168 8defaabce92e
--- a/hedgewars/uGearsList.pas	Sun May 20 00:08:26 2012 +0200
+++ b/hedgewars/uGearsList.pas	Sun May 20 10:54:52 2012 +0200
@@ -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);