Graphics 640,480,16,2
SetBuffer BackBuffer ()




While Not KeyHit (1)

For y = 0 To 1
For x = 0 To 1

Rect 0+(320*x),0+(240*y),320,240,0 ;Tile zeichen

;abfragen ob die mouse in einem Rechteck ist
;wenn ja, roters rechteck zeichnen
If MouseX() > 0+(320*x) And MouseX () < 0+(320*x)+320 And MouseY () > 0+(240*y) And MouseY () < 0+(240*y)+240
	Color 255,0,0
	Rect 0+(320*x),0+(240*y),320,240,1
	EndIf

Color 255,255,255;farbe wieder zurück setzen
Next
Next






Flip
Cls
Wend
End 

Const Graphics_width% = 800 ;Auflösung
Const Graphics_height%= 600

Const tile_x% = 128; Tile Größe
Const tile_y% = 128 

Global map_x% = Graphics_width%/tile_x% ; Map Breite ausrechnen
Global map_y% = 50 ; Map Länge

Dim map(map_x%,map_y%)

Graphics Graphics_width%,graphics_height%,32,2
SetBuffer BackBuffer()

Global maus2 = CreateImage(2,2)

SetBuffer ImageBuffer(maus2)
Plot 1,1

SetBuffer BackBuffer()

Repeat
 Cls
;################### Raster
Color 255,255,255
For y = 0 To tile_y%*map_y% Step tile_y%
 Line 0,y+viewy%,768,y+viewy%
Next

For x = 0 To tile_x%*map_x% Step tile_x%
 Line x,0+viewy%,x,tile_y%*map_y%+viewy%
Next

For x = 0 To map_x%
For y = 0 To map_y%

kolli = ImageRectCollide(maus2,MouseX(),MouseY(),0,x*tile_x%,y*tile_y%+viewy%,tile_x%+1,tile_y%+1)
Color 200,0,0
If kolli = 1 Then
 Rect x*tile_x%,y*tile_y%+viewy%,tile_x%+1,tile_y%+1,0
 Color 0,0,0
 x_map = x
 y_map = y
EndIf
Next
Next

 Flip
FlushKeys()
Until KeyHit(1)

EndGraphics : End