graphed/main.lua

141 lines
2.9 KiB
Lua

-- Paint in your terminal
nc = require("nocurses")
dofile("simplefuncs.lua")
-- Misc nc funcs ============================
COLORS={"BLACK","RED","GREEN","YELLOW","BLUE","MAGENTA","CYAN","WHITE"}
MSIZE_X=32 -- Map
MSIZE_Y=24 ---- size
PL_GLYPH="@"
VER=0.08
-- MAKE Map matrix -------------
-- -------------- START FUNC -----------
function start()
nc.setcurshape("BAR")
nc.clrscr()
-- Make X functions
map=mkmat()
mapcolors=mkmat()
p=mkpointer()
-- Now main loop
main()
end
-- ----------------END START FUNC -------------
-- ====== DRAW MAP FUNC=========
function drawmap()
for ix=1,MSIZE_X do
for iy=1,MSIZE_Y do
nc.gotoxy(ix,iy)
print(map[ix][iy])
end
end
-- XXX draw last info line XXX
nc.gotoxy(0,MSIZE_Y+1)
print("X:"..p.x.." | ".." Y:"..p.y.." ")
end
function drawmap_fg() -- Draw map foreground
nc.setfontcolor("RED")
nc.gotoxy(p.x,p.y)
print(p.glyph)
nc.setfontcolor("WHITE")
end
----------- main func -----
function main()
printul("Graphed")
print("version "..VER)
while exitbool~=true do
if await_cmd()~=0 then
drawmap()
drawmap_fg()
end
end
nc.clrscr()
printul("Goodbye...")
end
-- END OF MAKE FUNCS ========== MAKE =====
function await_cmd()
local k
k=string.char(nc.getch())
if k=="h" and p.x>1 then
movep(-1,0)
elseif k=="j" and p.y<=MSIZE_Y then
movep(0,1)
elseif k=="k" and p.y>1 then
movep(0,-1)
elseif k=="l" and p.x<MSIZE_X then
movep(1,0)
elseif k=="q" then
exitbool=true
elseif k=="t" then
showmesg("This is a test")
elseif k=="g" then
changep()
elseif k=="." then
map[p.x][p.y]=p.glyph
elseif k=="x" then
map[p.x][p.y]=" "
elseif k=="w" then
write()
elseif k=="?" then
help()
else
return 0
end
end
-- TODO make load func TODO
function help()
nc.clrscr()
nc.setfontcolor("BLUE")
printul("graphed commands")
print("g -> change current glyph")
print(". -> place current glyph on screen")
print("x -> delete glyph under cursor")
-- TODO
nc.setfontcolor("RED")
print("Press enter...")
nc.wait()
nc.setfontcolor("WHITE")
end
function write()
nc.clrscr()
print("Enter Filename")
fn=io.read("l")
fp=io.open(fn,"w+")
for i=1,MSIZE_Y do
for ii=1,MSIZE_X do
cc=map[ii][i]
fp:write(cc)
end
fp:write("\n")
end
fp:close()
nc.clrscr()
showmesg("wrote to file:'"..fn.."'. Press enter")
end
function movep(dx,dy)
p.x=p.x+dx
p.y=p.y+dy
end
function changep()
local c
showmesg("Press Enter and a new char:")
while c==nil do
c=string.char(nc.getch())
end
p.glyph=c
end
-- ------------------------------------------
start()