Sorry your browser is not supported!

set display mode desktop width(), desktop height(), 32
sync on:sync rate 0

for i = 1 to 100
	for o = 1 to 100
		dot i,o,rgb(0,rnd(255),0)
	next o
next i

get image 1,1,1,99,99

make object cube 1,1

make object box 2,1000,0.1,1000

texture object 2,1

scale object texture 2,100,100

move object up 1,5

do

if upkey()=1 
	move object 1,0.2
endif

if rightkey()=1
	turn object right 1,1
endif

if leftkey()=1
	turn object left 1,1
endif

position camera object position x(1), object position y(1), object position z(1)
set camera to object orientation 0,1
move camera -4
move camera up 1

text 0,0, str$(screen fps())
sync
loop

`AJUSTE DE UN TANQUE CON EL TERRENO :EJEMPLO 2
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0
rem set matrix height 1,12,12,700.0
update matrix 1
set ambient light 20

`CREAMOS LOS OBJETOS CHIVATOS, Y AL OBJETO BLINDADO
make object sphere 1,0
make object sphere 5,0
`------------------------------------------------------
`---OBJETO BLINDADO CON UNOS CUANTOS LIMBS-------------
make object box 2,50,5,80:color object 2,rgb(50,100,100)
make object box 3,40,20,50
make mesh from object 1,3 :delete object 3
add limb 2,1,1 :add limb 2,2,1
scale limb 2,2,10,10,120 :offset limb 2,2,0,22,30:offset limb 2,1,0,10,0
color limb 2,2,rgb(0,0,200):color limb 2,1,rgb(0,50,170)

x#=500
z#=500
sync on
do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 then a#=wrapvalue(a#-1)
if rightkey()=1 then a#=wrapvalue(a#+1)

`calculamos la coordenadas "Y" de los dos chivatos
yb#=get ground height(1,object position x(1),object position z(1))
yb2#=get ground height(1,object position x(5),object position z(5))

`calculamos la coordenada "y" del coche
y#=get ground height(1,x#,z#)
`pocisionamos a los objetos
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#

`rotamos a los objetos
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#



`desplazamos al objeto chivato que lleva el blindado, para calcular la inclinacion
move object 1,80
`desplazamos al segundo chivato, que comprobara los alaveos
move object left 5,30


`hacemos que el blindado apunte a las coordenadas del chivato
`solo con esto, hemos conseguido, el efecto que se buscaba
point object 2,object position x(1),object position y(1),object position z(1)

`hacemos que el blincado, se alavee hacia la izquierda, la algura del blindado
`menos la atura del chivato..... TACHANNN
roll object left 2,y#-yb2#

`Posiciona la cámara por detrás del objeto
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#

`enfoca la cámara al objeto
point camera x#,y#,z#
sync
loop

set display mode desktop width(), desktop height(), 32
sync on:sync rate 0

for i = 1 to 100
	for o = 1 to 100
		dot i,o,rgb(0,rnd(255),0)
	next o
next i

get image 1,1,1,99,99

make object cube 1,1

make object box 2,1000,0.1,1000

texture object 2,1

scale object texture 2,100,100

move object up 1,5

`make ideal position object
make object cube 3,1
hide object 3

do

if upkey()=1 
	move object 1,0.2
endif

if rightkey()=1
	turn object right 1,1
endif

if leftkey()=1
	turn object left 1,1
endif

`position ideal position object
position object 3, object position x(1), object position y(1), object position z(1)
set object to object orientation 3,1
move object 3,-4
move object up 3,1
`get a position 1/20th of the way there
ix#=camera position x()+((object position x(3)-camera position x())/20)
iy#=camera position y()+((object position y(3)-camera position y())/20)
iz#=camera position z()+((object position z(3)-camera position z())/20)
position camera ix#,iy#,iz#
point camera object position x(1), object position y(1)+1, object position z(1)

text 0,0, str$(screen fps())
sync
loop