Sorry your browser is not supported!

set display mode 800,600,32

tilesizex = 32
tilesizey = 32

rem load images
load image "wall.png",1
load image "pacman-open.png",2
load image "pacman-closed.png",3

rem dim map
dim map(21,18)

rem create map
for y=1 to 18
for x=1 to 21
read map(x,y)
if map(x,y)=1 then paste image 1,x*tilesizex,y*tilesizey,1
if map(x,y)=2 then paste image 2,x*tilesizex,y*tilesizey,1
next x
next y
wait key

data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

rem load images
load image "c:\new_grass.bmp",1
load image "c:\new_water.bmp",2
load image "C:\new_tank.bmp",3
rem dim map
dim map(10,10)

rem create map (where it says x*50 and y*50, change the 50 to the rem size of your tile
for x=1 to 10
   for y=1 to 10
      read map(x,y)
      if map(x,y)=0 then paste image 1,x*32,y*32,1
      if map(x,y)=1 then paste image 2,x*32,y*32,2
   next x
next y
do
   if mouseclick() = 1
      x = mousex()/32: y = mousey()/32
      sprite 3,x*32,y*32,3
   endif

loop




data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

wait key