-- Minetest mod "City block"
-- City block disables use of water/lava buckets and also sends aggressive players to jail
--2016.02 - improvements suggested by rnd. removed spawn_jailer support. some small fixes and improvements.

--This library is free software; you can redistribute it and/or
--modify it under the terms of the GNU Lesser General Public
--License as published by the Free Software Foundation; either
--version 2.1 of the License, or (at your option) any later version.

city_block={}
city_block.blocks={}
city_block.filename = minetest.get_worldpath() .. "/city_blocks.txt"

function city_block:save()
	local datastring = minetest.serialize(self.blocks)
	if not datastring then
		return
	end
	local file, err = io.open(self.filename, "w")
	if err then
		return
	end
	file:write(datastring)
	file:close()
end

function city_block:load()
	local file, err = io.open(self.filename, "r")
	if err then
		self.blocks = {}
		return
	end
	self.blocks = minetest.deserialize(file:read("*all"))
	if type(self.blocks) ~= "table" then
		self.blocks = {}
	end
	file:close()
end

function city_block:in_city(pos)
	for i, EachBlock in ipairs(self.blocks) do
		if pos.x > (EachBlock.pos.x - 22) and pos.x < (EachBlock.pos.x + 22) and
			 pos.z > (EachBlock.pos.z - 22) and pos.z < (EachBlock.pos.z + 22) and
			 pos.y > (EachBlock.pos.y - 10) and pos.y < (EachBlock.pos.y + 10) then
			return true
		end
	end
	return false
end

function city_block:city_boundaries(pos)
	for i, EachBlock in ipairs(self.blocks) do
		if (pos.x == (EachBlock.pos.x - 21) or pos.x == (EachBlock.pos.x + 21)) and pos.z > (EachBlock.pos.z - 22) and pos.z < (EachBlock.pos.z + 22 ) then
			return true
		end
		if (pos.z == (EachBlock.pos.z - 21) or pos.z == (EachBlock.pos.z + 21)) and pos.x > (EachBlock.pos.x - 22) and pos.x < (EachBlock.pos.x + 22 ) then
			return true
		end
	end
	return false
end

city_block:load()

minetest.register_node("city_block:cityblock", {
	description = "City block mark area 45x45 in size as part of city",
	tiles = {"cityblock.png"},
	is_ground_content = false,
	groups = {cracky=1,level=3},
	is_ground_content = false,
	light_source = LIGHT_MAX,

	after_place_node = function(pos, placer)
		if placer and placer:is_player() then
			table.insert(city_block.blocks, {pos=vector.round(pos), owner=placer:get_player_name()} )
			city_block:save()
		end
	end,
	on_destruct = function(pos)
		for i, EachBlock in ipairs(city_block.blocks) do
			if vector.equals(EachBlock.pos, pos) then
				table.remove(city_block.blocks, i)
				city_block:save()
			end
		end
	end,
})

minetest.register_craft({
	output = 'city_block:cityblock',
	recipe = {
		{'default:pick_mese', 'farming:hoe_mese', 'default:sword_mese'},
		{'default:sandstone', 'default:goldblock', 'default:sandstone'},
		{'default:stonebrick', 'default:mese', 'default:stonebrick'},
	}
})


local old_bucket_water_on_place=minetest.registered_craftitems["bucket:bucket_water"].on_place
minetest.registered_craftitems["bucket:bucket_water"].on_place=function(itemstack, placer, pointed_thing)
	local pos = pointed_thing.above
	if city_block:in_city(pos) then
		minetest.chat_send_player(placer:get_player_name(), "Don't do that in town!")
		return itemstack
	else
		return old_bucket_water_on_place(itemstack, placer, pointed_thing)
	end
end
local old_bucket_lava_on_place=minetest.registered_craftitems["bucket:bucket_lava"].on_place
minetest.registered_craftitems["bucket:bucket_lava"].on_place=function(itemstack, placer, pointed_thing)
	local pos = pointed_thing.above
	if city_block:in_city(pos) then
		minetest.chat_send_player(placer:get_player_name(), "Don't do that in town!")
		return itemstack
	else
		return old_bucket_lava_on_place(itemstack, placer, pointed_thing)
	end
end

function city_block.additional_jail(parameters)
	local name = parameters[1]
	local player = minetest.get_player_by_name(name)
	if player:is_player() then
		player:setpos( {x=0, y=-2, z=0} )
	end
