hedgewars/uScript.pas
changeset 15604 6a38a30e772a
parent 15198 a22013a817e4
child 15929 128ace913837
child 15938 4c0f8dbf6c13
--- 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