Graphics 320,240,16,2

Global map_width,map_height
Dim map(0,0)
Dim col(0,0)

createmap(20,20,0)
tiles=load_tiles("tiles.png") ;ggf. Pfad ändern !

SetBuffer BackBuffer()
While Not KeyHit(1)
Cls


drawmap(tiles)
act=get_cols(playerx,playery)


If act=1 Then
   Color 0,0,0
   Rect 0,0,100,30
   Color 200,200,200
   Text "Kollidiert !",0,0
EndIf


Flip
Wend







Function createmap(width,height,tile)
map_width=width
map_height=height
Dim map(width,height)
Dim col(width,height)
For x=0 To width
   For y=0 To height
      map(x,y)=tile
   Next
Next
End Function


Function drawmap(tiles)
For x=0 To map_width
   For y=0 To map_height
      DrawImage tiles,x*16,y*16,map(x,y)
   Next
Next
End Function

Function load_tiles(path$)
tmp=LoadImage (path$)
w=ImageWidth(tmp)
h=ImageHeight(tmp)
FreeImage tmp
tmp=LoadAnimImage (path$,16,16,0,(w/16)*(h/16))
Return tmp
End Function

Function get_cols(px,py)
For x=0 To map_width
   For y=0 To map_height
      If RectsOverlap (px,py,16,16,x*16,y*16,16,16) Then
         Return 1
      EndIf
   Next
Next
End Function

Function movehero()


If KeyDown(205) Then

If map ((p_p_x+32)/32,(p_p_y+16)/32)=0 Then


p_p_x=p_p_x+4

EndIf
EndIf 

If KeyDown (203) Then
If map(p_p_x /32,(p_p_y +16) /32)=0 Then

p_p_x=p_p_x-4

EndIf
EndIf

If KeyDown(200) Then
If map((p_p_x +16) /32,p_p_y /32)=0 Then
p_p_y = p_p_y-4

EndIf
EndIf

If KeyDown(208) Then
If map((p_p_x +16) /32,(p_p_y +32) /32)=0 Then
p_p_y = p_p_y+4

EndIf
EndIf

End Function