Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
1-83589
Михайлов Антон
2003-05-14 14:26
2003.05.26
md5


8-83616
FROM_X
2003-02-13 13:27
2003.05.26
DirectSS кто нить работал с ним? Вопрос...


4-83798
iNew
2003-03-27 07:46
2003.05.26
Посмотрите на код и оцените с точки зрения оптимальности и вообще


4-83823
АлексКриппер
2003-03-31 14:18
2003.05.26
Манипуляция иконками раб. стола


4-83784
Pogi
2003-03-24 21:22
2003.05.26
Как получить заголовок окна другого приложения?