Graphics 1024,768,32,60,1


Global tiles=LoadAnimImage("tiles.png",32,32,0,2)
Global player=LoadImage("Mr Cry.png")

Global map%[200,200]


SetColor 0,255,0

load()

Global x%,y%
Global Scroll_x#,Scroll_y#

Repeat


   For I=0 To 31
      For J=0 To 23
         DrawImage (tiles,scroll_X+I*32,scroll_Y+J*32,map(i,j))
      Next
   Next

moveplayer()

DrawImage player,scroll_x+x,scroll_y+y


If KeyDown(key_left)Then scroll_x=scroll_x+0.5 ;x=x-1
If KeyDown(key_right)Then scroll_x=scroll_x-0.5 ;x=x+1

If KeyDown(key_up)Then scroll_y=scroll_y+0.5
If KeyDown(key_down)Then scroll_y=scroll_y-0.5

Flip
Cls
Until KeyHit(key_escape)



Function moveplayer()
 
DrawImage player,scroll_x+x,scroll_y+y


If KeyDown(key_left)Then scroll_x=scroll_x+0.5 ;x=x-1
If KeyDown(key_right)Then scroll_x=scroll_x-0.5 ;x=x+1


For I=0 To 31
   For J=0 To 23
      
      If Not ImagesCollide(player,scroll_x+x,scroll_y+y,0,tiles,scroll_X+I*32,scroll_Y+J*32,1) Then y=y+0.1
      
   Next
Next



End Function



Function load()
'einlesen der datei
   karte = ReadFile("map1.map")
'einlesen der array und der variable tile
   For x = 0 To 31
      For y = 0 To 23
         tile$ = ReadLine(karte)
         map(x,y) = Readint(karte)
      Next
   Next
'schließen der datei
   CloseFile(karte)
End Function