hedgewars/uWorld.pas
changeset 14741 37a781d28e43
parent 14739 5d5d7db9f417
child 14744 f5dadf2b7d03
equal deleted inserted replaced
14740:7b2bd37d7503 14741:37a781d28e43
  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+1;
  1103         r.h:= htex^.h;
  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;