JailDoctor/ascii
2
0
Fork 0
Code Issues Pull Requests Projects Releases 4 Wiki Activity

Sokoban progress

Browse Source
This commit is contained in:
Raimon Zamora
2021-12-20 19:07:25 +01:00
parent 841f4f66f3
commit 743fd2b8cc
1 changed files with 164 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

185
demos/sokoban.lua
View File

@@ -6,17 +6,105 @@ WALL = 7
function init()
mode(2)
level=1
setchar(127,0xee,0xee,0xee,0x00,0xbb,0xbb,0xbb,0x00)
setchar(16,0xff,0xc3,0xa5,0x99,0x99,0xa5,0xc3,0xff)
menu.init()
end
-- ====================================================================================================
-- MENU (game state)
-- ====================================================================================================
menu={
init = function()
rst()
update=menu.update
end,
update = function()
color(15,0) cls()
ink(1) print("\x20\x20\x20\x87\x81\x87\x85\x85\x85\x87\x85\x87\x85\x87\x85\x87\x84\x20\x20\x20",0,2)
ink(9) print("\x20\x20\x20\x83\x85\x85\x85\x8D\x81\x85\x85\x87\x84\x8D\x85\x85\x85\x20\x20\x20",0,3)
ink(11) print("\x20\x20\x20\x83\x81\x83\x81\x81\x81\x83\x81\x83\x81\x81\x81\x81\x81\x20\x20\x20",0,4)
ink(15*flr((cnt()%60)/30)) print("PRESS SPACE TO PLAY",1,9)
if btnp(KEY_SPACE) then
level.start()
game.init()
end
end
}
-- ====================================================================================================
-- GAME (game state)
-- ====================================================================================================
game={
init = function()
update=game.update
level.load()
end,
update = function()
border(0)
color(1,0)
cls()
level.draw()
if btnp(KEY_UP) then level.try_move(0,-1)
elseif btnp(KEY_DOWN) then level.try_move(0,1)
elseif btnp(KEY_LEFT) then level.try_move(-1,0)
elseif btnp(KEY_RIGHT) then level.try_move(1,0)
end
end
}
-- ====================================================================================================
-- LOADING (game state)
-- ====================================================================================================
loading = {
init = function()
border(15)
update=loading.update
rst()
end,
update = function()
color(15,0)
cls()
print("LEVEL "..num_level,6,5)
print("GOOD JOB!",5,8)
if (cnt()%60)<15 then print("\248",9,10)
elseif (cnt()%60)<30 then print("\250",9,10)
elseif (cnt()%60)<45 then print("\248",9,10)
else print("\251",9,10) end
if cnt()==120 then
level.next()
game.init()
end
end
}
-- ====================================================================================================
-- LEVEL
-- ====================================================================================================
levels= {
"####|# .#|# ###|#*@ #|# $ #|# ###|####",
"######|# #|# #@ #|# $* #|# .* #|# #|######",
" ####|### ####|# $ #|# # #$ #|# . .#@ #|#########",
"########|# #|# .**$@#|# #|##### #| ####",
" #######| # #| # .$. #|## $@$ #|# .$. #|# #|########",
"###### #####|# ### #|# $$ #@#|# $ #... #|# ########|#####",
"#######|# .$. #|# $.$ #|# .$. #|# $.$ #|# @ #|#######",
"#####|#. ##|#@$$ #|## #| ## #| ##.#| ###"
}
level = {
start = function() num_level=1 end,
next = function() num_level=num_level+1 end,
load = function()
local str = levels[num_level]
player={}
init_level()
end
function init_level()
update=update_level
load_from_string("####|# .#|# ###|#*@ #|# $ #|# ###|####")
end
function load_from_string(str)
map={}
local pos=0
local y,x=1,1
@@ -42,80 +130,55 @@ function load_from_string(str)
end
ox = flr((20-maxx)/2)
oy = flr((15-y)/2)
end
end,
function update_level()
border(0)
color(1,0)
cls()
draw = function()
for y=1,#map do
for x=1,#map[y] do
if map[y][x] == WALL then color(4,15) print("\127",ox+x-1,oy+y-1)
elseif map[y][x]&BOX == BOX then color(0,6) print("\016",ox+x-1,oy+y-1)
elseif map[y][x] == GOAL then color(4,0) print("\144",ox+x-1,oy+y-1)
if map[y][x] == WALL then color(4,0) print("\127",ox+x-1,oy+y-1)
elseif map[y][x] == BOX then color(8,7) print("\016",ox+x-1,oy+y-1)
elseif map[y][x] == BOX+GOAL then color(3,11) print("\016",ox+x-1,oy+y-1)
elseif map[y][x] == GOAL then color(3,0) print("\144",ox+x-1,oy+y-1)
end
end
end
color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
end,
if btnp(KEY_UP) then try_move(0,-1)
elseif btnp(KEY_DOWN) then try_move(0,1)
elseif btnp(KEY_LEFT) then try_move(-1,0)
elseif btnp(KEY_RIGHT) then try_move(1,0)
try_move = function(x,y)
if level.is_empty(x,y) then
level.move_player(x,y)
elseif level.is_box(x,y) and level.is_empty(x*2,y*2) then
level.move_box(x,y)
end
end
end,
function try_move(x,y)
if is_empty(x,y) then
move_player(x,y)
elseif is_box(x,y) and is_empty(x*2,y*2) then
move_box(x,y)
end
end
function is_empty(x,y)
is_empty = function(x,y)
return map[player.y+y][player.x+x] < 2
end
end,
function is_box(x,y)
is_box = function(x,y)
return map[player.y+y][player.x+x] < 4
end
end,
function move_player(x,y)
move_player = function(x,y)
player.x=player.x+x
player.y=player.y+y
end
end,
function move_box(x,y)
move_box = function(x,y)
map[player.y+y*2][player.x+x*2] = map[player.y+y*2][player.x+x*2] + BOX
map[player.y+y][player.x+x] = map[player.y+y][player.x+x] - BOX
move_player(x,y)
check_finished()
end
level.move_player(x,y)
level.check_finished()
end,
function check_finished()
check_finished = function()
for y=1,#map do
for x=1,#map[y] do
if map[y][x] == GOAL then return end
end
end
init_goodjob()
end
function init_goodjob()
border(15)
update=update_goodjob
wait=120
end
function update_goodjob()
color(15,0)
cls()
print("LEVEL "..level,6,6)
print("GOOD JOB!",4,8)
wait=wait-1
if wait==0 then
level=level+1
init_level()
loading.init()
end
end
}