sick.lua

-- SICK: Simple Indicative of Competitive sKill
-- aka libhighscore
local h = {}
h.scores = {}

function h.set(filename, places, name, score)
	h.filename = filename
	h.places = places
	if not h.load() then
		h.scores = {}
		for i = 1, places do
			h.scores[i] = {score, name}
		end
	end
end

function h.load()
	if love._os == "Windows" then
		file = io.open(h.filename, "r")
		if file == nil then return end
	else
		file = love.filesystem.newFile(h.filename)
		if not love.filesystem.exists(h.filename) or not file:open("r") then return end
	end
	h.scores = {}
	for line in file:lines() do
		local i = line:find('\t', 1, true)
		h.scores[#h.scores+1] = {tonumber(line:sub(1, i-1)), line:sub(i+1)}
	end
	return file:close()
end

local function sortScore(a, b)
	return a[1] > b[1]
end
function h.add(name, score)
	h.scores[#h.scores+1] = {score, name}
	table.sort(h.scores, sortScore)
end

function h.save()
	if love._os == "Windows" then
		file = io.open(h.filename, "w")
		if file == nil then return end
	else
		file = love.filesystem.newFile(h.filename)
		if not file:open("w") then return end
	end
	for i = 1, #h.scores do
		item = h.scores[i]
		file:write(item[1] .. "\t" .. item[2] .. "\n")
	end
	return file:close()
end

setmetatable(h, {__call = function(self)
	local i = 0
	return function()
		i = i + 1
		if i <= h.places and h.scores[i] then
			return i, unpack(h.scores[i])
		end
	end
end})

highscore = h

return h