# HG changeset patch
# User nemo
# Date 1265752312 0
# Node ID de6406cd6b25cc435729b5e5d3877a2361210fff
# Parent  1a2e3c7c6a467538656bdafea9692e77088067ef
set min on king health proportion

diff -r 1a2e3c7c6a46 -r de6406cd6b25 hedgewars/uTeams.pas
--- 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;