Sorry your browser is not supported!

tx# = rnd(1750)+100
tz# = rnd(1750)+100
ty# = get terrain ground height(1,tx#,tz#)

tx# = tx_data
tz# = tz_data
ty# = get terrain ground height(1,tx#,tz#)

    make object terrain 1
    set terrain heightmap 1,".\Media\Texture\Terrain\Heightmap_01.bmp"
    set terrain scale 1,4,1.5,4
    set terrain texture 1,2,1
    set terrain tiling 1,512
    build terrain 1,0

`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

`ADJUSTMENT OF A TANK WITH THE LAND: EXAMPLE 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

`CHIVATO CREATING OBJECTS AND OBJECT SHIELDED
make object sphere 1,0
make object sphere 5,0
`------------------------------------------------------
`---ARMORED OBJECT WITH A FEW 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)

`calculate the coordinates "Y" of the two informers
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))

`calculate the "y"of the car
y#=get ground height(1,x#,z#)
`positioned himself to the objects
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#

`rotate objects
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#



`move the object that carries the armored sneak to calculate the inclination
move object 1,80
`move to the second informer, who finds the nails
move object left 5,30


`we make the point to the coordinates shielded sneak
`Only this, we have achieved the intended effect
point object 2,object position x(1),object position y(1),object position z(1)

`we make the armored alavee is left, the Algur the armored
`ture 'sneak least ..... TACHANNN
roll object left 2,y#-yb2#

`Position the camera behind the object
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#

'focuses the camera at the subject
point camera x#,y#,z#
sync
loop

for t = 1000 to 1100
    ``remstart
    ax# = object angle x(t)
    az# = object angle z(t)
    nx# = newxvalue(tx#,ax#,1)
    nz# = newzvalue(tz#,az#,1)
    rotate object t,nx#,0,nz#
    ``remend
next t

for t = 1000 to 1100
    rem tree 1 size
    TWidth1# = object size x(t)
    TLength1# = object size z(t)
    THeight1# = object size y(t)
    rem tree 1 position
    TPosX1# = object position x(t) + rnd(2000)
    TPosZ1# = object position z(t) + rnd(2000)
    TPosY1# = get terrain ground height(1,TPosX1#,TPosZ1#)-5
    rem tree 1 angle
    TAngX1# = object angle x(t)
    TAngY1# = object angle y(t)
    TAngZ1# = object angle z(t)
    
    rem front, TBPos T = tree F = front,
    TFPosX1# = newXvalue(TPosX1#,TAngY1#,TWidth1#/2)
    TFPosZ1# = newZvalue(TPosZ1#,TAngY1#,TLength1#/2)
    rem back, TBPos T = tree B = back,
    TBPosX1# = newXvalue(TPosX1#,TAngY1#,TWidth1#/-2)
    TBPosZ1# = newZvalue(TPosZ1#,TAngY1#,TLength1#/-2)
    rem left, TLPos L = left,
    TLPosX1# = newXvalue(TPosX1#,TAngY1#+90,TWidth1#/2)
    TLPosZ1# = newZvalue(TPosZ1#,TAngY1#+90,TLength1#/2)
    rem right TRPos R = right,
    TRPosX1# = newXvalue(TPosX1#,TAngY1#+90,TWidth1#/-2)
    TRPosZ1# = newZvalue(TPosZ1#,TAngY1#+90,TLength1#/-2)
    
    rem get the ground height for F,B,L,R of the tree 1.
    TFPosY1# = get terrain ground height(1,TFPosX1#,TFPosZ1#)
    TBPosY1# = get terrain ground height(1,TBPosX1#,TBPosZ1#)
    TLPosY1# = get terrain ground height(1,TLPosX1#,TLPosZ1#)
    TRPosY1# = get terrain ground height(1,TRPosX1#,TRPosZ1#)
    
    rem use ATAN to find the angle for the length of tree
    TLengthInc1# = atan (( TFPosY1# - TBPosY1# ) / - TLength1# )
    rem use ATAN to find the angle for the width of tree
    TWidthInc1# = atan (( TLPosY1# - TRPosY1# ) / TWidth1# )
    
    rem position tree 1 object, with test
    position object t,TPosX1#,TPosY1#,TPosZ1#

    rotate object t , TLengthInc1# , 0 ,  TWidthInc1#
next t

rem ***** Row 200 *****    
    tx# = 1600 
    tz# = 225
    ty# = get terrain ground height(1,tx#,tz#)-5
    position object 1008,tx#,ty#,tz#
