PositionEntity test,ODE_dBodyGetPositionX#(pm\body),ODE_dBodyGetPositionY#(pm\body),ODE_dBodyGetPositionZ#(pm\body)
            phyx#=ODE_dBodyGetPitch#(pm\body)
            phyy#=ODE_dBodyGetYaw#(pm\body)
            phyz#=ODE_dBodyGetRoll#(pm\body)
            conx#=EntityPitch(test,True)
            cony#=EntityYaw(test,True)
            conz#=EntityRoll(test,True)
             
            newx#=0
            newy#=0
            newz#=0

            If phyx#<conx# Then newx#=conx#-phyx#
            If phyx#>conx# Then   newx#=phyx#-conx#
            If phyy#<cony# Then newy#=cony#-phyy#
            If phyy#>cony# Then newy#=phyy#-cony#
            If phyz#<conz# Then newz#=conz#-phyz#
            If phyz#>conz# Then   newz#=phyz#-conz#
            
            If newx#<0 Then newx#=newx#+360
            If newy#<0 Then newy#=newy#+360
            If newz#<0 Then newz#=newz#+360

            If newx#>359 Then newx#=newx#-360
            If newy#>359 Then newy#=newy#-360
            If newz#>359 Then newz#=newz#-360

            TurnEntity test,newx#,newy#,newz#,True

If phyx#<conx# Then newx#=conx#-phyx# TurnEntity test,-newx#,0,0
            If phyx#>conx# Then   newx#=phyx#-conx# TurnEntity test,newx#,0,0
            If phyy#<cony# Then newy#=cony#-phyy# TurnEntity test,0,-newy#,0
            If phyy#>cony# Then newy#=phyy#-cony# TurnEntity test,0,newy#,0
            If phyz#<conz# Then newz#=conz#-phyz# TurnEntity test,0,0,-newz#
            If phyz#>conz# Then   newz#=phyz#-conz# TurnEntity test,0,0,newz#

   If KeyHit(8) Then TurnEntity test2,15,0,0,True:turnx#=turnx#+15
   If KeyHit(9) Then TurnEntity test2,0,15,0,True:turny#=turny#+15
   If KeyHit(7) Then TurnEntity test2,0,0,15,True:turnz#=turnz#+15
   
   If KeyHit(6) Then TurnEntity test,trunx#,turny#,turnz#,True:turny#=0:turnz#=0:turnx#=0