Sorry your browser is not supported!

load image "Pacman.png",1
load image "bblock.png",2

sync on
sync rate 0

pacx=320
pacy=336
pacd=3
distancex=0
distancey=0
pacmapx=20
pacmapy=21
passable=1

dim map(28,30)

`read map data and store in the map array
restore map
for j = 0 to 28
   for i = 0 to 28
      read map(i,j)
   next i
next j

`draw the map
Sprite 1,pacx,pacy,1
set sprite 1,1,1
for x = 0 to 28
   for y = 0 to 29
      if map(x,y) = 1 then box x*16,y*16,(x*16)+16,(y*16)+16
      if map(x,y) = 2 then circle x*16+8, y*16+8, 3
      if map(x,y) = 3 then circle x*16+8, y*16+8, 6
   next y
next x

Do
   `exit the program
   if escapekey()=1 then end
   `check directions and collision
   if map(pacmapx,pacmapy)=1 then pacd=0
   if upkey()=1 and passable=1 then pacd=1
   if downkey()=1 and passable=1 then pacd=2
   if leftkey()=1 and passable=1 then pacd=3
   if rightkey()=1 and passable=1 then pacd=4
   if pacd=1 then pacy=pacy-4 : distancey=distancey-4
   if pacd=2 then pacy=pacy+4 : distancey=distancey+4
   if pacd=3 then pacx=pacx-4 : distancex=distancex-4
   if pacd=4 then pacx=pacx+4 : distancex=distancex+4
   if distancex=16 and passable=1 then inc pacmapx : map(pacmapx,pacmapy)=5 : distancex=0
   if distancex=-16 and passable=1 then dec pacmapx : map(pacmapx,pacmapy)=5 : distancex=0
   if distancey=16 and passable=1 then inc pacmapy : map(pacmapx,pacmapy)=5 : distancey=0
   if distancey=-16 and passable=1 then dec pacmapy : map(pacmapx,pacmapy)=5 : distancey=0
   for x = 0 to 28
      for y = 0 to 29
         if map(x,y) = 5 then paste image 2,x*16,y*16
      next y
   next x
   Sprite 1,pacx,pacy,1
Sync
Loop

`get a white square for the walls and a red one for the player
box 0,0,32,32
get image 1,0,0,32,32,1
ink rgb(255,0,0),0
box 0,0,32,32
get image 5,0,0,32,32,1
ink rgb(255,255,255),0
cls

`image numbers
`
`1 = white wall square
`5 = red player square

sync rate 30

`map size is 20x15 as each tile is 32x32 this fills a 640x480 screen
dim map(19,14)as integer

x as integer : y as integer
xx as integer : yy as integer

`put some data in map the array

`border around play area
y = 0
for x = 0 to 19
  map(x,y) = 1
next x
y = 14
for x = 0 to 19
  map(x,y) = 1
next x
x = 0
for y = 0 to 14
  map(x,y) = 1
next y
x = 19
for y = 0 to 14
  map(x,y) = 1
next y
`draw some vertical lines
x = 10
for y = 0 to 5
  map(x,y) = 1
next y
x = 17
for y = 10 to 14
  map(x,y) = 1
next y
x = 5
for y = 0 to 10
  map(x,y) = 1
next y
`and some horzontal lines
y = 5
for x = 15 to 19
  map(x,y) = 1
next x
y = 8
for x = 8 to 19
  map(x,y) = 1
next x

px as integer : `x pos of player
px = 10
py as integer : `y pos of player
py = 7
pd as integer : `direction of player, 1 = up, 2 = down, 3 = left, 4 = right
pd = 3


do
  cls
  `draw the map
  xx = 0 : yy = 0
  for y = 0 to 14
    for x = 0 to 19
      if map(x,y) = 1 then paste image 1,xx,yy
      inc xx,32
    next x
    xx = 0
    inc yy,32
  next y
  `control the player
  if upkey() then pd = 1
  if downkey() then pd = 2
  if leftkey() then pd = 3
  if rightkey() then pd = 4
  
  `move the player
  if pd = 1 : `up
    if map(px,py-1) = 0 then dec py
  endif
  if pd = 2 : `down
    if map(px,py+1) = 0 then inc py
  endif
  if pd = 3 : `left
    if map(px-1,py) = 0 then dec px
  endif
  if pd = 4 : `right
    if map(px+1,py) = 0 then inc px
  endif
  
  `draw the player
  paste image 5,px*32,py*32
loop