hedgewars/uWorld.pas
changeset 6644 b86a50569238
parent 6638 4cb7c055dca1
child 6645 9ff40cf44827
equal deleted inserted replaced
6642:863459db5432 6644:b86a50569238
  1142 
  1142 
  1143         if not highlight and not hasGone then
  1143         if not highlight and not hasGone then
  1144             for i:= 0 to cMaxHHIndex do
  1144             for i:= 0 to cMaxHHIndex do
  1145                 if Hedgehogs[i].Gear <> nil then
  1145                 if Hedgehogs[i].Gear <> nil then
  1146                     begin
  1146                     begin
  1147                     inc(h,round(Hedgehogs[i].Gear^.Health*(TeamHealthBarWidth/TeamHealth)));
  1147                     inc(h,Hedgehogs[i].Gear^.Health);
  1148                     if h < TeamHealthBarWidth-1 then DrawTexture(14 + h, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
  1148                     if h < TeamHealth then DrawTexture(14 + round(h*TeamHealthBarWidth/TeamHealth), cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
  1149                     end;
  1149                     end;
  1150 
  1150 
  1151         // draw ai kill counter for gfAISurvival
  1151         // draw ai kill counter for gfAISurvival
  1152         if (GameFlags and gfAISurvival) <> 0 then
  1152         if (GameFlags and gfAISurvival) <> 0 then
  1153             begin
  1153             begin