local S = core.get_translator("mcl_mangrove")
local modname = core.get_current_modname()
local modpath = core.get_modpath(modname)

mcl_trees.register_wood("mangrove",{
	readable_name="Mangrove",
	sign_color="#8E3731",
	sapling=false,
	saplingdrop="mcl_mangrove:propagule",
	tree_schems = {
		{file = modpath.."/schematics/mcl_mangrove_tree_1.mts", offset = vector.new(1,0,1)},
		{file = modpath.."/schematics/mcl_mangrove_tree_2.mts",},
		{file = modpath.."/schematics/mcl_mangrove_tree_3.mts",},
		{file = modpath.."/schematics/mcl_mangrove_tree_4.mts",},
		{file = modpath.."/schematics/mcl_mangrove_tree_5.mts", offset = vector.new(1,0,1)},
		{file = modpath.."/schematics/mcl_mangrove_bee_nest.mts", offset = vector.new(0,0,1)},
	},
	tree = { tiles = {"mcl_mangrove_log_top.png", "mcl_mangrove_log_top.png","mcl_mangrove_log.png" }},
	bark = { tiles = {"mcl_mangrove_log.png"}},
	leaves = {
		tiles = { "mcl_mangrove_leaves.png" },
		color = "#6a7039",
		_on_bone_meal = function(_, _, _, pos)
			local upos = vector.offset(pos, 0,-1,0)
			return core.get_node(upos).name == "air" and core.set_node(upos, {name="mcl_mangrove:propagule_hanging_1"})
		end,
	},
	wood = { tiles = {"mcl_mangrove_planks.png"}},
	stripped = {
		tiles = {"mcl_stripped_mangrove_log_top.png", "mcl_stripped_mangrove_log_top.png","mcl_stripped_mangrove_log_side.png"}
	},
	stripped_bark = {
		tiles = {"mcl_stripped_mangrove_log_side.png"}
	},
	fence = {
		tiles = { "mcl_mangrove_fence.png" },
	},
	fence_gate = {
		tiles = { "mcl_mangrove_fence_gate.png" },
	},
	door = {
		inventory_image = "mcl_mangrove_doors.png",
		tiles_bottom = {"mcl_mangrove_door_bottom.png", "mcl_mangrove_door_bottom.png"},
		tiles_top = {"mcl_mangrove_door_top.png", "mcl_mangrove_door_top.png"}
	},
	trapdoor = {
		tile_front = "mcl_mangrove_trapdoor.png",
		tile_side = "mcl_mangrove_trapdoor_side.png",
		wield_image = "mcl_mangrove_trapdoor.png",
	},
	hanging_sign = true,
})

local propagule_water_nodes = {"mcl_mud:mud","mcl_core:dirt","mcl_core:coarse_dirt","mcl_core:clay"}
 --"mcl_lush_caves:moss","mcl_lush_caves:rooted_dirt

local propagule_rooted_nodes = {}
for _,root in pairs(propagule_water_nodes) do
	local r = root:split(":")[2]
	local def = core.registered_nodes[root]
	local tx = def.tiles
	local n = "mcl_mangrove:propagule_"..r
	table.insert(propagule_rooted_nodes,n)
	core.register_node(n, {
		drawtype = "plantlike_rooted",
		paramtype = "light",
		place_param2 = 1,
		tiles = tx,
		special_tiles = { { name = "mcl_mangrove_propagule_item.png" } },
		inventory_image = "mcl_mangrove_propagule_item.png",
		wield_image = "mcl_mangrove_propagule.png",
		selection_box = {
			type = "fixed",
			fixed = {
				{ -0.5, -0.5, -0.5, 0.5, 0.5, 0.5 },
				{ -0.5, 0.5, -0.5, 0.5, 1.0, 0.5 },
			}
		},
		groups = {
			plant = 1, sapling = 1, non_mycelium_plant = 1, attached_node = 1,not_in_creative_inventory=1,
			deco_block = 1, dig_immediate = 3, dig_by_piston = 1,
			destroy_by_lava_flow = 1, compostability = 30
		},
		sounds = mcl_sounds.node_sound_leaves_defaults(),
		drop = "mcl_mangrove:propagule",
		node_placement_prediction = "",
		node_dig_prediction = "",
		after_dig_node = function(pos)
			core.set_node(pos, {name=root})
		end,
		_mcl_hardness = 0,
		_mcl_silk_touch_drop = true,
		_mcl_baseitem = "mcl_mangrove:propagule",
	})

