hedgewars/uWorld.pas
changeset 49 3afe33c1cf06
parent 47 8daf1ee0b9a3
child 53 0e27949850e3
equal deleted inserted replaced
48:0f396d0c429d 49:3afe33c1cf06
   199     Captions[Pred(cMaxCaptions)].EndTime:= 0
   199     Captions[Pred(cMaxCaptions)].EndTime:= 0
   200     end;
   200     end;
   201 
   201 
   202 // Teams Healths
   202 // Teams Healths
   203 team:= TeamsList;
   203 team:= TeamsList;
   204 i:= cSCreenHeight - 32;
       
   205 while team <> nil do
   204 while team <> nil do
   206       begin
   205       begin
   207       DrawFromStoreRect(cScreenWidth div 2 - team.NameRect.w - 3, i,
   206       DrawFromStoreRect(cScreenWidth div 2 - team.NameRect.w - 3,
       
   207                         Team.DrawHealthY,
   208                         @team.NameRect, Surface);
   208                         @team.NameRect, Surface);
   209       r:= team.HealthRect;
   209       r:= team.HealthRect;
   210       r.w:= 3 + team.TeamHealth;
   210       r.w:= 3 + team.TeamHealth;
   211       DrawFromStoreRect(cScreenWidth div 2, i,
   211       DrawFromStoreRect(cScreenWidth div 2,
       
   212                         Team.DrawHealthY,
   212                         @r, Surface);
   213                         @r, Surface);
   213       inc(r.x, cTeamHealthWidth + 3);
   214       inc(r.x, cTeamHealthWidth + 3);
   214       r.w:= 2;
   215       r.w:= 2;
   215       DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 3, i,
   216       DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 3,
       
   217                         Team.DrawHealthY,
   216                         @r, Surface);
   218                         @r, Surface);
   217       dec(i, team.HealthRect.h + 2);
       
   218       team:= team.Next
   219       team:= team.Next
   219       end;
   220       end;
   220 
   221 
   221 // Lag alert
   222 // Lag alert
   222 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 7, Surface);
   223 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 7, Surface);