AppTitle "Tileset mit Char"
Graphics 200,200,32,2
SetBuffer BackBuffer()
Global FPS_Timer = CreateTimer(60)

;Laden Daten
Global gfx_tileset = LoadAnimImage("gfx/tileset.bmp",32,32,0,4)
Global gfx_spieler = LoadImage("gfx/char.bmp")

;Variablen
Global SpielerX = 2
Global SpielerY = 2

;Cache Variablen
Global X
Global Y


Dim map(5,5)
Data 2,2,2,2,2,2
Data 2,0,0,0,0,2
Data 2,0,0,0,0,2
Data 2,0,0,0,0,2
Data 2,1,2,2,3,2
Data 2,2,2,2,2,2

For Y=0 To 5
    For X=0 To 5
        Read map(X,Y)
    Next
Next


Repeat
    Cls
   Map_Function()
   Steuerung_Function()
   Spieler_Function()
   
    Flip 0
    WaitTimer(FPS_Timer)
Until KeyHit(1)

Function Spieler_Function()
   X = SpielerX *32
   Y = SpielerY *32
   DrawImage gfx_spieler,X,Y
End Function

Function Steuerung_Function()
   If KeyHit(208)
        If map(SpielerX,SpielerY+1) < 2
            SpielerY = SpielerY +1
        End If
    End If
   
    If KeyHit(200)
        If map(SpielerX,SpielerY-1) < 2
            SpielerY = SpielerY -1
        End If
    End If
   
    If KeyHit(203)
        If map(SpielerX-1,SpielerY) < 2
            SpielerX = SpielerX -1
        End If
    End If
   
    If KeyHit(205)
        If map(SpielerX+1,SpielerY) < 2
            SpielerX = SpielerX +1
        End If
    End If
End Function

Function Map_Function()
   For Y=0 To 5
        For X=0 To 5
            DrawImage gfx_tileset,X*32,Y*32,map(X,Y)
        Next
    Next
End Function

   If map(SpielerX,SpielerY) = 3
      Text 10,10,"TEST
   End If

   If KeyHit(208)
        If map(SpielerX,SpielerY+1) = 0 And 1
            SpielerY = SpielerY +1
        End If
    End If
   
    If KeyHit(200)
        If map(SpielerX,SpielerY-1) = 0 And 1
            SpielerY = SpielerY -1
        End If
    End If
   
    If KeyHit(203)
        If map(SpielerX-1,SpielerY) = 0 And 1
            SpielerX = SpielerX -1
        End If
    End If
   
    If KeyHit(205)
        If map(SpielerX+1,SpielerY) = 0 And 1
            SpielerX = SpielerX +1
        End If
    End If