hedgewars/uStore.pas
changeset 14738 9423d30ec205
parent 14670 56831f466d1d
child 14741 37a781d28e43
equal deleted inserted replaced
14737:123aaa2bf4b5 14738:9423d30ec205
   324         end;
   324         end;
   325 
   325 
   326 
   326 
   327 for t:= 0 to Pred(ClansCount) do
   327 for t:= 0 to Pred(ClansCount) do
   328     with ClansArray[t]^ do
   328     with ClansArray[t]^ do
   329         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, Teams[0]^.NameTagTex^.h, Color);
   329         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, Teams[0]^.NameTagTex^.h+1, Color);
   330 
   330 
   331 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, TeamsArray[0]^.NameTagTex^.h, cWhiteColor)
   331 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, TeamsArray[0]^.NameTagTex^.h+1, cWhiteColor)
   332 end;
   332 end;
   333 
   333 
   334 
   334 
   335 procedure InitHealth;
   335 procedure InitHealth;
   336 var i, t: LongInt;
   336 var i, t: LongInt;