server-nalc/mods/interact/init.lua

dofile(minetest.get_modpath("interact") .. "/config.lua")
dofile(minetest.get_modpath("interact") .. "/rules.lua") --I put the rules in their own file so that they don't get lost/overlooked!

local rule1 = 0
local rule2 = 0
local rule3 = 0
local rule4 = 0
local multi = 0

local function make_formspec(player)
	local name = player:get_player_name()
	local size = { "size[10,4]" }
	table.insert(size, "background[0,0;10,4;background.jpg]")
	table.insert(size, "label[0.5,0.5;" ..interact.s1_header.. "]")
	table.insert(size, "label[0.5,1.5;" ..interact.s1_l2.. "]")
	table.insert(size, "label[0.5,2;" ..interact.s1_l3.. "]")
	table.insert(size, "button_exit[5.5,3.4;2,0.5;no;" ..interact.s1_b1.. "]")
	table.insert(size, "button[7.5,3.4;2,0.5;yes;" ..interact.s1_b2.. "]")
	return table.concat(size)
end

local function make_formspec2(player)
	local name = player:get_player_name()
	local size = { "size[10,4]" }
	table.insert(size, "background[0,0;10,4;background.jpg]")
	table.insert(size, "label[0.5,0.5;" ..interact.s2_l1.. "]")
	table.insert(size, "label[0.5,1;" ..interact.s2_l2.. "]")
	table.insert(size, "button_exit[2.5,3.4;3.5,0.5;interact;" ..interact.s2_b1.. "]")
	table.insert(size, "button_exit[6.4,3.4;3.6,0.5;visit;" ..interact.s2_b2.. "]")
	return table.concat(size)
end

local function make_formspec3(player)
	local size = { "size[10,8]" }
	table.insert(size, "background[0,0;10,8;background.jpg]")
	table.insert(size, "textarea[0.5,0.5;9.5,7.5;TOS;" ..interact.s3_header.. ";" ..interact.rules.. "]")
	table.insert(size, "button[5.5,7.4;2,0.5;decline;" ..interact.s3_b2.. "]")
	table.insert(size, "button_exit[7.5,7.4;2,0.5;accept;" ..interact.s3_b1.. "]")
	return table.concat(size)
end

local function make_formspec4(player)
	local name = player:get_player_name()
	local size = { "size[10,9]" }
	if interact.s4_to_rules_button == true then
		table.insert(size, "button_exit[7.75,0.25;2.1,0.1;rules;" ..interact.s4_to_rules.. "]")
	end
	table.insert(size, "label[0.25,0;" ..interact.s4_header.."]")
	table.insert(size, "label[0.5,0.5;" ..interact.s4_question1.."]")
	table.insert(size, "checkbox[0.25,1;rule1_true;" ..interact.s4_question1_true.."]")
	table.insert(size, "checkbox[4,1;rule1_false;" ..interact.s4_question1_false.. "]")
	table.insert(size, "label[0.5,2;" ..interact.s4_question2.. "]")
	table.insert(size, "checkbox[0.25,2.5;rule2_true;" ..interact.s4_question2_true.. "]")
	table.insert(size, "checkbox[4,2.5;rule2_false;" ..interact.s4_question2_false.. "]")
	table.insert(size, "label[0.5,3.5;" ..interact.s4_question3.. "]")
	table.insert(size, "checkbox[0.25,4;rule3_true;" ..interact.s4_question3_true.. "]")
	table.insert(size, "checkbox[4,4;rule3_false;" ..interact.s4_question3_false.. "]")
	table.insert(size, "label[0.5,5;" ..interact.s4_question4.. "]")
	table.insert(size, "checkbox[0.25,5.5;rule4_true;" ..interact.s4_question4_true.. "]")
	table.insert(size, "checkbox[4,5.5;rule4_false;" ..interact.s4_question4_false.."]")
	table.insert(size, "label[0.5,6.5;" ..interact.s4_multi_question.. "]")
	table.insert(size, "checkbox[4.75,6.25;multi_choice1;" ..interact.s4_multi1.. "]")
	table.insert(size, "checkbox[0.25,7;multi_choice2;" ..interact.s4_multi2.. "]")
	table.insert(size, "checkbox[4.75,7;multi_choice3;" ..interact.s4_multi3.."]")
	table.insert(size, "background[0,0;10,9;background.jpg]")
	table.insert(size, "button_exit[3,8.4;3.5,0.5;submit;" ..interact.s4_submit.."]")
	return table.concat(size)
