Global wx = 640, wy = 480
Global map_x = 1000, map_y = 1000
Global scroll_x = 0, scroll_y = 0

Const key_up = 200, key_down = 208, key_right = 205, key_left = 203
Const key_return = 28, key_space = 57


Graphics wx,wy,16,2

; -------------------Vorschau Grafik laden---------------------
block = CreateImage(50,50) : SetBuffer ImageBuffer(block)
Color 100,0,100 : Rect 0,0,50,50
Color 220,50,220 : Rect 1,1,48,48

; -------------------Hintergrund erstellen---------------------
bground = CreateImage(map_x,map_y) : SetBuffer ImageBuffer(bground)
ClsColor 80,210,80 : Cls
Color 0,150,0 : For a=1 To 1000 : Rect Rnd(map_x), Rnd(map_y),2,2 : Next

SetBuffer BackBuffer()

action = 1
fps = CreateTimer(50)

; ------------------------- Schleife ---------------------------
While Not KeyHit(1)
   WaitEvent(fps)
   mx = MouseX() : my = MouseY()
   posx = mx + scroll_x : posy = my + scroll_y
   steuerung

   ; -- Hintergrund
   DrawBlockRect bground,0,0,scroll_x,scroll_y,wx,wy
   imgw = ImageWidth(block) : imgh = ImageHeight(block)

   ; -- Objekt am Mousezeiger zentriert zeichnen
   DrawImage block,mx-imgw/2,my-imgh/2

   ; -- Bei Mousetaste Objekt an den mom. Koordinaten zeichnen
   If MouseDown(1) And action=1
       SetBuffer ImageBuffer(bground)
       DrawImage block, posx-imgw/2,posy-imgh/2
       SetBuffer BackBuffer()
   End If

Flip BackBuffer()
Wend


Function steuerung()
 If KeyDown(key_up) Then scroll_y=scroll_y-5
 If KeyDown(key_down) Then scroll_y=scroll_y+5

 If KeyDown(key_left) Then scroll_x=scroll_x-5
 If KeyDown(key_right) Then scroll_x=scroll_x+5

 If scroll_x<0 Then scroll_x=0
 If scroll_y<0 Then scroll_y=0

 If scroll_x+wx>map_x Then scroll_x=map_x-wx
 If scroll_y+wy>map_y Then scroll_y=map_y-wy
End Function