--- a/hedgewars/uScript.pas	Sun May 24 06:10:25 2020 +0300
+++ b/hedgewars/uScript.pas	Tue May 26 23:02:49 2020 +0200
@@ -1403,7 +1403,7 @@
             end;
 
         FreeAndNilTexture(clan^.HealthTex);
-        clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color);
+        clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, cTeamHealthHeight, clan^.Color);
         end;
 
     lc_setclancolor:= 0