Graphics 800,600,16,1
SetBuffer BackBuffer ()


;Variablen für das Labyrinth

Global spielerGrafik = LoadImage("spieler.png")
Global spielerX, spielerY


Dim spielFeld[10,10, 1]

;Spieler hat den Wert 2
;Ein Weg ist 0
;Eine Wand ist 1
;Layer 0 mit Grafiktiles
;Layer 1 mit Kollisionsdaten

Global zielX, zielY



Global levelBeendet = 0
Global aktuellesLevel = 1

ladeLevel (aktuellesLevel)


;Hauptschleife
Repeat
Cls
   
   
   updateLevel ()
   zeichneLevel ()

   If levelBeendet = 1 Then
      aktuellesLevel = aktuellesLevel + 1
      ladeLevel (aktuellesLevel)
   Endif
   
   
   
Flip
Until KeyHit (1)
End


Function ladeLevel ( levelNummer )
   
   Local datei = ReadFile ("level" + levelNummer + ".dat")
   
   ;Daten aus der Leveldatei lesen und in Spielfeld Array schreiben
        ;Zielfeld speichern
         zielX = ReadInt ()
         zielY = ReadInt ()
   
   CloseFile (datei)

   levelBeendet = 0

End Function



Function zeichneLevel ()

   For y = 0 To 9
      For x = 0 To 9
         Select Spielfeld[x,y,0]
            Case 0
               DrawImage wegImage, x*32, y*32   ;bei 32 Pixel großen Tiles
            Case 1
               DrawImage wandImage, x*32, y*32
            Case 2
               DrawImage spielerImage, x*32, y*32
         End Select
      Next
   Next

End Function



Function updateLevel ()


   ;Eingaben des Spielers überprüfen
   If KeyHit (208) Then spielerY = spielerY - 1
   ;usw.

   ;Kollison des Spielers mit einer Wand überprüfen

   ;nun Spielerposition neu setzen
   
   Spielfeld[spielerX, spielerY, 1] = 2

   ;Hier noch überprüfen ob der Spieler auf das Zielfeld zum Beenden
   ;des Levels gekommen ist
   If spielerX = zielX And spielerY = zielY Then levelBeendet = 1
   
   
End Function