hedgewars/uWorld.pas
changeset 3770 f54e8cb9a12b
parent 3764 eb91c02f2d84
child 3773 f552c7b439fa
equal deleted inserted replaced
3769:bb9ecd0346d8 3770:f54e8cb9a12b
   776 
   776 
   777       // draw health bar's right border
   777       // draw health bar's right border
   778       inc(r.x, cTeamHealthWidth + 2);
   778       inc(r.x, cTeamHealthWidth + 2);
   779       r.w:= 3;
   779       r.w:= 3;
   780       DrawFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY, @r, HealthTex);
   780       DrawFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY, @r, HealthTex);
       
   781 
       
   782       // draw ai kill counter for gfAISurvival
       
   783       if (GameFlags and gfAISurvival) <> 0 then begin
       
   784           DrawTexture(TeamHealthBarWidth + 22, cScreenHeight + DrawHealthY,
       
   785               RenderStringTex(''+inttostr(stats.AIKills)+'', Clan^.Color, fnt16));
       
   786       end;
       
   787 
   781       // if highlighted, draw flag and other contents again to keep their colors
   788       // if highlighted, draw flag and other contents again to keep their colors
   782       // this approach should be faster than drawing all borders one by one tinted or not
   789       // this approach should be faster than drawing all borders one by one tinted or not
   783       if highlight then
   790       if highlight then
   784          begin
   791          begin
   785          Tint($FF, $FF, $FF, $FF);
   792          Tint($FF, $FF, $FF, $FF);