Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DoCollision [Delphi]

Bogdan1024 © (2005-11-05 22:37:00)
Делаю тренировочный арканоид;
У меня есть класс TBall и TBrick, где реализовывать столкновение? И как? Если в TBall, то не видно координат кирпича, если в TBrick, то не видно координат мяча. Ибо они все в прайват записаны.

П7 (2005-11-07 17:45:00) [1]
Может следует их в паблик вынести и не тупить?

Q: "Как мне скушать бомж-пакет если он запечатан в целофановый пакетик? Залить пакетик водой? Тогда лапша не приготовится.. Сгрызть не заливая водой? Тогда можно отравиться пакетиком.."
A: "Попробуйте открыть пакетик и залить водой саму лапшу."
Q: "Я так и сделал, но отравился пакетиками от приправ и масла. Как быть?"
A: "Жаль, что вы не умерли, когда отравились.."

2Wish (2005-11-05 23:14:00) [2]
ну тада пиши процедуру OnCollision =) можеш из DelphiX стырить.

Кефир87 (2005-11-05 23:14:00) [3]
Я думаю что надо наследовать метод DoCollision из класса TImageSprite... Хотя я тоже, к сожалению, не телепат...

Bogdan1024 (2005-11-05 23:11:00) [4]
Щитайте, что функции IfCollide нет. (забыл стререть)

Bogdan1024 (2005-11-05 23:11:00) [5]
TBall = class(TObject)
private
X, Y: integer;
Width, Height, Sp: word;
Ang: integer;
protected
public
published
Constructor create(DXImagelist: TDXimagelist);
Procedure Draw(var DXDraw: TDXDraw; var DXImagelist: TDXImagelist);
Procedure Move;
end;

Bogdan1024 (2005-11-05 23:10:00) [6]
TBrick = class
private
X, Y:integer;
Width, Height:word;
Exists:boolean;
protected
public
published
constructor Create(var DXImagelist: TDXImagelist);
destructor Destroy;
function IfColide(var Ball: TBall):boolean;
procedure Draw(var DXDraw: TDXDraw; var DXImagelist: TDXImagelist);
end;

NightLord (2005-11-05 22:51:00) [7]
Ну тогда надо указывать в чем =)

Darthman (2005-11-05 22:51:00) [8]
Тогда надо написать чего он хочет более детально. Телепатов нет, чтобы догадаться в чем он челает и откуда чего не видно.

2Wish (2005-11-05 22:47:00) [9]
2 NightLord
А если он не в DelphiX делает?

NightLord (2005-11-05 22:40:00) [10]
procedure TBrick.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if sprite is TBall then begin
TBrick(sprite).x;
TBall(Sprite).x;
//и.т.д
end;
end;

Наверх

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