.hit test

[Человек]

Проблема: health отнимаются только если совпадает верхняя левая координата снаряда(rocket) и верхняя левая координата танка(tank).
Во Flash'e там был .hit test, а в Basic'e нету.
Как написать так, что бы здоровье отнималось при соприкосновении снаряда и танка?

Код: Выделить всё

Dim health As Integer
If rocket.Top = tank.Top And rocket.Left = tank.Left Then health = health - 30

[Ilya Vasilyev]

Для простоты можно проверить, чтобы один угол снаряда (top, left) был "внутри" танка, т.е.
танк.left <= снаряд.left <=танк.left + танк.width
танк.top <= снаряд.top <=танк.top + танк.height

а в идеале - то же самое для каждого угла снаряда

[Человек]

спасибо!