JailDoctor/miniascii
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

demos uploaded

Browse Source
This commit is contained in:
Raimon Zamora
2022-05-05 16:32:31 +02:00
parent 012a2606ed
commit 7e9b57dafe
8 changed files with 290 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

227
maziacs/maziacs.lua
View File

@@ -1 +1,226 @@
print("Maziacs!")
SIZE = 64
mapa = {}
hero = {
x=4,
y=3
}
sprites = {
{color=0x70, data={32,97,101,32,98,102,99,100,103}}
}
function init()
mode(3)
setchar(97,0,60,126,123,126,60,24,126)
setchar(98,126,90,58,25,63,60,36,34)
setchar(99,0,0,0,0,0,1,0,0)
setchar(100,33,32,32,64,128,0,192,0)
setchar(101,0,0,0,0,0,0,2,4)
setchar(102,8,16,32,64,128,0,0,0)
setchar(103,0,128,64,64,64,64,112,0)
--mapa = newsurf((SIZE+1)*2, (SIZE+1)*2)
for i=0,(SIZE*SIZE)-1 do
mapa[i] = 1
end
local startx = 1+flr(rnd((SIZE/2)-2))*2
local starty = 1+flr(rnd((SIZE/2)-2))*2
--pset(startx-1, starty-1, 7)
--pset(startx-1, starty, 7)
--pset(startx-1, starty+1, 7)
--pset(startx+1, starty-1, 7)
--pset(startx+1, starty, 7)
--pset(startx+1, starty+1, 7)
--pset(startx, starty-1, 7)
--pset(startx, starty+1, 7)
--local rando = flr(rnd(2))
currentx,currenty=startx,starty--1
--if rando == 0 then
-- pset(startx+2, currenty, 7)
-- pset(startx+3, currenty, 7)
-- currentx=startx+3
--elseif rando == 1 then
-- pset(startx-2, currenty, 7)
-- pset(startx-3, currenty, 7)
-- currentx=startx-3
--end
create()
tomap()
--settrans(255)
--poke(32,65)
end
mazedone = false
longest_path = 1
current_path = 1
lx = 0
ly = 0
function pget(x,y)
return mapa[(x%SIZE)+(y%SIZE)*65]
end
function pset(x,y,val)
mapa[(x%SIZE)+(y%SIZE)*65] = val
end
function create()
local LIMIT = SIZE-2
while mazedone == false do
local val = pget(currentx, currenty)
local paths = {}
local numpaths = 0
if (currentx > 2) and (pget(currentx-2, currenty)==1) then
paths[numpaths] = 0
numpaths = numpaths + 1
end
if (currentx < LIMIT) and (pget(currentx+2, currenty)==1) then
paths[numpaths] = 1
numpaths = numpaths + 1
end
if (currenty > 2) and (pget(currentx, currenty-2)==1) then
paths[numpaths] = 2
numpaths = numpaths + 1
end
if (currenty < LIMIT) and (pget(currentx, currenty+2)==1) then
paths[numpaths] = 3
numpaths = numpaths + 1
end
if numpaths > 0 then
current_path = current_path + 1
local option = paths[flr(rnd(numpaths))]
if option == 0 then
pset(currentx-1, currenty, 7)
currentx = (currentx - 2)%SIZE
pset(currentx, currenty, 7)
elseif option == 1 then
pset(currentx+1, currenty, 7)
currentx = (currentx + 2)%SIZE
pset(currentx, currenty, 7)
elseif option == 2 then
pset(currentx, currenty-1, 7)
currenty = (currenty - 2)%SIZE
pset(currentx, currenty, 7)
elseif option == 3 then
pset(currentx, currenty+1, 7)
currenty = (currenty + 2)%SIZE
pset(currentx, currenty, 7)
end
else
if longest_path < current_path then
longest_path = current_path
lx = currentx
ly = currenty
end
current_path = current_path - 1
pset(currentx, currenty, 8)
if (currentx > 2) and (pget(currentx-1, currenty)==7) and (pget(currentx-2, currenty)==7) then
pset(currentx-1, currenty, 8)
currentx = (currentx-2)%SIZE
elseif (currentx < LIMIT) and (pget(currentx+1, currenty)==7) and (pget(currentx+2, currenty)==7) then
pset(currentx+1, currenty, 8)
currentx = (currentx+2)%SIZE
elseif (currenty > 2) and (pget(currentx, currenty-1)==7) and (pget(currentx, currenty-2)==7) then
pset(currentx, currenty-1, 8)
currenty = (currenty-2)%SIZE
elseif (currenty < LIMIT) and (pget(currentx, currenty+1)==7) and (pget(currentx, currenty+2)==7) then
pset(currentx, currenty+1, 8)
currenty = (currenty+2)%SIZE
else
while pget(lx, ly-1) ~= 1 do ly = ly - 1 end
pset(lx, ly, 9)
mazedone = true
end
end
end
end
function mset(x, y, val)
local addr = x+y*32
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=addr+30
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=addr+30
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=addr+1
poke(addr, 32) addr=0x300+x+y*32
poke(addr, val) addr=addr+1
poke(addr, val) addr=addr+1
poke(addr, val) addr=addr+30
poke(addr, val) addr=addr+1
poke(addr, val) addr=addr+1
poke(addr, val) addr=addr+30
poke(addr, val) addr=addr+1
poke(addr, val) addr=addr+1
poke(addr, val)
end
function mset2(x, y, val)
poke(x+y*32, 32)
poke(0x300+x+y*32, val)
end
function draw_sprite(x,y,num)
local addr = (x*3)+(y*3)*32
poke(addr, sprites[num].data[1]) addr=addr+1
poke(addr, sprites[num].data[2]) addr=addr+1
poke(addr, sprites[num].data[3]) addr=addr+30
poke(addr, sprites[num].data[4]) addr=addr+1
poke(addr, sprites[num].data[5]) addr=addr+1
poke(addr, sprites[num].data[6]) addr=addr+30
poke(addr, sprites[num].data[7]) addr=addr+1
poke(addr, sprites[num].data[8]) addr=addr+1
poke(addr, sprites[num].data[9]) addr=0x300+(x*3)+(y*3)*32
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color) addr=addr+30
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color) addr=addr+30
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color) addr=addr+1
poke(addr, sprites[num].color)
end
camx = 0
camy = 0
function tomap()
for y=0,7 do
for x=0,9 do
local val = 0x77
if pget(x+camx,y+camy) == 1 then val = 0x11 end
mset(x*3, y*3, val)
end
end
end
snd=100
function update()
if cnt() >= 6 then
rst()
if btn(KEY_LEFT) and pget(hero.x-1,hero.y) ~= 1 then
hero.x = hero.x-1
sound(snd,5) if snd==100 then snd=120 else snd=100 end
end
if btn(KEY_RIGHT) and pget(hero.x+1,hero.y) ~= 1 then
hero.x = hero.x+1
sound(snd,5) if snd==100 then snd=120 else snd=100 end
end
if btn(KEY_UP) and pget(hero.x,hero.y-1) ~= 1 then
hero.y = hero.y-1
sound(snd,5) if snd==100 then snd=120 else snd=100 end
end
if btn(KEY_DOWN) and pget(hero.x,hero.y+1) ~= 1 then
hero.y = hero.y+1
sound(snd,5) if snd==100 then snd=120 else snd=100 end
end
camx = hero.x-4
camy = hero.y-3
tomap()
draw_sprite(4,3,1)
end
end