Sorry your browser is not supported!

`%ProjectTitle%
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 5,20,-20
point camera 0,0,0
position light 0,0,4000,-10
set light range 0,10000

if physx()
	phy start 1,0,1
	phyx=1
else
	phy start
endif

global first_skid_mark as integer=2000
global skid_mark as integer=2000
global max_skid_mark as integer=2800

global chasis as integer=1
global f_axle as integer=2
global r_axle as integer=3
global fr_hub as integer=4
global fl_hub as integer=5
global rr_hub as integer=6
global rl_hub as integer=7
global fr_wheel as integer=8
global fl_wheel as integer=9
global rr_wheel as integer=10
global rl_wheel as integer=11
global drive_torque as integer=0
global max_drive_torque as integer=12

`make material
global hardrubber as integer=1
phy make material hardrubber,"hardrubber"
phy set material dynamic friction hardrubber,0.0
phy set material static friction hardrubber,0.0
phy set material restitution hardrubber,1.0
`phy set material dir of anisotropy hardrubber,1.0,0.0,0.0
phy build material hardrubber

make_texture1(1)
make_texture2(2)
make_floor(1000)
make_car(0,5,0)
make_hazards(max_skid_mark+1)

`*******main loop******** 
do
	text 0,0,"space-Accelerate"
	text 0,15,"Left\Right Arrow Key To Turn"
	text 0,30,"B-Break"
	text 0,45,"R-Reverse"
	text 0,60,"Speed "+str$(int(phy get rigid body angular velocity x(rr_wheel)))
	text 0,75,"FPS "+str$(screen fps())
	if phyx=1
		text 0,90,"Hardware Accelerated"
	else
		text 0,90,"Software Physx"
	endif
	set camera to follow object position x(chasis),object position y(chasis),object position z(f_axle),0,30,30,50,0
	`MouseControl(1.0)
	control_car()
	phy update
	sync
loop


`*******Functions********
function MouseControl(Speed as float)
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
	if mouseclick()=1 then move camera Speed
	if mouseclick()=2 then move camera (0-Speed)
	r=mousemovex()
	r=mousemovey()
endfunction

function make_car(xpos,ypos,zpos)
	make object box chasis,1,1,5
	position object chasis,xpos,ypos,zpos
	color object chasis,rgb(0,0,255)
	
	make object box f_axle,4,1,1
	position object f_axle,0+xpos,1+ypos,2+zpos
	color object f_axle,rgb(0,255,0)
	
	make object box r_axle,4,1,1
	position object r_axle,0+xpos,1+ypos,-2+zpos
	color object r_axle,rgb(0,255,0)
	
	make object cube fr_hub,1
	position object fr_hub,1.5+xpos,0+ypos,2+zpos
	color object fr_hub,rgb(255,0,0)
	
	make object cube fl_hub,1
	position object fl_hub,-1.5+xpos,0+ypos,2+zpos
	color object fl_hub,rgb(255,0,0)
	
	make object cube rr_hub,1
	position object rr_hub,1.5+xpos,0+ypos,-2+zpos
	color object rr_hub,rgb(255,0,0)
	
	make object cube rl_hub,1
	position object rl_hub,-1.5+xpos,0+ypos,-2+zpos
	color object rl_hub,rgb(255,0,0)
	
	make object cylinder fr_wheel,1.5
	zrotate object fr_wheel,90
	position object fr_wheel,3+xpos,-0.5+ypos,2+zpos
	texture object fr_wheel,1
	
	make object cylinder fl_wheel,1.5
	zrotate object fl_wheel,90
	position object fl_wheel,-3+xpos,-0.5+ypos,2+zpos
	texture object fl_wheel,1
	
	make object cylinder rr_wheel,1.5
	zrotate object rr_wheel,90
	position object rr_wheel,3+xpos,-0.5+ypos,-2+zpos
	texture object rr_wheel,1
	
	make object cylinder rl_wheel,1.5
	zrotate object rl_wheel,90
	position object rl_wheel,-3+xpos,-0.5+ypos,-2+zpos
	texture object rl_wheel,1
	
	for l=1 to 7
		set shadow shading on l,-1,100,1
		phy make rigid body dynamic box l
		phy set rigid body mass l,50
	next l
	for l=8 to 11
		set shadow shading on l,-1,100,1
		phy make rigid body dynamic capsule l,hardrubber
		phy set rigid body mass l,5
		phy set rigid body angular damping l,1
		phy set rigid body max angular velocity l,200
	next l
	
	`make the chasis joints
	phy make fixed joint 1,chasis,f_axle
	phy make fixed joint 2,chasis,r_axle
	phy make fixed joint 3,r_axle,rr_hub
	phy make fixed joint 4,r_axle,rl_hub
	
	`make the hub joints
	phy make revolute joint 5,f_axle,fr_hub
	phy set revolute joint global axis 5,fr_hub,0,0.1,0
	phy set revolute joint global anchor 5,fr_hub,object position x(fr_hub),object position y(fr_hub),object position z(fr_hub)
	phy set revolute joint spring 5,0.0,3000
	phy build revolute joint 5
	
	phy make revolute joint 6,f_axle,fl_hub
	phy set revolute joint global axis 6,fl_hub,0,0.1,0
	phy set revolute joint global anchor 6,fl_hub,object position x(fl_hub),object position y(fl_hub),object position z(fl_hub)
	phy set revolute joint spring 6,0.0,3000
	phy build revolute joint 6
	
	`make the wheel joints
	phy make revolute joint 7,fr_hub,fr_wheel,0.1,0,0,object position x(fr_wheel),object position y(fr_wheel),object position z(fr_wheel)
	phy make revolute joint 8,fl_hub,fl_wheel,0.1,0,0,object position x(fl_wheel),object position y(fl_wheel),object position z(fl_wheel)
	phy make revolute joint 9,rr_hub,rr_wheel,0.1,0,0,object position x(rr_wheel),object position y(rr_wheel),object position z(rr_wheel)
	phy make revolute joint 10,rl_hub,rl_wheel,0.1,0,0,object position x(rl_wheel),object position y(rl_wheel),object position z(rl_wheel)
	
endfunction

function make_floor(obj_num)
	make object box obj_num,5000,1,5000
	scale object texture obj_num,10,10
	texture object obj_num,2
	phy make rigid body static box obj_num`,hardrubber
endfunction

