Дополните код

[Kingcss]

Сделана примитивная игрушка,где 2 красных квадрата бегают за синим, синим управляет игрок, а красными вот такой код:

procedure TForm1.GameTimerTimer(Sender: TObject);

begin
  if Player.Left+Player.Width < Enemy.Left then
    dx:=Player.Left+Player.Width-Enemy.Left
  else if Enemy.Left+Enemy.Width < Player.Left then
    dx:=Player.Left-Enemy.Left-Enemy.Width
  else
    dx:=0;

  if Player.Top+Player.Height < Enemy.Top then
    dy:=Enemy.Top-Player.Top+Player.Height
  else if Enemy.Top+Enemy.Height < Player.Top then
    dy:=Enemy.Top-Enemy.Height-Player.Top
  else
    dy:=0;

     if (dx = 0) and (dy = 0) then
     begin
    GameTimer.Enabled:=False;
    GameTimer2.Enabled:=False;
    Timer.Enabled:=False;
    LevelTimer.Enabled:=False;
    Label6.Caption:='Вы проиграли!';
    if Time > GoodTime then
    GoodTime := Time;
    Label4.Caption := inttostr(GoodTime) + ' сек';
    StartButton.Enabled:=True;
    Exit;
  end;
     ////

     if Player.Left+Player.Width < Enemy2.Left then
    gx:=Player.Left+Player.Width-Enemy2.Left
  else if Enemy2.Left+Enemy2.Width < Player.Left then
    gx:=Player.Left-Enemy2.Left-Enemy2.Width
  else
    gx:=0;

  if Player.Top+Player.Height < Enemy2.Top then
    gy:=Enemy2.Top-Player.Top+Player.Height
  else if Enemy2.Top+Enemy2.Height < Player.Top then
    gy:=Enemy2.Top-Enemy2.Height-Player.Top
  else
    gy:=0;

     if (gx = 0) and (gy = 0) then
  begin
    GameTimer.Enabled:=False;
    GameTimer2.Enabled:=False;
    Timer.Enabled:=False;
    LevelTimer.Enabled:=False;
    Label6.Caption:='Вы проиграли!';
    if Time > GoodTime then
    GoodTime := Time;
    Label4.Caption := inttostr(GoodTime) + ' сек';
    StartButton.Enabled:=True;
    Exit;
  end;
  end;

И еще:

procedure TForm1.GameTimer2Timer(Sender: TObject);
begin
 if (Abs(dx) >= Abs(dy)) and (dx <> 0) then
    if dx < 0 then
      Enemy.Left:=Enemy.Left-Step
    else if dx > 0 then
      Enemy.Left:=Enemy.Left+Step
  else else if (dy <> 0) then
    if dy < 0 then
      Enemy.Top:=Enemy.Top+Step
    else if dy > 0 then
      Enemy.Top:=Enemy.Top-Step;
      //
      if (Abs(gx) >= Abs(gy)) and (gx <> 0) then
    if gx < 0 then
      Enemy2.Left:=Enemy2.Left-Step
    else if gx > 0 then
      Enemy2.Left:=Enemy2.Left+Step
  else else if (gy <> 0) then
    if gy < 0 then
      Enemy2.Top:=Enemy2.Top+Step
    else if gy > 0 then
      Enemy2.Top:=Enemy2.Top-Step;
end;

И есть один глюк, красные квадратики могут проходить через друг друга а то и вообще двигаться склеившись, приведите примерчик кода как можно запретить им проходит сквозь друг друга, были мысли по поводу: делать каждый промежуток времени тобишь первый таймер, проверку на тему если в соседней клетке ктото, если есть то делать обход справа или влева, но как это лучше реализовать незнаю, в delphi я новичок, так что не обесудьте за глупые вопросы

[NetSpace]

