RedMew/user_groups.lua

global.regulars = require "resources.regulars"
global.mods = require "resources.mods"

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"] = true,\n', player_name)
		game.write_file(file, line, true, 0)
	end
	game.write_file(file, "}", true, 0)
end

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

function is_mod(player_name)
	return global.mods[player_name:lower()]
end

function is_regular(player_name)
	return global.regulars[player_name:lower()]
end

function add_regular(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:lower()] = ""
			update_group("regulars")
		else
			player_print(player_name .. " does not exist.")
		end
	end
end

function add_mod(player_name)
	local actor = get_actor()
	if is_mod(player_name) then
		player_print(player_name .. " is already a moderator.")
	else
		if game.players[player_name] then
			game.print(actor .. " promoted " .. player_name .. " to moderator.")
			global.mods[player_name:lower()] = ""
			update_group("mods")
		else
			player_print(player_name .. " does not exist.")
		end
	end
end

function remove_regular(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

function remove_mod(player_name)
	local actor = get_actor()
	if is_mod(player_name) then
		game.print(player_name .. " was demoted from mod by " .. actor .. ".")
	end
	global.mods[player_name] = nil
	update_group("mods")
end

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

function print_mods()
	for k, _ in pairs(global.mods) do
		player_print(k)
	end
end