local newnode = fun_caves.clone_node("default:dirt")
newnode.drop = "default:dirt"
newnode.groups.soil = 0
minetest.register_node("fun_caves:hut_floor", newnode)
local farming = minetest.get_modpath('farming')


if mobs and mobs.mod == "redo" then
	local drops = {
		{name = "default:axe_stone", chance = 3, min = 1, max = 1},
		{name = "default:hoe_stone", chance = 3, min = 1, max = 1},
		{name = "default:sword_stone", chance = 3, min = 1, max = 1},
		{name = "default:apple", chance = 2, min = 1, max = 3},
		{name = "farming:bread", chance = 3, min = 1, max = 3},
		{name = "default:cobble", chance = 2, min = 1, max = 3},
	}

	if minetest.registered_items['mobs:leather'] then
		drops[#drops+1] = {name = "mobs:leather", chance = 4, min = 1, max = 2}
	end

	local food = {}
	for i = 1, 5 do
		food[#food+1] = 'default:grass_'..i
	end
	if farming then
		for i = 5, 8 do
			food[#food+1] = 'farming:wheat_'..i
		end
	end
	local function savage_gathering(self)
		if not (self and fun_caves.custom_ready(self)) then
			return
		end

		local pos = self.object:getpos()

		fun_caves.search_replace(pos, 5, food, 'air')

		if math.random(5) == 1 then
			local p1 = vector.subtract(pos, 2)
			local p2 = vector.add(pos, 2)
			local soil = minetest.find_nodes_in_area_under_air(p1, p2, {'farming:soil_wet'})
			if soil and #soil > 0 then
				local p = soil[math.random(#soil)]
				p.y = p.y + 1
				minetest.add_node(p, {name = 'farming:seed_wheat', param2 = 1})
				local timer = minetest.get_node_timer(p)
				if timer then
					timer:start(math.random(166, 286))
				end
			end
		end

		fun_caves.surface_damage(self)
	end

	mobs:register_mob("fun_caves:savage", {
		description = "Primitive Savage",
		type = "monster",
		passive = false,
		damage = 1,
		attack_type = "dogfight",
		attacks_monsters = true,
		hp_min = 5,
		hp_max = 20,
		armor = 100,
		fear_height = 4,
		collisionbox = {-0.35,-1,-0.35, 0.35,0.9,0.35},
		visual = "mesh",
		mesh = "character.b3d",
		drawtype = "front",
		textures = {
			{"fun_caves_savage_1.png"},
		},
		makes_footstep_sound = true,
		--sounds = {
		--	random = "goblins_goblin_ambient",
		--	warcry = "goblins_goblin_attack",
		--	attack = "goblins_goblin_attack",
		--	damage = "goblins_goblin_damage",
		--	death = "goblins_goblin_death",
		--	distance = 15,
		--},
		walk_velocity = 2,
		run_velocity = 3,
		jump = true,
		drops = drops,
		water_damage = 1,
		lava_damage = 2,
		light_damage = 0,
		--lifetimer = 360,
		view_range = 20,
		owner = "",
		animation = {
			stand_start     =   0,
			stand_end       =  79,
			sit_start       =  81,
			sit_end         = 160,
			sleep_start     = 162,
			sleep_end       = 166,
			walk_start      = 168,
			walk_end        = 187,
			mine_start      = 189,
			mine_end        = 198,
			walkmine_start  = 200,
			walkmine_end    = 219,
		},
		animation_speed = 30,
		on_rightclick = nil,
		do_custom = savage_gathering,
	})


	--mobs:register_egg("fun_caves:savage", "Primitive Savage", "farming_straw.png", 1)
	mobs:register_spawn("fun_caves:savage", {'fun_caves:hut_floor'}, 100, 0, 20, 3, 2000)
end


local function build_hut(data, area, node, pos, turf)
	if not (data and area and node and pos and turf and type(data) == 'table') then
		return
	end

	local door = {x = ({2,7})[math.random(2)], z = ({2,7})[math.random(2)]}

	for z = 1, 8 do
		for x = 1, 8 do
			local ivm = area:index(pos.x + x - 1, pos.y, pos.z + z - 1)
			if x > 1 and x < 8 and z > 1 and z < 8 then
				data[ivm] = node['fun_caves:hut_floor']
				ivm = ivm + area.ystride
				for y = 2, 4 do
					if x == 2 or x == 7 or z == 2 or z == 7 then
						--if y <= 3 and ((z == 4 and x == door.x) or (x == 4 and z == door.z)) then
						--	data[ivm] = node['air']
						if y <= 3 and ((z % 3 == 0 and (x == 2 or x == 7)) or (x % 3 == 0 and (z == 2 or z == 7))) then
							data[ivm] = node['air']
						else
							data[ivm] = node['default:wood']
						end
					else
						data[ivm] = node['air']
					end
					ivm = ivm + area.ystride
				end
				data[ivm] = node['fun_caves:dry_fiber']
			else
				data[ivm] = node[turf]
				ivm = ivm + area.ystride
				for y = 2, 5 do
					data[ivm] = node['air']
					ivm = ivm + area.ystride
				end
			end
		end
	end
end

fun_caves.village = function(minp, maxp, data, p2data, area, node, biome, heightmap)
	if not (minp and maxp and data and p2data and area and node and type(data) == 'table' and type(p2data) == 'table') then
		return
	end

	if not biome or math.random(10) ~= 1 then
		return
	end
	local turf
	if biome:find('grass') or biome:find('forest') then
		turf = 'default:dirt_with_grass'
	elseif biome:find('taiga') or biome:find('tundra') then
		turf = 'default:dirt_with_snow'
	elseif biome:find('savanna') then
		turf = 'default:dirt_with_dry_grass'
	else
		return
	end

	local height_avg = 0
	local height_max = -31000
	local height_min = 31000
	for i = 1, #heightmap do
		height_avg = height_avg + heightmap[i]
		if heightmap[i] > height_max then
			height_max = heightmap[i]
		end
		if heightmap[i] < height_min then
			height_min = heightmap[i]
		end
	end
	height_avg = height_avg / #heightmap

	if height_max - height_min > 20 or height_avg < 1 or height_max > maxp.y - 10 or height_min < minp.y + 10 or height_avg < minp.y or height_avg > maxp.y then
		return
	end

	local write = true

	local plots = {}
	for z = 1, 10 do
		plots[z] = {}
		for x = 1, 10 do
			if x == 1 or x == 10 or z == 1 or z == 10 then
				-- nop
			--elseif (x == 5 or x == 6) and (z == 5 or z == 6) then
			--	plots[z][x] = 0
			elseif math.random(5) == 1 and x > 2 and x < 9 and z > 2 and z < 9 then
				plots[z][x] = 2
			elseif math.random(2) == 1 then
				plots[z][x] = 1
			else
				plots[z][x] = 0
			end
		end
	end

	local index = 0
	for z = minp.z, maxp.z do
		local dz = z - minp.z
		local pz = math.ceil(dz / 8)
		for x = minp.x, maxp.x do
			local dx = x - minp.x
			local px = math.ceil(dx / 8)
			index = index + 1

			local radius = math.max(math.abs(40 - dx), math.abs(40 - dz)) / 40
			heightmap[index] = math.floor(heightmap[index] * radius ^ 2 + height_avg * (1 - radius ^ 2) + 0.5)

			if radius <= 0.8 + math.random(10) / 100 then
				local irrigate
				if plots[pz][px] == 1 then
					if (dz % 8 == 3 or dz % 8 == 6) and (dx % 8 == 3 or dx % 8 == 6) then
						irrigate = true
					end
				end

				local ivm = area:index(x, minp.y, z)
				for y = minp.y, maxp.y do
					local dy = y - minp.y

					if y > heightmap[index] and y < 1 then
						data[ivm] = node['default:water_source']
					elseif y == heightmap[index] + 1 and plots[pz][px] == 1 and not irrigate then
						if turf == 'default:dirt_with_snow' then
							if math.random(10) == 1 then
								data[ivm] = node['default:dry_shrub']
							end
						elseif farming then
							data[ivm] = node['farming:wheat_'..math.random(7)]
						end
					elseif y > heightmap[index] then
						data[ivm] = node['air']
					elseif y == heightmap[index] and plots[pz][px] == 1 and irrigate then
						if turf == 'default:dirt_with_snow' then
							data[ivm] = node['default:ice']
						else
							data[ivm] = node['default:water_source']
						end
					elseif y == heightmap[index] and plots[pz][px] == 1 then
						if turf == 'default:dirt_with_snow' then
							data[ivm] = node[turf]
						else
							data[ivm] = node['farming:soil_wet']
						end
					elseif y == heightmap[index] then
						data[ivm] = node[turf]
					elseif y > heightmap[index] - 4 then
						data[ivm] = node['default:dirt']
					elseif y > heightmap[index] - 10 then
						data[ivm] = node['default:stone']
					end

					ivm = ivm + area.ystride
				end
			end
		end
	end

	for z = 1, 10 do
		for x = 1, 10 do
			if plots[z][x] == 2 then
				local pos = {
					x = (x - 1) * 8 + 1,
					z = (z - 1) * 8 + 1,
				}
				local avg = 0
				for hz = pos.z, pos.z + 7 do
					for hx = pos.x, pos.x + 7 do
						avg = avg + heightmap[(hz - 1) * 80 + hx]
					end
				end
				pos.y = math.floor(avg / 64 + 0.5)
				pos.x = pos.x + minp.x
				pos.z = pos.z + minp.z
				build_hut(data, area, node, pos, turf)
			end
		end
	end

	-- -702, -466
	return write
end