hedgewars/uScript.pas
changeset 15604 6a38a30e772a
parent 15198 a22013a817e4
child 15929 128ace913837
child 15938 4c0f8dbf6c13
equal deleted inserted replaced
15603:ab095fc0256c 15604:6a38a30e772a
  1401             FreeAndNilTexture(team^.NameTagTex);
  1401             FreeAndNilTexture(team^.NameTagTex);
  1402             team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16);
  1402             team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16);
  1403             end;
  1403             end;
  1404 
  1404 
  1405         FreeAndNilTexture(clan^.HealthTex);
  1405         FreeAndNilTexture(clan^.HealthTex);
  1406         clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color);
  1406         clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, cTeamHealthHeight, clan^.Color);
  1407         end;
  1407         end;
  1408 
  1408 
  1409     lc_setclancolor:= 0
  1409     lc_setclancolor:= 0
  1410 end;
  1410 end;
  1411 
  1411