and this is how it looks like right now.
load image "grass.bmp",1
load image "grass2.bmp",2
load image "wall.bmp",3
load image "wallleft.bmp",4
load image "wallright.bmp",5
load image "wallrighttop.bmp",6
load image "walllefttop.bmp",7
load image "walltop.bmp",8
load image "roofcorner.bmp",9
load image "roof.bmp",10
load image "roofrightcornertop.bmp",11
load image "rooftopcorner.bmp",12
load image "roofleftcornertop.bmp",13
load image "roofleft.bmp",14
load image "roofright.bmp",15
dim map(7,7)
for IndexY = 1 to 7
for IndexX = 1 to 7
read map(IndexX,IndexY)
rem gräs
if map(IndexX,IndexY)=0
paste image 1, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=1
paste image 2, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=2
paste image 3, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=3
paste image 4, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=4
paste image 5, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=5
paste image 6, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=6
paste image 7, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=7
paste image 8, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=8
paste image 9, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=9
paste image 10, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=10
paste image 11, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=11
paste image 12, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=12
paste image 13, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=13
paste image 14, IndexX * 32 - 32, IndexY * 32 - 32
endif
if map(IndexX,IndexY)=14
paste image 15, IndexX * 32 - 32, IndexY * 32 - 32
endif
next IndexX
next IndexY
suspend for key
data 0,0,12,11,11,10,0
data 0,0,13,9,9,14,0
data 0,0,6,7,7,5,0
data 0,0,3,2,2,4,0
data 0,0,3,2,2,4,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
hail to this tutorial!