end

core.register_node("mcl_mangrove:mangrove_roots", {
	description = S("Mangrove Roots"),
	_doc_items_longdesc = S("Mangrove roots are decorative blocks that form as part of mangrove trees."),
	_doc_items_hidden = false,
	waving = 0,
	place_param2 = 1, -- Prevent leafdecay for placed nodes
	tiles = {
		"mcl_mangrove_roots_top.png",
		"mcl_mangrove_roots_side.png",
		"mcl_mangrove_roots_side.png",
	},
	paramtype = "light",
	drawtype = "allfaces_optional",
	groups = {
		handy = 1, hoey = 1, shearsy = 1, axey = 1, swordy = 1, dig_by_piston = 0,
		flammable = 10, fire_encouragement = 30, fire_flammability = 60,
		deco_block = 1, compostability = 30
	},
	drop = "mcl_mangrove:mangrove_roots",
	_mcl_shears_drop = true,
	sounds = mcl_sounds.node_sound_leaves_defaults(),
	_mcl_hardness = 0.7,
	_mcl_burntime = 15,
	_mcl_silk_touch_drop = true,
	_mcl_fortune_drop = { "mcl_mangrove:mangrove_roots 1", "mcl_mangrove:mangrove_roots 2", "mcl_mangrove:mangrove_roots 3", "mcl_mangrove:mangrove_roots 4" },
	_on_bucket_place = function(itemstack,placer,pointed_thing)
		local dim = mcl_worlds.pos_to_dimension(pointed_thing.under)
		if dim == "nether" then return itemstack end
		local n = itemstack:get_name():gsub("mcl_buckets:bucket_","")
		n = "mcl_mangrove:"..n.."_logged_roots"
		if core.registered_nodes[n] then
			if not core.is_creative_enabled(placer:get_player_name()) then
				itemstack:take_item()
				local inv = placer:get_inventory()
				inv:add_item("main","mcl_buckets:bucket_empty")
			end
			core.swap_node(pointed_thing.under,{name=n})
		end
		return itemstack
	end
})

core.register_node("mcl_mangrove:propagule", {
	description = S("Mangrove Propagule"),
	_tt_help = S("Needs soil and light to grow"),
	_doc_items_longdesc = S("When placed on soil (such as dirt) and exposed to light, an propagule will grow into an mangrove after some time."),
	_doc_items_hidden = false,
	drawtype = "plantlike",
	waving = 1,
	tiles = {"mcl_mangrove_propagule_item.png"},
	inventory_image = "mcl_mangrove_propagule_item.png",
	wield_image = "mcl_mangrove_propagule_item.png",
	paramtype = "light",
	sunlight_propagates = true,
	walkable = false,
	selection_box = {
		type = "fixed",
		fixed = {-5/16, -0.5, -5/16, 5/16, 0.5, 5/16}
	},
	groups = {
		plant = 1, sapling = 1, flower = 1, non_mycelium_plant = 1, attached_node = 1,
		deco_block = 1, dig_immediate = 3, dig_by_water = 0, dig_by_piston = 1,
		destroy_by_lava_flow = 1, compostability = 30
	},
	sounds = mcl_sounds.node_sound_leaves_defaults(),
	on_construct = function(pos)
		local meta = core.get_meta(pos)
		meta:set_int("stage", 0)
	end,
	node_placement_prediction = "",
	_mcl_hardness = 0,
	_on_bone_meal = function(_, _, _, pos, node)
		return mcl_trees.grow_tree(pos, node)
	end,
	on_place = mcl_util.generate_on_place_plant_function(function(place_pos, _,stack)
		local under = vector.offset(place_pos,0,-1,0)
		local snn = core.get_node_or_nil(under).name
		if not snn then return false end
		if core.get_item_group(snn, "soil_flower") > 0 then
			local n = core.get_node(place_pos)
			if core.get_item_group(n.name,"water") > 0 and table.indexof(propagule_water_nodes,snn) ~= -1 then
					core.set_node(under,{name="mcl_mangrove:propagule_"..snn:split(":")[2]})
					stack:take_item()
					return stack
			end
			return true
		end
	end)
})

local sel_heights = {
	0.25, 0.125, -0.0625, -0.3125, -0.5
}

