; Grafik_Variablen ------------------
m_breite=   1024
m_hoehe=   768
m_bit=      32
m_mode=      2
m_aa=      32
m_red=      53
m_green=   76
m_blue=      48

Global      g_breite=   m_breite
Global      g_hoehe=   m_hoehe
Global      g_bit=      m_bit
Global      g_mode=      m_mode
Global      g_aa=      m_aa
Global      g_red=      m_red
Global      g_green=   m_green
Global      g_blue=      m_blue
InitialGraphics()


; World_Variablen
Global      w_map=      CreatePlane()
Global      w_tex=      LoadTexture("texture/quad_white.bmp")     <--------- FEHLER

InitialWorld(w_map)


; Player_Variablen -----------------------------
Global      p_player=   CreateCube()
InitialPlayer(p_player)




; Camera_Variablen -----------------------
Global      c_cam=      CreateCamera()
Global      c_dif=      2 ; ( Koerpergroesse )
Global      c_range=   3000
InitialCamera(c_cam)




; Hauptschleife
Repeat
 UpdatePlayer(p_player)
 UpdateCamera(c_cam)
 UpdateGraphics()
Until KeyHit(1)
End



; Grafik einstellen --------------------------------------------------------------------------------------------------
Function InitialGraphics()
 Graphics3D      g_breite,g_hoehe,g_bit,g_mode
 SetBuffer      BackBuffer()
 AntiAlias      g_aa
 Color         255,0,0
 HidePointer
End Function





; Player einstellen ---------------
Function InitialPlayer(player)
; position
 PositionEntity    player,10,10,10
End Function




; Welt einstellen / texturieren
Function InitialWorld(map)
 EntityTexture      map,w_tex
End Function



; Camera einstellen ---------------------------------------------------------------
Function InitialCamera(cam)
; position
 PositionEntity      cam,EntityX(p_player),EntityY(p_player)+c_dif,EntityZ(p_player)
End Function







; Grafik rendern
Function UpdateGraphics()
 UpdateWorld
 RenderWorld
 Flip
End Function



; Player bewegen und drehen
Function UpdatePlayer(player)
; drehen
 RotateEntity      player,0,EntityYaw(player)-MouseXSpeed()*0.1,0
 MoveMouse         g_breite/2,g_hoehe/2
End Function



; Camera drehen
Function UpdateCamera(cam)
; drehen
 RotateEntity      cam,EntityPitch(cam)+MouseYSpeed()*0.2,EntityYaw(p_player),0
End Function