[M.A.D.M.A.N.]

В этом движке нет какого-нибудь события типа OnCollision? Когда два спрайта пересекают друг друга.

[Shpingalet]

Сообщение от M.A.D.M.A.N.

В этом движке нет какого-нибудь события типа OnCollision? Когда два спрайта пересекают друг друга.

Нет, есть только DoCollision. Но все проблемы я уже решил. переписал код вот так:

Код:

if Sprite is TBallSprite then                           
      begin
        if bump=false then
          if (collisionline(x1,x2,x,x+60,y1,y2,y+18,y+18)or collisionline(x1+10,x2+10,x,x+60,y1,y2,y+18,y+18)) then
            vector:=360-vector else
          if (collisionline(x1,x2,x,x+60,y1+10,y2+10,y,y)or collisionline(x1+10,x2+10,x,x+60,y1+10,y2+10,y,y)) then
            vector:=360-vector else
          begin
            if vector<=180 then
               vector:=180-vector else
               vector:=540-vector;
          end;
          dead;
          bump:=true;
        end;

Все работает идеально.
UPD а вот запостил, посмотрел на него и еще сократил на 2 строки

[M.A.D.M.A.N.]

Движок как называется? Должно быть DoCollision виртуальной, в нее и добавить нотификацию о событии.

[Shpingalet]

Сообщение от M.A.D.M.A.N.

Движок как называется? Должно быть DoCollision виртуальной, в нее и добавить нотификацию о событии.

Если я Вас правильно понял, то у меня столкновение обрабатывается в процедуре

Код:

procedure TMapSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
...
if Sprite is TBallSprite then                  
...

Новая версия программы:

[M.A.D.M.A.N.]

Ну супер, вечером заценю твою игруху

[Shpingalet]

Итак, решил я запилить меню в игре и сразу получил ошибку. Так как использую 2 формы впервые, причем форма с игрой у меня была написана раньше и обзывалась Form1, я ее переименовал в Form2, а форму с меню сделал и назвал Form1. Соответственно немножко подправил .dpr. Но при запуске пишет ошибку:

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

И на фоне запускается игра...
Не пойму где что не так?

[poli-smen]

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

Итак, решил я запилить меню в игре и сразу получил ошибку. Так как использую 2 формы впервые, причем форма с игрой у меня была написана раньше и обзывалась Form1, я ее переименовал в Form2, а форму с меню сделал и назвал Form1. Соответственно немножко подправил .dpr. Но при запуске пишет ошибку

А зачем правил dpr? Обычно при переименовании форм они в dpr сами переименовываются. И вообще, лучше именовать формы более содержательно: MainForm, MenuForm и т.д.

[poli-smen]

Посмотрел исходник, ошибка у тебя здесь:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Left:=(Screen.Width - Width) div 2;;
  Form1.Top:=(Screen.Height - Height) div 2;
  Form2.Left:=(Screen.Width - Width) div 2;;
  Form2.Top:=(Screen.Height - Height) div 2;
  Form2.Visible:=false;
  Form2.Hide;
end;

Когда создаётся Form1, то Form2 ещё не существует, а ты уже пытаешься ей что-то присвоить
И вот ещё что: в Delphi-программах главной формой стаёт та, которая создаётся первой, в твоём случае это будет Form1 с меню, а не Form2 с игрой.

[Shpingalet]

Поправил все, теперь запускается. Теперь вопрос в том что если запустить игру, а потом выйти обратно в меню через esc или же тупо пропустив шарик, то хотя и форма с игрой закрывается, но DXDraw все еще продолжает работать. Мне же надо чтобы в обоих случаях сбрасывался DXTimer и DXDraw. Как это сделать?

[poli-smen]

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

Поправил все, теперь запускается. Теперь вопрос в том что если запустить игру, а потом выйти обратно в меню через esc или же тупо пропустив шарик, то хотя и форма с игрой закрывается, но DXDraw все еще продолжает работать. Мне же надо чтобы в обоих случаях сбрасывался DXTimer и DXDraw. Как это сделать?

Я бы сделал чтобы форма GameForm создавалась не при запуске приложения, а "в ручную" при нажатии кнопки "Начать игру" и чтобы разрушалась при закрытии.

[Shpingalet]

Добавил новых элементов. Все работает как надо, хочу только поменять момент паузы после смерти шарика. Никак не пойму куда запихнуть sleep чтобы у меня происходило следующее: смерть шарика -> перемещение шарика на стартовую позицию -> удаление спрайта жизни (сердечко) -> пауза. Сейчас у меня пауза работает ПЕРЕД удалением спрайта с жизнями.

[icsander]

Насчет переименовать Form1->Form2->и т.д. посмотрите в сторону "IDE->Menu->Refactoring" - очень полезная весч