-- Minetest mod "City block"
-- City block disables use of water/lava buckets and also sends aggressive players to jail

--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"
city_block.suspects={}

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 - 23) and pos.x < (EachBlock.pos.x + 23) and pos.z > (EachBlock.pos.z - 23) and pos.z < (EachBlock.pos.z + 23) 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 - 23) or pos.x == (EachBlock.pos.x + 23)) and pos.z > (EachBlock.pos.z - 23) and pos.z < (EachBlock.pos.z + 23 ) then
            return true
        end
        if (pos.z == (EachBlock.pos.z - 23) or pos.z == (EachBlock.pos.z + 23)) and pos.x > (EachBlock.pos.x - 23) and pos.x < (EachBlock.pos.x + 23 ) 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

--[[local tnt_on_place=minetest.registered_craftitems["tnt:tnt"].on_place
minetest.registered_craftitems["tnt:tnt"].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(), "Do NOT blow anything up in the city!!!!")
        return itemstack
	else
		return tnt_on_place(itemstack, placer, pointed_thing)
	end
end]]




minetest.register_on_dieplayer(
	function(player)
		pos=player:getpos()
		if city_block:in_city(pos) and not(pos.x>-25 and pos.x<25 and pos.y>-5 and pos.y<25 and pos.z>-25 and pos.z<25) then
			for _,suspect in pairs(minetest.get_objects_inside_radius(pos, 13.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=-213, y=2, z=920} )
							minetest.chat_send_all("Player "..suspect_name.." sent to PRISON 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
)

--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,
})