Graphics 250,250,16,0

;Uploads
map1 = LoadAnimImage ("Ressorcen/Karte.bmp",32,32,0,5)
Mario = LoadImage ("Ressorcen/Mario.bmp")

;Player Cache
py# = 2
pz# = 2
move = 1


;Die Karte
Dim map(7,7)
;0.Wiese
;1.Wasser
;2.Lava
;3.Erde
;4.Sand
Data 1,1,1,1,1,1,1,0
Data 1,0,0,0,0,0,1,0
Data 1,0,2,2,0,0,1,0
Data 1,0,0,0,0,0,1,0
Data 1,0,4,0,3,0,1,0
Data 1,0,0,0,0,0,1,0
Data 1,1,1,1,1,1,1,0
Data 0,0,0,0,0,0,0,0

;Einlesen der und Speichern der Ressorcen auf der Karte
For y = 0 To 7
For x = 0 To 7
  Read map(x,y)
Next
Next


Repeat
SetBuffer BackBuffer()
Cls
  If KeyDown(1) Then End
  For y = 0 To 7
  For x = 0 To 7
  DrawImage map1,x*32,y*32,map(x,y)
Next
Next

If KeyDown(200)
If map(px#,py# +1) < 2 Then   ;<~~~~~~~~ Wofür ist das hier o0?
  py# = py# -0.1
  move = 1
End If
End If

If KeyDown(203)
If map(px#py

If move = 1 Then x = px# * 32: y = py# * 32:DrawImage Mario,x,y
Flip
Forever