Improvements...
This commit is contained in:
parent
640c3071a4
commit
6fbccc1123
42
main.lua
42
main.lua
@ -37,12 +37,12 @@ end
|
||||
|
||||
-- -------------- START FUNC -----------
|
||||
function start()
|
||||
nc.setcurshape("BLOCK")
|
||||
nc.setcurshape("BAR")
|
||||
nc.clrscr()
|
||||
-- Make X functions
|
||||
map=mkmat()
|
||||
p=mkpointer()
|
||||
|
||||
|
||||
-- Now main loop
|
||||
main()
|
||||
end
|
||||
@ -56,6 +56,9 @@ function drawmap()
|
||||
print(map[ix][iy])
|
||||
end
|
||||
end
|
||||
-- XXX draw last info line XXX
|
||||
nc.gotoxy(0,MSIZE_Y+1)
|
||||
print(p.x.." . "..p.y.." ")
|
||||
end
|
||||
|
||||
function drawmap_fg() -- Draw map foreground
|
||||
@ -65,12 +68,10 @@ end
|
||||
----------- main func -----
|
||||
function main()
|
||||
while exitbool~=true do
|
||||
if see==false then
|
||||
if await_cmd()~=0 then
|
||||
drawmap()
|
||||
drawmap_fg()
|
||||
see=true
|
||||
end
|
||||
await_cmd()
|
||||
end
|
||||
end
|
||||
exit()
|
||||
end
|
||||
@ -79,8 +80,6 @@ end
|
||||
function exit() -- Exits gracefully
|
||||
nc.clrscr()
|
||||
printul("Goodbye...")
|
||||
|
||||
|
||||
end
|
||||
|
||||
function mkpointer(pn)
|
||||
@ -108,21 +107,42 @@ function await_cmd()
|
||||
exitbool=true
|
||||
elseif k=="t" then
|
||||
showmesg("This is a test")
|
||||
|
||||
elseif k=="c" then
|
||||
changep()
|
||||
elseif k=="." then
|
||||
paint(p.x,p.y,p.glyph)
|
||||
elseif k=="x" then
|
||||
paint(p.x,p.y," ")
|
||||
elseif k=="o" then
|
||||
-- TODO Set color
|
||||
else
|
||||
return 0
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
function paint(px,py,pg)
|
||||
map[px][py]=pg
|
||||
end
|
||||
|
||||
function movep(dx,dy)
|
||||
p.x=p.x+dx
|
||||
p.y=p.y+dy
|
||||
see=false
|
||||
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
|
||||
|
||||
function showmesg(msg)
|
||||
nc.gotoxy(1,1)
|
||||
print(msg)
|
||||
nc.wait()
|
||||
see=false
|
||||
end
|
||||
|
||||
-- ------------------------------------------
|
||||
|
Loading…
Reference in New Issue
Block a user