hedgewars/uWorld.pas
changeset 14759 9423d30ec205
parent 14757 8563cc40fc1e
child 14760 5d5d7db9f417
equal deleted inserted replaced
14758:123aaa2bf4b5 14759:9423d30ec205
  1098 
  1098 
  1099         // draw team health bar
  1099         // draw team health bar
  1100         r.x:= 0;
  1100         r.x:= 0;
  1101         r.y:= 0;
  1101         r.y:= 0;
  1102         r.w:= 2 + TeamHealthBarWidth;
  1102         r.w:= 2 + TeamHealthBarWidth;
  1103         r.h:= htex^.h;
  1103         r.h:= htex^.h+1;
  1104         DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, htex);
  1104         DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, htex);
  1105 
  1105 
  1106         // draw health bar's right border
  1106         // draw health bar's right border
  1107         inc(r.x, cTeamHealthWidth + 2);
  1107         inc(r.x, cTeamHealthWidth + 2);
  1108         r.w:= 3;
  1108         r.w:= 3;