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

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

Global map_x% = 50 ; Map Breite
Global map_y% = 50 ; Map Länge

Global viewx%,viewy% ; scroll Variablen

Dim map(map_x%,map_y%) ; Map

Graphics Graphics_width%,graphics_height%,32,2

SetBuffer BackBuffer()

Global maus2 = CreateImage(2,2) ; maus

SetBuffer ImageBuffer(maus2) ; maus malen
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+viewx%,y+viewy%,tile_x%*map_x%+viewx%,y+viewy%   ;Y-Linien malen
Next                                               

For x = 0 To tile_x%*map_x% Step tile_x%                 
  Line x+viewx%,0+viewy%,x+viewx%,tile_y%*map_y%+viewy%   ;X-Linien malen
Next                                             
;################### Maus Markierung

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

  kolli =  ImageRectCollide(maus2,MouseX(),MouseY(),0,x*tile_x%+viewx%,y*tile_y%+viewy%,tile_x%+1,tile_y%+1)   ; auf Kollision prüfen
  Color 200,0,0
  If kolli = 1 Then
   Rect x*tile_x%+viewx%,y*tile_y%+viewy%,tile_x%+1,tile_y%+1,0 ;   Rotes Viereck malen
   Color 0,0,0

  EndIf
Next
Next
;#######################

If KeyDown(200) Then viewy%=viewy%+5 ;Scrollen
If KeyDown(208) Then viewy%=viewy%-5
If KeyDown(203) Then viewx%=viewx%+5
If KeyDown(205) Then viewx%=viewx%-5


 Flip
FlushKeys()
Until KeyHit(1)

EndGraphics : End