RedMew/user_groups.lua

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

local Module = {}

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

Module.get_actor = function()
	if game.player then return game.player.name end
	return "<server>"
end

local is_regular = function(player_name)
	return cast_bool(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 is_regular(player_name) then player_print(player_name .. " is already a regular.")
    else
        if game.players[player_name] then
            game.print(actor .. " promoted " .. player_name .. " to regular.")
            global.regulars[player_name] = true
            update_group("regulars")
        else
            player_print(player_name .. " does not exist.")
        end
    end
end

Module.remove_regular = function(player_name)
	local actor = get_actor()
	if is_regular(player_name) then game.print(player_name .. " was demoted from regular by " .. actor .. ".") end
	global.regulars[player_name] = nil
	update_group("regulars")
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_group("regulars")
	end
end)

Event.add(-1, function()
	if not global.regulars then global.regulars = {} end
end)

return Module