--- a/hedgewars/uTeams.pas	Mon Feb 08 15:56:43 2010 +0000
+++ b/hedgewars/uTeams.pas	Mon Feb 08 16:03:58 2010 +0000
@@ -354,7 +354,7 @@
           begin
           Hedgehogs[0].King:= true;
           Hedgehogs[0].Hat:= 'crown';
-          inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_1_5))
+          inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_0_5))
           end;
       for i:= 0 to cMaxHHIndex do
           if Hedgehogs[i].Gear <> nil then