tilting

Blitz3D Forums/Blitz3D Beginners Area/tilting

Have you tried it? It works for me. If this is not what your after look at the car demo.

Try this (forgot how to put code in a box!!)....

Graphics3D 640,480,16,1

light=CreateLight()
gravity# = - 0.5

;guy
guy=CreateCube()
PositionMesh guy,0,1,0
Scaleentity guy,1,1,2
;camera
camera=CreateCamera(guy)
PositionEntity camera,0,5,-10
;plane
plane=CreatePlane()
EntityColor plane,0,0,255
EntityPickMode plane,2
EntityAlpha plane,.5
;ramp
ramp=CreateCube()
ScaleEntity ramp,4,.5,20
RotateEntity ramp,30,180,0
PositionEntity ramp,0,0,50
EntityColor ramp,255,0,0
EntityPickMode ramp,2

;main routine

While Not KeyDown(1)

TurnEntity guy,0,(KeyDown(203)-KeyDown(205))*5,0
MoveEntity guy,0,0,KeyDown(200)-KeyDown(208)*.5

unused = LinePick ( EntityX(guy),EntityY(guy)+1,EntityZ(guy),0,-200,0 )
y#=PickedY()
nx#=PickedNX()
ny#=PickedNY()
nz#=PickedNZ()
AlignToVector guy,nx,ny,nz,2,.25
TranslateEntity guy,0,gravity,0
If EntityY(guy) < y TranslateEntity guy,0,y-EntityY(guy),0

PointEntity camera,guy

RenderWorld()
Flip

Wend