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

; Hintergrund und Figur werden geladen !
Hintergrund = LoadAnimImage("tileset.bmp",32,32,0,5)
figur = LoadImage("Char.bmp")

px = px+2
py = py+2

move = 1




;Dim Feld ( Karte )
Dim map(9,9)


Data 2,2,2,2,2,2,2,2,2,2
Data 2,3,3,3,3,3,3,3,3,3
Data 2,3,3,3,3,3,3,3,3,3
Data 2,3,3,3,3,3,3,3,3,3
Data 2,3,3,3,3,3,3,1,1,1
Data 2,3,3,3,3,3,3,1,1,1
Data 2,3,4,4,4,4,4,4,4,4
Data 2,2,2,2,2,2,2,2,2,2
Data 2,2,2,2,2,2,2,2,2,2
Data 3,3,3,4,4,4,0,0,0,0

For y = 0 To 9
For x = 0 To 9
    Read map(x,y)
Next
Next







; Hauptschleife
Repeat
Cls
If KeyDown(1) Then End

 
For y = 0 To 9
For x = 0 To 9
DrawImage Hintergrund ,x*32,y*32,map(x,y)
Next
Next
If KeyDown (208) Then
If map(px,py+1) <4 Then
py = py+1
move = 1
EndIf
EndIf

If KeyDown(200) Then
If map(px,py-1) < 4 Then
py = py - 1
move = 1
End If
End If

If KeyDown(203) Then
If map(px-1,py) < 4 Then
px = px  -1
move = 1
End If
End If

If KeyDown (205) Then
If map(px+1,py) <4 Then
px = px+1
move =1
EndIf
EndIf

If move = 1 Then x = px*32: y = py*32: DrawImage figur,x,y

Flip
Forever