Sokoban progress
This commit is contained in:
@@ -6,116 +6,179 @@ WALL = 7
|
|||||||
|
|
||||||
function init()
|
function init()
|
||||||
mode(2)
|
mode(2)
|
||||||
level=1
|
setchar(127,0xee,0xee,0xee,0x00,0xbb,0xbb,0xbb,0x00)
|
||||||
player={}
|
setchar(16,0xff,0xc3,0xa5,0x99,0x99,0xa5,0xc3,0xff)
|
||||||
init_level()
|
menu.init()
|
||||||
end
|
end
|
||||||
|
|
||||||
function init_level()
|
-- ====================================================================================================
|
||||||
update=update_level
|
-- MENU (game state)
|
||||||
load_from_string("####|# .#|# ###|#*@ #|# $ #|# ###|####")
|
-- ====================================================================================================
|
||||||
end
|
menu={
|
||||||
|
init = function()
|
||||||
|
rst()
|
||||||
|
update=menu.update
|
||||||
|
end,
|
||||||
|
|
||||||
function load_from_string(str)
|
update = function()
|
||||||
map={}
|
color(15,0) cls()
|
||||||
local pos=0
|
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)
|
||||||
local y,x=1,1
|
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)
|
||||||
local maxx=0
|
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)
|
||||||
map[y] = {}
|
ink(15*flr((cnt()%60)/30)) print("PRESS SPACE TO PLAY",1,9)
|
||||||
while pos<#str do
|
|
||||||
local chr = ascii(str,pos)
|
if btnp(KEY_SPACE) then
|
||||||
if chr == 35 then map[y][x] = WALL end
|
level.start()
|
||||||
if chr == 64 then player.x,player.y=x,y map[y][x] = FLOOR end
|
game.init()
|
||||||
if chr == 43 then player.x,player.y=x,y map[y][x] = GOAL end
|
|
||||||
if chr == 36 then map[y][x] = BOX end
|
|
||||||
if chr == 42 then map[y][x] = GOAL+BOX end
|
|
||||||
if chr == 46 then map[y][x] = GOAL end
|
|
||||||
if chr == 32 then map[y][x] = FLOOR end
|
|
||||||
if chr == 124 then
|
|
||||||
y=y+1
|
|
||||||
map[y] = {}
|
|
||||||
if maxx < x then maxx=x end
|
|
||||||
x=0
|
|
||||||
end
|
end
|
||||||
pos=pos+1
|
|
||||||
x=x+1
|
|
||||||
end
|
end
|
||||||
ox = flr((20-maxx)/2)
|
}
|
||||||
oy = flr((15-y)/2)
|
|
||||||
end
|
|
||||||
|
|
||||||
function update_level()
|
-- ====================================================================================================
|
||||||
border(0)
|
-- GAME (game state)
|
||||||
color(1,0)
|
-- ====================================================================================================
|
||||||
cls()
|
game={
|
||||||
for y=1,#map do
|
init = function()
|
||||||
for x=1,#map[y] do
|
update=game.update
|
||||||
if map[y][x] == WALL then color(4,15) print("\127",ox+x-1,oy+y-1)
|
level.load()
|
||||||
elseif map[y][x]&BOX == BOX then color(0,6) print("\016",ox+x-1,oy+y-1)
|
end,
|
||||||
elseif map[y][x] == GOAL then color(4,0) print("\144",ox+x-1,oy+y-1)
|
|
||||||
|
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={}
|
||||||
|
map={}
|
||||||
|
local pos=0
|
||||||
|
local y,x=1,1
|
||||||
|
local maxx=0
|
||||||
|
map[y] = {}
|
||||||
|
while pos<#str do
|
||||||
|
local chr = ascii(str,pos)
|
||||||
|
if chr == 35 then map[y][x] = WALL end
|
||||||
|
if chr == 64 then player.x,player.y=x,y map[y][x] = FLOOR end
|
||||||
|
if chr == 43 then player.x,player.y=x,y map[y][x] = GOAL end
|
||||||
|
if chr == 36 then map[y][x] = BOX end
|
||||||
|
if chr == 42 then map[y][x] = GOAL+BOX end
|
||||||
|
if chr == 46 then map[y][x] = GOAL end
|
||||||
|
if chr == 32 then map[y][x] = FLOOR end
|
||||||
|
if chr == 124 then
|
||||||
|
y=y+1
|
||||||
|
map[y] = {}
|
||||||
|
if maxx < x then maxx=x end
|
||||||
|
x=0
|
||||||
|
end
|
||||||
|
pos=pos+1
|
||||||
|
x=x+1
|
||||||
|
end
|
||||||
|
ox = flr((20-maxx)/2)
|
||||||
|
oy = flr((15-y)/2)
|
||||||
|
end,
|
||||||
|
|
||||||
|
draw = function()
|
||||||
|
for y=1,#map do
|
||||||
|
for x=1,#map[y] do
|
||||||
|
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
|
||||||
end
|
end
|
||||||
end
|
color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
|
||||||
color(15,0) print("\248",ox+player.x-1,oy+player.y-1)
|
end,
|
||||||
|
|
||||||
if btnp(KEY_UP) then try_move(0,-1)
|
try_move = function(x,y)
|
||||||
elseif btnp(KEY_DOWN) then try_move(0,1)
|
if level.is_empty(x,y) then
|
||||||
elseif btnp(KEY_LEFT) then try_move(-1,0)
|
level.move_player(x,y)
|
||||||
elseif btnp(KEY_RIGHT) then try_move(1,0)
|
elseif level.is_box(x,y) and level.is_empty(x*2,y*2) then
|
||||||
end
|
level.move_box(x,y)
|
||||||
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)
|
|
||||||
return map[player.y+y][player.x+x] < 2
|
|
||||||
end
|
|
||||||
|
|
||||||
function is_box(x,y)
|
|
||||||
return map[player.y+y][player.x+x] < 4
|
|
||||||
end
|
|
||||||
|
|
||||||
function move_player(x,y)
|
|
||||||
player.x=player.x+x
|
|
||||||
player.y=player.y+y
|
|
||||||
end
|
|
||||||
|
|
||||||
function move_box(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
|
|
||||||
|
|
||||||
function check_finished()
|
|
||||||
for y=1,#map do
|
|
||||||
for x=1,#map[y] do
|
|
||||||
if map[y][x] == GOAL then return end
|
|
||||||
end
|
end
|
||||||
end
|
end,
|
||||||
init_goodjob()
|
|
||||||
end
|
|
||||||
|
|
||||||
function init_goodjob()
|
is_empty = function(x,y)
|
||||||
border(15)
|
return map[player.y+y][player.x+x] < 2
|
||||||
update=update_goodjob
|
end,
|
||||||
wait=120
|
|
||||||
end
|
is_box = function(x,y)
|
||||||
|
return map[player.y+y][player.x+x] < 4
|
||||||
function update_goodjob()
|
end,
|
||||||
color(15,0)
|
|
||||||
cls()
|
move_player = function(x,y)
|
||||||
print("LEVEL "..level,6,6)
|
player.x=player.x+x
|
||||||
print("GOOD JOB!",4,8)
|
player.y=player.y+y
|
||||||
wait=wait-1
|
end,
|
||||||
if wait==0 then
|
|
||||||
level=level+1
|
move_box = function(x,y)
|
||||||
init_level()
|
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
|
||||||
|
level.move_player(x,y)
|
||||||
|
level.check_finished()
|
||||||
|
end,
|
||||||
|
|
||||||
|
check_finished = function()
|
||||||
|
for y=1,#map do
|
||||||
|
for x=1,#map[y] do
|
||||||
|
if map[y][x] == GOAL then return end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
loading.init()
|
||||||
end
|
end
|
||||||
end
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user