hedgewars/uWorld.pas
changeset 10627 07ff179b0d97
parent 10562 3388822b3914
child 10628 9361e7d7c410
equal deleted inserted replaced
10626:2562797ab3cf 10627:07ff179b0d97
  1030 
  1030 
  1031     if w > 0 then
  1031     if w > 0 then
  1032         begin
  1032         begin
  1033         rect.w:= w;
  1033         rect.w:= w;
  1034         rect.x:= ViewLeftX;
  1034         rect.x:= ViewLeftX;
  1035         DrawRect(rect, $30, $30, $30, $40, true);
  1035         DrawRect(rect, $10, $10, $10, $80, true);
  1036         if WorldEdge = weBounce then
  1036         if WorldEdge = weBounce then
  1037             DrawLineOnScreen(tmp - 1, ViewTopY, tmp - 1, ViewBottomY, 2, $54, $54, $FF, $FF);
  1037             DrawLineOnScreen(tmp - 1, ViewTopY, tmp - 1, ViewBottomY, 2, $54, $54, $FF, $FF);
  1038         end;
  1038         end;
  1039 
  1039 
  1040     tmp:= LongInt(rightX) + WorldDx;
  1040     tmp:= LongInt(rightX) + WorldDx;
  1042 
  1042 
  1043     if w > 0 then
  1043     if w > 0 then
  1044         begin
  1044         begin
  1045         rect.w:= w;
  1045         rect.w:= w;
  1046         rect.x:= tmp;
  1046         rect.x:= tmp;
  1047         DrawRect(rect, $30, $30, $30, $40, true);
  1047         DrawRect(rect, $10, $10, $10, $80, true);
  1048         if WorldEdge = weBounce then
  1048         if WorldEdge = weBounce then
  1049             DrawLineOnScreen(tmp - 1, ViewTopY, tmp - 1, ViewBottomY, 2, $54, $54, $FF, $FF);
  1049             DrawLineOnScreen(tmp - 1, ViewTopY, tmp - 1, ViewBottomY, 2, $54, $54, $FF, $FF);
  1050         end;
  1050         end;
  1051 
  1051 
  1052     (*
  1052     (*