RedMew/user_groups.lua

global.regulars = {}
local Event = require "utils.event"

local Module = {}

local function update_file()
	local file = "regulars.lua"
	game.write_file(file, "{", false, 0)
	local line = ""
	for player_name,_ in pairs(global.regulars) do
		line = string.format('["%s"] = "",\n', player_name)
		game.write_file(file, line, true, 0)
	end
	game.write_file(file, "}", true, 0)
end



Module.is_regular = function(player_name)
	return false or global.regulars[player_name] or global.regulars[player_name:lower()] --to make it backwards compatible
end

Module.add_regular = function(player_name)
    local actor = get_actor()
    if Module.is_regular(player_name) then player_print(player_name .. " is already a regular.")
    else
        if game.players[player_name] then
            player_name = game.players[player_name].name
            game.print(actor .. " promoted " .. player_name .. " to regular.")
            global.regulars[player_name] = true
            update_file()
        else
            player_print(player_name .. " does not exist.")
        end
    end
end

Module.remove_regular = function(player_name)
    local actor = get_actor()
    if game.players[player_name] then
        player_name = game.players[player_name].name
        if Module.is_regular(player_name) then game.print(player_name .. " was demoted from regular by " .. actor .. ".") end
	global.regulars[player_name] = nil
	global.regulars[player_name:lower()] = nil --backwards compatible
	update_file()
    end
end

Module.print_regulars = function()
	for k,_ in pairs(global.regulars) do
		player_print(k)
	end
end

Event.add(defines.events.on_player_joined_game, function(event)
  local correctCaseName = game.players[event.player_index].name
	if global.regulars[correctCaseName:lower()] and not global.regulars[correctCaseName] then
		global.regulars[correctCaseName:lower()] = nil
		global.regulars[correctCaseName] = true
		update_file()
	end
end)

return Module