Graphics 800,600,16,1

Global gras = LoadImage("gras.bmp")

Global viewx ; zum Scrollen
Global viewy ; zum Scrollen

Global mapX = 20 ; Map Breite
Global mapY = 20 ;Map Höhe
Global tileX = 64 :Breite eines Tiles
global tileY = 64 ;Höhe eines Tiles

Setbuffer Backbuffer()

Dim map(mapX,mapY)

For x = 0 To mapX
For y = 0 To mapY
map(x,y) = 1
Next
Next

While Not Keyhit(1)
  Cls

For x = 0 To mapX
For y = 0 To mapY
If map(x,y) = 1 then Drawimage gras,x*tileX+viewx,y*tileY+viewy

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Um andere Tiles anzuzeigen, benutze am Anfang des Codes z.b.:
;map(5,5) = 2
; Denn nur wenn map(5,5) = 1 ist, wird dort das Gras angezeigt
;so kannst du einfach schreiben:
;If map(x,y) = 2 then Drawimage stein,x*tileX+viewx,y*tileY+viewy
;Und schon wird auch dort ein Stein gemalt(vorausgesetzt er ist vorher geladen worden)
;Ist also ganz logisch und einfach!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Next
Next

if Keydown(200) then viewy = viewy - 1
if Keydown(208) then viewy = viewy + 1
if Keydown(203) then viewx = viewx - 1
if Keydown(205) then viewx = viewx + 1


  Flip
Wend

Freeimage gras

Endgraphics : End