Спрайты и DelphiX...:(((

← →
@ndrew © (2003-10-04 08:18) [0]

Люди, подскажите пожалуйста....у меня 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-04 12:52) [1]

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

← →
Карлсон © (2003-10-04 21:57) [2]

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

← →
Kair © (2003-10-06 07:45) [3]

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

:)

to Kair

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

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

Спрайты и DelphiX...:((( Найти похожие ветки