hedgewars/uStore.pas
changeset 13085 26173dd0c606
parent 13044 1df5b407f368
child 13237 0171519e2f13
equal deleted inserted replaced
13084:e6b0b3e86c2a 13085:26173dd0c606
   187 md:= 0;
   187 md:= 0;
   188 {$ENDIF}
   188 {$ENDIF}
   189 for t:= 0 to Pred(TeamsCount) do
   189 for t:= 0 to Pred(TeamsCount) do
   190     with TeamsArray[t]^ do
   190     with TeamsArray[t]^ do
   191         begin
   191         begin
   192         NameTagTex:= RenderStringTexLim(ansistring(TeamName), Clan^.Color, Font, cTeamHealthWidth);
   192         if ExtDriven then
       
   193              NameTagTex:= RenderStringTexLim(ansistring(TeamName), Clan^.Color, Font, cTeamHealthWidth)
       
   194         else NameTagTex:= RenderStringTex(ansistring(TeamName), Clan^.Color, Font);
   193         if length(Owner) > 0 then
   195         if length(Owner) > 0 then
   194             OwnerTex:= RenderStringTexLim(ansistring(Owner), Clan^.Color, Font, cTeamHealthWidth);
   196             if ExtDriven then
       
   197                  OwnerTex:= RenderStringTexLim(ansistring(Owner), Clan^.Color, Font, cTeamHealthWidth)
       
   198             else OwnerTex:= RenderStringTex(ansistring(Owner), Clan^.Color, Font);
   195 
   199 
   196         r.x:= 0;
   200         r.x:= 0;
   197         r.y:= 0;
   201         r.y:= 0;
   198         r.w:= 32;
   202         r.w:= 32;
   199         r.h:= 32;
   203         r.h:= 32;
   267         DrawHealthY:= drY;
   271         DrawHealthY:= drY;
   268         for i:= 0 to cMaxHHIndex do
   272         for i:= 0 to cMaxHHIndex do
   269             with Hedgehogs[i] do
   273             with Hedgehogs[i] do
   270                 if Gear <> nil then
   274                 if Gear <> nil then
   271                     begin
   275                     begin
   272                     NameTagTex:= RenderStringTexLim(ansistring(Name), Clan^.Color, fnt16, cTeamHealthWidth);
   276                     if ExtDriven then
       
   277                          NameTagTex:= RenderStringTexLim(ansistring(Name), Clan^.Color, fnt16, cTeamHealthWidth)
       
   278                     else NameTagTex:= RenderStringTex(ansistring(Name), Clan^.Color, fnt16);
   273                     if Hat = 'NoHat' then
   279                     if Hat = 'NoHat' then
   274                         begin
   280                         begin
   275                         if (month = 4) and (md = 20) then
   281                         if (month = 4) and (md = 20) then
   276                             Hat := 'eastertop'   // Easter
   282                             Hat := 'eastertop'   // Easter
   277                         else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then
   283                         else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then