hedgewars/uWorld.pas
changeset 14738 9423d30ec205
parent 14736 8563cc40fc1e
child 14739 5d5d7db9f417
equal deleted inserted replaced
14737:123aaa2bf4b5 14738: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;