AppTitle "Halo2 Blitz3D (c) by HaschHase"


Graphics3D 640,480,16
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera,1,1,1
light=CreateLight()
RotateEntity light,90,0,0

terrain=LoadTerrain("gfx/terrain.bmp")
TerrainDetail terrain,4000,True
ScaleEntity terrain,1,50,1

grass_tex=LoadTexture("gfx/terrain-t.jpg")
ScaleTexture grass_tex,50,50
EntityTexture terrain,grass_tex,0,1


Global marine=LoadMesh("models/marine.3DS")
ScaleEntity marine,0.2,0.2,0.2

   
While Not KeyHit(1)
If KeyDown(203)=1 Then x#=x#-0.1
If KeyDown(205)=1 Then x#=x#+0.1
If KeyDown(208)=1 Then y#=y#-0.1
If KeyDown(200)=1 Then y#=y#+0.1
If KeyDown(44)=1 Then z#=z#-0.1
If KeyDown(30)=1 Then z#=z#+0.1
If KeyDown(205)=1 Then TurnEntity camera,0,-1,0
If KeyDown(203)=1 Then TurnEntity camera,0,1,0
If KeyDown(208)=1 Then MoveEntity camera,0,0,-0.1
If KeyDown(200)=1 Then MoveEntity camera,0,0,0.1
x#=EntityX(camera)
y#=EntityY(camera)
z#=EntityZ(camera)
terra_y#=TerrainY(terrain,x#,y#,z#)+5
PositionEntity camera,x#,terra_y#,z#
RenderWorld
Flip
Wend
End