end

city_block.attacker = {}
city_block.attack = {}
city_block.suspects = {}

function city_block.register_on_punchplayer(player, hitter, time_from_last_punch, tool_capabilities, dir, damage)
	if not player or not hitter then
		return
	end
	if not player:is_player() or not hitter:is_player() then
		return
	end
	local pname = player:get_player_name();
	local name = hitter:get_player_name();
	local t = minetest.get_gametime() or 0;
	city_block.attacker[pname] = name;
	city_block.attack[pname] = t;
	local hp = player:get_hp();

	if hp > 0 and (hp - damage) <= 0 then -- player will die because of this hit
		local pos = player:getpos()

		if city_block:in_city(pos) and not pvp_block:in_area(pos) then
			local t0 = city_block.attack[name] or t;
			t0 = t - t0;
			if not city_block.attacker[name] then city_block.attacker[name] = "" end
			--minetest.chat_send_all(" killers attacker ".. city_block.attacker[name] .. " attacked before " .. t0)
			if city_block.attacker[name]==pname and t0 < 10 then -- justified killing 10 seconds after provocation
				return
			else -- go to jail
				--spawn killer, drop items for punishment
				local hitter_inv = hitter:get_inventory();
				pos.y = pos.y + 1
				if hitter_inv then
					-- drop items instead of delete
					for i=1, hitter_inv:get_size("main") do
						minetest.add_item(pos, hitter_inv:get_stack("main", i))
					end
					for i=1, hitter_inv:get_size("craft") do
						minetest.add_item(pos, hitter_inv:get_stack("craft", i))
					end
					-- empty lists main and craft
					hitter_inv:set_list("main", {})
					hitter_inv:set_list("craft", {})
				end
				hitter:setpos( {x=50, y=15.5, z=117} )

				--do something with adwanced griefers
				if city_block.suspects[name] then
					city_block.suspects[name]=city_block.suspects[name] + 1
				else
					city_block.suspects[name] = 1
				end

				if city_block.suspects[name] > 40 then
					minetest.after(3.0, city_block.additional_jail, {name})
					minetest.after(6.0, city_block.additional_jail, {name})
					minetest.after(10.0, city_block.additional_jail, {name})
					minetest.after(16.0, city_block.additional_jail, {name})
				elseif city_block.suspects[name] > 20 then
					minetest.after(3.0, city_block.additional_jail, {name})
					minetest.after(6.0, city_block.additional_jail, {name})
				elseif city_block.suspects[name] > 10 then
					minetest.after(3.0, city_block.additional_jail, {name})
				end

				hitter:setpos( {x=50, y=15.5, z=117} )
				minetest.chat_send_all("Player "..name.." sent to jail for killing " .. pname .." without reason in town")
				minetest.log("action", "Player "..name.." warned for killing in town")
			end
		end
	end
end

if minetest.register_on_punchplayer then --new way of finding attackers, not even in wiki yet.
	minetest.register_on_punchplayer(city_block.register_on_punchplayer)
else    --old, deprecated way of checking. compatible for
	city_block.suspects = {}
	minetest.register_on_dieplayer(
		function(player)
			local pos=player:getpos()
			if city_block:in_city(pos) then
				for _,suspect in pairs(minetest.get_objects_inside_radius(pos, 3.8)) do
					if suspect:is_player() and suspect:get_player_name()~=player:get_player_name() then
						suspect_name=suspect:get_player_name()
						if city_block.suspects[suspect_name] then
							if city_block.suspects[suspect_name]>3 then
								suspect:setpos( {x=0, y=-2, z=0} )
								minetest.chat_send_all("Player "..suspect_name.." sent to jail as suspect for killing in town")
								minetest.log("action", "Player "..suspect_name.." warned for killing in town")
								city_block.suspects[suspect_name]=1
							else
								city_block.suspects[suspect_name]=city_block.suspects[suspect_name]+1
							end
						else
							city_block.suspects[suspect_name]=1
						end
						return false
					end
				end
			end
		end
	)
end


--do not let lava flow across boundary of city block
minetest.register_abm({
	nodenames = {"default:lava_flowing"},
	interval = 5,
	chance = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		if pos.y>14 and city_block:city_boundaries(pos) then
			minetest.set_node(pos, {name="default:stone"})
		end
	end,
})