Доброго времени суток всем!
При написании маленькой игры столкнулся с проблемой определения на столкновение. Пожалуйста, помогите новичку переписать код!
В общем есть 10 прямоугольников:
Dim brick(10)
For i=1 To 10
brick(i)=CreateCube()
ScaleEntity brick(i),7,4,3
PositionEntity brick(i),-110+i*16.5,70,0
EntityType brick(i),xenemy
Next
И есть шарик который сбивает эти фигуры. Я не имею представления как узнать название объекта с которым столкнулся шарик, поэтому решил проблему через координаты шарика и перебиранием цикла прямоугольников в момент столкновения:
If EntityCollided (ball,xenemy)
For i=1 To 10
If EntityX(brick(i))+3.5>=EntityX(ball) And EntityX(brick(i))-3.5<=EntityX(ball) Then
MoveEntity brick(i),0,20,0
End If
Next
UpdateWorld
End If
Здесь 3.5 - это половина длины прямоугольника.
Конечно этот метод не совсем корректный. Есть ли другая функция, которая сразу распознает название объекта после столкновения??