--- a/hedgewars/uFLTeams.pas	Tue Dec 15 20:38:51 2015 +0300
+++ b/hedgewars/uFLTeams.pas	Wed Dec 16 00:20:56 2015 +0300
@@ -3,7 +3,7 @@
 uses uFLTypes;
 
 function createRandomTeam: TTeam;
-procedure sendTeamConfig(var team: TTeam);
+procedure sendTeamConfig(hp: LongInt; var team: TTeam);
 
 function getTeamsList: PPChar; cdecl;
 procedure freeTeamsList;
@@ -45,7 +45,7 @@
 end;
 
 
-procedure sendTeamConfig(var team: TTeam);
+procedure sendTeamConfig(hp: LongInt; var team: TTeam);
 var i: Longword;
 begin
     with team do
@@ -57,7 +57,7 @@
 
         for i:= 0 to Pred(hogsNumber) do
         begin
-            ipcToEngine('eaddhh ' + inttostr(botLevel) + ' 100 ' + hedgehogs[i].name);
+            ipcToEngine('eaddhh ' + IntToStr(botLevel) + ' ' + IntToStr(hp) + ' ' + hedgehogs[i].name);
             ipcToEngine('ehat ' + hedgehogs[i].hat);
         end;
     end