hedgewars/uGearsList.pas
changeset 7093 2d7f1fb73335
parent 7077 74b0265d79e8
child 7168 8defaabce92e
equal deleted inserted replaced
7092:c9ca770fd7fc 7093:2d7f1fb73335
    31 
    31 
    32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats,
    32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats,
    33     uTextures, uScript, uRenderUtils, uAI, uCollisions,
    33     uTextures, uScript, uRenderUtils, uAI, uCollisions,
    34     uGearsRender, uGearsUtils;
    34     uGearsRender, uGearsUtils;
    35 
    35 
    36 var GCounter: LongWord = 0; // this doesn't get re-initialized, but should be harmless
    36 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless
    37 
    37 
    38 procedure InsertGearToList(Gear: PGear);
    38 procedure InsertGearToList(Gear: PGear);
    39 var tmp, ptmp: PGear;
    39 var tmp, ptmp: PGear;
    40 begin
    40 begin
    41     tmp:= GearsList;
    41     tmp:= GearsList;
   455                 gear^.Health:= 200;
   455                 gear^.Health:= 200;
   456                 gear^.Timer:= 0;
   456                 gear^.Timer:= 0;
   457                 gear^.Tag:= TotalRounds + 3;
   457                 gear^.Tag:= TotalRounds + 3;
   458                 gear^.Pos:= 1;
   458                 gear^.Pos:= 1;
   459                 end;
   459                 end;
       
   460       gtIceGun: gear^.Health:= 1000;
   460     end;
   461     end;
   461 
   462 
   462 InsertGearToList(gear);
   463 InsertGearToList(gear);
   463 AddGear:= gear;
   464 AddGear:= gear;
   464 
   465