Проблема с перемещением

[Deamonig]

Проблема в том что при нажатии в форме Up у меня человечек на картинке прыгает вверх, держа эту же клавишу Up и затем нажать left или right то человек начнет прыгать по косой линии, после того как я бросаю left или тот же right и при этом все еще держа клавишу Up то он у меня перестает прыгать, и чтобы начал прыгать вверх нужно опять бросить и нажать заново Up. Мне же нужно чтобы просле того как я бросаю left или right то отработка события нажатия Up оставалась работать. Кто может подскажите как это можно реализовать. Вот код:

С помощью меток f2,f3,f1,k1,f,s,i,k,P1,P2,P3 я определяю физику так сказать, т. е. персонаж не может вылететь за пределы не может подпрыгнуть выше чем указано, не может подпрыгнув просто вверх двигаться назад и т.д.

var 
f2,f3,f1,k1,f,s,i,k,P1,P2,P3:integer;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

if ((GetKeyState(vk_Up) AND 128)=128)
and ((GetKeyState(vk_Left) AND 128)=128)
and(P2<>1) and (P3<>1) and(image2.left>10)
and ((f2<>1) or (image2.top=k1))
then
 begin
  P1:=1;
  k1:=Image2.Top;
  timer4.enabled:=true;
 end;

if ((GetKeyState(vk_Right) AND 128)=128)
and ((GetKeyState(vk_Up) AND 128)=128)
and(P2<>1) and(P1<>1) and(image2.left<Form1.ClientWidth-image2.Width-7)
and ((f3<>1) or (image2.top=k1))
then
 begin
  P3:=1;
  k1:=Image2.Top;
  timer5.enabled:=true;
 end;

if ((GetKeyState(vk_Up) AND 128)=128)
and(P1<>1)  and(P3<>1)
and ((f1<>1) or (image2.top=k))
then
 begin
  P2:=1;
  k:=Image2.Top;
  timer3.enabled:=true;
 end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 f1:=1;
 if (image2.top>k-100)   and (f<>1)
 then
  begin
   image2.top:=image2.top-6;
  end
 else if image2.top<k
 then
  begin
   f:=1;
   image2.Top:=image2.top+6;
  end;
 if image2.Top=k
 then
  begin
   f:=0;
   P2:=0;
   timer3.enabled:=false;
  end;
end;


procedure TForm1.Timer4Timer(Sender: TObject);
begin
 f2:=1;
 if (image2.top>k1-100)   and (f<>1)
 then
  begin
   if image2.left>10
   then
   image2.left:=image2.left-6;
   image2.top:=image2.top-6;
  end
 else if image2.top<k1
 then
  begin
   f:=1;
   if image2.left>10
    then
     image2.left:=image2.left-6;
     image2.Top:=image2.top+6;
  end;
 if image2.Top=k1 then
 begin
 f:=0;
 P1:=0;
 timer4.enabled:=false;
 end;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
 f3:=1;
 if (image2.top>k1-100)   and (f<>1)
 then
  begin    if image2.left<Form1.ClientWidth-image2.Width-7
  then
   image2.left:=image2.left+6;
   image2.top:=image2.top-6;
  end
  else if image2.top<k1
  then
   begin
    f:=1;
    if image2.left<Form1.ClientWidth-image2.Width-7
    then
     image2.left:=image2.left+6;
     image2.Top:=image2.top+6;
   end;
 if image2.Top=k1 then
  begin
   f:=0;
   P3:=0;
   timer5.enabled:=false;
  end;
end;

[VintProg]

Зачем столько таймеров сделал, это лишнее.

[Deamonig]

Просто если делать перемещение в той же FormKeyDown то не видно самого движения картинки, т. е. она сразу переместится с позиции допустим 300 500 на 300 300 за пол секунды, а с помощью таймера видно четко движения картинки (в 1 милисекунду на 6 пикселей)

[VintProg]

А Images мерцают при передвижении?

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

Ты изначально все делаешь не правильно. Твой вариант неоптимизированный и сложный. Отсюда и все проблемы. Почитай Уроки по созданию игр для новичков.

[Манжосов Денис :)]

Diamonig, на самом деле всё просто, думаю, что падение фигуры ты сам сможешь сделать. Если я правильно понял, в чём у тебя проблема, то вот код:

unit ModuleToDiamonig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    TimerMove: TTimer;
    procedure ReDraw;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TimerMoveTimer(Sender: TObject);
  end;

var
  Form1: TForm1;
  buf: TBitmap;
  player: TBitmap; // Персонаж
  XPos, YPos: integer; // Позиция игрока по X и Y
implementation

{$R *.dfm}

procedure TForm1.ReDraw;
begin
  buf.Canvas.FillRect(Rect(0,0,400,400)); // Очистить буфер
  buf.Canvas.Draw(XPos, YPos, Player);
  Canvas.Draw(0,0,buf); // Вывести buf на экран
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  ReDraw;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  buf := TBitmap.Create;
  buf.Width := 400;
  buf.Height := 400;

  Player := TBitmap.Create;
  Player.Width := 20;
  Player.Height := 20;
  Player.Canvas.Ellipse(0,0,20,20);

  XPos := 20;
  YPos := 380;
end;

procedure TForm1.TimerMoveTimer(Sender: TObject);
begin
  if GetKeyState(37) shr 31 = 1 then Dec(XPos, 5);
  if GetKeyState(38) shr 31 = 1 then Dec(YPos, 5);
  if GetKeyState(39) shr 31 = 1 then Inc(XPos, 5);
  ReDraw;
end;

У таймера частота обновления 33 мс.

[Deamonig]

Сообщение от VintProg

А Images мерцают при передвижении?

нет не мерцают

[VintProg]

Deamonig
Тогда юзай код что написал
Манжосов Денис , он действительно проше чем твой, ты видимо
начинающий игро-программер?

[Deamonig]

Сообщение от Манжосов Денис :)

Diamonig, на самом деле всё просто, думаю, что падение фигуры ты сам сможешь сделать. Если я правильно понял, в чём у тебя проблема, то вот код:

Сэнкс, помогло

[Deamonig]

Сообщение от VintProg

Deamonig
Тогда юзай код что написал
Манжосов Денис , он действительно проше чем твой, ты видимо
начинающий игро-программер?

угу начинающий