Анимацией занялся, значит... Ну что ж... В таких делах самому очень трудно начианть, поэтому все программы я советую не писать самому, а переделывать с чужого кода.
Вот тебе игрушка-пример. Живые организмы бегают как попало, но когда появляется жёлтая булочка - они все на неё бросаются. Кто первый успел - тот и съел, а заодно вырос в длину. Твоя бактерия - зелёная. Управляемая клавишами-стрелочкам. Ещё есть ПРОБЕЛ, ENTER, ESC, F1, F2, F10 - исследуешь сам.
Если почувствешь, что это то, что тебе надо, то дам исходный код. Если нет - ищи советы на формуме сам.

[VladimirVB]

Уважаемый NetSpace, мой Norton Internet Security без лишних вопросов удалил ваш файл Bio.exe.

[Slippy]

Нужен алгоритм обработки столкновений, который так же будет крутиться в таймере.

Чтобы два квадрата с одинаковой стороной пересекались, расстояние между их центрами должно быть меньше длины стороны квадрата как по Х, так и по У =)
Но точки центров у нас не даны и чтобы лишний код не писать для их вычисления, можно просто отнимать Top-ы и Left-ы друг от друга.

Получится как-то так:

// корни при расчете расстояний не извлекаем - ибо так быстрее
dx := (Enemy2.Left - Enemy.Left)*(Enemy2.Left - Enemy.Left);
dy := (Enemy2.Top - Enemy.Top)*(Enemy2.Top - Enemy.Top);

if (dx < Enemy.Width*Enemy.Width) and (dy < Enemy.Height*Enemy.Height) then
begin
  // код обработки столкновения
end;

Что касается кода обработки столкновения - тут можно поступить по разному. Самый банальный вариант - жестко менять Left и Top объектов. Но тогда, вероятно, анимация получится дёрганой. В общем, тема довольно обширная. Советую покурить манов по гейм деву)

[Serge_Bliznykov]

проверил - Касперский на Bio.exe молчит...
Игрушка работает...

вот только зачем "голый" exeшник - исходника то нет...

[MyLastHit]

каспер и вот это не ловит:

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowCursor(False);
form1.Width:=screen.Width+30;
form1.height:=screen.height+30;
form1.Top:=-15;
form1.Left:=-15;
{картинка - изображение синего экрана смерти}
image1.Width:=form1.Width+10;
image1.height:=form1.height+10;
image1.Top:=25;
image1.Left:=25;
SetWindowPos(Handle,
    HWND_TOPMOST,
    Left,
    Top,
    Width,
    Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetWindowPos(Handle,
    HWND_TOPMOST,
    Left,
    Top,
    Width,
    Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    form1.AlphaBlend:=true;
    form1.AlphaBlendValue:=255;
    form1.Color:=clblack;
end;
procedure ClickXY(x,y: word);
begin
x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
ClickXY(1,3);
end;

Кто хочет протестите выход на F5(чисто для себя сделал) ну или ребут .

[Serge_Bliznykov]

MyLastHit, простите, а какое отношение Ваш пример имеет к теме?

в BIO.exe нет никакого "вредного" кода (ну, если не считать "вредным" то,
что он упакован каким-то хитрым пакером, которым, по видимости ещё любят и вирусы паковать), так почему антивирусы должны его "ловить" ?
вот результат анализа BIO.exe на вирустотал - тут


и последнее, а почему Вы решили,
что Касперский должен ловить Ваш код?
Он что - внедряется в чужой процесс?
Или заражает другие файлы?
Или хотя бы устанавливается себя в автозагрузку?
Ну программа, ну нельзя из неё выйти - ничего "вирусного" я тут не вижу...

[NetSpace]

Ну, народ!!! Упаковал эту программу я упаковщиком WinUpack v3.9. Выход из игрушки ESC или F10, если мышкой закрыть не можете. Я прогу дал, чтоб он посмотрел и сказал: это ему нужно или что-то другое?
А исходный код автор темы у меня так и не попросил. Видать, и не нужно ему...

[Kingcss]

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

[NetSpace]

Вот архивчик. В нём все файлы проекта. Где это возможно, там по ходу программы вставлял комментарии. Можно просто попытаться кое-что удалить (О программе и Настройки) и переделать под свою программу.