-- LUALOCALS < ---------------------------------------------------------
local minetest, nodecore, pairs, vector
    = minetest, nodecore, pairs, vector
-- LUALOCALS > ---------------------------------------------------------

local modname = minetest.get_current_modname()

local ldname = "nc_terrain:dirt_loose"
local epname = modname .. ":eggcorn_planted"

minetest.register_node(modname .. ":eggcorn", {
		description = "Eggcorn",
		drawtype = "plantlike",
		paramtype = "light",
		visual_scale = 0.5,
		wield_scale = {x = 0.75, y = 0.75, z = 1.5},
		collision_box = nodecore.fixedbox(-3/16, -0.5, -3/16, 3/16, 0, 3/16),
		selection_box = nodecore.fixedbox(-3/16, -0.5, -3/16, 3/16, 0, 3/16),
		inventory_image = "[combine:24x24:4,4=" .. modname .. "_eggcorn.png",
		tiles = { modname .. "_eggcorn.png" },
		groups = {
			snappy = 1,
			flammable = 3,
			attached_node = 1,
		},
		node_placement_prediction = "",
		place_as_item = true,
		sounds = nodecore.sounds("nc_tree_corny"),
		stack_rightclick = function(pos, _, whom, stack)
			if nodecore.stack_get(pos):get_count() ~= 1 then return end
			local def = minetest.registered_items[stack:get_name()]
			if (not def) or (not def.groups) or (not def.groups.dirt_loose) then return end

			minetest.set_node(pos, {name = epname})
			nodecore.node_sound(pos, "place")

			if nodecore.player_stat_add then
				nodecore.player_stat_add(1, whom, "craft", "eggcorn planting")
			end
			minetest.log((whom and whom:get_player_name() or "unknown")
				.. " planted an eggcorn at " .. minetest.pos_to_string(pos))

			stack:set_count(stack:get_count() - 1)
			return stack
		end
	})

nodecore.register_limited_abm({
		interval = 1,
		chance = 1,
		nodenames = {modname .. ":eggcorn"},
		action = function(pos)
			minetest.remove_node(pos)
			return nodecore.place_stack(pos, modname .. ":eggcorn")
		end
	})

nodecore.register_leaf_drops(function(_, node, list)
		list[#list + 1] = {
			name = "air",
			item = modname .. ":eggcorn",
			prob = 0.05 * (node.param2 + 1)}
	end)

local epdef = nodecore.underride({drop = ldname}, minetest.registered_items[ldname] or {})
epdef.groups.soil = nil
minetest.register_node(epname, epdef)

local function growthcheck(pos)
	local anode = minetest.get_node({x = pos.x, y = pos.y + 1, z = pos.z})
	if anode.name ~= "air" then return 0 end
	return nodecore.tree_growth_rate(pos)
end

local function growtree(pos)
	minetest.sound_play("nc_tree_woody", {pos = pos, gain = 5})
	for _ = 1, 4 do
		minetest.sound_play("nc_terrain_swishy", {pos = pos, gain = 3})
	end
	local leaves = {}
	for i = 1, 8 do
		local p = {x = pos.x, y = pos.y + i, z = pos.z}
		local n = minetest.get_node(p)
		if n.name == modname .. ":leaves" then
			leaves[p] = n
			minetest.remove_node(p)
		else
			local def = minetest.registered_nodes[n.name]
			if def and def.buildable_to then
				leaves[p] = n
				minetest.remove_node(p)
			end
		end
	end
	local place = {x = pos.x - 2, y = pos.y, z = pos.z - 2}
	minetest.get_meta(pos):from_table({})
	minetest.place_schematic(place, nodecore.tree_schematic,
		"random", {}, false)
	for p, n in pairs(leaves) do
		if minetest.get_node(p).name == "air" then
			minetest.set_node(p, n)
		end
	end
end

minetest.register_chatcommand("growtrees", {
		description = "Instantly grow nearby trees",
		privs = { ["debug"] = true },
		func = function(pname)
			local player = minetest.get_player_by_name(pname)
			if not player then return end
			local pos = player:get_pos()
			local range = {x = 5, y = 5, z = 5}
			local min = vector.subtract(pos, range)
			local max = vector.add(pos, range)
			for _, p in pairs(minetest.find_nodes_in_area(min, max, {epname})) do
				local r = growthcheck(p)
				if r and r > 0 then growtree(p) end
			end
		end
	})

nodecore.register_soaking_abm({
		label = "EggCorn Growing",
		nodenames = {epname},
		interval = 10,
		chance = 1,
		limited_max = 100,
		limited_alert = 1000,
		qtyfield = "growth",
		timefield = "start",
		soakrate = growthcheck,
		soakcheck = function(data, pos)
			if data.total >= 5000 then return growtree(pos) end
			local zero = {x = 0, y = 0, z = 0}
			nodecore.digparticles(minetest.registered_items[modname .. ":leaves"],
				{
					amount = data.rate,
					time = 10,
					minpos = {
						x = pos.x - 0.3,
						y = pos.y + 33/64,
						z = pos.z - 0.3
					},
					maxpos = {
						x = pos.x + 0.3,
						y = pos.y + 33/64,
						z= pos.z + 0.3
					},
					minvel = zero,
					maxvel = zero,
					minexptime = 0.1,
					maxexptime = 0.5,
					minsize = 1,
					maxsize = 3,
				})
		end
	})