--- a/hedgewars/uTeams.pas Tue Feb 09 20:47:22 2010 +0000
+++ b/hedgewars/uTeams.pas Tue Feb 09 21:51:52 2010 +0000
@@ -360,9 +360,13 @@
Hedgehogs[0].Hat:= 'crown';
h:= Hedgehogs[0].Gear^.Health;
Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
- dec(th, h);
- inc(th, Hedgehogs[0].Gear^.Health);
- if th > MaxTeamHealth then MaxTeamHealth:= th
+ if Hedgehogs[0].Gear^.Health > h then
+ begin
+ dec(th, h);
+ inc(th, Hedgehogs[0].Gear^.Health);
+ if th > MaxTeamHealth then MaxTeamHealth:= th
+ end
+ else Hedgehogs[0].Gear^.Health:= h
end;
end;