Графика

  var a := new System.Threading.Thread(procedure->
  begin
  //Графика и картинка уже существуют
  //GameMap - изображение карты
  //GameMapgr - её графика
    GameMapgr := Graphics.FromImage(GameMap);
    GameMapgr.Clear(Color.Black);
    //Заливаю изображение чёрным цветом
    for var i := 0 to 3 do
    begin
      GameMapgr.DrawImage(new Bitmap(new BitMap($'MapElements\Part{Random(1,10)}.bmp'), 1920, 1920), 0, i * 3760);
      GameMapgr.DrawImage(new Bitmap(new BitMap($'MapElements\Part{Random(1,10)}.bmp'), 1920, 1920), 3760, i * 3760);
      GameMapgr.DrawImage(new BitMap($'MapElements\Transfer{Random(1,10)}.bmp'), 1880, i * 3760);
      GameMapgr.DrawImage(new Bitmap(new BitMap($'MapElements\Part{Random(1,10)}.bmp'), 1920, 1920), 7520, i * 3760);
      GameMapgr.DrawImage(new Bitmap(new BitMap($'MapElements\Part{Random(1,10)}.bmp'), 1920, 1920), 11280, i * 3760);
      GameMapgr.DrawImage(new BitMap($'MapElements\Transfer{Random(1,10)}.bmp'), 5640, i * 3760);
      GameMapgr.DrawImage(new BitMap($'MapElements\Transfer{Random(1,10)}.bmp'), 9400, i * 3760);
      //Части карты
    end;
    for var i := 0 to 3 do
    begin
      var p1 := new Bitmap($'MapElements\Transfer{Random(1,10)}.bmp');
      p1.RotateFlip(rotatefliptype.Rotate90FlipNone);
      GameMapgr.DrawImage(p1, i * 3760, 1880);
    end;
    for var i := 0 to 3 do
    begin
      var p1 := new Bitmap($'MapElements\Transfer{Random(1,10)}.bmp');
      p1.RotateFlip(rotatefliptype.Rotate90FlipNone);
      GameMapgr.DrawImage(p1, i * 3760, 5640);
    end;
    for var i := 0 to 3 do
    begin
      var p1 := new Bitmap($'MapElements\Transfer{Random(1,10)}.bmp');
      p1.RotateFlip(rotatefliptype.Rotate90FlipNone);
      GameMapgr.DrawImage(p1, i * 3760, 9400);
    end;
    Loaded := true;
  end);
  a.ApartmentState := System.Threading.ApartmentState.STA;
  a.Start;
  SetFontSize(50);
  SetFontColor(Color.White);
  Loaded := false;
  var n: string := '';
  Inc(Level);
  while not Loaded do
  begin
    BeginDraw;
    Buffer.Graphics.Clear(Color.Black);
    case Language of
      Russian: TextOut(xekr div 2 - TextWidth('Пожалуйста подождите' + n) div 2, yekr - 200, 'Пожалуйста подождите' + n, Buffer.Graphics);
      English: TextOut(xekr div 2 - TextWidth('Please wait' + n) div 2, yekr - 200, 'Please wait' + n, Buffer.Graphics);
    end;
    EndDraw;
    if n.Length = 3 then n := ''
    else n += '.';
    Sleep(350);
  end;
  gr := Graphics.FromImage(GameScreen);
  gr.DrawImage(GetView(GameMap, new System.Drawing.Rectangle((1920 - xekr) div 2, (1920 - yekr) div 2, xekr, yekr)), 0, 0);
  Scene := 6;

{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
 
type
  GameForm=class(System.Windows.Forms.Form)
    
    constructor;
    begin
      self.DoubleBuffered := true;
    end;
    
  end;
 
begin
  
end.