Sokoban progress
This commit is contained in:
@@ -6,116 +6,179 @@ WALL = 7
|
||||
|
||||
function init()
|
||||
mode(2)
|
||||
level=1
|
||||
player={}
|
||||
init_level()
|
||||
setchar(127,0xee,0xee,0xee,0x00,0xbb,0xbb,0xbb,0x00)
|
||||
setchar(16,0xff,0xc3,0xa5,0x99,0x99,0xa5,0xc3,0xff)
|
||||
menu.init()
|
||||
end
|
||||
|
||||
function init_level()
|
||||
update=update_level
|
||||
load_from_string("####|# .#|# ###|#*@ #|# $ #|# ###|####")
|
||||
end
|
||||
-- ====================================================================================================
|
||||
-- MENU (game state)
|
||||
-- ====================================================================================================
|
||||
menu={
|
||||
init = function()
|
||||
rst()
|
||||
update=menu.update
|
||||
end,
|
||||
|
||||
function load_from_string(str)
|
||||
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
|
||||
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
|
||||
pos=pos+1
|
||||
x=x+1
|
||||
end
|
||||
ox = flr((20-maxx)/2)
|
||||
oy = flr((15-y)/2)
|
||||
end
|
||||
}
|
||||
|
||||
function update_level()
|
||||
border(0)
|
||||
color(1,0)
|
||||
cls()
|
||||
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)
|
||||
-- ====================================================================================================
|
||||
-- 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={}
|
||||
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
|
||||
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)
|
||||
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)
|
||||
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)
|
||||
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
|
||||
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
|
||||
init_goodjob()
|
||||
end
|
||||
end,
|
||||
|
||||
function init_goodjob()
|
||||
border(15)
|
||||
update=update_goodjob
|
||||
wait=120
|
||||
end
|
||||
is_empty = function(x,y)
|
||||
return map[player.y+y][player.x+x] < 2
|
||||
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()
|
||||
is_box = function(x,y)
|
||||
return map[player.y+y][player.x+x] < 4
|
||||
end,
|
||||
|
||||
move_player = function(x,y)
|
||||
player.x=player.x+x
|
||||
player.y=player.y+y
|
||||
end,
|
||||
|
||||
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
|
||||
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
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user