hedgewars/uStore.pas
changeset 14759 9423d30ec205
parent 14691 56831f466d1d
child 14762 37a781d28e43
equal deleted inserted replaced
14758:123aaa2bf4b5 14759: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;