Для стрел из арбалета советую ввести тип объекта - "стрела". Тогда не надо будет с ней возиться. Достаточно будет создать стрелу и задать ей условия полета.
Code
CreateStrela(X,Y,Z,sX,sY,sZ,massa,dalnost)
Цикл будет проверять колизию стрелы с воином.
Code
Function Update_strela()
For str.strela=Each strela
Next
End Function
Если колизия возникает, воин падает, а стрела уничтожается