function make_texture1(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction

function make_texture2(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+200
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction

function control_car()
	tq#=300
	`ad#=(max_drive_torque/100.0)*drive_torque+1.0
	`tq#=tq#*ad#
	mode=1
	if rightkey()
		phy add rigid body local torque 4,0,tq#,0,1
		phy add rigid body local torque 5,0,tq#,0,1
	endif
	if leftkey()
		phy add rigid body local torque 4,0,tq#*-1,0,1
		phy add rigid body local torque 5,0,tq#*-1,0,1
	endif
	if spacekey()
		phy add rigid body local torque rr_wheel,0,drive_torque*-1,0,mode
		phy add rigid body local torque rl_wheel,0,drive_torque*-1,0,mode
		phy add rigid body local torque fr_wheel,0,drive_torque*-1,0,mode
		phy add rigid body local torque fl_wheel,0,drive_torque*-1,0,mode
		if drive_torque<max_drive_torque then inc drive_torque
	else
		if drive_torque>0 then dec drive_torque		
	endif
	if inkey$()="r"
		phy add rigid body local torque rr_wheel,0,5,0,mode
		phy add rigid body local torque rl_wheel,0,5,0,mode
		phy add rigid body local torque fr_wheel,0,5,0,mode
		phy add rigid body local torque fl_wheel,0,5,0,mode		
	endif
	if inkey$()="b"
		phy set rigid body linear damping chasis,10
	else
		phy set rigid body linear damping chasis,0
	endif
	make_tracks()

endfunction

function make_tracks()
	if object position y(rr_wheel)<1.4
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			position object skid_mark,object position x(rr_wheel),0.51,object position z(rr_wheel)
		else
			make object plain skid_mark,1,1
			xrotate object skid_mark,90 
			texture object skid_mark,1
			position object skid_mark,object position x(rr_wheel),0.51,object position z(rr_wheel)
		endif
	endif
	if object position y(rl_wheel)<1.4
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			position object skid_mark,object position x(rl_wheel),0.51,object position z(rl_wheel)
		else
			make object plain skid_mark,1,1
			texture object skid_mark,1
			xrotate object skid_mark,90
			position object skid_mark,object position x(rl_wheel),0.51,object position z(rl_wheel)
		endif
	endif
	
endfunction

function make_hazards(obj_num)
	for l=obj_num to obj_num+200
		make object cube l,1
		color object l,rgb(255,0,0)
		position object l,rnd(600)-300,5,rnd(600)-300
		phy make rigid body dynamic box l
	next l
	
	make object cube obj_num+201,20
	xrotate object obj_num+201,80
	position object obj_num+201,0,-9,60
	phy make rigid body static box obj_num+201
	
	make object cube obj_num+202,20
	xrotate object obj_num+202,-80
	position object obj_num+202,0,-9,90
	phy make rigid body static box obj_num+202
endfunction

`%ProjectTitle%
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 5,20,-20
point camera 0,0,0
position light 0,4000,4000,-1000
set light range 0,10000

if physx()
	phy start 1,0,1
	phyx=1
else
	phy start
endif

global first_skid_mark as integer=2000
global skid_mark as integer=2000
global max_skid_mark as integer=2800

global chasis as integer=1
global f_axle as integer=2
global r_axle as integer=3
global fr_hub as integer=4
global fl_hub as integer=5
global rr_hub as integer=6
global rl_hub as integer=7
global fr_wheel as integer=8
global fl_wheel as integer=9
global rr_wheel as integer=10
global rl_wheel as integer=11
global drive_torque as float
global max_drive_torque as integer=12
global steering_spring as integer=5000
global steering_torque as integer=100000000

`make material
global hardrubber as integer=1
phy make material hardrubber,"hardrubber"
phy set material dynamic friction hardrubber,0.0
phy set material static friction hardrubber,0.0
phy set material restitution hardrubber,1.0
`phy set material dir of anisotropy hardrubber,1.0,0.0,0.0
phy build material hardrubber
global concrete as integer=2
phy make material concrete,"concrete"
phy set material static friction concrete,0.75
phy set material dynamic friction concrete,0.75
phy set material restitution concrete,0.1
phy build material concrete

make_texture1(1)
make_texture2(2)
make_floor(1000)
make_car(0,5,0)
make_hazards(max_skid_mark+1)

`*******main loop******** 
do
	text 0,0,"space-Accelerate"
	text 0,15,"Left\Right Arrow Key To Turn"
	text 0,30,"B-Break"
	text 0,45,"R-Reverse"
	text 0,60,"Speed "+str$(int(phy get rigid body angular velocity x(rr_wheel)))
	text 0,75,"FPS "+str$(screen fps())
	if phyx=1
		text 0,90,"Hardware Accelerated"
	else
		text 0,90,"Software Physx"
	endif
	text 0,105,"Q-Resets Scene"
	set camera to follow object position x(chasis),object position y(chasis),object position z(f_axle),0,30,30,50,0
	`MouseControl(1.0)
	control_car()
	phy update
	sync
loop


`*******Functions********
function MouseControl(Speed as float)
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
	if mouseclick()=1 then move camera Speed
	if mouseclick()=2 then move camera (0-Speed)
	r=mousemovex()
	r=mousemovey()
endfunction

function make_car(xpos,ypos,zpos)
	if object exist(chasis)
		for l=chasis to rl_wheel
			if object exist(l)
				phy delete rigid body l
				delete object l
			endif
		next l
		for l=1 to 10
			phy delete joint l
		next l
	endif
	
	make object box chasis,1,1,5
	position object chasis,xpos,ypos,zpos
	color object chasis,rgb(0,0,255)
	
	make object box f_axle,4,1,1
	position object f_axle,0+xpos,1+ypos,2+zpos
	color object f_axle,rgb(0,255,0)
	
	make object box r_axle,4,1,1
	position object r_axle,0+xpos,1+ypos,-2+zpos
	color object r_axle,rgb(0,255,0)
	
	make object cube fr_hub,1
	position object fr_hub,1.5+xpos,0+ypos,2+zpos
	color object fr_hub,rgb(255,0,0)
	
	make object cube fl_hub,1
	position object fl_hub,-1.5+xpos,0+ypos,2+zpos
	color object fl_hub,rgb(255,0,0)
	
	make object cube rr_hub,1
	position object rr_hub,1.5+xpos,0+ypos,-2+zpos
	color object rr_hub,rgb(255,0,0)
	
	make object cube rl_hub,1
	position object rl_hub,-1.5+xpos,0+ypos,-2+zpos
	color object rl_hub,rgb(255,0,0)
	
	make object cylinder fr_wheel,1.5
	zrotate object fr_wheel,90
	position object fr_wheel,3+xpos,-0.5+ypos,2+zpos
	texture object fr_wheel,1
	
	make object cylinder fl_wheel,1.5
	zrotate object fl_wheel,90
	position object fl_wheel,-3+xpos,-0.5+ypos,2+zpos
	texture object fl_wheel,1
	
	make object cylinder rr_wheel,1.5
	zrotate object rr_wheel,90
	position object rr_wheel,3+xpos,-0.5+ypos,-2+zpos
	texture object rr_wheel,1
	
	make object cylinder rl_wheel,1.5
	zrotate object rl_wheel,90
	position object rl_wheel,-3+xpos,-0.5+ypos,-2+zpos
	texture object rl_wheel,1
	
	for l=1 to 7
		set shadow shading on l,-1,100,1
		phy make rigid body dynamic box l
		phy set rigid body mass l,50
	next l
	for l=8 to 11
		set shadow shading on l,-1,100,1
		phy make rigid body dynamic capsule l,hardrubber
		phy set rigid body mass l,5
		phy set rigid body angular damping l,1
		phy set rigid body max angular velocity l,200
	next l
	
	`make the chasis joints
	phy make fixed joint 1,chasis,f_axle
	phy make fixed joint 2,chasis,r_axle
	phy make fixed joint 3,r_axle,rr_hub
	phy make fixed joint 4,r_axle,rl_hub
	
	`make the hub joints
	phy make revolute joint 5,f_axle,fr_hub
	phy set revolute joint global axis 5,fr_hub,0,1,0
	phy set revolute joint global anchor 5,fr_hub,object position x(fr_hub),object position y(fr_hub),object position z(fr_hub)
	phy set revolute joint spring 5,0.0,steering_spring
	phy build revolute joint 5
	
	phy make revolute joint 6,f_axle,fl_hub
	phy set revolute joint global axis 6,fl_hub,0,1,0
	phy set revolute joint global anchor 6,fl_hub,object position x(fl_hub),object position y(fl_hub),object position z(fl_hub)
	phy set revolute joint spring 6,0.0,steering_spring
	phy build revolute joint 6
	
	`make the wheel joints
	phy make revolute joint 7,fr_hub,fr_wheel,1,0,0,object position x(fr_wheel),object position y(fr_wheel),object position z(fr_wheel)
	phy make revolute joint 8,fl_hub,fl_wheel,1,0,0,object position x(fl_wheel),object position y(fl_wheel),object position z(fl_wheel)
	phy make revolute joint 9,rr_hub,rr_wheel,1,0,0,object position x(rr_wheel),object position y(rr_wheel),object position z(rr_wheel)
	phy make revolute joint 10,rl_hub,rl_wheel,1,0,0,object position x(rl_wheel),object position y(rl_wheel),object position z(rl_wheel)
	
endfunction

function make_floor(obj_num)
	make object box obj_num,5000,1,5000
	scale object texture obj_num,10,10
	texture object obj_num,2
	phy make rigid body static box obj_num,concrete
endfunction

function make_texture1(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction

function make_texture2(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+200
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction

function control_car()
	mode=1
	if rightkey()
		phy add rigid body local torque 4,0,steering_torque,0,1
		phy add rigid body local torque 5,0,steering_torque,0,1
	endif
	if leftkey()
		phy add rigid body local torque 4,0,steering_torque*-1,0,1
		phy add rigid body local torque 5,0,steering_torque*-1,0,1
	endif
	if spacekey()
		phy add rigid body local torque rr_wheel,0,drive_torque*-1.0,0,mode
		phy add rigid body local torque rl_wheel,0,drive_torque*-1.0,0,mode
		phy add rigid body local torque fr_wheel,0,drive_torque*-1.0,0,mode
		phy add rigid body local torque fl_wheel,0,drive_torque*-1.0,0,mode
		if drive_torque<max_drive_torque then inc drive_torque
		if drive_torque<6 then drive_torque=6
	else
		if drive_torque>0 then dec drive_torque		
	endif
	if inkey$()="r"
		phy add rigid body local torque rr_wheel,0,5,0,mode
		phy add rigid body local torque rl_wheel,0,5,0,mode
		phy add rigid body local torque fr_wheel,0,5,0,mode
		phy add rigid body local torque fl_wheel,0,5,0,mode		
	endif
	if inkey$()="b"
		phy set rigid body linear damping chasis,10
	else
		phy set rigid body linear damping chasis,0
	endif
	if inkey$()="q" then make_car(0,5,0):delete_tracks():make_hazards(max_skid_mark+1)
	make_tracks()

endfunction

function make_tracks()
	if object position y(rr_wheel)<1.4
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			position object skid_mark,object position x(rr_wheel),0.51,object position z(rr_wheel)
		else
			make object plain skid_mark,1,1
			xrotate object skid_mark,90 
			texture object skid_mark,1
			position object skid_mark,object position x(rr_wheel),0.51,object position z(rr_wheel)
		endif
	endif
	if object position y(rl_wheel)<1.4
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			position object skid_mark,object position x(rl_wheel),0.51,object position z(rl_wheel)
		else
			make object plain skid_mark,1,1
			texture object skid_mark,1
			xrotate object skid_mark,90
			position object skid_mark,object position x(rl_wheel),0.51,object position z(rl_wheel)
		endif
	endif
	
endfunction

function delete_tracks()
	for l=first_skid_mark to max_skid_mark
		if object exist(l) then delete object l
	next l
endfunction

function make_hazards(obj_num)
	for l=obj_num to obj_num+202
		if object exist(l)
			phy delete rigid body l
			delete object l
		endif
	next l
	
	x=-5:y=1
	for l=obj_num to obj_num+99
		make object cube l,1
		``set shadow shading on l,-1,100,1
		color object l,rgb(255,0,0)
		position object l,x,y,75
		inc x
		if x=5 then x=-5:inc y
		phy make rigid body dynamic box l
		phy set rigid body mass l,1
	next l
	
	
	for l=obj_num+100 to obj_num+200
		make object cube l,rnd(1.2)+1.0
		``set shadow shading on l,-1,100,1
		color object l,rgb(255,0,0)
		position object l,rnd(600)-300,5,rnd(600)-300
		phy make rigid body dynamic box l
		phy set rigid body mass l,1
	next l
	
	make object cube obj_num+201,20
	``set shadow shading on obj_num+201,-1,100,1
	xrotate object obj_num+201,75
	position object obj_num+201,0,-9,60
	phy make rigid body static box obj_num+201
	
	make object cube obj_num+202,20
	``set shadow shading on obj_num+202,-1,100,1
	xrotate object obj_num+202,-75
	position object obj_num+202,0,-9,90
	phy make rigid body static box obj_num+202
endfunction

`*******main loop********
Phy Update 0 ` HAs to be called before entering main loop and after Phy Start.
do
	Phy Update 1 ` This has to be called before any other "phy" operations takes place in the loop.
	text 0,0,"space-Accelerate"
	text 0,15,"Left\Right Arrow Key To Turn"
	text 0,30,"B-Break"
	text 0,45,"R-Reverse"
	text 0,60,"Speed "+str$(int(phy get rigid body angular velocity x(rr_wheel)))
	text 0,75,"FPS "+str$(screen fps())
	if phyx=1
		text 0,90,"Hardware Accelerated"
	else
		text 0,90,"Software Physx"
	endif
	text 0,105,"Q-Resets Scene"
	set camera to follow object position x(chasis),object position y(chasis),object position z(f_axle),0,30,30,50,0
	`MouseControl(1.0)
	control_car()
	Phy Update 0 ` Do the real phy update and pass data in to the physx solver.
	sync
loop

Rem ***** Main Source File *****
set window on
set window title "Smaple Joints"
sync on
sync rate 60
autocam off
phy enable debug
position camera -20,10,10

point camera -10,0,0
`rotate camera 20,0,0
phy start
phy set Gravity 0.0, -1.0, 0.0
ground=1
PENDULUM_COUNT = 5
BALL_COUNT = 6
hammer=9
wheelPivot=10
rodPivot=11
dim pendulum(PENDULUM_COUNT)
driveJoint=12
pushbacksphere=13
pushbackcube=14
movefree=1
locked=0
firstobject=0
secondobject=1
dim ball(BALL_COUNT)
rem make material for ground
PHY MAKE MATERIAL 1, "defaultMaterial"
PHY SET MATERIAL RESTITUTION 1,0.0
PHY SET MATERIAL STATIC FRICTION 1, 0.5
PHY SET MATERIAL DYNAMIC FRICTION 1, 0.5
rem the ground
make object box ground,100,1,100
position object ground,0,-1,0
color object ground,RGB(0,128,255)
phy make rigid body static box ground,1


rem center cube that rotate on x axis
make object cube pushBackcube,1
position object pushbackcube,0,.2,0
phy make rigid body dynamic box pushBackcube
PHY SET RIGID BODY MASS pushBackcube, 10.0

rem outside cube the is fixed and rotate with first object
make object cube wheelPivot,1
position object wheelPivot, 0,2,0
phy make rigid body dynamic box wheelPivot
rem stop it turning
PHY SET RIGID BODY KINEMATIC wheelPivot,1
rem link them together
PHY MAKE FIXED JOINT 1,wheelPivot ,pushBackcube


rem link sphere
make object sphere rodPivot,1
position object rodPivot,0,0,-10
phy make rigid body dynamic sphere rodPivot

rem link outside cube to sphere
phy make distance joint 2, pushBackcube,rodPivot
phy set distance joint min 2, 10.0: rem keeps the distance
phy set distance joint max 2, 10.0 :rem keeps the distance
phy build distance joint 2

rem make the hammer
make object cube hammer,1
position object hammer,0,0,-15
phy make rigid body dynamic box hammer
PHY MAKE FIXED JOINT 3,rodPivot,hammer
PHY MAKE FIXED JOINT 4,hammer,rodPivot

rem counting vars d=distance
rem j joint numbers
`phy make cylindrical joint 30, rodPivot,hammer, object position x ( rodPivot), object position y (rodPivot ), object position z (rodPivot ), 0, 5, 0
phy make prismatic joint 5, rodPivot,hammer,locked,locked,locked, object position x (rodpivot), object position y (rodpivot), object position z (rodpivot)
phy make prismatic joint 6, hammer,rodpivot,locked,locked,locked, object position x (hammer), object position y (hammer), object position z (hammer)

`prismatic
d=1
j=40
distance#=10.0
for c= 15 to 25 step 2
    rem make swing boxes anchor
    of=rnd(200)/100
    make object sphere c, 1
    position object c, -.5+of, 5,-18-(d*4)
    phy make rigid body static sphere c
    rem make boxes to swing
    make object cube c+1, 1
    position object c+1, -.5+of, 0.5,-18-(d*4)
    phy make rigid body dynamic box c+1
    PHY SET RIGID BODY MASS c+1, -2

    `phy make sphere joint j, c, c+1
    phy make sphere joint j, c, c + 1, object position x ( c ), object position y ( c ), object position z ( c )


rem add one
inc d
inc j
    next c
rem load object numbers into varable
for i=1 to 6
ball(i)=99+i
next i
rem set count
count=1
do
phy update 1
text 0,0,"arrow keys to move view about."
rem keep shphere and box straight.
phy set rigid body position hammer,0,0,object position z(hammer)
phy set rigid body position rodPivot,0,0,object position z(rodpivot)
rem rotate box
PHY SET RIGID BODY ROTATION wheelPivot,wrapvalue(object angle x(wheelpivot)+1),0,0
`inc x#,2
rem put a sphere on screen when box pulls bac k
if object position z(hammer)>-13.0 and hold<>1
    hold=1
    if object exist(ball(count))<>1
        make object sphere ball(count),1
        position object ball(count),0,0,-15
        phy make rigid body dynamic sphere ball(count)
        PHY SET RIGID BODY MASS ball(count), 30
PHY SET RIGID BODY LINEAR DAMPING ball(count),.10

        inc count,1
    endif
    if object exist(ball(count))=1
    rem position object
        phy set rigid body position ball(count),0,.5,-15
        inc count,1
    endif
        if count>4
            count=1
        endif
    endif
if object position z(hammer)<=-16.0
    hold=0
endif
PHY SET RIGID BODY ANGULAR MOMENTUM rodPivot, 0,PHY GET RIGID BODY ANGULAR MOMENTUM Y(rodPivot),PHY GET RIGID BODY ANGULAR MOMENTUM z(rodPivot)


rem draw connecting lines
line object screen x(pushBackcube),object screen y( pushBackcube),object screen x(rodPivot),object screen y( rodPivot)
line object screen x(rodPivot),object screen y( rodPivot),object screen x(hammer),object screen y(hammer)
for k=15 to 25 step 2
    line object screen x(k ),object screen y(k ),object screen x(k+1 ),object screen y(k+1 )
next k
text object screen x(wheelPivot)-150,object screen y(wheelPivot)-15,"Rotation point"
center text object screen x(pushBackcube),object screen y(pushBackcube)-15,"Fixed Joint"
center text object screen x(rodPivot),object screen y(rodPivot)+15,"distance Joint"
text object screen x(hammer)+10,object screen y(hammer)," <- prismatic joint"
center text object screen x(15),object screen y(15)-25,"sphere Joint"
rem
control camera using arrowkeys 0,.1,.1

phy update 0
sync
loop

`%ProjectTitle%
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, rgb (125,125,255)
set text font "Arial"
set text size 12
set text transparent
position light 0,0,4000,-10
set light range 0,10000
position camera 5,600,-20
point camera 0,255,0
make_texture1(1)
make_texture2(2)

`set up physx for software or hardware
if physx()
	phy start 1,0,1
	phyx=1
else
	phy start
endif
global hardrubber as integer=1
phy make material hardrubber,"hardrubber"
phy set material dynamic friction hardrubber,0.0
phy set material static friction hardrubber,0.0
phy set material restitution hardrubber,1.0
phy build material hardrubber

type pointType
	x as float
	y as float
	z as float
	e as integer
endtype
global gridSizeX as integer=256
global gridSizeZ as integer=256
global tileSize as integer=32
dim land(gridSizeX,gridSizeZ) as pointType
hmap_fractal()
n=build_land()

global j_num as integer=1
global first_skid_mark as integer=2000
global skid_mark as integer=2000
global max_skid_mark as integer=3000
make_hazards(max_skid_mark+1)

tank=1
make_tank(tank,0,250,0)
`for l=20 to 100 step 20
`	make_tank(l,rnd(200)-100,50,rnd(200)-100)
`next l
start_skid=0
count=0

`*******main loop******** 
do
	text 0,0,"Space-Accelerate"
	text 0,15,"Left\Right Arrow Key To Turn"
	text 0,30,"B-Break"
	text 0,45,"Shift-Reverse"
	text 0,60,"Speed "+str$(int(phy get rigid body angular velocity x(tank+1)))
	text 0,75,"FPS "+str$(screen fps())
	position camera object position x(tank),object position y(tank),object position z(tank)
	set camera to object orientation tank
	move camera -50
	move camera up 20
	point camera object position x(tank),object position y(tank),object position z(tank)
	control_tank(tank)
	if inkey$()="r" then make_tank(tank,0,250,0):delete_tracks()
	if start_skid=1 then make_tracks()
	phy update
	sync
	if phy get rigid body linear velocity y(tank)>-0.01 and phy get rigid body linear velocity y(tank)<0.01 and count>100 then start_skid=1
	inc count
loop

`*******Functions********
function MouseControl(Speed as float)
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
	if mouseclick()=1 then move camera Speed
	if mouseclick()=2 then move camera (0-Speed)
	r=mousemovex()
	r=mousemovey()
endfunction

function make_tank(obj_num,posx#,posy#,posz#)
	if object exist(obj_num)
		for l=obj_num to obj_num+13
			if object exist(l)
				phy delete rigid body l
				delete object l
			endif
		next l
		for l=1 to 13
			phy delete joint l
		next l
	endif
	make object box obj_num,2,2,11
	position object obj_num,posx#,posy#,posz#
	set shadow shading on obj_num,-1,100,1
	
	make object cylinder obj_num+1,1.9
	zrotate object obj_num+1,90
	position object obj_num+1,-5+posx#,-0.5+posy#,5.0+posz#
	
	make object cylinder obj_num+2,1.9
	zrotate object obj_num+2,90
	position object obj_num+2,-5+posx#,-1.0+posy#,3.0+posz#
	
	make object cylinder obj_num+3,1.9
	zrotate object obj_num+3,90
	position object obj_num+3,-5+posx#,-1.0+posy#,1.0+posz#
	
	make object cylinder obj_num+4,1.9
	zrotate object obj_num+4,90
	position object obj_num+4,-5+posx#,-1.0+posy#,-1.0+posz#
	
	make object cylinder obj_num+5,1.9
	zrotate object obj_num+5,90
	position object obj_num+5,-5+posx#,-1.0+posy#,-3.0+posz#
	
	make object cylinder obj_num+6,1.9
	zrotate object obj_num+6,90
	position object obj_num+6,-5+posx#,-0.5+posy#,-5.0+posz#
	
	
	make object cylinder obj_num+7,1.9
	zrotate object obj_num+7,90
	position object obj_num+7,5+posx#,-0.5+posy#,5.0+posz#
	
	make object cylinder obj_num+8,1.9
	zrotate object obj_num+8,90
	position object obj_num+8,5+posx#,-1.0+posy#,3.0+posz#
	
	make object cylinder obj_num+9,1.9
	zrotate object obj_num+9,90
	position object obj_num+9,5+posx#,-1.0+posy#,1.0+posz#
	
	make object cylinder obj_num+10,1.9
	zrotate object obj_num+10,90
	position object obj_num+10,5+posx#,-1.0+posy#,-1.0+posz#
	
	make object cylinder obj_num+11,1.9
	zrotate object obj_num+11,90
	position object obj_num+11,5+posx#,-1.0+posy#,-3.0+posz#
	
	make object cylinder obj_num+12,1.9
	zrotate object obj_num+12,90
	position object obj_num+12,5+posx#,-0.5+posy#,-5.0+posz#
	
	
	make object box obj_num+13,6,1,11
	position object obj_num+13,0.0+posx#,1.5+posy#,0.0+posz#
	texture object obj_num+13,1
	set shadow shading on obj_num+13,-1,100,1
	
	phy make rigid body dynamic box obj_num
	phy set rigid body mass obj_num,200
	phy set rigid body angular damping obj_num,10
	phy make rigid body dynamic box obj_num+13
	
	for l=obj_num+1 to obj_num+12
		phy make rigid body dynamic capsule l,hardrubber
		phy set rigid body max angular velocity l,500
		phy set rigid body mass l,5
		phy set rigid body angular damping l,2
		texture object l,1
		set shadow shading on l,-1,100,1
	next l
	
	for j=1 to 12
		phy make revolute joint j_num,obj_num,obj_num+j
		phy set revolute joint global anchor j_num,obj_num+j,object position x(obj_num+j),object position y(obj_num+j),object position z(obj_num+j)
		phy set revolute joint global axis j_num,obj_num+j,1,0,0
		phy build revolute joint j_num
		inc j_num
	next j
	
	phy make fixed joint j_num,obj_num,obj_num+13
	inc j_num
	
endfunction

function make_floor(obj_num)
	make object box obj_num,5000,1,5000
	scale object texture obj_num,10,10
	texture object obj_num,2
	phy make rigid body static box obj_num,
endfunction

function make_texture1(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction
function make_texture2(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+150
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction
function make_tracks()
	

		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			set object to object orientation skid_mark,12
			position object skid_mark,object position x(12),object position y(12)-0.9,object position z(12)
		else
			make object plain skid_mark,1,1
			xrotate object skid_mark,90 
			texture object skid_mark,1
			set object to object orientation skid_mark,12
			position object skid_mark,object position x(12),object position y(12)-0.9,object position z(12)
		endif


		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			set object to object orientation skid_mark,6
			position object skid_mark,object position x(6),object position y(6)-0.9,object position z(6)
		else
			make object plain skid_mark,1,1
			texture object skid_mark,1
			xrotate object skid_mark,90
			set object to object orientation skid_mark,6
			position object skid_mark,object position x(6),object position y(6)-0.9,object position z(6)
		endif

	
endfunction

function make_hazards(obj_num)
	for l=obj_num to obj_num+200
		make object cube l,rnd(3.2)+1.0
		color object l,rgb(255,0,0)
		position object l,rnd(600)-300,255,rnd(600)-300
		phy make rigid body dynamic box l
	next l
endfunction

function delete_tracks()
	for l=first_skid_mark to max_skid_mark
		if object exist(l) then delete object l
	next l
endfunction

function control_tank(obj_num)
	if spacekey() and leftkey()=0 and rightkey()=0
		for l=obj_num+1 to obj_num+12
			phy add rigid body local torque l,0,-50,0,1 
		next l
	endif
	if spacekey() and leftkey()=1 and rightkey()=0
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,-50,0,1 
		next l
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,50,0,1 
		next l
	endif
	if spacekey() and leftkey()=0 and rightkey()=1
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,-50,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,50,0,1 
		next l
	endif
	
	if shiftkey() and leftkey()=0 and rightkey()=0
		for l=obj_num+1 to obj_num+12
			phy add rigid body local torque l,0,50,0,1 
		next l
	endif
	if shiftkey()  and leftkey()=1 and rightkey()=0
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,-50,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,50,0,1 
		next l
	endif
	if shiftkey() and leftkey()=0 and rightkey()=1
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,50,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,-50,0,1 
		next l
	endif
	if inkey$()="b"
		for l=obj_num+1 to obj_num+12
			phy set rigid body linear damping l,100
		next l
	else
		for l=obj_num+1 to obj_num+12
			phy set rigid body linear damping l,0
		next l	
	endif
endfunction

function create_memblockobject(memnum,v)

   make memblock memnum,12+(36*v)
   write memblock dword memnum,0,338
   write memblock dword memnum,4,36
   write memblock dword memnum,8,v

endfunction

function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)

   write memblock float memnum,v*36+12,vposx#
   write memblock float memnum,v*36+16,vposy#
   write memblock float memnum,v*36+20,vposz#
   write memblock dword memnum,v*36+36,color
   write memblock float memnum,v*36+40,u#
   write memblock float memnum,v*36+44,v#

endfunction

function set_normal(memnum,v,normalx#,normaly#,normalz#)

   write memblock float memnum,v*36+24,normalx#
   write memblock float memnum,v*36+28,normaly#
   write memblock float memnum,v*36+32,normalz#

endfunction

function hmap_fractal()
	`thanks to who ever did this code,had it so long,and it never fails to work for me
	av as float
	rn as float
	s=gridSizeX  ` units and array size; must be a power of 2
	rn=0.01  ` bigger numbers = smoother, smaller = spikier
	smt=1  ` how many times to smooth matrix
	dim a(s,s,1) as float
	` do the diamond square algorithm
	` paying special attention to wrapping around
	c=s
	repeat
	   for z=0 to (s-c) step c
	      for x=0 to (s-c) step c
	         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
	         av=av+((-50+rnd(100))/rn)
	         a(x+(c/2),z+(c/2))=av
	      next x
	   next z
	   w=1
	   for z=0 to (s-(c/2)) step (c/2)
	      for x=0 to (s-c) step c
	         x2=x+(w*(c/2))
	         av=a(x2,z+(c/2))+a(x2+(c/2),z)
	         if x2=0
	            av=av+a(s-(c/2),z)
	         else
	            av=av+a(x2-(c/2),z)
	         endif
	         if z=0
	            av=av+a(x2,s-(c/2))
	         else
	            av=av+a(x2,z-(c/2))
	         endif
	         av=av/4.0
	         av=av+((-50+rnd(100))/rn)
	         a(x2,z,0)=av
	         if x2=0 then a(s,z,0)=av
	         if z=0 then a(x2,s,0)=av
	      next x
	      w=1-w
	   next z
	   c=c/2
	   rn=rn*2.0
	until c < 2
	
	` smooth the result
	for multiple=1 to smt
	   for x=0 to s-1
	      x2=x-1 : if x2 < 0 then x2=s-1
	      for z=0 to s-1
	         z2=z-1 : if z2 < 0 then z2=s-1
	         v1#=a(x2,z+1,0)
	         v2#=a(x,z+1,0)
	         v3#=a(x+1,z+1,0)
	         v4#=a(x+1,z,0)
	         v5#=a(x+1,z2,0)
	         v6#=a(x,z2,0)
	         v7#=a(x2,z2,0)
	         v8#=a(x2,z,0)
	         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
	         a(x,z,0)=av#
	      next z
	   next x
	   for f=0 to s
	      a(s,f,0)=a(0,f,0)
	      a(f,s,0)=a(f,0,0)
	   next f
	next multiple


	`find min/max height
	minh#=5000:maxh#=-5000
	for z=0 to s
	   for x=0 to s
	      if a(x,z,0)<minh# then minh#=a(x,z,0)
	      if a(x,z,0)>maxh# then maxh#=a(x,z,0)
	   next x
	next z
	
	` raise it up so the lowest point is>=0
	for z=0 to s
	   for x=0 to s
	      av=a(x,z,0)
	      if minh#<0 then land(x,z).y=av+abs(minh#)
	      if minh#>=0 then land(x,z).y=av-minh#
	     next x
	next z
	
	`find new maxh
	maxh#=-5000
	for z=0 to s
	   for x=0 to s
	      if land(x,z).y>maxh# then maxh#=land(x,z).y
	   next x
	next z
	
	`set at 0 to 255
	if maxh#>255
		d#=maxh#/255.0
		for z=0 to s
		   for x=0 to s
		      land(x,z).x = x*tileSize-(gridSizeX*tileSize/2)
		      land(x,z).y=land(x,z).y/d#
		      land(x,z).z = z*tileSize-(gridSizeZ*tileSize/2)
		   next x
		next z
	endif

endfunction




function build_land()
	memblock_size=20*20*6
	if memblock exist(1) then delete memblock 1
	create_memblockobject(1,memblock_size)
	
	obj=1000
	
	for lz=0 to 11
		for lx=0 to 11
			v_num=0
			u#=0.0
			v#=0.0
			for z=lz*20 to (lz+1)*20-1
				for x=lx*20 to (lx+1)*20-1
					create_vertex(1,v_num,land(x,z).x,land(x,z).y,land(x,z).z,rgb(255,255,255),u#,v#):inc v_num
					create_vertex(1,v_num,land(x,z+1).x,land(x,z+1).y,land(x,z+1).z,rgb(255,255,255),u#,v#+0.05):inc v_num
					create_vertex(1,v_num,land(x+1,z+1).x,land(x+1,z+1).y,land(x+1,z+1).z,rgb(255,255,255),u#+0.05,v#+0.05):inc v_num
					
					create_vertex(1,v_num,land(x,z).x,land(x,z).y,land(x,z).z,rgb(255,255,255),u#,v#):inc v_num
					create_vertex(1,v_num,land(x+1,z+1).x,land(x+1,z+1).y,land(x+1,z+1).z,rgb(255,255,255),u#+0.05,v#+0.05):inc v_num
					create_vertex(1,v_num,land(x+1,z).x,land(x+1,z).y,land(x+1,z).z,rgb(255,255,255),u#+0.05,v#):inc v_num
					u#=u#+0.05
				next x
				u#=0
				v#=v#+0.05
			next z
			make mesh from memblock 1,1
			make object obj,1,0
			set object texture obj,2,1
			set object normals obj
			texture object obj,2 
			`set object smoothing obj,95
			`set object wireframe obj,1
			phy make rigid body static mesh obj
			inc obj
		next lx
	next lz
endfunction obj

`%ProjectTitle%
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, rgb (125,125,255)
set text font "Arial"
set text size 12
set text transparent
position light 0,0,4000,-3000
set light range 0,10000
position camera 5,600,-20
point camera 0,255,0
make_texture1(1)
make_texture2(2)
house_texture(3)

`set up physx for software or hardware
if physx()
	phy start 1,0,1
	phyx=1
else
	phy start
endif
global hardrubber as integer=1
phy make material hardrubber,"hardrubber"
phy set material dynamic friction hardrubber,0.0
phy set material static friction hardrubber,0.0
phy set material restitution hardrubber,1.0
phy build material hardrubber

type pointType
	x as float
	y as float
	z as float
	e as integer
endtype
global gridSizeX as integer=256
global gridSizeZ as integer=256
global tileSize as integer=32
dim land(gridSizeX,gridSizeZ) as pointType
hmap_fractal()
global num_land_pieces as integer
num_land_pieces=build_land(1000)

global j_num as integer=1
global first_skid_mark as integer=2000
global skid_mark as integer=2000
global max_skid_mark as integer=3000
`make_hazards(max_skid_mark+1)
make_house(max_skid_mark+1)

global tank as integer=1
global power as integer=70
global right_wheel_collision as integer=0
global left_wheel_collision as integer=0

make_tank(tank,0,land(gridSizeX/2,gridSizeZ/2).y+5,0)
`for l=20 to 100 step 20
`	make_tank(l,rnd(200)-100,50,rnd(200)-100)
`next l
start_skid=0
count=0

`*******main loop******** 
do
	check_collision()
	text 0,0,"Space-Accelerate"
	text 0,15,"Left\Right Arrow Key To Turn"
	text 0,30,"B-Break"
	text 0,45,"Shift-Reverse"
	text 0,60,"R-Reset"
	`text 0,60,"Speed "+str$(abs(int(phy get rigid body angular velocity x(tank+1))))
	`text 0,60,str$(num_land_pieces-999)
	`text 0,60,str$(left_wheel_collision)+str$(right_wheel_collision)
	text 0,75,"FPS "+str$(screen fps())
	position camera object position x(tank),object position y(tank),object position z(tank)
	set camera to object orientation tank
	move camera -40
	move camera up 16
	point camera object position x(tank),object position y(tank),object position z(tank)
	``mousecontrol(1.0)
	control_tank(tank)
	if inkey$()="r" then make_tank(tank,0,land(gridSizeX/2,gridSizeZ/2).y+4.5,0):delete_tracks()
	make_tracks()
	phy update
	sync
loop

`*******Functions********
function MouseControl(Speed as float)
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
	if mouseclick()=1 then move camera Speed
	if mouseclick()=2 then move camera (0-Speed)
	r=mousemovex()
	r=mousemovey()
endfunction

function make_tank(obj_num,posx#,posy#,posz#)
	if object exist(obj_num)
		for l=obj_num to obj_num+13
			if object exist(l)
				phy delete rigid body l
				delete object l
			endif
		next l
		for l=1 to 13
			phy delete joint l
		next l
	endif
	make object box obj_num,2,2,11
	position object obj_num,posx#,posy#,posz#
	set shadow shading on obj_num,-1,100,1
	
	make object cylinder obj_num+1,1.9
	zrotate object obj_num+1,90
	position object obj_num+1,-5+posx#,-0.5+posy#,5.0+posz#
	
	make object cylinder obj_num+2,1.9
	zrotate object obj_num+2,90
	position object obj_num+2,-5+posx#,-1.0+posy#,3.0+posz#
	
	make object cylinder obj_num+3,1.9
	zrotate object obj_num+3,90
	position object obj_num+3,-5+posx#,-1.0+posy#,1.0+posz#
	
	make object cylinder obj_num+4,1.9
	zrotate object obj_num+4,90
	position object obj_num+4,-5+posx#,-1.0+posy#,-1.0+posz#
	
	make object cylinder obj_num+5,1.9
	zrotate object obj_num+5,90
	position object obj_num+5,-5+posx#,-1.0+posy#,-3.0+posz#
	
	make object cylinder obj_num+6,1.9
	zrotate object obj_num+6,90
	position object obj_num+6,-5+posx#,-0.5+posy#,-5.0+posz#
	
	
	make object cylinder obj_num+7,1.9
	zrotate object obj_num+7,90
	position object obj_num+7,5+posx#,-0.5+posy#,5.0+posz#
	
	make object cylinder obj_num+8,1.9
	zrotate object obj_num+8,90
	position object obj_num+8,5+posx#,-1.0+posy#,3.0+posz#
	
	make object cylinder obj_num+9,1.9
	zrotate object obj_num+9,90
	position object obj_num+9,5+posx#,-1.0+posy#,1.0+posz#
	
	make object cylinder obj_num+10,1.9
	zrotate object obj_num+10,90
	position object obj_num+10,5+posx#,-1.0+posy#,-1.0+posz#
	
	make object cylinder obj_num+11,1.9
	zrotate object obj_num+11,90
	position object obj_num+11,5+posx#,-1.0+posy#,-3.0+posz#
	
	make object cylinder obj_num+12,1.9
	zrotate object obj_num+12,90
	position object obj_num+12,5+posx#,-0.5+posy#,-5.0+posz#
	
	
	make object box obj_num+13,6,1,11
	position object obj_num+13,0.0+posx#,1.5+posy#,0.0+posz#
	texture object obj_num+13,1
	set shadow shading on obj_num+13,-1,100,1
	
	phy make rigid body dynamic box obj_num
	phy set rigid body mass obj_num,200
	phy set rigid body angular damping obj_num,10
	phy make rigid body dynamic box obj_num+13
	
	for l=obj_num+1 to obj_num+12
		phy make rigid body dynamic capsule l,hardrubber
		phy set rigid body max angular velocity l,500
		phy set rigid body mass l,5
		phy set rigid body angular damping l,2
		texture object l,1
		set shadow shading on l,-1,100,1
	next l
	
	for j=1 to 12
		phy make revolute joint j_num,obj_num,obj_num+j
		phy set revolute joint global anchor j_num,obj_num+j,object position x(obj_num+j),object position y(obj_num+j),object position z(obj_num+j)
		phy set revolute joint global axis j_num,obj_num+j,1,0,0
		phy build revolute joint j_num
		inc j_num
	next j
	
	phy make fixed joint j_num,obj_num,obj_num+13
	inc j_num
	
endfunction

function make_floor(obj_num)
	make object box obj_num,5000,1,5000
	scale object texture obj_num,10,10
	texture object obj_num,2
	phy make rigid body static box obj_num,
endfunction

function make_texture1(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction
function make_texture2(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+150
			dot x,y,rgb(col-50,col,0)
		next x
	next y
	get image img_num,0,0,255,255
endfunction
function make_tracks()
	
	if right_wheel_collision=1
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			set object to object orientation skid_mark,tank+10
			position object skid_mark,object position x(tank+10),object position y(tank+10)-0.9,object position z(tank+10)
		else
			make object plain skid_mark,1,1
			xrotate object skid_mark,90 
			texture object skid_mark,1
			set object to object orientation skid_mark,tank+10
			position object skid_mark,object position x(tank+10),object position y(tank+10)-0.9,object position z(tank+10)
		endif
	endif
	if left_wheel_collision=1
		inc skid_mark
		if skid_mark>max_skid_mark then skid_mark=first_skid_mark
		if object exist(skid_mark)
			set object to object orientation skid_mark,tank+4
			position object skid_mark,object position x(tank+4),object position y(tank+4)-0.9,object position z(tank+4)
		else
			make object plain skid_mark,1,1
			texture object skid_mark,1
			xrotate object skid_mark,90
			set object to object orientation skid_mark,tank+4
			position object skid_mark,object position x(tank+4),object position y(tank+4)-0.9,object position z(tank+4)
		endif
	endif
	
endfunction

function make_hazards(obj_num)
	for l=obj_num to obj_num+200
		make object cube l,rnd(3.2)+1.0
		color object l,rgb(255,0,0)
		position object l,rnd(600)-300,255,rnd(600)-300
		phy make rigid body dynamic box l
	next l
endfunction

function make_house(obj_num)
	for x=100 to 150
		for z=100 to 150
			if rnd(100)<2
				house_build(obj_num,3,1)
				position object obj_num,x*tilesize-(gridsizex*tilesize/2),land(x,z).y+5,z*tilesize-(gridsizex*tilesize/2)
				yrotate object obj_num,rnd(45)
				set shadow shading on obj_num,-1,100,1
				phy make rigid body static box obj_num
				inc obj_num
			endif
		next z
	next x
endfunction
function delete_tracks()
	for l=first_skid_mark to max_skid_mark
		if object exist(l) then delete object l
	next l
endfunction

function control_tank(obj_num)
	if spacekey() and leftkey()=0 and rightkey()=0
		for l=obj_num+1 to obj_num+12
			phy add rigid body local torque l,0,power*-1,0,1 
		next l
	endif
	if spacekey() and leftkey()=1 and rightkey()=0
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,power*-1,0,1 
		next l
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,power,0,1 
		next l
	endif
	if spacekey() and leftkey()=0 and rightkey()=1
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,power*-1,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,power,0,1 
		next l
	endif
	
	if shiftkey() and leftkey()=0 and rightkey()=0
		for l=obj_num+1 to obj_num+12
			phy add rigid body local torque l,0,power,0,1 
		next l
	endif
	if shiftkey()  and leftkey()=1 and rightkey()=0
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,power*-1,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,power,0,1 
		next l
	endif
	if shiftkey() and leftkey()=0 and rightkey()=1
		for l=obj_num+1 to obj_num+6
			phy add rigid body local torque l,0,power,0,1 
		next l
		for l=obj_num+7 to obj_num+12
			phy add rigid body local torque l,0,power*-1,0,1 
		next l
	endif
	if inkey$()="b"
		for l=obj_num+1 to obj_num+12
			phy set rigid body linear damping l,100
		next l
	else
		for l=obj_num+1 to obj_num+12
			phy set rigid body linear damping l,0
		next l	
	endif
endfunction

function create_memblockobject(memnum,v)

   make memblock memnum,12+(36*v)
   write memblock dword memnum,0,338
   write memblock dword memnum,4,36
   write memblock dword memnum,8,v

endfunction

function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)

   write memblock float memnum,v*36+12,vposx#
   write memblock float memnum,v*36+16,vposy#
   write memblock float memnum,v*36+20,vposz#
   write memblock dword memnum,v*36+36,color
   write memblock float memnum,v*36+40,u#
   write memblock float memnum,v*36+44,v#

endfunction

function set_normal(memnum,v,normalx#,normaly#,normalz#)

   write memblock float memnum,v*36+24,normalx#
   write memblock float memnum,v*36+28,normaly#
   write memblock float memnum,v*36+32,normalz#

endfunction

function hmap_fractal()
	`thanks to who ever did this code,had it so long,and it never fails to work for me
	av as float
	rn as float
	s=gridSizeX  ` units and array size; must be a power of 2
	rn=0.01  ` bigger numbers = smoother, smaller = spikier
	smt=1  ` how many times to smooth matrix
	dim a(s,s,1) as float
	` do the diamond square algorithm
	` paying special attention to wrapping around
	c=s
	repeat
	   for z=0 to (s-c) step c
	      for x=0 to (s-c) step c
	         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
	         av=av+((-50+rnd(100))/rn)
	         a(x+(c/2),z+(c/2))=av
	      next x
	   next z
	   w=1
	   for z=0 to (s-(c/2)) step (c/2)
	      for x=0 to (s-c) step c
	         x2=x+(w*(c/2))
	         av=a(x2,z+(c/2))+a(x2+(c/2),z)
	         if x2=0
	            av=av+a(s-(c/2),z)
	         else
	            av=av+a(x2-(c/2),z)
	         endif
	         if z=0
	            av=av+a(x2,s-(c/2))
	         else
	            av=av+a(x2,z-(c/2))
	         endif
	         av=av/4.0
	         av=av+((-50+rnd(100))/rn)
	         a(x2,z,0)=av
	         if x2=0 then a(s,z,0)=av
	         if z=0 then a(x2,s,0)=av
	      next x
	      w=1-w
	   next z
	   c=c/2
	   rn=rn*2.0
	until c < 2
	
	` smooth the result
	for multiple=1 to smt
	   for x=0 to s-1
	      x2=x-1 : if x2 < 0 then x2=s-1
	      for z=0 to s-1
	         z2=z-1 : if z2 < 0 then z2=s-1
	         v1#=a(x2,z+1,0)
	         v2#=a(x,z+1,0)
	         v3#=a(x+1,z+1,0)
	         v4#=a(x+1,z,0)
	         v5#=a(x+1,z2,0)
	         v6#=a(x,z2,0)
	         v7#=a(x2,z2,0)
	         v8#=a(x2,z,0)
	         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
	         a(x,z,0)=av#
	      next z
	   next x
	   for f=0 to s
	      a(s,f,0)=a(0,f,0)
	      a(f,s,0)=a(f,0,0)
	   next f
	next multiple


	`find min/max height
	minh#=5000:maxh#=-5000
	for z=0 to s
	   for x=0 to s
	      if a(x,z,0)<minh# then minh#=a(x,z,0)
	      if a(x,z,0)>maxh# then maxh#=a(x,z,0)
	   next x
	next z
	
	` raise it up so the lowest point is>=0
	for z=0 to s
	   for x=0 to s
	      av=a(x,z,0)
	      if minh#<0 then land(x,z).y=av+abs(minh#)
	      if minh#>=0 then land(x,z).y=av-minh#
	     next x
	next z
	
	`find new maxh
	maxh#=-5000
	for z=0 to s
	   for x=0 to s
	      if land(x,z).y>maxh# then maxh#=land(x,z).y
	   next x
	next z
	
	`set at 0 to 255
	if maxh#>255
		d#=maxh#/255.0
		for z=0 to s
		   for x=0 to s
		      land(x,z).x = x*tileSize-(gridSizeX*tileSize/2)
		      land(x,z).y=land(x,z).y/d#
		      land(x,z).z = z*tileSize-(gridSizeZ*tileSize/2)
		   next x
		next z
	endif

endfunction




function build_land(obj)
	memblock_size=20*20*6
	if memblock exist(1) then delete memblock 1
	create_memblockobject(1,memblock_size)
	
	for lz=0 to 11
		for lx=0 to 11
			v_num=0
			u#=0.0
			v#=0.0
			for z=lz*20 to (lz+1)*20-1
				for x=lx*20 to (lx+1)*20-1
					create_vertex(1,v_num,land(x,z).x,land(x,z).y,land(x,z).z,rgb(255,255,255),u#,v#):inc v_num
					create_vertex(1,v_num,land(x,z+1).x,land(x,z+1).y,land(x,z+1).z,rgb(255,255,255),u#,v#+0.05):inc v_num
					create_vertex(1,v_num,land(x+1,z+1).x,land(x+1,z+1).y,land(x+1,z+1).z,rgb(255,255,255),u#+0.05,v#+0.05):inc v_num
					
					create_vertex(1,v_num,land(x,z).x,land(x,z).y,land(x,z).z,rgb(255,255,255),u#,v#):inc v_num
					create_vertex(1,v_num,land(x+1,z+1).x,land(x+1,z+1).y,land(x+1,z+1).z,rgb(255,255,255),u#+0.05,v#+0.05):inc v_num
					create_vertex(1,v_num,land(x+1,z).x,land(x+1,z).y,land(x+1,z).z,rgb(255,255,255),u#+0.05,v#):inc v_num
					u#=u#+0.05
				next x
				u#=0
				v#=v#+0.05
			next z
			make mesh from memblock 1,1
			make object obj,1,0
			set object texture obj,2,1
			set object normals obj
			texture object obj,2 
			`set object smoothing obj,95
			`set object wireframe obj,1
			phy make rigid body static mesh obj
			inc obj
		next lx
	next lz
	dec obj
endfunction obj

function check_collision()
	left_wheel_collision=0
	right_wheel_collision=0
	
	if phy get collision data()
		while phy get collision data()
		endwhile
		for l=1000 to num_land_pieces
			if phy get collision(l,tank+4)
				right_wheel_collision=1
			endif
			if phy get collision(l,tank+10)
				left_wheel_collision=1
			endif
		next l
	endif	
endfunction
function house_texture(img)
	for y=0 to 255
		for x=0 to 255 
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	offset=0
	for y=0 to 255 step 5
		ink rgb(20,20,20),0
		line 0,y,255,y
		for x=0 to 250 step 5
			line x+offset,y,x+offset,y+5
			offset=offset+3
			if offset=6 then offset=0
		next x
	next y
	box 20,20,80,80,rgb(180,180,180),rgb(180,180,180),rgb(180,180,180),rgb(180,180,180)
	box 23,23,77,77,rgb(20,20,20),rgb(20,20,20),rgb(20,20,20),rgb(20,20,20)
	box 120,20,180,80,rgb(180,180,180),rgb(180,180,180),rgb(180,180,180),rgb(180,180,180)
	box 123,23,177,77,rgb(20,20,20),rgb(20,20,20),rgb(20,20,20),rgb(20,20,20)
	box 20,150,180,210,rgb(180,180,180),rgb(180,180,180),rgb(180,180,180),rgb(180,180,180)
	box 23,153,177,207,rgb(20,20,20),rgb(20,20,20),rgb(20,20,20),rgb(20,20,20)
	get image img,0,0,255,255
endfunction
function house_build(obj,img1,img2)
	make object cube obj,10
	texture object obj,img1
	make object box obj+1,13,1,13
	make mesh from object 1,obj+1
	delete object obj+1
	add limb obj,1,1
	offset limb obj,1,0,5,0
	texture limb obj,1,img2
endfunction

`%ProjectTitle%
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position camera 10,40,-50
point camera 0,0,0
phy start

`make material
global hardrubber as integer=1
phy make material hardrubber,"hardrubber"
phy set material dynamic friction hardrubber,0.5
phy set material static friction hardrubber,0.5
phy set material restitution hardrubber,1.0
phy build material hardrubber

`make joint marker mesh
joint_marker()
make_texture1(1)
make_floor(5000)

global j_num as integer=1
global rear_spring as integer=10000000
global front_spring as integer=10000000
global steering_return_spring as integer=10000
global wheel_base as float=30.0
global steering_torque as integer=1000
global drive as float=300.0

global f_r_t_wishbone as integer=1
global f_r_t_wishbone_posx as float=5.0
global f_r_t_wishbone_posy as float=2.0
global f_r_t_wishbone_posz as float:f_r_t_wishbone_posz=wheel_base/2.0
make_f_r_t_wishbone(0,20,0)

global f_r_b_wishbone as integer=2
global f_r_b_wishbone_posx as float=5.0
global f_r_b_wishbone_posy as float=-2.0
global f_r_b_wishbone_posz as float:f_r_b_wishbone_posz=wheel_base/2.0
make_f_r_b_wishbone(0,20,0)

global f_l_t_wishbone as integer=3
global f_l_t_wishbone_posx as float=-5.0
global f_l_t_wishbone_posy as float=2.0
global f_l_t_wishbone_posz as float:f_l_t_wishbone_posz=wheel_base/2.0
make_f_l_t_wishbone(0,20,0)

global f_l_b_wishbone as integer=4
global f_l_b_wishbone_posx as float=-5.0
global f_l_b_wishbone_posy as float=-2.0
global f_l_b_wishbone_posz as float:f_l_b_wishbone_posz=wheel_base/2.0
make_f_l_b_wishbone(0,20,0)

global chasis as integer=5
global chasis_posx as float=0.0
global chasis_posy as float=0.0
global chasis_posz as float=0.0
make_chasis(0,20,0)

global b_r_t_wishbone as integer=6
global b_r_t_wishbone_posx as float=8.0
global b_r_t_wishbone_posy as float=2.0
global b_r_t_wishbone_posz as float:b_r_t_wishbone_posz=(wheel_base/2.0)*-1
make_b_r_t_wishbone(0,20,0)

global b_r_b_wishbone as integer=7
global b_r_b_wishbone_posx as float=8.0
global b_r_b_wishbone_posy as float=-2.0
global b_r_b_wishbone_posz as float:b_r_b_wishbone_posz=(wheel_base/2.0)*-1
make_b_r_b_wishbone(0,20,0)

global b_l_t_wishbone as integer=8
global b_l_t_wishbone_posx as float=-8.0
global b_l_t_wishbone_posy as float=2.0
global b_l_t_wishbone_posz as float:b_l_t_wishbone_posz=(wheel_base/2.0)*-1
make_b_l_t_wishbone(0,20,0)

global b_l_b_wishbone as integer=9
global b_l_b_wishbone_posx as float=-8.0
global b_l_b_wishbone_posy as float=-2.0
global b_l_b_wishbone_posz as float:b_l_b_wishbone_posz=(wheel_base/2.0)*-1
make_b_l_b_wishbone(0,20,0)

global b_r_hub as integer=10
global b_r_hub_posx as float=14.0
global b_r_hub_posy as float=0.0
global b_r_hub_posz as float:b_r_hub_posz=(wheel_base/2.0)*-1
make_b_r_hub(0,20,0)

global b_l_hub as integer=11
global b_l_hub_posx as float=-14.0
global b_l_hub_posy as float=0.0
global b_l_hub_posz as float:b_l_hub_posz=(wheel_base/2.0)*-1
make_b_l_hub(0,20,0)

global f_r_upright as integer=12
global f_r_upright_posx as float=8.0
global f_r_upright_posy as float=0.0
global f_r_upright_posz as float:f_r_upright_posz=wheel_base/2.0
make_f_r_upright(0,20,0)

global f_l_upright as integer=13
global f_l_upright_posx as float=-8.0
global f_l_upright_posy as float=0.0
global f_l_upright_posz as float:f_l_upright_posz=wheel_base/2.0
make_f_l_upright(0,20,0)

global f_r_wheel as integer=14
global f_r_wheel_posx as float=17.0
global f_r_wheel_posy as float=0.0
global f_r_wheel_posz as float:f_r_wheel_posz=wheel_base/2.0
make_f_r_wheel(0,20,0)

global f_l_wheel as integer=15
global f_l_wheel_posx as float=-17.0
global f_l_wheel_posy as float=0.0
global f_l_wheel_posz as float:f_l_wheel_posz=wheel_base/2.0
make_f_l_wheel(0,20,0)

global b_r_wheel as integer=16
global b_r_wheel_posx as float=20.0
global b_r_wheel_posy as float=0.0
global b_r_wheel_posz as float:b_r_wheel_posz=(wheel_base/2.0)*-1
make_b_r_wheel(0,20,0)

global b_l_wheel as integer=17
global b_l_wheel_posx as float=-20.0
global b_l_wheel_posy as float=0.0
global b_l_wheel_posz as float:b_l_wheel_posz=(wheel_base/2.0)*-1
make_b_l_wheel(0,20,0)

global f_r_hub as integer=18
global f_r_hub_posx as float=11.5
global f_r_hub_posy as float=0.0
global f_r_hub_posz as float:f_r_hub_posz=wheel_base/2.0
make_f_r_hub(0,20,0)

global f_l_hub as integer=19
global f_l_hub_posx as float=-11.5
global f_l_hub_posy as float=0.0
global f_l_hub_posz as float:f_l_hub_posz=wheel_base/2.0
make_f_l_hub(0,20,0)

make_physx_objects(f_r_t_wishbone,f_l_hub)

make_joints()

do
	if spacekey()
		phy add rigid body local torque b_r_wheel,0,drive*-1,0,1
		phy add rigid body local torque b_l_wheel,0,drive*-1,0,1 
		phy add rigid body local torque f_r_wheel,0,drive*-1,0,1
		phy add rigid body local torque f_l_wheel,0,drive*-1,0,1
		``phy add rigid body local force chasis,0,0,drive,1
	endif
	if inkey$()="r"
		phy add rigid body local torque b_r_wheel,0,drive,0,1
		phy add rigid body local torque b_l_wheel,0,drive,0,1 
		phy add rigid body local torque f_r_wheel,0,drive,0,1
		phy add rigid body local torque f_l_wheel,0,drive,0,1
		``phy add rigid body local force chasis,0,0,drive*-1,1
	endif
	if leftkey()
		phy add rigid body local torque f_l_hub,0,steering_torque*-1,0,1
		phy add rigid body local torque f_r_hub,0,steering_torque*-1,0,1
	endif
	if rightkey()
		phy add rigid body local torque f_l_hub,0,steering_torque,0,1
		phy add rigid body local torque f_r_hub,0,steering_torque,0,1
	endif
	
	set camera to follow object position x(chasis),object position y(chasis),object position z(chasis),0,80,80,50,0
	``mousecontrol(0.5)
	phy update
	sync
loop

function MouseControl(Speed as float)
	xrotate camera camera angle x()+mousemovey()
	yrotate camera camera angle y()+mousemovex()
	if mouseclick()=1 then move camera Speed
	if mouseclick()=2 then move camera (0-Speed)
	r=mousemovex()
	r=mousemovey()
endfunction

function joint_marker()
	make object sphere 1,1
	make mesh from object 1,1
	delete object 1
endfunction

function make_f_r_t_wishbone(posx#,posy#,posz#)
	make object box f_r_t_wishbone,1,1,3
	make object box 1000,7,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_r_t_wishbone,1,2
	offset limb f_r_t_wishbone,1,0,0,2.0
	add limb f_r_t_wishbone,2,2
	offset limb f_r_t_wishbone,2,0,0,-2.0
	add limb f_r_t_wishbone,3,1
	offset limb f_r_t_wishbone,3,-3,0,1.5
	add limb f_r_t_wishbone,4,1
	offset limb f_r_t_wishbone,4,3,0,1.5
	add limb f_r_t_wishbone,5,1
	offset limb f_r_t_wishbone,5,-3,0,-1.5
	add limb f_r_t_wishbone,6,1
	offset limb f_r_t_wishbone,6,3,0,-1.5
	color object f_r_t_wishbone,rgb(255,0,0)
	color limb f_r_t_wishbone,3,rgb(255,255,255)
	color limb f_r_t_wishbone,4,rgb(255,255,255)
	color limb f_r_t_wishbone,5,rgb(255,255,255)
	color limb f_r_t_wishbone,6,rgb(255,255,255)
	position object f_r_t_wishbone,f_r_t_wishbone_posx+posx#,f_r_t_wishbone_posy+posy#,f_r_t_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_f_r_b_wishbone(posx#,posy#,posz#)
	make object box f_r_b_wishbone,1,1,3
	make object box 1000,7,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_r_b_wishbone,1,2
	offset limb f_r_b_wishbone,1,0,0,2.0
	add limb f_r_b_wishbone,2,2
	offset limb f_r_b_wishbone,2,0,0,-2.0
	add limb f_r_b_wishbone,3,1
	offset limb f_r_b_wishbone,3,-3,0,1.5
	add limb f_r_b_wishbone,4,1
	offset limb f_r_b_wishbone,4,3,0,1.5
	add limb f_r_b_wishbone,5,1
	offset limb f_r_b_wishbone,5,-3,0,-1.5
	add limb f_r_b_wishbone,6,1
	offset limb f_r_b_wishbone,6,3,0,-1.5
	color object f_r_b_wishbone,rgb(255,0,0)
	color limb f_r_b_wishbone,3,rgb(255,255,255)
	color limb f_r_b_wishbone,4,rgb(255,255,255)
	color limb f_r_b_wishbone,5,rgb(255,255,255)
	color limb f_r_b_wishbone,6,rgb(255,255,255)
	position object f_r_b_wishbone,f_r_b_wishbone_posx+posx#,f_r_b_wishbone_posy+posy#,f_r_b_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_f_l_t_wishbone(posx#,posy#,posz#)
	make object box f_l_t_wishbone,1,1,3
	make object box 1000,7,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_l_t_wishbone,1,2
	offset limb f_l_t_wishbone,1,0,0,2.0
	add limb f_l_t_wishbone,2,2
	offset limb f_l_t_wishbone,2,0,0,-2.0
	add limb f_l_t_wishbone,3,1
	offset limb f_l_t_wishbone,3,-3,0,1.5
	add limb f_l_t_wishbone,4,1
	offset limb f_l_t_wishbone,4,3,0,1.5
	add limb f_l_t_wishbone,5,1
	offset limb f_l_t_wishbone,5,-3,0,-1.5
	add limb f_l_t_wishbone,6,1
	offset limb f_l_t_wishbone,6,3,0,-1.5
	color object f_l_t_wishbone,rgb(255,0,0)
	color limb f_l_t_wishbone,3,rgb(255,255,255)
	color limb f_l_t_wishbone,4,rgb(255,255,255)
	color limb f_l_t_wishbone,5,rgb(255,255,255)
	color limb f_l_t_wishbone,6,rgb(255,255,255)
	position object f_l_t_wishbone,f_l_t_wishbone_posx+posx#,f_l_t_wishbone_posy+posy#,f_l_t_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_f_l_b_wishbone(posx#,posy#,posz#)
	make object box f_l_b_wishbone,1,1,3
	make object box 1000,7,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_l_b_wishbone,1,2
	offset limb f_l_b_wishbone,1,0,0,2.0
	add limb f_l_b_wishbone,2,2
	offset limb f_l_b_wishbone,2,0,0,-2.0
	add limb f_l_b_wishbone,3,1
	offset limb f_l_b_wishbone,3,-3,0,1.5
	add limb f_l_b_wishbone,4,1
	offset limb f_l_b_wishbone,4,3,0,1.5
	add limb f_l_b_wishbone,5,1
	offset limb f_l_b_wishbone,5,-3,0,-1.5
	add limb f_l_b_wishbone,6,1
	offset limb f_l_b_wishbone,6,3,0,-1.5
	color object f_l_b_wishbone,rgb(255,0,0)
	color limb f_l_b_wishbone,3,rgb(255,255,255)
	color limb f_l_b_wishbone,4,rgb(255,255,255)
	color limb f_l_b_wishbone,5,rgb(255,255,255)
	color limb f_l_b_wishbone,6,rgb(255,255,255)
	position object f_l_b_wishbone,f_l_b_wishbone_posx+posx#,f_l_b_wishbone_posy+posy#,f_l_b_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_chasis(posx#,posy#,posz#)
	make object box chasis,2,1,wheel_base-2
	make object box 1000,6,5,2
	make mesh from object 2,1000
	delete object 1000
	add limb chasis,1,2
	offset limb chasis,1,0,0,wheel_base/2
	add limb chasis,2,2
	offset limb chasis,2,0,0,(wheel_base/2)*-1
	color object chasis,rgb(0,0,255)
	position object chasis,chasis_posx+posx#,chasis_posy+posy#,chasis_posz+posz#
	delete mesh 2
endfunction

function make_b_r_t_wishbone(posx#,posy#,posz#)
	make object box b_r_t_wishbone,1,1,3
	make object box 1000,13,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb b_r_t_wishbone,1,2
	offset limb b_r_t_wishbone,1,0,0,2.0
	add limb b_r_t_wishbone,2,2
	offset limb b_r_t_wishbone,2,0,0,-2.0
	add limb b_r_t_wishbone,3,1
	offset limb b_r_t_wishbone,3,-6,0,1.5
	add limb b_r_t_wishbone,4,1
	offset limb b_r_t_wishbone,4,6,0,1.5
	add limb b_r_t_wishbone,5,1
	offset limb b_r_t_wishbone,5,-6,0,-1.5
	add limb b_r_t_wishbone,6,1
	offset limb b_r_t_wishbone,6,6,0,-1.5
	color object b_r_t_wishbone,rgb(255,0,0)
	color limb b_r_t_wishbone,3,rgb(255,255,255)
	color limb b_r_t_wishbone,4,rgb(255,255,255)
	color limb b_r_t_wishbone,5,rgb(255,255,255)
	color limb b_r_t_wishbone,6,rgb(255,255,255)
	position object b_r_t_wishbone,b_r_t_wishbone_posx+posx#,b_r_t_wishbone_posy+posy#,b_r_t_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_b_r_b_wishbone(posx#,posy#,posz#)
	make object box b_r_b_wishbone,1,1,3
	make object box 1000,13,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb b_r_b_wishbone,1,2
	offset limb b_r_b_wishbone,1,0,0,2.0
	add limb b_r_b_wishbone,2,2
	offset limb b_r_b_wishbone,2,0,0,-2.0
	add limb b_r_b_wishbone,3,1
	offset limb b_r_b_wishbone,3,-6,0,1.5
	add limb b_r_b_wishbone,4,1
	offset limb b_r_b_wishbone,4,6,0,1.5
	add limb b_r_b_wishbone,5,1
	offset limb b_r_b_wishbone,5,-6,0,-1.5
	add limb b_r_b_wishbone,6,1
	offset limb b_r_b_wishbone,6,6,0,-1.5
	color object b_r_b_wishbone,rgb(255,0,0)
	color limb b_r_b_wishbone,3,rgb(255,255,255)
	color limb b_r_b_wishbone,4,rgb(255,255,255)
	color limb b_r_b_wishbone,5,rgb(255,255,255)
	color limb b_r_b_wishbone,6,rgb(255,255,255)
	position object b_r_b_wishbone,b_r_b_wishbone_posx+posx#,b_r_b_wishbone_posy+posy#,b_r_b_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_b_l_t_wishbone(posx#,posy#,posz#)
	make object box b_l_t_wishbone,1,1,3
	make object box 1000,13,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb b_l_t_wishbone,1,2
	offset limb b_l_t_wishbone,1,0,0,2.0
	add limb b_l_t_wishbone,2,2
	offset limb b_l_t_wishbone,2,0,0,-2.0
	add limb b_l_t_wishbone,3,1
	offset limb b_l_t_wishbone,3,-6,0,1.5
	add limb b_l_t_wishbone,4,1
	offset limb b_l_t_wishbone,4,6,0,1.5
	add limb b_l_t_wishbone,5,1
	offset limb b_l_t_wishbone,5,-6,0,-1.5
	add limb b_l_t_wishbone,6,1
	offset limb b_l_t_wishbone,6,6,0,-1.5
	color object b_l_t_wishbone,rgb(255,0,0)
	color limb b_l_t_wishbone,3,rgb(255,255,255)
	color limb b_l_t_wishbone,4,rgb(255,255,255)
	color limb b_l_t_wishbone,5,rgb(255,255,255)
	color limb b_l_t_wishbone,6,rgb(255,255,255)
	position object b_l_t_wishbone,b_l_t_wishbone_posx+posx#,b_l_t_wishbone_posy+posy#,b_l_t_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_b_l_b_wishbone(posx#,posy#,posz#)
	make object box b_l_b_wishbone,1,1,3
	make object box 1000,13,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb b_l_b_wishbone,1,2
	offset limb b_l_b_wishbone,1,0,0,2.0
	add limb b_l_b_wishbone,2,2
	offset limb b_l_b_wishbone,2,0,0,-2.0
	add limb b_l_b_wishbone,3,1
	offset limb b_l_b_wishbone,3,-6,0,1.5
	add limb b_l_b_wishbone,4,1
	offset limb b_l_b_wishbone,4,6,0,1.5
	add limb b_l_b_wishbone,5,1
	offset limb b_l_b_wishbone,5,-6,0,-1.5
	add limb b_l_b_wishbone,6,1
	offset limb b_l_b_wishbone,6,6,0,-1.5
	color object b_l_b_wishbone,rgb(255,0,0)
	color limb b_l_b_wishbone,3,rgb(255,255,255)
	color limb b_l_b_wishbone,4,rgb(255,255,255)
	color limb b_l_b_wishbone,5,rgb(255,255,255)
	color limb b_l_b_wishbone,6,rgb(255,255,255)
	position object b_l_b_wishbone,b_l_b_wishbone_posx+posx#,b_l_b_wishbone_posy+posy#,b_l_b_wishbone_posz+posz#
	delete mesh 2
endfunction

function make_b_r_hub(posx#,posy#,posz#)
	make object box b_r_hub,4,1,1
	make object box 1000,2,5,2
	make mesh from object 2,1000
	delete object 1000
	position object b_r_hub,b_r_hub_posx+posx#,b_r_hub_posy+posy#,b_r_hub_posz+posz#
	add limb b_r_hub,1,2
	color object b_r_hub,rgb(0,255,0)
	delete mesh 2 
endfunction

function make_b_l_hub(posx#,posy#,posz#)
	make object box b_l_hub,4,1,1
	make object box 1000,2,5,2
	make mesh from object 2,1000
	delete object 1000
	position object b_l_hub,b_l_hub_posx+posx#,b_l_hub_posy+posy#,b_l_hub_posz+posz#
	add limb b_l_hub,1,2
	color object b_l_hub,rgb(0,255,0)
	delete mesh 2 
endfunction

function make_f_r_upright(posx#,posy#,posz#)
	make object box f_r_upright,2,5,2
	
	make object box 1000,4,1,1
	make mesh from object 2,1000
	delete object 1000
	
	add limb f_r_upright,1,2
	offset limb f_r_upright,1,2.0,2.0,0.0
	add limb f_r_upright,2,2
	offset limb f_r_upright,2,2.0,-2.0,0.0
	
	add limb f_r_upright,3,1
	offset limb f_r_upright,3,3.5,1.5,0,0
	add limb f_r_upright,4,1
	offset limb f_r_upright,4,3.5,-1.5,0,0
	
	position object f_r_upright,f_r_upright_posx+posx#,f_r_upright_posy+posy#,f_r_upright_posz+posz#
	
	color object f_r_upright,rgb(0,255,0)
	color limb f_r_upright,3,rgb(255,255,255)
	color limb f_r_upright,4,rgb(255,255,255)
	
	delete mesh 2
endfunction

function make_f_l_upright(posx#,posy#,posz#)
	make object box f_l_upright,2,5,2
	
	make object box 1000,4,1,1
	make mesh from object 2,1000
	delete object 1000
	
	add limb f_l_upright,1,2
	offset limb f_l_upright,1,-2.0,2.0,0.0
	add limb f_l_upright,2,2
	offset limb f_l_upright,2,-2.0,-2.0,0.0
	
	add limb f_l_upright,3,1
	offset limb f_l_upright,3,-3.5,1.5,0,0
	add limb f_l_upright,4,1
	offset limb f_l_upright,4,-3.5,-1.5,0,0
	position object f_l_upright,f_l_upright_posx+posx#,f_l_upright_posy+posy#,f_l_upright_posz+posz#
	color object f_l_upright,rgb(0,255,0)
	color limb f_l_upright,3,rgb(255,255,255)
	color limb f_l_upright,4,rgb(255,255,255)
	delete mesh 2
endfunction

function make_f_r_wheel(posx#,posy#,posz#)
	make object cylinder f_r_wheel,8
	``scale object f_r_wheel,100,25,100
	zrotate object f_r_wheel,90
	texture object f_r_wheel,1
	position object f_r_wheel,f_r_wheel_posx+posx#,f_r_wheel_posy+posy#,f_r_wheel_posz+posz#
endfunction

function make_f_l_wheel(posx#,posy#,posz#)
	make object cylinder f_l_wheel,8
	``scale object f_l_wheel,100,25,100
	zrotate object f_l_wheel,90
	texture object f_l_wheel,1
	position object f_l_wheel,f_l_wheel_posx+posx#,f_l_wheel_posy+posy#,f_l_wheel_posz+posz#
endfunction

function make_b_r_wheel(posx#,posy#,posz#)
	make object cylinder b_r_wheel,8
	``scale object b_r_wheel,100,25,100
	zrotate object b_r_wheel,90
	texture object b_r_wheel,1
	position object b_r_wheel,b_r_wheel_posx+posx#,b_r_wheel_posy+posy#,b_r_wheel_posz+posz#
endfunction

function make_b_l_wheel(posx#,posy#,posz#)
	make object cylinder b_l_wheel,8
	``scale object b_l_wheel,100,25,100
	zrotate object b_l_wheel,90
	texture object b_l_wheel,1
	position object b_l_wheel,b_l_wheel_posx+posx#,b_l_wheel_posy+posy#,b_l_wheel_posz+posz#
endfunction

function make_f_r_hub(posx#,posy#,posz#)
	make object box f_r_hub,2,2,2
	make object box 1000,4,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_r_hub,1,2
	offset limb f_r_hub,1,2.0,0,0
	delete mesh 2
	
	position object f_r_hub,f_r_hub_posx+posx#,f_r_hub_posy+posy#,f_r_hub_posz+posz#
endfunction
	
function make_f_l_hub(posx#,posy#,posz#)
	make object box f_l_hub,2,2,2
	make object box 1000,4,1,1
	make mesh from object 2,1000
	delete object 1000
	add limb f_l_hub,1,2
	offset limb f_l_hub,1,-2.0,0,0
	delete mesh 2
	
	position object f_l_hub,f_l_hub_posx+posx#,f_l_hub_posy+posy#,f_l_hub_posz+posz#
endfunction

function make_joints()
	`back right wishbones to chasis
	phy make revolute joint j_num,chasis,b_r_t_wishbone
	phy set revolute joint global anchor j_num,b_r_t_wishbone,object position x(b_r_t_wishbone)-3,object position y(b_r_t_wishbone),object position z(b_r_t_wishbone)-1
	phy set revolute joint global axis j_num,b_r_t_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_r_t_wishbone
	phy set revolute joint global anchor j_num,b_r_t_wishbone,object position x(b_r_t_wishbone)-3,object position y(b_r_t_wishbone),object position z(b_r_t_wishbone)+1
	phy set revolute joint global axis j_num,b_r_t_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_r_b_wishbone
	phy set revolute joint global anchor j_num,b_r_b_wishbone,object position x(b_r_b_wishbone)-3,object position y(b_r_b_wishbone),object position z(b_r_b_wishbone)-1
	phy set revolute joint global axis j_num,b_r_b_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_r_b_wishbone
	phy set revolute joint global anchor j_num,b_r_b_wishbone,object position x(b_r_b_wishbone)-3,object position y(b_r_b_wishbone),object position z(b_r_b_wishbone)+1
	phy set revolute joint global axis j_num,b_r_b_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	`back right wishbones to hub
	phy make revolute joint j_num,b_r_hub,b_r_t_wishbone
	phy set revolute joint global anchor j_num,b_r_t_wishbone,object position x(b_r_t_wishbone)+3,object position y(b_r_t_wishbone),object position z(b_r_t_wishbone)-1
	phy set revolute joint global axis j_num,b_r_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_r_hub,b_r_t_wishbone
	phy set revolute joint global anchor j_num,b_r_t_wishbone,object position x(b_r_t_wishbone)+3,object position y(b_r_t_wishbone),object position z(b_r_t_wishbone)+1
	phy set revolute joint global axis j_num,b_r_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_r_hub,b_r_b_wishbone
	phy set revolute joint global anchor j_num,b_r_b_wishbone,object position x(b_r_b_wishbone)+3,object position y(b_r_b_wishbone),object position z(b_r_b_wishbone)-1
	phy set revolute joint global axis j_num,b_r_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_r_hub,b_r_b_wishbone
	phy set revolute joint global anchor j_num,b_r_b_wishbone,object position x(b_r_b_wishbone)+3,object position y(b_r_b_wishbone),object position z(b_r_b_wishbone)+1
	phy set revolute joint global axis j_num,b_r_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	
	`back left wishbones to chasis
	phy make revolute joint j_num,chasis,b_l_t_wishbone
	phy set revolute joint global anchor j_num,b_l_t_wishbone,object position x(b_l_t_wishbone)+3,object position y(b_l_t_wishbone),object position z(b_l_t_wishbone)-1
	phy set revolute joint global axis j_num,b_l_t_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_l_t_wishbone
	phy set revolute joint global anchor j_num,b_l_t_wishbone,object position x(b_l_t_wishbone)+3,object position y(b_l_t_wishbone),object position z(b_l_t_wishbone)+1
	phy set revolute joint global axis j_num,b_l_t_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_l_b_wishbone
	phy set revolute joint global anchor j_num,b_l_b_wishbone,object position x(b_l_b_wishbone)+3,object position y(b_l_b_wishbone),object position z(b_l_b_wishbone)-1
	phy set revolute joint global axis j_num,b_l_b_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,b_l_b_wishbone
	phy set revolute joint global anchor j_num,b_l_b_wishbone,object position x(b_l_b_wishbone)+3,object position y(b_l_b_wishbone),object position z(b_l_b_wishbone)+1
	phy set revolute joint global axis j_num,b_l_b_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,rear_spring
	phy build revolute joint j_num
	inc j_num
	`back left wishbones to hub
	phy make revolute joint j_num,b_l_hub,b_l_t_wishbone
	phy set revolute joint global anchor j_num,b_l_t_wishbone,object position x(b_l_t_wishbone)-3,object position y(b_l_t_wishbone),object position z(b_l_t_wishbone)-1
	phy set revolute joint global axis j_num,b_l_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_l_hub,b_l_t_wishbone
	phy set revolute joint global anchor j_num,b_l_t_wishbone,object position x(b_l_t_wishbone)-3,object position y(b_l_t_wishbone),object position z(b_l_t_wishbone)+1
	phy set revolute joint global axis j_num,b_l_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_l_hub,b_l_b_wishbone
	phy set revolute joint global anchor j_num,b_l_b_wishbone,object position x(b_l_b_wishbone)-3,object position y(b_l_b_wishbone),object position z(b_l_b_wishbone)-1
	phy set revolute joint global axis j_num,b_l_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_l_hub,b_l_b_wishbone
	phy set revolute joint global anchor j_num,b_l_b_wishbone,object position x(b_l_b_wishbone)-3,object position y(b_l_b_wishbone),object position z(b_l_b_wishbone)+1
	phy set revolute joint global axis j_num,b_l_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	
	`front right wishbones to chasis
	phy make revolute joint j_num,chasis,f_r_t_wishbone
	phy set revolute joint global anchor j_num,f_r_t_wishbone,object position x(f_r_t_wishbone)-6,object position y(f_r_t_wishbone),object position z(f_r_t_wishbone)-1
	phy set revolute joint global axis j_num,f_r_t_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_r_t_wishbone
	phy set revolute joint global anchor j_num,f_r_t_wishbone,object position x(f_r_t_wishbone)-6,object position y(f_r_t_wishbone),object position z(f_r_t_wishbone)+1
	phy set revolute joint global axis j_num,f_r_t_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_r_b_wishbone
	phy set revolute joint global anchor j_num,f_r_b_wishbone,object position x(f_r_b_wishbone)-6,object position y(f_r_b_wishbone),object position z(f_r_b_wishbone)-1
	phy set revolute joint global axis j_num,f_r_b_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_r_b_wishbone
	phy set revolute joint global anchor j_num,f_r_b_wishbone,object position x(f_r_b_wishbone)-6,object position y(f_r_b_wishbone),object position z(f_r_b_wishbone)+1
	phy set revolute joint global axis j_num,f_r_b_wishbone,0,0,1
	phy set revolute joint spring j_num,0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	
	`front left wishbones to chasis
	phy make revolute joint j_num,chasis,f_l_t_wishbone
	phy set revolute joint global anchor j_num,f_l_t_wishbone,object position x(f_l_t_wishbone)+6,object position y(f_l_t_wishbone),object position z(f_l_t_wishbone)-1
	phy set revolute joint global axis j_num,f_l_t_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_l_t_wishbone
	phy set revolute joint global anchor j_num,f_l_t_wishbone,object position x(f_l_t_wishbone)+6,object position y(f_l_t_wishbone),object position z(f_l_t_wishbone)+1
	phy set revolute joint global axis j_num,f_l_t_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_l_b_wishbone
	phy set revolute joint global anchor j_num,f_l_b_wishbone,object position x(f_l_b_wishbone)+6,object position y(f_l_b_wishbone),object position z(f_l_b_wishbone)-1
	phy set revolute joint global axis j_num,f_l_b_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,chasis,f_l_b_wishbone
	phy set revolute joint global anchor j_num,f_l_b_wishbone,object position x(f_l_b_wishbone)+6,object position y(f_l_b_wishbone),object position z(f_l_b_wishbone)+1
	phy set revolute joint global axis j_num,f_l_b_wishbone,0,0,1
	phy set revolute joint spring j_num,-0.1,front_spring
	phy build revolute joint j_num
	inc j_num
	
	`front right wishbones to upright
	phy make revolute joint j_num,f_r_upright,f_r_t_wishbone
	phy set revolute joint global anchor j_num,f_r_t_wishbone,object position x(f_r_t_wishbone)+3,object position y(f_r_t_wishbone),object position z(f_r_t_wishbone)-1
	phy set revolute joint global axis j_num,f_r_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_r_upright,f_r_t_wishbone
	phy set revolute joint global anchor j_num,f_r_t_wishbone,object position x(f_r_t_wishbone)+3,object position y(f_r_t_wishbone),object position z(f_r_t_wishbone)+1
	phy set revolute joint global axis j_num,f_r_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_r_upright,f_r_b_wishbone
	phy set revolute joint global anchor j_num,f_r_b_wishbone,object position x(f_r_b_wishbone)+3,object position y(f_r_b_wishbone),object position z(f_r_b_wishbone)-1
	phy set revolute joint global axis j_num,f_r_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_r_upright,f_r_b_wishbone
	phy set revolute joint global anchor j_num,f_r_b_wishbone,object position x(f_r_b_wishbone)+3,object position y(f_r_b_wishbone),object position z(f_r_b_wishbone)+1
	phy set revolute joint global axis j_num,f_r_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	
	`front left wishbones to upright
	phy make revolute joint j_num,f_l_upright,f_l_t_wishbone
	phy set revolute joint global anchor j_num,f_l_t_wishbone,object position x(f_l_t_wishbone)-3,object position y(f_l_t_wishbone),object position z(f_l_t_wishbone)-1
	phy set revolute joint global axis j_num,f_l_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_l_upright,f_l_t_wishbone
	phy set revolute joint global anchor j_num,f_l_t_wishbone,object position x(f_l_t_wishbone)-3,object position y(f_l_t_wishbone),object position z(f_l_t_wishbone)+1
	phy set revolute joint global axis j_num,f_l_t_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_l_upright,f_l_b_wishbone
	phy set revolute joint global anchor j_num,f_l_b_wishbone,object position x(f_l_b_wishbone)-3,object position y(f_l_b_wishbone),object position z(f_l_b_wishbone)-1
	phy set revolute joint global axis j_num,f_l_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_l_upright,f_l_b_wishbone
	phy set revolute joint global anchor j_num,f_l_b_wishbone,object position x(f_l_b_wishbone)-3,object position y(f_l_b_wishbone),object position z(f_l_b_wishbone)+1
	phy set revolute joint global axis j_num,f_l_b_wishbone,0,0,1
	phy build revolute joint j_num
	inc j_num
	
	`front left upright to hub
	phy make revolute joint j_num,f_l_upright,f_l_hub
	phy set revolute joint global anchor j_num,f_l_hub,object position x(f_l_hub),object position y(f_l_hub)+1,object position z(f_l_hub)
	phy set revolute joint global axis j_num,f_l_hub,0,1,0
	phy set revolute joint spring j_num,0.0,steering_return_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_l_upright,f_l_hub
	phy set revolute joint global anchor j_num,f_l_hub,object position x(f_l_hub),object position y(f_l_hub)-1,object position z(f_l_hub)
	phy set revolute joint global axis j_num,f_l_hub,0,1,0
	phy set revolute joint spring j_num,0.0,steering_return_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_r_upright,f_r_hub
	phy set revolute joint global anchor j_num,f_r_hub,object position x(f_r_hub),object position y(f_r_hub)+1,object position z(f_r_hub)
	phy set revolute joint global axis j_num,f_r_hub,0,1,0
	phy set revolute joint spring j_num,0.0,steering_return_spring
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_r_upright,f_r_hub
	phy set revolute joint global anchor j_num,f_r_hub,object position x(f_r_hub),object position y(f_r_hub)-1,object position z(f_r_hub)
	phy set revolute joint global axis j_num,f_r_hub,0,1,0
	phy set revolute joint spring j_num,0.0,steering_return_spring
	phy build revolute joint j_num
	inc j_num
	
	`wheels
	phy make revolute joint j_num,f_r_hub,f_r_wheel
	phy set revolute joint global anchor j_num,f_r_Wheel,object position x(f_r_Wheel)-3,object position y(f_r_Wheel),object position z(f_r_Wheel)
	phy set revolute joint global axis j_num,f_r_Wheel,1,0,0
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,f_l_hub,f_l_wheel
	phy set revolute joint global anchor j_num,f_l_Wheel,object position x(f_l_Wheel)+3,object position y(f_l_Wheel),object position z(f_l_Wheel)
	phy set revolute joint global axis j_num,f_l_Wheel,1,0,0
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_r_hub,b_r_wheel
	phy set revolute joint global anchor j_num,b_r_Wheel,object position x(b_r_Wheel)-4,object position y(b_r_Wheel),object position z(b_r_Wheel)
	phy set revolute joint global axis j_num,b_r_Wheel,1,0,0
	phy build revolute joint j_num
	inc j_num
	phy make revolute joint j_num,b_l_hub,b_l_wheel
	phy set revolute joint global anchor j_num,b_l_Wheel,object position x(b_l_Wheel)+4,object position y(b_l_Wheel),object position z(b_l_Wheel)
	phy set revolute joint global axis j_num,b_l_Wheel,1,0,0
	phy build revolute joint j_num
	inc j_num
endfunction

function make_physx_objects(a,b)
	for l=a to b
		if l<>f_r_wheel and l<>f_l_wheel and l<>b_r_wheel and l<>b_l_wheel and object exist(l)
			phy make rigid body dynamic box l
			phy update rigid body mass l,0,100.0
		else
			``if l=chasis then phy make rigid body static box chasis
			if l=f_r_wheel then phy make rigid body dynamic capsule l
			if l=f_l_wheel then phy make rigid body dynamic capsule l
			if l=b_r_wheel then phy make rigid body dynamic capsule l
			if l=b_l_wheel then phy make rigid body dynamic capsule l
			phy set rigid body max angular velocity l,100
			phy update rigid body mass l,0,100.0
			phy set rigid body angular damping l,2
		endif
	next l
endfunction

function make_floor(obj_num)
	make object box obj_num,5000,1,5000
	scale object texture obj_num,10,10
	texture object obj_num,1
	phy make rigid body static box obj_num
endfunction

function make_texture1(img_num)
	for y=0 to 255
		for x=0 to 255
			col=rnd(50)+50
			dot x,y,rgb(col,col,col)
		next x
	next y
	get image img_num,0,0,255,255
endfunction