end

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "welcome" then return end
	local name = player:get_player_name()
	if fields.no then
		if interact.screen2 == false then
			minetest.after(1, function()
				minetest.show_formspec(name, "rules", make_formspec3(player))
			end)
		else
			minetest.after(1, function()
				minetest.show_formspec(name, "visit", make_formspec2(player))
			end)
		end
		return
	elseif fields.yes then
		if interact.grief_ban ~= true then
			minetest.kick_player(name, interact.msg_grief)
		else
			minetest.ban_player(name)
		end
	return
	end
end)

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "visit" then return end
	local name = player:get_player_name()
	if fields.interact then
		minetest.after(1, function()
			minetest.show_formspec(name, "rules", make_formspec3(player))
		end)
		return
	elseif fields.visit then
		minetest.chat_send_player(name, interact.visit_msg)
		minetest.log("action", name.. " is just visiting.")
	return
	end
end)


minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "rules" then return end
	local name = player:get_player_name()
	if fields.accept then
		if interact.screen4 == false then
			if minetest.check_player_privs(name, interact.priv) then
				minetest.chat_send_player(name, interact.interact_msg1)
				minetest.chat_send_player(name, interact.interact_msg2)
				local privs = minetest.get_player_privs(name)
				privs.interact = true
				minetest.set_player_privs(name, privs)
				minetest.log("action", "Granted " ..name.. " interact.")
			end
		else
			minetest.after(1, function()
				minetest.show_formspec(name, "quiz", make_formspec4(player))
			end)
		end
		return
	elseif fields.decline then
		if interact.disagree_ban ~= true then
			minetest.kick_player(name, interact.disagree_msg)
		else
			minetest.ban_player(name)
		end
	return
	end
end)

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "quiz" then return end
	local name = player:get_player_name()
	if fields.rules then
		minetest.after(1, function()
			minetest.show_formspec(name, "rules", make_formspec3(player))
		end)
		return
	end
	if fields.rule1_true then rule1 = true
	elseif fields.rule1_false then rule1 = false
	elseif fields.rule2_true then rule2 = true
	elseif fields.rule2_false then rule2 = false
	elseif fields.rule3_true then rule3 = true
	elseif fields.rule3_false then rule3 = false
	elseif fields.rule4_true then rule4 = true
	elseif fields.rule4_false then rule4 = false
	elseif fields.multi_choice1 then multi = 1
	elseif fields.multi_choice2 then multi = 2
	elseif fields.multi_choice3 then multi = 3 end
	if fields.submit and rule1 == interact.quiz1 and rule2 == interact.quiz2 and
	rule3 == interact.quiz3 and rule4 == interact.quiz4 and multi == interact.quiz_multi then
		rule1 = 0
		rule2 = 0
		rule3 = 0
		rule4 = 0
		multi = 0
		if minetest.check_player_privs(name, interact.priv) then
			minetest.chat_send_player(name, interact.interact_msg1)
			minetest.chat_send_player(name, interact.interact_msg2)
			local privs = minetest.get_player_privs(name)
			privs.interact = true
			minetest.set_player_privs(name, privs)
			minetest.log("action", "Granted " ..name.. " interact.")
		end
	elseif fields.submit then
		rule1 = 0
		rule2 = 0
		rule3 = 0
		rule4 = 0
		multi = 0
		if interact.on_wrong_quiz == "kick" then
			minetest.kick_player(name, interact.wrong_quiz_kick_msg)
		elseif interact.on_wrong_quiz == "ban" then
			minetest.ban_player(name)
		elseif interact.on_wrong_quiz == "reshow" then
			minetest.chat_send_player(name, interact.quiz_try_again_msg)
			minetest.after(1, function()
				minetest.show_formspec(name, "quiz", make_formspec4(player))
			end)
		elseif interact.on_wrong_quiz == "rules" then
			minetest.chat_send_player(name, interact.quiz_rules_msg)
			minetest.after(1, function()
				minetest.show_formspec(name, "rules", make_formspec3(player))
			end)
		else
			minetest.chat_send_player(name, interact.quiz_fail_msg)
		end
	end
end)

