DelphiX не сталкивание объектов

[Virus191288]

в общем как узнать программно что объект в данный момент не с чем не столкнулся?

[Beermonza]

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

в общем как узнать программно что объект в данный момент не с чем не столкнулся?

Попросить его написать заявление в трех экземплярах.

Зачем? ...нет событий столкновений - объект ни с чем не сталкивается. Программиста интересует обратное условие сабжу. В любом случае из структуры If..then..else можно вытащить и то и то.

[Virus191288]

Beermonza и как это сделать? в DoCollision не получится.... а в DoMove незнаю как это реализовать(

[Beermonza]

Кидай часть кода, посмотрим.

[Virus191288]

procedure TPlayer.DoCollision(Sprite: Tsprite; var Done: Boolean);
begin
  if Sprite is TEarth then begin
    DY:=0;

  end;
end;

procedure TPlayer.DoMove(MoveCount: integer);
begin
  inherited;
  x:=x+dx;
  y:=y+DY;
  if x<0 then dx:=-dx;
  if x>1000 then dx:=-dx;

Collision;
end;

тут происходит так если вначале объект падает... как только сталкивается с другим объектом он перестает падать..... но как сделать так чтобы он продолжил падать если объект удален???

[Beermonza]

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

procedure TPlayer.DoCollision(Sprite: Tsprite; var Done: Boolean);
begin
  if Sprite is TEarth then DY:=0;
  Collision;
end;

...я не уверен, дело было давно.

[Virus191288]

Beermonza так все зависло и вылетела ошибка....

Collision; у меня стоит в движении объекта TPlayer тут нужно как-то определить что объекты не соприкоснулись....

[Beermonza]

Значит я неверно направил, ...могу по исходнику посмотреть, ...если ничего секретного в нем нет.

[Гром]

Если координаты объектов заранее неизвестны, то пробегая по списку всех этих объектов, проверяем, пересекаются ли прямоугольники героя и каждого из объектов. Если же, например, все поле состоит из клеток, то смотрим, в какие клетки залезает прямоугольник игрока левым верхним и правым нижним углами и проверяем, что находится в ограниченном ими прямоугольнике клеток - если во всех пусто, то ни с чем не столкнулся.
Вот, например, так можете.

[Beermonza]

Гром, это DelphiX!!! там все скрыто, тормозит себе от посторонних глаз, разрабатывает план ядерной атаки.
Вот пример: