Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

DoCollision   Найти похожие ветки 

← →
Dmitriy Polskoy ©   (2002-12-17 17:56) [0]

Народ помогите обработать столкновение спрайтов (DelphiX). Есть спрайт машины, я хочу, чтобы при столкновении машины, например, уничтожались. Делаю так:
Создание машины

constructor TCar.Create(AParent: TSprite);
begin
inherited;

PixelCheck := True;

Image := Mainform.dxImageList1.Items.Find("Car");
SetAnim("Car", 1, 0);
x := 55;
y := 600;
z := 0;
Gaz := SetCountOfGaz;
ToWantHaveGaz := SetToWantHaveGaz;
YetHaveGaz := False;

Width := Image.Width;
Height := Image.Height;

MovingAngle := UP_MOVE;

AnimLooped := False;
AnimSpeed:=0.4;

LastTimeOfCreation := GetTickCount;
end;

Передвижение

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

Cтолкновение

procedure TCar.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
inherited;
if Sprite is TCar then Dead;
Collision;
end;

Но в результате объект не удаляется. Подскажите, как мне этого добиться.

---

← →
Dmitriy Polskoy ©   (2002-12-17 18:20) [1]

Народ, спасибо всем, я уже сам разобрался.

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c