| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Спрайты и DelphiX...:((( [Delphi, Windows]

@ndrew ©   (2003-10-04 08:18:00) 

Люди, подскажите пожалуйста....у меня 2 спрайта и при столкновении одного с другим обрабатываю события OnCollision (у обоих), один в движении второй нет. Вот пример:

type
 TPlayer = class(TImageSprite)
  protected
   procedure DoMove(MoveCount: Integer); override;
   procedure DoCollision(Sprite :TSprite; var done: boolean);override;
 end;

TStena = class(TImageSprite)
    protected
     procedure DoCollision(Sprite: Tsprite; var Done:boolean);override;
     procedure DoMove(MoveCount :integer); override;
     public
      Constructor Create (AParent :TSprite); override;
      Destructor Destroy; override;
     end;

*******

procedure TPlayer.DoCollision(Sprite :TSprite; var Done:Boolean);
begin
  if sprite is TStena then dead;
 Collision;
end;

procedure TStena.DoCollision(Sprite :TSprite; var Done:Boolean);
begin
if sprite is TPlayer then Sprite.Dead;
 Collision;
end;


почему не происходит "умирание" игрока при столкновении со стеной!??!!?

---

@ndrew   (2003-10-06 11:21:00) [1]

to Kair

> procedure TPlayer.DoMove(MoveCount: Integer);
> begin
> Collision;
> end;

 действительно не указал...спасибо!!

---

Kair   (2003-10-06 07:45:00) [2]

procedure TPlayer.DoMove(MoveCount: Integer);
begin
Collision;
end;

:)

---

Карлсон   (2003-10-04 21:57:00) [3]

типа игрок должен умирать если в стену долбанулся?
тогда нужно убивать только игрока, а стенку вобще не трогать.

---

@ndrew   (2003-10-04 12:52:00) [4]

ну кто-нибудь может помочь!??!?!!?
очень надо, ну просто не могу понять....что там надо сделать

---

Наверх