hedgewars/uTeams.pas
changeset 2785 de6406cd6b25
parent 2784 1a2e3c7c6a46
child 2796 7f86e7ad378b
equal deleted inserted replaced
2784:1a2e3c7c6a46 2785:de6406cd6b25
   358           begin
   358           begin
   359           Hedgehogs[0].King:= true;
   359           Hedgehogs[0].King:= true;
   360           Hedgehogs[0].Hat:= 'crown';
   360           Hedgehogs[0].Hat:= 'crown';
   361           h:= Hedgehogs[0].Gear^.Health;
   361           h:= Hedgehogs[0].Gear^.Health;
   362           Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
   362           Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
   363           dec(th, h);
   363           if Hedgehogs[0].Gear^.Health > h then
   364           inc(th, Hedgehogs[0].Gear^.Health);
   364               begin
   365           if th > MaxTeamHealth then MaxTeamHealth:= th
   365               dec(th, h);
       
   366               inc(th, Hedgehogs[0].Gear^.Health);
       
   367               if th > MaxTeamHealth then MaxTeamHealth:= th
       
   368               end
       
   369           else Hedgehogs[0].Gear^.Health:= h
   366           end;
   370           end;
   367       end;
   371       end;
   368 
   372 
   369 RecountAllTeamsHealth
   373 RecountAllTeamsHealth
   370 end;
   374 end;