Graphics3D 800,600,23,3
SetBuffer BackBuffer()
SeedRnd MilliSecs()

type_scenery=2
type_character=1

cam=CreateCamera()
PositionEntity cam,0,40,40
PointEntity cam,warrior





light=CreateLight()
PositionEntity light,0,15,-15

warrior=LoadMesh ("c:/programme/blitz3d/media/geometricks_models/warrior/warrior.3ds")
PositionEntity warrior,0,3,0
EntityType warrior,type_character

plane=CreatePlane()
PositionEntity plane,0,0,0


texture=LoadTexture ("C:/programme/blitz3d/media/gras.png")
EntityTexture plane,texture


While Not KeyHit(1)
If KeyDown(203) Then TurnEntity warrior,0,2,0
If KeyDown(205) Then TurnEntity warrior,0,-2,0
If KeyDown(200) Then MoveEntity warrior,0,0,0.5
If KeyDown(208) Then MoveEntity warrior,0,0,-0.5
If KeyDown(057) Then MoveEntity warrior,0,0.5,0   
   


UpdateWorld
RenderWorld
Flip
Wend
End