114 lines
3.3 KiB
Lua
114 lines
3.3 KiB
Lua
score=0
|
|
lives=5
|
|
level=1
|
|
tresors=0
|
|
player = {x=0,y=0,oldtile=32,falling=false}
|
|
malos = {
|
|
{x=0,y=0},
|
|
{x=0,y=0},
|
|
{x=0,y=0}
|
|
}
|
|
eixida={x=0,y=0}
|
|
|
|
function init()
|
|
mode(2)
|
|
setchar(33,223,223,223,0,253,253,253,0)
|
|
setchar(34,255,255,255,255,255,255,255,0)
|
|
setchar(35,195,255,195,195,195,255,195,195)
|
|
setchar(36,195,243,195,195,195,207,195,195)
|
|
setchar(37,0,255,0,0,0,0,0,0)
|
|
setchar(38,0,0,0,126,66,66,126,0)
|
|
|
|
filein("level1.bin",0,600)
|
|
|
|
tresors=0
|
|
player.oldtile=32
|
|
local m=1
|
|
for i=0,299 do
|
|
if peek(i) == 248 then
|
|
poke(i,32)
|
|
player.x=i%20
|
|
player.y=flr(i/20)
|
|
elseif peek(i) == 249 then
|
|
poke(i,32)
|
|
poke(300+i, 0x0f)
|
|
malos[m].x=i%20
|
|
malos[m].y=flr(i/20)
|
|
elseif peek(i) == 36 then
|
|
poke(i,32)
|
|
poke(300+i, 0x0f)
|
|
eixida.x=i%20
|
|
eixida.y=flr(i/20)
|
|
elseif peek(i) == 38 then
|
|
tresors=tresors+1
|
|
end
|
|
end
|
|
|
|
ink(COLOR_YELLOW) print("000000",7,14)
|
|
|
|
-- anem a contar els tresors que hi ha, per a saber quan es deu activar l'escala de eixida
|
|
end
|
|
|
|
function update()
|
|
if not player.falling then
|
|
if btnp(KEY_LEFT) and player.x>0 and peek(player.x-1+player.y*20)~=33 then
|
|
poke(player.x+player.y*20, player.oldtile)
|
|
player.x=player.x-1
|
|
player.oldtile = peek(player.x+player.y*20)
|
|
check_tresors()
|
|
elseif btnp(KEY_RIGHT) and player.x<19 and peek(player.x+1+player.y*20)~=33 then
|
|
poke(player.x+player.y*20, player.oldtile)
|
|
player.x=player.x+1
|
|
player.oldtile = peek(player.x+player.y*20)
|
|
check_tresors()
|
|
elseif btnp(KEY_UP) and player.oldtile==35 then
|
|
if player.y>0 then
|
|
poke(player.x+player.y*20, player.oldtile)
|
|
player.y=player.y-1
|
|
player.oldtile = peek(player.x+player.y*20)
|
|
else
|
|
-- endgame. Ja vorem, ara que faça el init de nou i au
|
|
init()
|
|
end
|
|
elseif btnp(KEY_DOWN) and (peek(player.x+(player.y+1)*20) == 35 or player.oldtile==37) then
|
|
poke(player.x+player.y*20, player.oldtile)
|
|
player.y=player.y+1
|
|
player.oldtile = peek(player.x+player.y*20)
|
|
end
|
|
end
|
|
|
|
if cnt()%5 == 0 then
|
|
if player.oldtile~=37 and (peek(player.x+(player.y+1)*20)==32 or peek(player.x+(player.y+1)*20)==38 or peek(player.x+(player.y+1)*20)==37) then
|
|
player.falling = true
|
|
poke(player.x+player.y*20, player.oldtile)
|
|
player.y=player.y+1
|
|
player.oldtile = peek(player.x+player.y*20)
|
|
check_tresors()
|
|
else
|
|
player.falling=false
|
|
end
|
|
end
|
|
poke(player.x+player.y*20, 248)
|
|
|
|
end
|
|
|
|
function check_tresors()
|
|
if player.oldtile==38 then
|
|
player.oldtile=32
|
|
update_score(100)
|
|
poke(300+player.x+player.y*20, 0x0f)
|
|
tresors=tresors-1
|
|
if tresors==0 then
|
|
for i=eixida.y,0,-1 do
|
|
poke(eixida.x+i*20,35)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function update_score(points)
|
|
score=score+points
|
|
local str= ""..score
|
|
while #str < 6 do str = "0"..str end
|
|
ink(COLOR_YELLOW) print(str,7,14)
|
|
end |