local function get_hanging_propagules_textures(index)
	local texture = "mcl_mangrove_propagule_hanging.png"
	local tiles = {"blank.png", "blank.png", "blank.png", "blank.png", "blank.png"}

	if index < 5 then
		for i = 1, index do tiles[i] = texture end
		if index == 4 then
			tiles[3] = "blank.png"
		end
	else
		tiles[1] = texture
		tiles[2] = texture
		tiles[5] = texture
	end

	return tiles
end

local hp_longdesc = S("Suspended mague propagules grow on the underside of mangrove leaves.\n") ..
S("They grow in four stages. Using bone meal on a suspended propagule advances it to the next growth stage.\n") ..
S("When the propagule reaches the final stage, it drops as an item when broken.")

local function grow_hanging_propagule(pos, node)
	local stage = node.name:gsub("mcl_mangrove:propagule_hanging_", "")
	core.swap_node(pos, {name = "mcl_mangrove:propagule_hanging_" .. tonumber(stage) + 1})
end

for i = 1, 5 do
	core.register_node("mcl_mangrove:propagule_hanging_" .. i, {
		_doc_items_create_entry = i == 5,
		_doc_items_entry_name = i == 5 and S("Hanging Mangrove Propagule") or nil,
		_doc_items_longdesc = i == 5 and hp_longdesc or nil,
		_mcl_baseitem = "mcl_mangrove:propagule",
		description = S("Hanging Propagule (Stage @1)", i),
		paramtype = "light",
		on_rotate = false,
		walkable = false,
		drop = i == 5 and "mcl_mangrove:propagule" or "",
		use_texture_alpha = "clip",
		drawtype = "mesh",
		mesh = "mcl_mangrove_hanging_propagule_".. i .. ".obj",
		sounds = mcl_sounds.node_sound_leaves_defaults(),
		sunlight_propagates = true,
		selection_box = {
			type = "fixed", fixed = {-0.125, 0.5, -0.125, 0.125, sel_heights[i], 0.125}
		},
		tiles = get_hanging_propagules_textures(i),
		groups = {
			plant = 1, not_in_creative_inventory = 1, non_mycelium_plant = 1,
			dig_immediate = 3, dig_by_water = 1, dig_by_piston = 1, destroy_by_lava_flow = 1,
			attached_node = 4, hanging_propagule = 1,
		},
		_on_bone_meal = i < 5 and function(_, _, _, pos, node)
			grow_hanging_propagule(pos, node)
			return true
		end or nil
	})

	if i < 5 then
		doc.add_entry_alias("nodes", "mcl_mangrove:propagule_hanging_4", "nodes", "mcl_mangrove:propagule_hanging_" .. i)
	end
end

core.register_alias("mcl_mangrove:hanging_propagule_1", "mcl_mangrove:propagule_hanging_5")

core.register_abm({
	label = "Grow hanging mangrove propagule",
	nodenames = {
		"mcl_mangrove:propagule_hanging_1",
		"mcl_mangrove:propagule_hanging_2",
		"mcl_mangrove:propagule_hanging_3",
		"mcl_mangrove:propagule_hanging_4"
	},
	chance = 20,
	interval = 10,
	action = grow_hanging_propagule,
})



mcl_flowerpots.register_potted_flower("mcl_mangrove:propagule", {
	name = "propagule",
	desc = S("Mangrove Propagule"),
	image = "mcl_mangrove_propagule.png",
})

