Вопрос про наболевшее - коллизии.

[DEGABB]

Есть игрок с возможностью стрелять снарядами (их полёт виден) и боты, каждый из которых входит в массив типа tank.
Как определить, при обработке коллизий "снаряд-бот", кто из ботов столкнулся со снарядом, если все они относятся к одному типу коллизий (CONST BOT_C=1).
Т.е. при столкновении снаряда и объекта типа BOT_C возникает коллизия с ботом, но как узнать кто из целого массива ботов её создал (и затем удалить только этого бота)?

[dimond]

Собрал простенькую программулину (все не выкладываю только основные моменты).

Const BOT_C%=111

Dim Tank(10)

For i=0 To 9
  Tank(i)=CreateCube()
  PositionEntity Tank(i),Rand(-10,10),0,Rand(-10,10)
EntityType Tank(i),BOT_C
Next

Collisions TSHOT,BOT_C,3,1

в цикле

For i=0 To 9
  If EntityCollided(Tank(i),TSHOT) Then FreeEntity Tank(i)
Next

проверено, удаляется только "подстреленый" элемент массива.

[tormoz]

Ерунда, а не код
высавил коллизию пуля-танк, а проверяешь танк-пуля
По сабжу:
используй не массивы, а типы (удобнее)

EntityCollided(пуля,тип_танка) возвратит тебе ентити. с которым произошла коллизия

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

t.tank=New tank
t\en=CopyEntity(tank_mesh)
NameEntity t\en,Handle(t)
------------------------

ent=EntityCollided(shot\en,BOT_C)
If ent<>0
 t.tank=Object.tank(EntityName(ent))
 If t<>Null
   Тут мы получили доступ к элементу типа и делаем с ним что хотим
 EndIf
EndIf

[Raiter]

А можно вообще не юзать коллизию, а юзать EntityDistance

[HolyDel]

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

[moka]

Проблемка возникнет с быстрыми объектами
Если будет юзаться физ движок, (PhysX), тогда триггерами проверять.
И можно без перебора получить будет объект, в которого попали.

[HolyDel]

Я вообще бы рекомендовал проверять на пересечение отрезка со сферой. давно выкладывал ф-ии.

[IGR]

tormoz, спасиб !!
меня этот код направил на очень умную мисль !!

[Crystal]

Кусок моего кода

    For a.bot=Each bot
    
    If EntityDistance(a\entity,o\pulka)<10 Then
    
    a\HP#=a\HP#-4
    o\Delet=1

    End If
    
    If a\HP#<1 Then
    FreeEntity a\entity
    Delete a
    End If
    
    Next
    
    If o\Delet
    FreeEntity o\pulka
    Delete o               
    EndIf

    Next

[HolyDel]

этот кусок был выдран небрежно.
почему без цикла o ?

[Crystal]

Почему небрежно? Нафиг ему он нужен?
Он вообще по видимому уже реализовал выстрел.
Код показывает как удалить бота вместе с патроном.
Ну если очень надо могу и всю функцию выложить:

    For o.s=Each s
        If o\upt=-1
            o\upt=MilliSecs()
        EndIf
        dt=MilliSecs()-o\upt
        o\upt=MilliSecs()
        MoveEntity o\pulka,0,0,dt*1
            
                    
        If EntityDistance(o\pulka,User)>50000
        
        o\Delet=1
                    
        EndIf

    
    For a.bot=Each bot
    
    If EntityDistance(a\entity,o\pulka)<10 Then
    
    a\HP#=a\HP#-4
    o\Delet=1

    End If
    
    If a\HP#<1 Then
    FreeEntity a\entity
    Delete a
    End If
    
    Next
    
    If o\Delet
    FreeEntity o\pulka
    Delete o               
    EndIf

    Next

[HolyDel]

вот почему:

    For a.bot=Each bot
    
    If EntityDistance(a\entity,o\pulka)<10 Then
    
    a\HP#=a\HP#-4
    o\Delet=1

    End If
    
    If a\HP#<1 Then
    FreeEntity a\entity
    Delete a
    End If
    
    Next
    
    If o\Delet
    FreeEntity o\pulka
    Delete o               
    EndIf

    Next

все что выделено - непонятно что к чему.

Blitzerg
1) пуля летит отсилы 2 км, в реальном случае - 400 метров
2) ограничивать полет лутче по времени чем по растоянию до игрока
3) у тебя перебор O(N^2), надо юзать деревья разбивки,
хотя бы по сегментно
4)

   If EntityDistance(a\entity,o\pulka)<10 Then
    
    a\HP#=a\HP#-4
    o\Delet=1

    End If
    
    If a\HP#<1 Then
    FreeEntity a\entity
    Delete a
    End If
    
    Next
    
    If o\Delet
    FreeEntity o\pulka
    Delete o               
    EndIf

проще написать так да ?

If EntityDistance(a\entity,o\pulka)<10 Then
 a\HP = a\HP - 4
 if a\HP < 1 then
  FreeEntity a\entity
  Delete a
 end if
 FreeEntity o\pulka
 Delete o               
End If

[HolyDel]

jimon, ты издеваешся?
как будет не_программер писать деревья разбивки?

проще написать так да ?

нет. цикл перейдет на следующую ветку обработки врага и вылетит (так как эта пулька уже удалена, и сравнивать не с чем)

[moka]

Дык, добавь перед последним Endif, Exit.