Sorry your browser is not supported!

distance = sqrt((enemigo(busqueda_enemigos).x - xPos)^2 + (enemigo(busqueda_enemigos).z - zPos)^2)

enemigo(busqueda_enemigos).x , Y ,  enemigo(busqueda_enemigos).z

xPos, Y , zPos

plano = object that you want (a plain, a cylinder...)
dx = (x1+x2)/2
dz = (z1+z2)/2

distance = sqrt((x2-x1) * (x2-x1) + (z2-z1)*(z2-z1))
angle = acos ((z2-z1)/distance)
if ((z2-z1 < 0) then angle = 360 - angle
position object plano, dx , y, dz
yrotate object plano, angle
scale object plano, 100, 100, 20*distance

sync rate 30
sync on

set point light 0,10,10,-10

make object cone 1,10
color object 1,rgb(255,255,255)
set object cull 1,0
zrotate object 1,270
xrotate object 1,-90
fix object pivot 1

make object plain 2,5,5

make object plain 3,25,25
xrotate object 3,270
set object wireframe 3,1

make object plain 4,0.01,25
xrotate object 4,270
set object wireframe 4,1

make object plain 5,25,0.01
xrotate object 5,270
set object wireframe 5,1

x as integer
y as integer
z as integer

cx as integer
cy as integer
cz as integer

do

position camera 0,30,-30
point camera 0,0,0

if inkey$()="8" then z=z+1
if inkey$()="2" then z=z-1

if inkey$()="4" then x=x-1
if inkey$()="6" then x=x+1

if inkey$()="7" then y=y+1
if inkey$()="1" then y=y-1

if inkey$()="w" then cz=cz+1
if inkey$()="s" then cz=cz-1

if inkey$()="a" then cx=cx-1
if inkey$()="d" then cx=cx+1

if inkey$()="q" then cy=cy+1
if inkey$()="e" then cy=cy-1


position object 2,x,y,z
position object 1,cx,cy,cz

yrotate object 1,atanfull(x-cx,z-cz)+180
xrotate object 1,atanfull(sqrt((x-cx)^2+(z-cz)^2),-(y-cy))-90

yrotate object 2,atanfull(cx-x,cz-z)+180
xrotate object 2,atanfull(sqrt((cx-x)^2+(cz-z)^2),-(cy-y))-90

text 0,0 ,str$(x)+"x  "+str$(y)+"y  "+str$(z)+"z"
text 0,10,str$(cx)+"cx  "+str$(cy)+"cy  "+str$(cz)+"cz"

text 0,20,"controls are [8] [6] [2] [4] as wasd and [7] [1] as up/down for ball target"
text 0,40,"controls are [wasd] and [q] [e] as up/down for camera"

sync
LOOP

function createCylinder(x1 as float, y1 as float, z1 as float, x2 as float, y2 as float, z2 as float, newobj as integer)
     d#=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)+(z1-z2)*(z1-z2))
     make object cylinder newobj,1
     scale object newobj,100,d#*100,100
     position object newobj, (x1+x2)/2,(y1+y2)/2,(z1+z2)/2
     point object newobj,x2,y2,z2
     pitch object down newobj,90 `I'm pretty sure "point object" treats the object's z+ as pointing forwards, so pitch it down 90 degrees so that its y+ is forwards. (y+ is the flat part of the cylinder)
endfunction