Проблема! Нужно, чтобы при столкновении двух одинаковых спрайтов оба скоропостижно скончались.
Code
TPul = class(TImageSprite)
a,b: integer;
protected
[b]procedure DoCollision(Sprite: TSprite; var Done: boolean); override;[/b]
procedure DoMove(MoveCount: integer); override;
public
constructor Create(AParent: TSprite); override;
destructor Destroy; override;
end;
И вот сама процедура:
Code
procedure TPul.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if Sprite is TPul then dead;
Collision;
end;
По идее должно работать, или для одинаковых спрайтов это нужно делать как-то по другому?
