Пишу 2д игру. Помогите плиз

[Xzen]

дык у меня стоит антивирус))

[Пепел Феникса]

видимо плохой...
прочитайте тему в разделе Общих вопросов по Делфи.

[Beermonza]

Если ваш антивирус не ловит "индюка" при запуске вашего же собственного EXE, а вы его наверняка запускали неоднократно перед отправкой к нам, то у вас антивирус с устаревшими базами, обновитесь.

[Xzen]

Вот, Это только исходники без EXE

[Juffin]

ты где-то не очищаешь память мне кажется, у меня игра вылетела и сказала, что недостаточно памяти для обработки команды

[Вадим Буренков]

Для начала строение игры должно быть таким:
1)Загрузка всех текстур, установка параметров экрана, формы др. параметров. Все происходит в FormCreate.
2)Обработка игры происходит в таймере. ПРи выводе существует битмап буффер в который выводится вся картинка, потом сам буфер выводится на канвас формы. После вывода буффер очищается (рисуется залитый черным прямоугольник размерами с буффер).
Нужно внимательно соблюсти, чтобы загрузки текстур не происходили в таймере, иначе уже загруженная текстура будет загружаться еще и еще расходуя системную память, пока приложение не выдаст ошибку. У тебя как раз такой случай:

For t:=1 to 2 do
 begin
  Buf:=TBitmap.Create;
  Pl:=TBitmap.Create;
  Pl.LoadFromFile(Player);
 end;

В таймере сначала происходит обработка всех игровых процессов, а потом рисуются объекты в порядке перекрывания друг друга. Например сначала рисуется фон, потом игровые объекты (кирпичи,лестницы), потом игрок.
3)При выходе (в ForcClose) должны освобождаться все используемые ресурсы, например текстуры выгружаются так

Texture.Free;

Также выгружается и буффер.

[russian-stalker]

Освобождайте Bitmap после его отрисовки на форме. Вы каждый кадр создаёте новый, не освобождая старый, что вскоре приводит к краху игры. На самом деле игра крайне не оптимизирована.

[Xzen]

Угу, спасибо нада пробнуть

провёл оптимизацию игры и вот что у меня получилось))

Но вот вокруг плеера остался белый фон падскажити как его убрать??

[russian-stalker]

Procedure LoadTextures(Kol_vo_tex:byte);
var
i:Integer;
begin
 For i:=1 to Kol_vo_tex do
  begin
   Textures [i]:=Tbitmap.Create;
   Textures [i].LoadFromFile(IntToStr(i)+'Tex.bmp');
   Man [i]:=TBitmap.Create;
   Man [i].LoadFromFile('1man.bmp');
   Man [i].Transparent:=true;
  end;
end;

procedure GraphMode(x,y,a:integer; Buffer:TBitmap);
var
BufRct,BackRct:TRect;
begin
 Buffer.Height:=man[1].Height;
 Buffer.Width:=man[1].Width;
 BufRct:=Bounds(x+5,y-a-5,man[1].Width+5,man[1].Height-5);
 BackRct:=Bounds(0,0,man[1].Width,man[1].Height);
 Buffer.Canvas.CopyRect(BufRct,form1.Canvas,BackRct);
// Buf.Canvas.Draw(x,y-a,Buffer);
 Buf.Canvas.Draw(x,y-a,man[1]);
end;

[Xzen]

Спасибо большое))) получилось))

тогда получается что процедура Graphmode совсем не нужна??