;Grafikmodus setzen
AppTitle "test"
Graphics3D 1024,768,0,2
SetBuffer BackBuffer()
Include "includes\Draw3D.bb"
Local Timer=CreateTimer(50)
Local Camera=CreateCamera()



DrawInit3D(Camera)
Origin3D(1024,768)

Global player=LoadImage3D("player1.png",2,2,0)
Global tiel=loadimage3d("boden.png",2,2,0)
Global springen
Global Angle#=0
Global Scale#=1
Global xposspie=-480;Die x koordinate für den spieler
Global yposspie=-360;Die y Koordinate für den spiler
Global sprinegn

Global Offset_x = -480, Offset_y = -360


;leveldaten lesen
Dim map (10,10)


;Hauptschleife

Repeat
   DrawMap()
   spilerbewegen()
   
   Restore mapdata
   For y=0 To 5
      For x=0 To 7
         Read map(x,y)
      Next
   Next
   
   WaitTimer(Timer)
   RenderWorld
   Clear3D()
   Flip 0
Until KeyHit(1)
End
Function spilerbewegen()
   
   
   DrawImage3D(player,xposspie,yposspie,0,Angle,Scale)
   If KeyDown(205) Then xposspie= xposspie + 5   
   If KeyDown(203) Then xposspie= xposspie - 5
   
   If KeyDown(59) Then Angle#= Angle# + 5
   If KeyDown(60) Then Angle#= Angle# - 5
   
;Prüfen ober der spieler den Bildschirmrand berrürt :
   If xposspie > 510 Then xposspie=512   
   If xposspie < -510 Then xposspie=-512     
   If yposspie > 380 Then yposspie=384   
   If yposspie < -380 Then yposspie=-384

   
   
End Function


Function DrawMap()
   For y = 0 To 5
      For x = 0 To 7
         If map(x,y) = 1 Then
            DrawImage3d (tiel, x*128 - Offset_x, y*128 - Offset_y,0,0,0)
         EndIf
      Next
   Next
End Function 



;level daten
.mapdata
Data 0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0
Data 0,1,1,1,1,1,0,0
Data 0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,1,1