local S = minetest.get_translator("jail")

jail = {}
jail.forced_labor = {y = tonumber(minetest.settings:get("jail_upper_limit_underground_y")) or -14848}
jail.jailpos = {
	x = tonumber(minetest.settings:get("jail_prison_spawn_point_x")) or 666,
	y = tonumber(minetest.settings:get("jail_prison_spawn_point_y")) or 5,
	z = tonumber(minetest.settings:get("jail_prison_spawn_point_z")) or 2
}
jail.escape_boundary = tonumber(minetest.settings:get("jail_wrap_radius")) or 50
local releasepos = {
	x = tonumber(minetest.settings:get("jail_releasepos_x")) or 684,
	y = tonumber(minetest.settings:get("jail_releasepos_y")) or 5,
	z = tonumber(minetest.settings:get("jail_releasepos_z")) or -7
}
local timer = 0
local lower_prison_limit = tonumber(minetest.settings:get("jail_lower_prison_limit")) or -5

dofile(minetest.get_modpath("jail") .. "/nodes.lua")

minetest.register_privilege("jail", { description = S("Allows one to send/release prisoners") })

local mod_storage = minetest.get_mod_storage()
local prisoners = mod_storage:get_string("prisoners")
prisoners_list = {}

for line in prisoners:gmatch("[^\n]+") do
	table.insert(prisoners_list, line)
end

jail.set_permissions_for_the_jail = function (player)
	minetest.set_player_privs(player, {
		interact = true,
	})
end

jail.add_jail = function(self_player_name, player_name)
	if (minetest.player_exists(player_name)) then
		for i = 1, #prisoners_list do
			if prisoners_list[i] == player_name then
				minetest.chat_send_player(self_player_name, S("The player is already in jail"))
				return
			end
		end
		table.insert(prisoners_list, player_name)
		jail.set_permissions_for_the_jail(player_name)
		local player = minetest.env:get_player_by_name(player_name)
		minetest.chat_send_all(minetest.colorize("red", 
					"" .. player_name .. " " .. S("has been sent to jail by") .. " " .. self_player_name))
		if (player) then			
			local player_inv = player:get_inventory() -- получить инвентарь игрока
			local bags_inv = minetest.get_inventory({
				type = "detached",
				name = player_name .. "_bags"
			}) -- получить сумки игрока
			player_inv:set_list("main", {}) -- очистить инвентарь
			for i = 1, 4 do
				player_inv:set_list("bag" .. i .. "contents", {}) -- очистить инвентарь сумок
				if (bags_inv) then
					bags_inv:set_stack("bag" .. i, 1, "") -- отобрать сумки
				end
			end
			player:setpos(jail.jailpos)
			minetest.chat_send_player(player_name, minetest.colorize("red", S("You have been sent to jail")))
		end
	else
		minetest.chat_send_player(self_player_name, minetest.colorize("red", S("The player '") .. player_name .. S("' does not exist, check that the nickname is correct")))
	end
end

jail.remove_bags = function(self_player_name, player_name)
	if (minetest.player_exists(player_name)) then
		local player = minetest.env:get_player_by_name(player_name)
		if (player) then
			local player_inv = player:get_inventory() -- получить инвентарь игрока
			local bags_inv = minetest.get_inventory({
				type = "detached",
				name = player_name .. "_bags"
			}) -- получить сумки игрока
			for i = 1, 4 do
				player_inv:set_list("bag" .. i .. "contents", {}) -- очистить инвентарь сумок
				if (bags_inv) then
					bags_inv:set_stack("bag" .. i, 1, "") -- отобрать сумки
				end
			end
			minetest.chat_send_player(self_player_name,
				S('The player bags have been removed'))
		end
	else
		minetest.chat_send_player(self_player_name,
			minetest.colorize("red",
				S("The player '") .. player_name .. S("' does not exist, check that the nickname is correct")))
	end
end

jail.set_release_privs = function(self_name, player, prisoners_list_id)
	minetest.set_player_privs(player, {
		interact = true,
		shout = true,
		home = true,
		spawn = true,
		tp = true
	})
	minetest.chat_send_all(minetest.colorize("green",
			"" .. player .. " " .. S("has been released from jail by") .. " " .. self_name))

	table.remove(prisoners_list, prisoners_list_id)
end

