Function CreateSpeeder%(Scale#,posx#,posy#,posz#)
	Local modl=LoadMesh("Media\Models\Ship.3ds")
	RotateMesh modl,0,90,0
	ScaleEntity modl,Scale,Scale,Scale
	PositionEntity modl,posx,posy,posz
	ShowEntity modl
	
	EntityRadius modl,30,1
	EntityType modl,TYPE_Boot
	
	Return modl
End Function

Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()

Collisions 1, 2, 2, 2

floRadius1# = .5
floRadius2# = .5

camCamera = CreateCamera()

entCollider = CreateCube()
entScene = CreateCube()
lightMain = CreateLight()

ScaleEntity entScene, 1, .5, 1
ScaleEntity entCollider, .5, .5, .5

PositionEntity entScene, 0, -1, 0
PositionEntity entCollider, 0, 1, 0
PositionEntity camCamera, 0, 0, -5
PositionEntity lightMain, 2, 5, 0

EntityColor entScene, 0, 0, 255
EntityColor entCollider, 255, 0, 0

EntityType entCollider, 1
EntityType entScene, 2


While Not KeyHit(1)
	
	floRadius1 = floRadius1 + .001*(KeyDown(3) - KeyDown(2))
	floRadius2 = floRadius2 + .001*(KeyDown(5) - KeyDown(4))
	If KeyHit(6) Then floRadius1 = .5 : floRadius2 = .5
	If KeyDown(7) Then floRadius2 = floRadius1
	
	EntityRadius entCollider, floRadius1, floRadius2
	TranslateEntity entCollider, .01*(KeyDown(205) - KeyDown(203)), .01*(KeyDown(200) - KeyDown(208)), 0
	
	UpdateWorld
	
	RenderWorld
	
	Text 0, 0, "1/2 to change Radius1: " + floRadius1
	Text 0,12, "3/4 to change Radius2: " + floRadius2
	Text 0,36, "Arrow keys to move collider"
	Text 0,60, "5: Reset"
	Text 0,72, "6: Set Radius2 as Radius1"
	
	Flip
	
Wend