179 lines
7.8 KiB
Lua
179 lines
7.8 KiB
Lua
pico-8 cartridge // http://www.pico-8.com
|
||
version 42
|
||
__lua__
|
||
function _init()
|
||
initmap()
|
||
|
||
end
|
||
|
||
function _update()
|
||
updateplayer()
|
||
|
||
if btnp(❎) then
|
||
reload()
|
||
_init()
|
||
end
|
||
end
|
||
|
||
function _draw()
|
||
cls()
|
||
camera(-20,-20)
|
||
map()
|
||
drawboxes()
|
||
drawplayer()
|
||
|
||
end
|
||
-->8
|
||
function initmap()
|
||
m={
|
||
w=8,
|
||
h=8,
|
||
wallmap={},
|
||
boxmap={}
|
||
}
|
||
|
||
boxes={}
|
||
box_i=1
|
||
box_number={[5]=1,[21]=2} --number on box
|
||
|
||
player={
|
||
x=0, --position
|
||
y=0,
|
||
dir=1,
|
||
--1 right 2 left 3 down 4 up
|
||
image={3,4,19,35}
|
||
}
|
||
|
||
---map
|
||
for i=0,m.w-1 do
|
||
m.wallmap[i]={}
|
||
m.boxmap[i]={}
|
||
|
||
for j=0,m.h-1 do
|
||
|
||
m.boxmap[i][j]=0
|
||
local f=fget(mget(i,j))
|
||
if f==2 then
|
||
m.wallmap[i][j]=1 --wall
|
||
else
|
||
m.wallmap[i][j]=0 --void
|
||
|
||
---player
|
||
if f==4 then
|
||
player.x=i
|
||
player.y=j
|
||
mset(i,j,17)
|
||
|
||
---boxes
|
||
elseif f==8 then
|
||
local box={
|
||
x0=i,
|
||
y0=j,
|
||
x=i, --position
|
||
y=j,
|
||
image=mget(i,j),
|
||
number=0
|
||
}
|
||
box.number=box_number[box.image]
|
||
|
||
boxes[box_i]=box
|
||
m.boxmap[i][j]=box_i
|
||
|
||
box_i+=1
|
||
mset(i,j,17)
|
||
end
|
||
|
||
end
|
||
end
|
||
end
|
||
end
|
||
|
||
|
||
function drawboxes()
|
||
for b in all(boxes) do
|
||
spr(b.image,b.x*8,b.y*8)
|
||
end
|
||
end
|
||
-->8
|
||
function updateplayer()
|
||
if btnp(➡️) then
|
||
player.dir=1
|
||
try_move(1,0)
|
||
elseif btnp(⬅️) then
|
||
player.dir=2
|
||
try_move(-1,0)
|
||
elseif btnp(⬇️) then
|
||
player.dir=3
|
||
try_move(0,1)
|
||
elseif btnp(⬆️) then
|
||
player.dir=4
|
||
try_move(0,-1)
|
||
end
|
||
end
|
||
|
||
|
||
function try_move(dx,dy)
|
||
--void + move
|
||
if m.boxmap[player.x+dx][player.y+dy]==0 and
|
||
m.wallmap[player.x+dx][player.y+dy]==0 then
|
||
player.x+=dx
|
||
player.y+=dy
|
||
|
||
--box + push
|
||
elseif m.boxmap[player.x+dx][player.y+dy]!=0 and
|
||
m.wallmap[player.x+dx*2][player.y+dy*2]==0 then
|
||
--box update
|
||
local bi=m.boxmap[player.x+dx][player.y+dy]
|
||
m.boxmap[player.x+dx][player.y+dy]=0
|
||
m.boxmap[player.x+dx*2][player.y+dy*2]=bi
|
||
boxes[bi].x+=dx
|
||
boxes[bi].y+=dy
|
||
|
||
player.x+=dx
|
||
player.y+=dy
|
||
end
|
||
end
|
||
|
||
|
||
function drawplayer()
|
||
spr(player.image[player.dir],player.x*8,player.y*8)
|
||
end
|
||
__gfx__
|
||
0000000033333333554994550111111001111110feeeeeee00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
000000003b3333335444944501ffff1001ffff10ffe11eef00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0070070033b333333499994301f0f010010f0f10fffe1eff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00077000333333335449444511ffef0001feff11ffff1fff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00077000333333335499994501999a9999a99910fffe1fff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00700700333333b35444944300aaaa0000aaaa00ffee1fff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0000000033333b335499994500aaaa0000aaaa00fee111ff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0000000033333333554944550090090000900900eeeeeeef00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0000000033333333535555550111111000000000feeeeeee00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000333333335444444501ffff1000000000ff1111ef00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
000000003333333349494944010ff01000000000fffee1ff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000333333b39949994911feef1100000000ffffe1ff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
000000003333333349994999009aa90000000000ff1111ff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
000000003b33333349494944009aa90000000000ff1eefff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000333333335444444500aaaa0000000000fe1111ff00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0000000033333333553553550090090000000000eeeeeeef00000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000555535555544945301111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000344944453449944501111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000549949434499494401111110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000549499959449999911111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000599494459999494909111190000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000549999454494494409aaaa90000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000544494455449944500aaaa00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
00000000355355555349445500900900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
__gff__
|
||
0001020404080000000000000000000000010204000800000000000000000000000202040000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
__map__
|
||
2212121212121212220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0201011101011101020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0211210101151111020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0201111111020111020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0211050112220111020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0201011111110112220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0211112101030111020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
0211010111111101020000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||
2212121212121212220000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|