Er .. Nanobrain , the code is iin ths thread, it is only a snippet, it's got distance then the code box around it
I think I should do it like this
pdist=
sqrt((x1 - x2)^2 + (y1 - y2)^2 + (z1 - z2)^2)
but I don't quite know where excatly to put it in this code
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM Spheretest
REM Author :Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
autocam off
hide mouse
sync rate 60
sync on
rem Switch on backdrop
backdrop on
Rem Load Texture Backdrop
Load image "Stars.bmp",1
REM Texture Backdrop on
Texture backdrop 1
rem load planet object
load object "Testsphere.X",1
x# = object position X(1)
Z# = object position Z(1)
Position object 1,x,-2800020,y
AngleY# = 0.0
Rem texture matrix
Load image "grass09.bmp",1
rem Texture planet object
texture object 1,1
rem scaling to 10%
scale object 1,400000000,400000000,400000000
rem Make drone to mark a back position
make object sphere 3,10
hide object 3
rem load hovercraft object
load object "Testbox.X", 2
rem Rotate and fix data so character faces right way
xrotate object 2,0
yrotate object 2,180
zrotate object 2,0
fix object pivot 2
X# = object position X(2)
Z# = object position Z(2)
Position object 2,x,100,y
AngleY# = 0.0
rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
rem Set camera range
set camera range 1,60000000
rem gravity
gravity#=100.0
tgravity#=gravity#
cammode = 0
do
rem movement
if joystick left()=1 then AngleY# = wrapvalue( AngleY# - 1.5 )
if joystick right()=1 then AngleY# = wrapvalue( AngleY# + 1.5 )
rem forwards
if joystick slider a()=0 or upkey()=1 or keystate(17)
x = newxvalue(x,wrapvalue(AngleY#),1300)
z = newzvalue(z,wrapvalue(AngleY#),1300)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
rem backwards
if joystick slider a()=65535 or downkey()=1 or keystate(31)
x = newxvalue(x,wrapvalue(AngleY#),-1300)
z = newzvalue(z,wrapvalue(AngleY#),-1300)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
rem left
if joystick twist z()=1000 or leftkey()=1 or keystate(32)
x = newxvalue(x,wrapvalue(AngleY#+90),1100)
z = newzvalue(z,wrapvalue(AngleY#+90),1100)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
rem right
if joystick twist z()=-1000 or rightkey()=1 or keystate(30)
x = newxvalue(x,wrapvalue(AngleY#-90),1100)
z = newzvalue(z,wrapvalue(AngleY#-90),1100)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
Position object 2,x,100,z
yrotate object 2,AngleY#
rem HAT control
jhat=joystick hat angle(0)
text 10,10,"HAT signal: "+str$(jhat)
text 10,20,"Joystick: "+str$(jx)+"/"+str$(jy)
text 10,30,"Slider: "+str$(joystick slider a())
text 10,40,"FPS: "+str$(screen fps())
rem Set the hat look flags to nothing
lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0
if jhat = 0 then lookUp = 1
if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1
if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1
if jhat = 18000 then lookBack = 1
rem *********************************************************************
rem Player Hovercraft Jumping
rem *********************************************************************
if jumpb=1
height#=height#-7
endif
if mouseclick()=2 or spacekey()=1 or joystick fire x(4) and ajump=1
jumpb=1
height#=15000
endif
if height#<-50 then height#=-50
if object position y(2)>50 then ajump=0 else ajump=1
position object 2,object position x(2),object position y(2)+height#,object position z(2)
if object position y(2)<50
jumpb=0
height#=0
endif
REM **************************************************************************
REM Camera Control 1st and 3rd Person
REM **************************************************************************
If InKey$() = "1" Then cammode = 1 : ` third person
If InKey$() = "2" Then cammode = 0 : ` first person
If cammode = 0
rem Place camera and set orientation to object for FPS
position camera object position x(2),object position y(2)+40,object position z(2)
set camera to object orientation 2
if lookRight = 1 then turn camera right 90.0
if lookLeft = 1 then turn camera left 90.0
if lookUp = 1 then pitch camera up 45.0
if lookBack = 1 then turn camera right 180.0
else
rem Place as over head for 3rd person
move object 2,-150
position object 3,object position x(2),object position y(2),object position z(2)
move object 2,150
rem Place camera and set orientation to object
position camera object position x(3),object position y(3),object position z(3)
set camera to object orientation 2
Endif
sync
loop
