love-loader/main.lua

150 lines
3.1 KiB
Lua
Raw Normal View History

2022-04-27 18:32:52 +00:00
local root = 'games/'
-- games library and selection
local gms = {}
local sel = 1
local sgme
-- some internals
local cx, cy, cw, ch
local f, bf
function love.resize(x, y)
W, H = x, y
if resize then resize(W, H) end
collectgarbage 'collect' -- because new font isn't clears
end
function resize()
cw, ch = W / 1.25, H / 1.25
cx, cy = (W - cw) / 2, (H - ch) / 2
local th = math.min(W, H) / 8
f = love.graphics.newFont(th / 3)
bf = love.graphics.newFont(th / 2)
end
love.resize(love.graphics.getDimensions())
local function gmeNew(cont, dir, file)
local gme = {
name = 'No name',
desc = 'No description provided.',
dir = dir,
main = 'main.lua',
}
local fi = false
cont = cont or ''
cont = cont:gsub('[^\\]#[^\n]*', '')
for v in cont:gmatch '([^\n]+)' do
local k, v = v:match '^%s*([%w_]+)%s*=%s*(.*)%s*$'
if k == 'name'
or k == 'desc'
or k == 'main'
then gme[k] = v
fi = true
elseif k
then error('unknown field "'.. k ..'" in "'.. file ..'"')
end
end
if not fi then
gme.name = dir
end
table.insert(gms, gme)
end
for _, v in pairs(love.filesystem.getDirectoryItems(root)) do
local file = v..'/'.. 'info.ll'
gmeNew(love.filesystem.read(root .. file), v, file)
end
local pf, mx, mb, mpb
local function update()
mx = love.mouse.getX()
mpb = mb
mb = 0
if love.mouse.isDown(1) then mb = 1
end
if mpb == 1 and mb == 0 then
if mx <= cx then
sel = sel - 1
if sel < 1 then sel = #gms end
elseif mx >= cx + cw then
sel = sel + 1
if sel > #gms then sel = 1 end
else sgme = gms[sel]
end
end
end
local function draw()
love.graphics.polygon('fill',
8, H / 2,
32, H / 2 - 32,
32, H / 2 + 32)
love.graphics.polygon('fill',
W - 8, H / 2,
W - 32, H / 2 - 32,
W - 32, H / 2 + 32)
local oy, t = 0, ''
local gme = gms[sel]
if gme then
local ph = ch / 1.5
love.graphics.rectangle('line', cx, cy, cw, ch)
love.graphics.rectangle('fill', cx, cy, cw, ph)
oy = cy + ph
love.graphics.setFont(bf)
love.graphics.print(gme.name, cx, oy)
oy = oy + bf:getHeight(gme.name)
love.graphics.setFont(f)
love.graphics.print(gme.desc, cx, oy)
else oy = H / 2
t = 'No games'
love.graphics.setFont(bf)
love.graphics.print(t, (W - bf:getWidth(t)) / 2, oy)
oy = oy + bf:getHeight(t)
love.graphics.setFont(f)
t = 'There is no projects/games to run'
love.graphics.print(t, (W - f:getWidth(t)) / 2, oy)
end
end
function love.handlers.quit(c)
-- for some cases when event handler (like this one below) can't correctly close
os.exit(c or 0)
end
while not sgme do
-- event handling
love.event.pump()
for n, a,b,c,d,e,f in love.event.poll() do
love.handlers[n](a,b,c,d,e,f)
end
-- update and drawing
update()
love.graphics.origin()
love.graphics.clear(0, 0, 0)
draw()
love.graphics.present()
love.timer.sleep(0.001)
end
love.graphics.setNewFont()
resize = nil
require(root .. sgme.dir ..'/'.. sgme.main:sub(1, -5))
-- things left:
-- W and H global variables
-- love.resize and optional global resize function
-- love.handlers.quit - modified but can be required