| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Солкновения

8bit ©   (2003-05-19 15:29:00) 

Проблема. Как узнать столкнулис спрайты или нет ?Например, попал ли снаряд в танк или пролетел мимо и т.д.

---

Kair   (2003-05-21 08:13:00) [1]

www.gamedev.ru
"Статьи->DelphiX".

---

cyborg   (2003-05-21 00:19:00) [2]

Vin_Ghost (20.05.03 23:35)
и где тут проверяет?

---

Vin_Ghost   (2003-05-20 23:35:00) [3]

В DelphiX есть встроенная процедура DoCollision, которая проверяет столкнулись спрайты или нет. Синтаксис примерно такой:
Procedure TPlayerSprite.DoCollision(Sprite: TSprite; Var Done: Boolean);
Begin
If (Sprite Is TEnemy) Then //если столкнулся с врагом
Begin
Dec(FLife); //уменьшить жизни
TEnemy(Sprite).Hit; //что происходит с врагом(описать самому)
AnimPos:=3; //сменить
AnimCount := 1; //картинку (отображение удара)
If FLife<=0 Then
Begin
frmMain.PlaySound("Explosion", False); //звук взрыва
Collisioned := False;
Done:= False;
//вместо спрайта объекта рисуем взрыв
( "Explosion") [3]

В DelphiX есть встроенная процедура DoCollision, которая проверяет столкнулись спрайты или нет. Синтаксис примерно такой:
Procedure TPlayerSprite.DoCollision(Sprite: TSprite; Var Done: Boolean);
Begin
If (Sprite Is TEnemy) Then //если столкнулся с врагом
Begin
Dec(FLife); //уменьшить жизни
TEnemy(Sprite).Hit; //что происходит с врагом(описать самому)
AnimPos:=3; //сменить
AnimCount := 1; //картинку (отображение удара)
If FLife<=0 Then
Begin
frmMain.PlaySound("Explosion", False); //звук взрыва
Collisioned := False;
Done:= False;
//вместо спрайта объекта рисуем взрыв
Image := frmMain.DXImageList.Items.Find("Explosion");
Width := Image.Width;
Height := Image.Height;
//тут всё понятно
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimPos := 0;
End;
End;
End;

Если надо, то могу прислать исходники своей игрухи. А вообще, посмотри исходники DelphiX в папке Source

---

Плохой человек   (2003-05-20 20:13:00) [4]

>конечно учитывая координаты самих спрайтов

Имеется ввиду, столкнулись ли "прямоугольники", в которых находятся изображения этих спрайтов. Если они столкнулись (а это вычисляется по координатам вершин), то можно при желании проверить и по-точечно.

---

Kobik   (2003-05-20 19:39:00) [5]

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

---

Наверх