hedgewars/uConsole.pas
changeset 688 e4d1fb310a66
parent 626 a30171dbcd19
child 771 86fbe8753a7c
equal deleted inserted replaced
687:8e2dedaa01b4 688:e4d1fb310a66
   113      h:= 4;
   113      h:= 4;
   114      end;
   114      end;
   115 SDL_FillRect(Surface, @r, cConsoleSplitterColor);
   115 SDL_FillRect(Surface, @r, cConsoleSplitterColor);
   116 for y:= 0 to cConsoleHeight div 256 + 1 do
   116 for y:= 0 to cConsoleHeight div 256 + 1 do
   117     for x:= 0 to cScreenWidth div 256 + 1 do
   117     for x:= 0 to cScreenWidth div 256 + 1 do
   118         DrawGear(sConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, Surface);
   118         DrawSprite(sprConsoleBG, x * 256, cConsoleHeight - 256 - y * 256, 0, Surface);
   119 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do
   119 for y:= 0 to cConsoleHeight div Fontz[fnt16].Height do
   120     DXOutText(4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2), fnt16, ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], Surface);
   120     DXOutText(4, cConsoleHeight - (y + 2) * (Fontz[fnt16].Height + 2), fnt16, ConsoleLines[(CurrLine - 1 - y + cLinesCount) mod cLinesCount], Surface);
   121 DXOutText(4, cConsoleHeight - Fontz[fnt16].Height - 2, fnt16, '> '+InputStr, Surface);
   121 DXOutText(4, cConsoleHeight - Fontz[fnt16].Height - 2, fnt16, '> '+InputStr, Surface);
   122 end;
   122 end;
   123 
   123