[vadya]

спосибо за попытки я уже сам разобрался вот код из ГА и немного доработанная мною
Function CreatPlayer(x,y,z)
player=CreateCube()
PositionEntity player,x,y,z
pivot=CreatePivot()
PositionEntity pivot,EntityX(player),EntityY(player),EntityZ(play er)
End Function

Function CreateCam()
cam=CreateCamera(pivot)
PositionEntity cam,0,90,-150
End Function


Function UpdateCam()
If Abs(EntityPitch#(campivy))>u# RotateEntity campivy,u#*Sgn(EntityPitch#(campivy)),0,0
mx=MouseXSpeed()
my=MouseYSpeed()
PositionEntity pivot,EntityX(player),EntityY(player),EntityZ(play er)
If MouseDown(2) Then
TurnEntity pivot,0,-mx,0
EndIf
End Function