rem ***** Row 200 *****    
    tx# = 1750 
    tz# = 300
    ty# = get terrain ground height(1,tx#,tz#)-5
    position object 1009,tx#,ty#,tz#
rem ***** Row 200 ***** 
    tx# = 1850 
    tz# = 200
    ty# = get terrain ground height(1,tx#,tz#)-5
    position object 1010,tx#,ty#,tz#

rem set up tree markers and position tree1 objects and rotate limb 
for t = 1000 to 1100
    
    rem tree 1 size
    TWidth1# = object size x(t)
    TLength1# = object size z(t)
    THeight1# = object size y(t)
    rem tree 1 position
    TPosX1# = object position x(t):` + rnd(2000)
    TPosZ1# = object position z(t):` + rnd(2000)
    TPosY1# = get terrain ground height(1,TPosX1#,TPosZ1#)
    rem tree 1 angle
    TAngX1# = object angle x(t)
    TAngY1# = object angle y(t)
    TAngZ1# = object angle z(t)
    
    rem work out the front, back, left and right of the tree object
    rem front, TBPos T = tree F = front,
    TFPosX1# = newXvalue(TPosX1#,TAngY1#,TWidth1#/2)
    TFPosZ1# = newZvalue(TPosZ1#,TAngY1#,TLength1#/2)
    rem back, TBPos B = back,
    TBPosX1# = newXvalue(TPosX1#,TAngY1#,TWidth1#/-2)
    TBPosZ1# = newZvalue(TPosZ1#,TAngY1#,TLength1#/-2)
    rem left, TLPos L = left,
    TLPosX1# = newXvalue(TPosX1#,TAngY1#+90,TWidth1#/2)
    TLPosZ1# = newZvalue(TPosZ1#,TAngY1#+90,TLength1#/2)
    rem right TRPos R = right,
    TRPosX1# = newXvalue(TPosX1#,TAngY1#+90,TWidth1#/-2)
    TRPosZ1# = newZvalue(TPosZ1#,TAngY1#+90,TLength1#/-2)
    
    rem get the ground height for F,B,L,R of the tree 1.
    TFPosY1# = get terrain ground height(1,TFPosX1#,TFPosZ1#)
    TBPosY1# = get terrain ground height(1,TBPosX1#,TBPosZ1#)
    TLPosY1# = get terrain ground height(1,TLPosX1#,TLPosZ1#)
    TRPosY1# = get terrain ground height(1,TRPosX1#,TRPosZ1#)
    
    rem use ATAN to find the angle for the length of tree
    TLengthInc1# = atan (( TFPosY1# - TBPosY1# ) / - TLength1# )
    rem use ATAN to find the angle for the width of tree
    TWidthInc1# = atan (( TLPosY1# - TRPosY1# ) / TWidth1# )
    
    rem position tree object, with test
    position object t,TPosX1#,TPosY1#,TPosZ1#
    
    rem rotate the tree with the new valuse
    rotate object t , TLengthInc1# , 0 ,  TWidthInc1#
next t

paste image xxx,0,0
for x= 0 to 100
  for z= 0 to 100
    inc tree
    color=point(x,y)
    if color>0 then position object tree x,y,z
 next z
next x

function TiltObjectToTerrain(terrain as integer,object as integer)
	x#=object position x(object)
	z#=object position z(object)
	local stepv as float
	stepv=OBJECT SIZE Z(object,1)*0.50 `Play around with this if you want. It tells how far from the object's origin the functions goes when getting the side and front heights.
	ang#=object angle y(object)
   h1# = 10000-intersect object(terrain,x#,10000,z#,x#,-10000,z#) + Offset#
   tx# = newxvalue(x#,wrapvalue(ang#+90),stepv)
   tz# = newzvalue(z#,wrapvalue(ang#+90),stepv)
   h2# = 10000-intersect object(terrain,tx#,10000,tz#,x#,-10000,z#) + Offset#
   at# = h2# - h1#
   b# = stepv
   angz# = atan(at#/b#)*1

   tx# = newxvalue(x#,ang#,stepv)
   tz# = newzvalue(z#,ang#,stepv)
   h2# = 10000-intersect object(terrain,tx#,10000,tz#,x#,-10000,z#) + Offset#
   at# = h2# - h1#
   angx# = 360 - atan(at#/b#)*1

   rotate limb object,0,angx#,limb angle y(object,0),angz#
endfunction h1#