minetest.register_chatcommand("rules",{
	params = "",
	description = "Shows the server rules",
	privs = interact.priv,
	func = function (name,params)
	local player = minetest.get_player_by_name(name)
		if not interact.blacklist[name] then
			if interact.screen1 ~= false then
				minetest.after(1, function()
					minetest.show_formspec(name, "welcome", make_formspec(player))
				end)
			elseif interact.screen2 ~= false then
				minetest.after(1, function()
					minetest.show_formspec(name, "visit", make_formspec2(player))
				end)
			else
				minetest.after(1, function()
					minetest.show_formspec(name, "rules", make_formspec3(player))
				end)
			end
		else
			minetest.log("action", "[interact] Blacklisted player " .. name .. " tried to get back " ..
				"his revoked privilege")
			return false, "Sorry, you've been blacklisted by " ..
				(interact.blacklist[name].emitter or "<unknown>") .. " on " ..
				(interact.blacklist[name].date or "<unknown>") .. " . Thus, you can't use " ..
				" this command to get interact back. Sorry."
		end
	end
})

function start_formspecs(player)
	local name = player:get_player_name()
	if not minetest.get_player_privs(name).interact then
		if not interact.blacklist[name] then
			if interact.screen1 ~= false then
				minetest.show_formspec(name, "welcome", make_formspec(player))
			elseif interact.screen2 ~= false then
				minetest.show_formspec(name, "visit", make_formspec2(player))
			else
				minetest.show_formspec(name, "rules", make_formspec3(player))
			end
		end
	end
end

minetest.register_on_joinplayer(start_formspecs)


-- Blacklist

interact.blacklist = {}

minetest.register_chatcommand("unblacklist", {
	params = "<playername>",
	description = "Remove a player from the interact blacklist",
	privs = {basic_privs = true, interact = true},
	func = function(name, param)
		if param == "" then
			return false, "Give a player's name to remove from the blacklist."
		end

		if not interact.blacklist[param] then
			return true, "Player " .. param " is not actually blacklisted."
		end

		if name == param then
			return true, "Ahahaha. Well tried looser."
		end

		minetest.log("action", "[interact] " .. name .. " removed " .. param .. " from " ..
			"blacklist (added on " .. (interact.blacklist[param].date or "<unknown>") ..
			" by " .. (interact.blacklist[param].emitter or "<unknown>") .. ")")
		interact.blacklist[param] = nil
		return true, "Done."
	end
})

minetest.register_chatcommand("blacklist", {
	params = "<playername>",
	description = "Blacklist a player. [S]He won't be able to use /rules.",
	privs = {basic_privs = true, interact = true},
	func = function(name, param)
		if param == "" then
			return false, "Give a player's name to blacklist."
		end

		local blackfile = io.open(minetest.get_worldpath() .. "/players/" .. param, "r")
		if not blackfile then
			return false, "Player doesn't exist."
		end
		io.close(blackfile)

		if name == param then
			return true, "You know this wouldn't work, right?"
		end

		if interact.blacklist[param] then
			return true, "Player already blacklisted."
		end

		if minetest.get_player_privs(param).interact == true then
			return true, "Warning: This player has interact! Use revoke before blacklisting."
		end

		interact.blacklist[param] = {
			emitter = name,
			date = os.date("%m/%d/%Y")
		}
		minetest.log("action", "[interact] " .. name .. " added " .. param .. " on /rules blacklist.")
		return true, "Player " .. param .. " blacklisted."
	end
})

function load_blacklist()
	local file = io.open(minetest.get_worldpath().."/interact_blacklist.txt", "r")
	if not file then
		file = io.open(minetest.get_worldpath().."/interact_blacklist.txt", "w")
		if not file then
			minetest.log("error", "[interact] Error opening blacklist file")
			return
		end
		minetest.log("action", "[interact] Blacklist created")
	end
	local line = file:read()
	if not line then
		interact.blacklist = {}
	else
		interact.blacklist = minetest.deserialize(line)
	end
	minetest.log("action", "[interact] Blacklist loaded")
	file:close()
end

function save_blacklist()
	local file = io.open(minetest.get_worldpath().."/interact_blacklist.txt", "w")
	if not file then
		minetest.log("error", "[interact] Error opening blacklist file")
		return
	end
	file:write(minetest.serialize(interact.blacklist))
	minetest.log("action", "[interact] Blacklist saved")
	file:close()
end

minetest.register_on_shutdown(save_blacklist)
load_blacklist()