AppTitle "3D Funktionalitätstest"

Graphics3D 1024,768,16,2


KEY_ESCAPE=1
KEY_A=30
KEY_D=32
KEY_S=31
KEY_W=17
KEY_E=18
KEY_Q=16
;Umgebung erstellen, angefangen mit Kamera und Licht

Global camera=CreateCamera() ; Spieler cam laden
Local light2=CreateLight() ; Globales Licht laden
RotateEntity light2,0,90,0 ; Licht umdrehen
LightRange light2,1000 ;Lichtweite einstellen
 
CameraRange camera,0.1,5000 ;Camerasichtweite
MoveEntity camera,0,150,0
EntityType camera,1 ; Collisionstyp der Camera(spieler)auf 1 setzen!

loadingvar = 0
loadprogress = 0
Dim Map(30,20,30,3)
Global texture = LoadTexture("data/textures/myGrasTex1.jpg")


For Tx= 0 To 29
For Ty = 0 To 19
For Tz = 0 To 29
loadingvar = loadingvar + 1
If loadingvar =  180
loadingvar = 0
loadprogress = loadprogress +1
Print loadprogress
EndIf

map(Tx,Ty,Tz,1) = CreateCube()
ScaleEntity map(Tx,Ty,Tz,1),16,16,16
If map(Tx,Ty,Tz,2) = 0 Then EntityTexture map(tx,ty,tz,1),texture
PositionEntity map(tx,ty,tz,1),-272+(tx*16),-240+(ty*16),-272+(tz*16)
Next
Next
Next




While Not KeyHit(KEY_ESCAPE)
If KeyDown(KEY_A) TurnEntity camera,0,-5,0
If KeyDown(KEY_D) TurnEntity camera,0,5,0
If KeyDown(KEY_S) MoveEntity camera,0,0,-2
If KeyDown(KEY_W) MoveEntity camera,0,0,2

If KeyDown(KEY_Q) TurnEntity camera,10,0,0
If KeyDown(KEY_E) TurnEntity camera,-10,0,0


UpdateWorld
RenderWorld
Flip
Wend