local wlroots = {
	description = S("Water logged mangrove roots"),
	_doc_items_longdesc =
		S("Mangrove roots are decorative blocks that form as part of mangrove trees.").."\n\n"..
		S("Mangrove roots, despite being a full block, can be waterlogged and do not flow water out").."\n\n"..
		S("These cannot be crafted yet only occure when get in contact of water."),
	_doc_items_hidden = false,
	tiles = {
		{name="default_water_source_animated.png", animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=5.0}}
	},
	special_tiles = {
		-- New-style water source material (mostly unused)
		{
			name="default_water_source_animated.png",
			animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=5.0},
			backface_culling = false,
		}
	},
	overlay_tiles = {
		"mcl_mangrove_roots_top.png",
		"mcl_mangrove_roots_side.png",
		"mcl_mangrove_roots_side.png",
	},
	sounds = mcl_sounds.node_sound_water_defaults(),
	drawtype = "allfaces_optional",
	use_texture_alpha = "blend",
	is_ground_content = false,
	paramtype = "light",
	pointabilities = {
		nodes = {
			["group:water"] = true,
		},
	},
	drop = "mcl_mangrove:mangrove_roots",
	groups = {
		handy = 1, hoey = 1, water=4, liquid=3, puts_out_fire=1, dig_by_piston = 1, deco_block = 1,  not_in_creative_inventory=1 },
	_mcl_blast_resistance = 100,
	_mcl_hardness = -1, -- Hardness intentionally set to infinite instead of 100 (Minecraft value) to avoid problems in creative mode
	_mcl_baseitem = "mcl_mangrove:mangrove_roots",
	on_construct = function(pos)
		local dim = mcl_worlds.pos_to_dimension(pos)
		if dim == "nether" then
			core.sound_play("fire_extinguish_flame", {pos = pos, gain = 0.25, max_hear_distance = 16}, true)
			core.set_node(pos, {name="mcl_mangrove:mangrove_roots"})
		end
	end,
	after_dig_node = function(pos)
		local node = core.get_node(pos)
		local dim = mcl_worlds.pos_to_dimension(pos)
		if core.get_item_group(node.name, "water") == 0 and dim ~= "nether" then
			core.set_node(pos, {name="mcl_core:water_source"})
		else
			core.sound_play("fire_extinguish_flame", {pos = pos, gain = 0.25, max_hear_distance = 16}, true)
		end
	end,
	_on_bucket_place_empty = function(itemstack,placer,pointed_thing)
		local n = core.get_node(pointed_thing.under).name:gsub("mcl_mangrove:","")
		n = "mcl_buckets:bucket_"..n:gsub("_logged_roots","")
		if core.registered_items[n] then
			core.swap_node(pointed_thing.under,{name="mcl_mangrove:mangrove_roots"})
			itemstack:take_item()
			local inv = placer:get_inventory()
			inv:add_item("main",ItemStack(n))
		end
		return itemstack
	end
}
local rwlroots = table.merge(wlroots, {
	description = S("River water logged mangrove roots"),
	tiles = {
		{name="default_river_water_source_animated.png", animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=5.0}}
	},
	after_dig_node = function(pos)
		local node = core.get_node(pos)
		local dim = mcl_worlds.pos_to_dimension(pos)
		if core.get_item_group(node.name, "water") == 0 and dim ~= "nether" then
			core.set_node(pos, {name="mclx_core:river_water_source"})
		else
			core.sound_play("fire_extinguish_flame", {pos = pos, gain = 0.25, max_hear_distance = 16}, true)
		end
	end
})

core.register_node("mcl_mangrove:water_logged_roots", wlroots)
core.register_node("mcl_mangrove:river_water_logged_roots",rwlroots)

core.register_node("mcl_mangrove:mangrove_mud_roots", {
	description = S("Muddy Mangrove Roots"),
	_tt_help = S("crafted with Mud and Mangrove roots"),
	_doc_items_longdesc = S("Muddy Mangrove Roots is a block from mangrove swamp.It drowns player a bit inside it."),
	tiles = {
		"mcl_mud.png^mcl_mangrove_roots_top.png",
		"mcl_mud.png^mcl_mangrove_roots_side.png",
		"mcl_mud.png^mcl_mangrove_roots_side.png",
	},
	groups = {handy=1, shovely=1, axey=1, soil_flower=1, soil_generic_plant=1, soil_fungus=1, building_block=1, overworld_carvable=1},
	sounds = mcl_sounds.node_sound_sand_defaults(),
	_mcl_hardness = 0.7,
})

core.register_craft({
	output = "mcl_mangrove:mangrove_mud_roots",
	recipe = {
		{"mcl_mangrove:mangrove_roots", "mcl_mud:mud",},
	}
})

local adjacents = {
	vector.new(1,0,0),
	vector.new(-1,0,0),
	vector.new(0,0,1),
	vector.new(0,0,-1),
}

core.register_abm({
	label = "Waterlog mangrove roots",
	nodenames = {"mcl_mangrove:mangrove_roots"},
	neighbors = {"group:water"},
	interval = 5,
	chance = 5,
	action = function(pos)
		for _,v in pairs(adjacents) do
			local n = core.get_node(vector.add(pos,v)).name
			if core.get_item_group(n,"water") > 0 then
				if n:find("river") then
					core.swap_node(pos,{name="mcl_mangrove:river_water_logged_roots"})
					return
				else
					core.swap_node(pos,{name="mcl_mangrove:water_logged_roots"})
					return
				end
			end
		end
	end
})

mcl_levelgen.register_levelgen_script (modpath .. "/lg_register.lua")

