main.lua

-- main.lua
-- Game loop
local map         = require('golflike.map')
local log         = require('golflike.lib.log')
local common      = require('golflike.common')
local competition = require('golflike.competition')
local state       = require('golflike.state')
local maprender   = require('golflike.maprender')
local menu        = require('golflike.menu')
local termio      = require('golfterm.io')

local game = { }
if love ~= nil then
    game = love
end

-- Initialise wallclock
game.lastClock = termio.getTime()

--- Game initialisation
function game.load()
--    log.outfile='log.txt'
    log.level='trace'

    -- Setup game state
    game.state = state()
    game.stack = {maprender(game.state), menu(game.state)}
    game.tick = true
    game.render = false

    -- Initialise viewable area +2 needed for status lines
    termio.init(common.mapsize_x, common.mapsize_y + 2, "golflike")
end

-- Render game
function game.draw()
    repeat until termio.check_terminal_dimensions()
    termio.draw()
end

-- Render the game to the termio buffer
local function render_game()
    termio.clear_buffer() -- Prepare for rendering
    for _,gs in ipairs(game.stack) do
        gs:render(game.state)
    end
    game.draw()
end

-- Main game loop
function game.update()
    -- Main loop, continues until state stack is empty
    if #game.stack == 0 then
        game.close()
        return false
    end
    -- Reset rendering
    game.render = false
    -- First perform effects tick
    local currentTime = termio.getTime()
    local deltaTime = currentTime - game.lastClock
    if game.state:current_hole() ~= nil and deltaTime > 150 then
        game.render = true
        game.lastClock = currentTime
        map.effects_tick(game.state:current_hole())
    end
    -- Secondly perform gameplay tick
    if game.tick == true then
        game.stack[#game.stack]:tick(game.state)
        game.render = true
    end
    -- Render if neccesary
    if game.render == true then
        render_game()
    end
    -- Get input from player
    local kill, push
    game.tick, kill, push = game.stack[#game.stack]:control(game.state)
    -- Pop state stack element
    if kill == true then table.remove(game.stack) end
    if push ~= nil  then
        termio.flushInput() -- Flush input on change of state
        game.stack[#game.stack+1] = push
    end
    return true
end

-- Wrap things up
function game.close()
    -- Exit game
    termio.close()
    -- Trigger love quit event
    if love ~= nil then
        love.event.quit( )
    end
end

-- Terminal mode
if love == nil then
    game.load()

    -- Disable logging to stdout when in terminal
    log.stdout = false

    -- Main loop terminal mode
    local running
    local function loop()
        running = game.update()
    end
    -- Terminal mode error handling
    local function err (_err)
        termio.close()
        print "Caught an error:"
        print (debug.traceback (_err, 2))
        os.exit(2)
    end

    -- Run main loop
    repeat
        xpcall (loop, err)
    until running == false

    -- Finalise by writing scoreboard entry
    local exitstring = os.date("%c").." v"..common.version.." - Course: \'" ..tostring(game.state:name())
    exitstring = exitstring .. "\'. completed " .. #game.state.scorecard .. "/" .. game.state:total_holes() .. " holes."
    exitstring = exitstring .. competition.get_scorestring(game.state.scorecard, game.state:total_holes()) .. '\n'
    local scoreboard = io.open ("scoreboard.txt", "a+" )
    io.output(scoreboard) io.write(exitstring) io.close(scoreboard)
    print(exitstring)

    -- Exit when finished
    os.exit(0)
end