Graphics 640,480,32,2
SetBuffer = BackBuffer()

Global tile1 = LoadImage ("gfx\tile1.png")
Global tile2 = LoadImage ("gfx\tile2.png")
Global player = LoadImage ("gfx\player.png")

;Leveldaten einlesen ----------------------------------------
Dim Level$(15,20)

leveldatei = ReadFile("level1.dat")

For Zeile=0 To 14
	txt$ = ReadLine (leveldatei)
	For spalte = 0 To 19
		Level$ (Zeile,Spalte) = Mid$ (txt$, Spalte + 1, 1)
	Next
Next
CloseFile leveldatei


; Hauptschleife --------------------------------------------
Repeat
	Cls
	
		DrawMap()
		Steuerung()

	Flip	
Until KeyHit(1)


; Map Zeichnen -------------------------------------------
Function DrawMap()
	For Zeile=0 To 14
		For Spalte=0 To 19
			Select Level$(Zeile,Spalte)
				Case "1" 
					DrawImage tile2,Spalte*32,Zeile*32
				Case " "
					DrawImage tile1,Spalte*32,Zeile*32
				Case "S"
					DrawImage tile1,Spalte*32,Zeile*32
					DrawImage player,Spalte*32,Zeile*32
					playerSpalte = Splate
					playerZeile = Zeile
			End Select
		Next
	Next
End Function

;Steuerung ---------------------------------------------------------------
Function Steuerung()
	If KeyDown(203) And (Level$ (playerZeile, playerSpalte - 1) <> "1") Then
		Level$ (playerZeile, playerSpalte) = " "
		playerSpalte = playerSpalte - 1
		Level$ (playerZeile, playerSpalte) = "S"
	EndIf
	
	If KeyDown(205) And (Level$ (playerZeile, playerSpalte + 1) <> "1") Then
		Level$ (playerZeile, playerSpalte) = " "
		playerSpalte = playerSpalte + 1
		Level $(playerZeile, playerSpalte) = "S"
	EndIf
	
	If KeyDown(200) And (Level$ (playerZeile - 1, playerSpalte) <> "1") Then
		Level$ (playerZeile, playerSpalte) = " "
		playerZeile = playerZeile - 1
		Level$ (playerZeile, playerSpalte) = "S"
	EndIf
	
	If KeyDown(208) And (Level$ (playerZeileZ + 1, playerSpalte) <> "1") Then
		Level$ (playerZeile, playerSpalte) = " "
		playerZeile = playerZeile + 1
		Level$ (playerZeile, playerSpalte) = "S"
	EndIf
	
End Function