hedgewars/uTeams.pas
changeset 4102 96efb3bbf8e3
parent 4101 c5967f360beb
child 4197 dad127904958
equal deleted inserted replaced
4101:c5967f360beb 4102:96efb3bbf8e3
   395                 begin
   395                 begin
   396                 dec(th, h);
   396                 dec(th, h);
   397                 inc(th, Hedgehogs[0].Gear^.Health);
   397                 inc(th, Hedgehogs[0].Gear^.Health);
   398                 if th > MaxTeamHealth then MaxTeamHealth:= th
   398                 if th > MaxTeamHealth then MaxTeamHealth:= th
   399                 end
   399                 end
   400             else Hedgehogs[0].Gear^.Health:= h
   400             else Hedgehogs[0].Gear^.Health:= h;
   401             Hedgehogs[0].InitialHealth:= Hedgehogs[0].Gear^.Health;
   401             Hedgehogs[0].InitialHealth:= Hedgehogs[0].Gear^.Health
   402             end;
   402             end;
   403         end;
   403         end;
   404 
   404 
   405 RecountAllTeamsHealth
   405 RecountAllTeamsHealth
   406 end;
   406 end;