Sorry your browser is not supported!

`Adjust the vehicle inclination with the terrain slope
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

update matrix 1
set ambient light 20

`The tank and the helper objects (this helper will be hide)
`we can do this without any helper, jus with coordinates
make object sphere 1,0
make object sphere 5,0

make object box 2,50,5,80:color object 2,rgb(10,50,10)
make object box 3,40,20,50:offset limb 3,0,0,0,25
make mesh from object 1,3 :delete object 3
add limb 2,1,1 :add limb 2,2,1
scale limb 2,2,20,40,120 :offset limb 2,2,0,25,20:offset limb 2,1,0,10,-20
color limb 2,2,rgb(0,10,0):color limb 2,1,rgb(0,30,0)

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#-0.5)
if rightkey()=1 then a#=wrapvalue(a#+0.5)

`checking height of two helpers
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))

`checking height of the tank
y#=get ground height(1,x#,z#)

`positioning helpers with the tank
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#

`turning
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#


`checking in front ot the tank
move object 1,80
`checking on one side (left)
move object left 5,30

`pointing the tank to the coords of the helper 1
point object 2,object position x(1),object position y(1),object position z(1)

`rolling the tank its height less helper height
roll object left 2,y#-yb2#

`camera behind the tank
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#
tr#=tr#+0.1
rotate limb 2,2,0,tr#,0
point camera x#,y#,z#

sync
loop

