Окей с одним вопросом разобрался, вроде было несложно.
Procedure MoveEntity(Entity,Move.f) ;Только для движения вперед, т.е в моей программе больше не требуется
AngleX.f=УголХ Объекта
AngleY.f=УголУ Объекта
DX.f=-Move*Sin(Angley)*Cos(Anglex)
DY.f=-Move*Sin(Anglex)
DZ.f=Move*Cos(Angley)*Cos(Anglex)
EndProcedure
Проверял с Ксорсом, работают как часики
Теперь возникла очередная сложность, это команда TurnEntity(Entity,TurnX,TurnY,TurnZ) -Поворот объекта
Тупо приплюсовывать к углу угол не получится ибо оси смещаются по какойто зависимости.