Dim map(31,23)
Graphics 1024,768,16,3

Tileset = LoadAnimImage("tileset.bmp",32,32,0,6)
Maus    = LoadImage("maus.bmp")
Global x,y,mx,my,mapx,mapy,tile = 1
 
Repeat
	SetBuffer BackBuffer()
	If KeyDown(1) Then End

	For x = 0 To 31
	For y = 0 To 23
	DrawImage tileset,x*32,y*32,map(x,y)
	DebugLog map(x,y)
	Next
	Next

	If KeyDown(2) Then tile = 1
	If KeyDown(3) Then tile = 2
	If KeyDown(4) Then tile = 3
	If KeyDown(5) Then tile = 4
	If KeyDown(6) Then tile = 5
	If KeyDown(7) Then tile = 0

	mx = MouseX()
	my = MouseY()

	If MouseDown(1) Then
	scroll()
	map(mapx,mapy) = tile
	End If

	If MouseDown(2) Then
		scroll()
		map(mapx,mapy) = 0
	End If

	If KeyHit(31) Then save()
	If KeyHit(38) Then load()

	DrawImage maus,mx,my
	Flip
Forever

Function scroll()
	mapx = (mx)/32
	mapy = (my)/32
End Function 

Function save() 
	karte$ = WriteFile("map1.map")
	For x = 0 To 31
		For y = 0 To 23
			WriteLine(karte$,tile)
			WriteInt(karte$,map(x,y))
		Next
	Next
	CloseFile(karte$)
End Function

Function load()
	karte$ = ReadFile("map1.map")

	For x = 0 To 31
		For y = 0 To 23
			tile = ReadLine(karte$)
			map(x,y) = ReadInt(karte$)
		Next
	Next
	CloseFile(karte$)
End Function

Setbuffer

Backbuffer

LoadAnimImage("tileset.bmp",32,32,0,6)

;1. die Tastatur setzt Tile:
	If KeyDown(2) Then tile = 1
....
;2. Tile wander in die Map:
	map(mapx,mapy) = tile
.....
;3. Aus dem tileset wird ein bestimmtes Teil gemalt und zwar das was in Map() vermekt ist:
	DrawImage tileset,x*32,y*32,map(x,y)

ReadFile

WriteFile

	karte% = WriteFile("map1.map")   ;Man beachte das Prozentzeichen