function tilt(mat,obj,pivot)
   rem matrix tilt object
   rem by latch
   rem 03/13/2009
   sx#=object size x(obj)
   sz#=object size z(obj)
   rem left side
   lx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
   lz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)-90),sx#/2.0)
   ly#=get ground height(mat,lx#,lz#)
   rem right side
   rx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
   rz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+90),sx#/2.0)
   ry#=get ground height(mat,rx#,rz#)
   rem front
   fx#=newxvalue(object position x(pivot),object angle y(pivot),sz#/2.0)
   fz#=newzvalue(object position z(pivot),object angle y(pivot),sz#/2.0)
   fy#=get ground height(mat,fx#,fz#)
   rem back
   bx#=newxvalue(object position x(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
   bz#=newzvalue(object position z(pivot),wrapvalue(object angle y(pivot)+180),sz#/2.0)
   by#=get ground height(mat,bx#,bz#)

   rem left right tilt
   zang#=wrapvalue(atanfull(ry#-ly#,sx#))
   `text 0,0,str$(zang#)
   zrotate object obj,zang#

   rem fron back tilt
   xang#=wrapvalue(atanfull(by#-fy#,sz#))
   xrotate object obj,xang#
endfunction

Rem Project: Slope of Terrain (object placemet)
Rem Created: Wednesday, February 05, 2014

Rem ***** Main Source File *****
set display mode 1024,768,32

sync on
backdrop on
sync rate 60
set camera range 10,40000
Autocam Off

//load up some land
load object "media/terrain.x",1
position object 1,0,0,0
Rotate Object 1, 180,0,0
set object 1,1,1,0,1,1,1,1
set object specular 1,0
set ambient light 80

//now make a bunch of cubes to place onto the terrain at random locations

for x = 1 to 1000
	
	Make Object cube x+1, 10
	Color Object x+1, rgb( rnd(255), rnd(255), rnd(255))
	set object x+1,1,1,0,1,1,1,1
	set object specular x+1,0
	
	//here we will use intersect object to posiiton them onto the terrain by the height (y) value
	
	 xPos# = rnd(5000)
	 zPos# = rnd(5000)
	 
   	 YHeight#=10000-intersect object(1,xPos#,10000,zPos#,xPos#,-10000,zPos#)+5	
	
	Position Object x+1, xPos# , YHeight#, zPos#
	

//now this is the part where we should get the angle/slope of the terrain and rotate the object so it can be placed aligned to the terrain

//we already have the first height value YHeight  now we can get a second value
// then we should be able to determine the angle between the two points

//cast a ray 10 units from the last point
	x#=object position x(x+1)
	z#=object position z(x+1)
		
	stepv#=10;//OBJECT SIZE Z(x+1,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(x+1)+1
   h1# = 10000-intersect object(1,x#,10000,z#,x#,-10000,z#) 
   //tx# = newxvalue(x#,wrapvalue(ang#+90),stepv#)
   //tz# = newzvalue(z#,wrapvalue(ang#+90),stepv#)
   
   tx#=x#+sin(ang#+90)* stepv#
   tz#=z#+cos(ang#+90)* stepv#
 
//Set Cursor 1,1

//print tx#
//print tz#

//sync

//wait key  
   
   
   h2# = 10000-intersect object(1,tx#,10000,tz#,tx#,-10000,tz#) 
   at# = h2# - h1#

at#= at#/stepv#
   
   angz# = atan(at#)
   
//Set Cursor 1,1
//PRINT ATAN(10.0)
//print at#
//print angz#
//sync

//wait key    


   
   
//Set Cursor 1,1

//print angz#
//sync

//wait key
   //tx# = newxvalue(x#,ang#,stepv#)
   //tz# = newzvalue(z#,ang#,stepv#)
   tx#=x#+sin(ang#)* stepv#
   tz#=z#+cos(ang#)* stepv#

//Set Cursor 1,1

//print tx#
//print tz#
//sync

//wait key  
   
   h2# = 10000-intersect object(1,tx#,10000,tz#,tx#,-10000,tz#)
   at# = h2# - h1#
   
  // at# = 0.068298340
   
   
   angx# = 360 - atan(at#/stepv#)
   //should be 356.09286
   
   
//Set Cursor 1,1

//print angx#
//sync

//wait key


   //rotate limb x+1,0,angx#,0,angz#
   //rotate object x+1,angx#,limb angle y(x+1,0),angz#
   
Rotate Object x+1, angx#,0,angz#



next x
	




do

Set Cursor 1,1
print ang#

//contol camare and align it to the ground
 Control Camera Using Arrowkeys 0,10,2	
 
 CamXPos# = Camera position x(0)
 CamZPos# = Camera position z(0)
 CamYPos#=10000-intersect object(1,CamXPos#,10000,CamZPos#,CamXPos#,-10000,CamZPos#)
 
 Position Camera 0, CamXPos#,CamYPos#+10,CamZPos# 

	
sync
	
loop

rem TEXTURE ))))))))))))))))))))))))))))))))))))))))))))
ink rgb(100,200,100),0
box 0,0,100,100
ink rgb(100,100+rnd(155),100),0
for i= 1 to 2000
dot rnd(100),rnd(100)
next i
get image 1,0,0,100,100,1
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))
autocam off
sync on
set ambient light 30
position light 0,100,60,100
make light 1:position light 1,100,60,100
make matrix 1, 200,200,3,3
prepare matrix texture 1,1,1,1

make object box 100,0.3,10,0.3
offset limb 100,0,0,5,0
make mesh from object 1,100:delete object 100
for i= 1 to 30
make object box i,5,3,5:color object i,rgb(rnd(255),rnd(255),rnd(255))
add limb i,1,1
position object i,25+rnd(150),0,25+rnd(150)
yrotate object i,rnd(180)
set shadow shading on i,0,100,1
next i
position camera -110,110,-110
point camera 0,0,0

new:
randomize matrix 1,40
update matrix 1

do
for i= 1 to 30
    yy#=get ground height(1,object position x(i),object position z(i))
    y#=object position y(i)         rem object position y()
    position object i,object position x(i),yy#,object position z(i)
    `getting new x,y,z in front of every object
    move object i,5
    y2#=get ground height(1,object position x(i),object position z(i))
    x2#=object position x(i)
    z2#=object position z(i)
    `reseting position
    move object i,-5
    `getting new side height of every object
    move object left i,5
    y3#=get ground height(1,object position x(i),object position z(i))
    `reseting position
    move object right i,5
    `pointing and rolling every object
    point object i,x2#,y2#,z2#
    roll object left i,(y#-y3#)*12       `(actual_y - side_y)*12    I need a better solution...

    rem object movements
    turn object left i,0.2
    move object i,0.03
    if object collision(i,0) then turn object right i,0.5
next i

if spacekey() then goto new

control camera using arrowkeys 0,0.3,0.3
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.3
if rightkey() then move camera right 0.3

sync
loop