Sorry your browser is not supported!

set display mode 800,600,32
sync on
sync rate 20

load bitmap "loderunner.png",1

img=1

for y=0 to 4
for x=0 to 7

gx=x*24 : gy=y*24

get image img,gx,gy,gx+24,gy+24,1
inc img,1

next x
next y

set current bitmap 0
delete bitmap 1

dim screen(32,20) as byte

global sel=1

if file exist("test.map")=1 then load array "test.map",screen()

do

mx=mousex()-16
my=mousey()-16
mb=mouseclick()
i$=inkey$()
if val(i$)>0 then sel=val(i$)
if i$="0" then sel=0
if i$="9" then sel=24
selx=mx/24
sely=my/24

if selx>31 then selx=31
if sely>19 then sely=19

if mb=1 then screen(selx,sely)=sel : saveme=1

if saveme=1 and mb=0
saveme=0
if file exist("test.map")=1 then delete file "test.map"
save array "test.map",screen()
endif

cls
draw_screen()

if sin(timer())>0 then paste image 1+sel,(selx*24)+16,(sely*24)+16,0

text 16,496,"Press number keys to select block, left click to place."
sync
loop


function draw_screen()

for y=0 to 19
for x=0 to 31

xx=x*24
yy=y*24

if screen(x,y)>0 then paste image screen(x,y)+1,xx+16,yy+16,1

next x
next y

endfunction

#include "maps"

OpenScreen 800,600,32,1
SetFps 20

TileSet=loadNewImage("loderunner.png")

ThisMap=NewMap(1)
MakeMapGfx    ThisMap,TileSet,24,24,255,rgb(0,0,0)

if fileexist("test.map")=1 
  LoadLevel("test.map",ThisMap,Level)
else
	Level=NewLevel(thisMap,32,20)
endif


do

		mx=mousex()-16
		my=mousey()-16
		mb=mousebutton()

		i$=inkey$()
		if val(i$)>0 then sel=val(i$)
		if i$="0" then sel=0
		if i$="9" then sel=24

		selx=mx/24
		sely=my/24
		if selx>31 then selx=31
		if sely>19 then sely=19

		if mb=1 then PokeLevelTile Thismap,Level,Selx,Sely,sel : saveme=1

		if saveme=1 and mb=0
			saveme=0
			if fileexist("test.map")=1 then deletefile "test.map"
			 SaveLevel("test.map",ThisMap,Level)
		endif

		Cls rgb(0,0,0)
		drawmap ThisMap,Level,16,16

		if sin(timer())>0 then DrawMapBlk ThisMap, sel,(selx*24)+16,(sely*24)+16,0
		text 16,496,"Press number keys to select block, left click to place."
	sync
loop