hedgewars/uWorld.pas
changeset 6647 26e523c8fe88
parent 6645 9ff40cf44827
child 6648 025473a2c420
equal deleted inserted replaced
6646:436289cfebf5 6647:26e523c8fe88
  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,Hedgehogs[i].Gear^.Health);
  1147                     inc(h,Hedgehogs[i].Gear^.Health);
  1148                     if h < TeamHealth then DrawTexture(14 + round(h*TeamHealthBarWidth/TeamHealth), cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
  1148                     if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div 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