jail.release_id = function(self_name, id_player)
	local id = tonumber(id_player)
	local playername = prisoners_list[id]
	if (id == nil or id > #prisoners_list or id <= 0) then
		minetest.chat_send_player(self_name, S("Invalid ID"))
		return
	end

	local player = minetest.env:get_player_by_name(playername)
	if (player) then
		player:setpos(releasepos)
		minetest.chat_send_player(playername, minetest.colorize("green", S("You have been released from jail")))
		jail.set_release_privs(self_name, playername, id)
	else
		jail.set_release_privs(self_name, playername, id)
	end
end

jail.release = function(self_name, player_name)
	for i = 1, #prisoners_list do
		if player_name == prisoners_list[i] then
			local player = minetest.env:get_player_by_name(player_name)
			if (player) then
				player:setpos(releasepos)
				minetest.chat_send_player(player_name, minetest.colorize("green", S("You have been released from jail")))
			end
			jail.set_release_privs(self_name, player_name, i)
			return
		else
			minetest.chat_send_player(self_name, S("Invalid playername"))
		end
	end
end

minetest.register_chatcommand("jail", {
	params = "<player>",
	description = S("Sends a player to Jail"),
	privs = { jail = true },
	func = function(name, param)
		jail.add_jail(name, param)
	end,
})

minetest.register_chatcommand("jail_return", {
	params = "<ID prisoners>",
	description = S("Return a prisoner to jail"),
	privs = { jail = true },
	func = function(name, param)
		local id = tonumber(param)
		local playername = prisoners_list[id]
		if (id == nil or id > #prisoners_list or id <= 0) then
			minetest.chat_send_player(name, S("Invalid ID"))
			return
		end
		local player = minetest.env:get_player_by_name(playername)
		if (player) then
			player:setpos(jailpos)
			minetest.chat_send_player(playername, minetest.colorize("red", S("You have been return to jail")))
			minetest.chat_send_all(minetest.colorize("red",
				"" .. param .. " " .. S("has been return to jail by") .. " " .. name))
		end
	end,
})

minetest.register_chatcommand("release", {
	params = "<nickname prisoners>",
	description = S("Releases a player from Jail by nickname"),
	privs = { jail = true },
	func = function(name, param)
		jail.release(name, param)
	end,
})

minetest.register_chatcommand("release_id", {
	params = "<ID prisoners>",
	description = S("Releases a player from Jail by ID"),
	privs = { jail = true },
	func = function(name, param)
		jail.release_id(name, param)
	end,
})

minetest.register_chatcommand("jail_list", {
	description = S("List of prisoners"),
	privs = {
		jail = true,
	},
	func = function(name)
		minetest.chat_send_player(name, minetest.colorize("cyan", S("Prisoners:")))
		for i = 1, #prisoners_list do
			minetest.chat_send_player(name, i .. " - " .. prisoners_list[i])
		end
		return true, S("Total number of prisoners:") .." ".. #prisoners_list
	end
})

minetest.register_chatcommand("jailb_on", {
	description = S("Show border"),
	privs = {
		jail = true,
	},
	func = function(name, del_node)
		minetest.set_node(jail.jailpos, { name = "jail:borders" })

		return true, 'Border display'
	end
})

minetest.register_chatcommand("jailb_off", {
	description = S("remove"),
	privs = {
		interact = true,
	},
	func = function(name, del_node)
        minetest.remove_node(jail.jailpos) --удаление
		return true, S('The border is hidden')
	end
})

minetest.register_chatcommand("remove_bags", {
	params = "<player>",
	description = S("Remove bags from inventory"),
	privs = { jail = true },
	func = function(name, param)
		jail.remove_bags(name, param)
	end,
})

minetest.register_on_shutdown(function()
	local prisoners = table.concat(prisoners_list, "\n")
	mod_storage:set_string("prisoners", prisoners)
end)

jail.private_messages_with_privilege = function(list_privs, msg)
	local player_name = 'player_name'

	for _, player in ipairs(minetest.get_connected_players()) do
		player_name = player:get_player_name()

		boolean = minetest.check_player_privs(player:get_player_name(), list_privs)
		if boolean then
			minetest.chat_send_player(player_name, msg)
		end
	end
end

minetest.register_globalstep(function(dtime)
	local forced_labor = jail.forced_labor.y + 1000
	local max_pos_x = jail.jailpos.x + jail.escape_boundary
	local min_pos_x = jail.jailpos.x - jail.escape_boundary
	local max_pos_y = jail.jailpos.x + jail.escape_boundary
	local max_pos_z = jail.jailpos.z + jail.escape_boundary
	local min_pos_z = jail.jailpos.z - jail.escape_boundary
	local msg = ''

	-- every 5 seconds
	if timer > os.time() then
		return
	end
	timer = os.time() + 5

	for i = 1, #prisoners_list do
		local object = minetest.env:get_player_by_name(prisoners_list[i])

		if object then
			local pos = object:get_pos()

			if (max_pos_x < pos.x or pos.x < min_pos_x or max_pos_z < pos.z or pos.z < min_pos_z or pos.y > max_pos_y)
					and pos.y > lower_prison_limit then
				object:set_pos(jail.jailpos)
				msg = minetest.colorize("red", S("Escape attempt: ") .. " " .. prisoners_list[i])
				jail.private_messages_with_privilege({ban = true}, msg)
				minetest.chat_send_player(prisoners_list[i], msg)
				jail.set_permissions_for_the_jail(prisoners_list[i])
			end

			--Проверка если игрок копает в низ по кординатам тюрьмы
			if pos.y < lower_prison_limit and pos.y > forced_labor then
				object:set_pos(jail.jailpos)
				msg = minetest.colorize("red", prisoners_list[i] .. S(": He dug under the prison"))
				jail.private_messages_with_privilege({ban = true}, msg)
				minetest.chat_send_player(prisoners_list[i], msg)
				jail.set_permissions_for_the_jail(prisoners_list[i])
			end

			--Условие если игрок находится взаданом параметре jail.forced_labor.y под землей
			if pos.y > jail.forced_labor.y and pos.y < -10 then
				object:set_pos(jail.jailpos)
				minetest.chat_send_player(prisoners_list[i], minetest.colorize("red", S("You are prohibited from leaving this area")))
				jail.set_permissions_for_the_jail(prisoners_list[i])
			end
		end
	end
end)

dofile(minetest.get_modpath("jail") .. "/main_form.lua")