игра с игровым движком DelphiX

[Alexandr17-10]

Вообщето я ошибся когода сказал что работает идеально

procedure TFrame2.DXTimer1Timer(Sender: TObject; LagCount: Integer);
Var Overlay: TRect;
begin
  DoubleBuffered:=true;
  if (getasynckeystate(65)<>0)Or(getasynckeystate(37)<>0) then begin
    Player1.Left:=Player1.Left-5;
    If intersectrect(overlay, Player1.BoundsRect, Enemies0.BoundsRect) then
      Player1.Left:=Player1.Left+5;
  end;
  if (getasynckeystate(68)<>0)or(getasynckeystate(39)<>0) then begin
    Player1.Left:=Player1.Left+5;
    If intersectrect(overlay, Player1.BoundsRect, Enemies0.BoundsRect) then
      Player1.Left:=Player1.Left-5;
  end;
  if (getasynckeystate(83)<>0)or(getasynckeystate(40)<>0) then begin
    Player1.Top:=Player1.Top+5;
    If intersectrect(overlay, Player1.BoundsRect, Enemies0.BoundsRect) then
      Player1.Top:=Player1.Top-5;
  end;
  if (getasynckeystate(87)<>0)or(getasynckeystate(38)<>0) then begin
    Player1.Top:=Player1.Top-5;
    If intersectrect(overlay, Player1.BoundsRect, Enemies0.BoundsRect) then
      Player1.Top:=Player1.Top+5;
  end;
  If intersectrect(overlay, Player1.BoundsRect, Enemies0.BoundsRect) then
    Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position-1;
end;

Он только узнает лежит ли первый Image на втором и если да то True но не правильно это вообще надо узнавать даже если они соприкаснулись ну скажем как эти 2 буквы
AA
тоесть если между имаджами нет растояния то мы должны отнимать у прогрессбара 1 пока не дойдет до 0

[phomm]

Мда.. если это обработка логики передвижения персонажа, то вам явно рано браться за "аи"

Более того, я отчаялся понимать ваше словотворчество и пытаться вас уговорить говорить по-человечьи. Посему умываю покамест руки, может кто другой будет помогать терпеливо...

[Alexandr17-10]

Я знаю что не логичный код при том это так бета код.