-- Colored Wood mod by Vanessa Ezekowitz
-- based on my unifieddyes template.
--
-- License:  WTFPL
--
-- This mod provides 89 colors of wood, fences, and sticks, and enough
-- cross-compatible recipes to make everything fit together naturally.
--
-- Colored wood is created by placing a regular wood block on the ground
-- and then right-clicking on it with some dye.
-- All materials are flammable and can be used as fuel.
--
-- Hues are on a 30 degree spacing starting at red = 0 degrees.
-- "s50" in a file/item name means "saturation: 50%".
-- Texture brightness levels for the colors are 100%, 66% ("medium"),
-- and 33% ("dark").

coloredwood = {}

coloredwood.enable_stairsplus = true
if minetest.settings:get_bool("coloredwood_enable_stairsplus") == false or not minetest.get_modpath("moreblocks") then
	coloredwood.enable_stairsplus = false
end

coloredwood.shades = {
	"dark_",
	"medium_",
	""		-- represents "no special shade name", e.g. full.
}

coloredwood.shades2 = {
	"Dark ",
	"Medium ",
	""		-- represents "no special shade name", e.g. full.
}

coloredwood.default_hues = {
	"white",
	"grey",
	"dark_grey",
	"black",
	"violet",
	"blue",
	"cyan",
	"dark_green",
	"green",
	"yellow",
	"orange",
	"red",
	"magenta"
}

coloredwood.hues = {
	"red",
	"orange",
	"yellow",
	"lime",
	"green",
	"aqua",
	"cyan",
	"skyblue",
	"blue",
	"violet",
	"magenta",
	"redviolet"
}

coloredwood.hues2 = {
	"Red ",
	"Orange ",
	"Yellow ",
	"Lime ",
	"Green ",
	"Aqua ",
	"Cyan ",
	"Sky Blue ",
	"Blue ",
	"Violet ",
	"Magenta ",
	"Red-violet "
}

coloredwood.greys = {
	"black",
	"darkgrey",
	"grey",
	"lightgrey",
	"white"
}

coloredwood.greys2 = {
	"Black ",
	"Dark Grey ",
	"Medium Grey ",
	"Light Grey ",
	"White "
}

coloredwood.greys3 = {
	"dye:black",
	"dye:dark_grey",
	"dye:grey",
	"dye:light_grey",
	"dye:white"
}

coloredwood.hues_plus_greys = {}

for _, hue in ipairs(coloredwood.hues) do
	table.insert(coloredwood.hues_plus_greys, hue)
end

table.insert(coloredwood.hues_plus_greys, "grey")

-- helper functions

local function is_stairsplus(name, colorized)

	-- the format of a coloredwood stairsplus node is:
	-- moreblocks:class_wood_color_shape
	-- where class is "slab", "stair", etc. and shape is "three quarter", "alt", etc.

	local a = string.find(name, ":")
	local b = string.find(name, "_")

	local class = string.sub(name, a+1, b-1) -- from colon to underscore is the class
	local shape = ""

	if class == "stair"
		or class == "slab"
		or class == "panel"
		or class == "micro"
	or class == "slope" then

		if colorized then
			local colorshape = string.sub(name, b+6)
			local c = string.find(colorshape, "_") or 0  -- first word after "_wood_" is color
			shape = string.sub(colorshape, c) -- everything after the color is the shape
			if colorshape == shape then shape = "" end -- if there was no shape
		else
			shape = string.sub(name, b+5) -- everything after "_wood_" is the shape
		end
	end
	return class, shape
end

-- the actual nodes!

minetest.register_node("coloredwood:wood_block", {
	description = "Colored wooden planks",
	tiles = { "coloredwood_base.png" },
	paramtype = "light",
	paramtype2 = "color",
	palette = "unifieddyes_palette_extended.png",
	place_param2 = 240,
	walkable = true,
	sunlight_propagates = false,
	groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=2, not_in_creative_inventory=1, ud_param2_colorable = 1, wood = 1},
	sounds = default.node_sound_wood_defaults(),
	after_place_node = unifieddyes.recolor_on_place,
	after_dig_node = unifieddyes.after_dig_node,
	drop = "default:wood"
})

-- moreblocks/stairsplus support

if coloredwood.enable_stairsplus then

	local on_place_custom = function(itemstack, placer, pointed_thing)
		local pos = minetest.get_pointed_thing_position(pointed_thing, true)
		minetest.rotate_node(itemstack, placer, pointed_thing)
		unifieddyes.recolor_on_place(pos, placer, itemstack, pointed_thing)
		return itemstack
	end


	for _, color in ipairs(coloredwood.hues_plus_greys) do

		--	stairsplus:register_all(modname, subname, recipeitem, {fields})

		stairsplus:register_all(
			"coloredwood",
			"wood_"..color,
			"coloredwood:wood_"..color,
			{
				description = "Colored wood",
				tiles = { "coloredwood_base.png" },
				paramtype = "light",
				paramtype2 = "colorfacedir",
				palette = "unifieddyes_palette_"..color.."s.png",
				on_place = on_place_custom,
				groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=2, not_in_creative_inventory=1, ud_param2_colorable = 1, wood = 1},
				after_dig_node = unifieddyes.after_dig_node
		})
	end

	-- force replacement node type for stairsplus default wood stair/slab/etc nodes

	for _, i in pairs(minetest.registered_nodes) do

		if string.find(i.name, "moreblocks:stair_wood")
			or string.find(i.name, "moreblocks:slab_wood")
			or string.find(i.name, "moreblocks:panel_wood")
			or string.find(i.name, "moreblocks:micro_wood")
			or string.find(i.name, "moreblocks:slope_wood")
		then

			local a,b = string.find(i.name, "wood_tile")
			if not a then

				local s1, s2 = is_stairsplus(i.name, false)

				minetest.override_item(i.name, {
					ud_replacement_node = "coloredwood:"..s1.."_wood_grey"..s2,
					paramtype2 = "colorfacedir",
					on_place = on_place_custom,
					groups = {choppy = 2, oddly_breakable_by_hand = 2, flammable = 2, wood = 1, not_in_creative_inventory=1, ud_param2_colorable = 1, wood = 1},
					drop = "moreblocks:"..s1.."_wood"..s2
				})
			end
		end
	end

	-- fix drops and other stuff for colored versions of stairsplus nodes

	for _, i in pairs(minetest.registered_nodes) do

		if string.find(i.name, "coloredwood:stair_")
			or string.find(i.name, "coloredwood:slab_")
			or string.find(i.name, "coloredwood:panel_")
			or string.find(i.name, "coloredwood:micro_")
			or string.find(i.name, "coloredwood:slope_")
		then

			local s1, s2 = is_stairsplus(string.gsub(i.name, "coloredwood:", "moreblocks:"), true)

			minetest.override_item(i.name, {
				on_place = on_place_custom,
				drop = "moreblocks:"..s1.."_wood"..s2
			})
		end
	end
end

minetest.override_item("default:wood", {
	palette = "unifieddyes_palette_extended.png",
	ud_replacement_node = "coloredwood:wood_block",
	after_place_node = unifieddyes.recolor_on_place,
	groups = {choppy = 2, oddly_breakable_by_hand = 2, flammable = 2, wood = 1, ud_param2_colorable = 1},
})

local fence_data = table.copy(minetest.registered_items["default:fence_wood"])
fence_data.name = "coloredwood:fence"
fence_data.description = "Colored wooden fence"
fence_data.tiles = {"coloredwood_fence_base.png"}
fence_data.paramtype2 = "color"
fence_data.palette = "unifieddyes_palette_extended.png"
fence_data.groups = {choppy = 2, oddly_breakable_by_hand = 2, flammable = 2, ud_param2_colorable = 1, fence = 1, not_in_creative_inventory = 1}
fence_data.after_place_node = unifieddyes.recolor_on_place
fence_data.after_dig_node = unifieddyes.after_dig_node
fence_data.drop = "default:fence_wood"

minetest.register_item("coloredwood:fence", fence_data)

minetest.override_item("default:fence_wood", {
	palette = "unifieddyes_palette_extended.png",
	ud_replacement_node = "coloredwood:fence",
	after_place_node = unifieddyes.recolor_on_place,
	groups = {fence = 1, choppy = 2, oddly_breakable_by_hand = 2, flammable = 2, ud_param2_colorable = 1}
})

-- ============================
-- convert the old static nodes

coloredwood.old_static_nodes = {}
coloredwood.old_13_color_nodes = {}

for _, hue in ipairs(coloredwood.hues) do
	table.insert(coloredwood.old_13_color_nodes, "coloredwood:wood_"..hue)
	for _, sat in ipairs({"", "_s50"}) do
		for _, val in ipairs ({"dark_", "medium_", "light_", ""}) do
			table.insert(coloredwood.old_static_nodes, "coloredwood:wood_"..val..hue..sat)
			table.insert(coloredwood.old_static_nodes, "coloredwood:fence_"..val..hue..sat)
		end
	end
end

for _, shade in ipairs(coloredwood.greys) do
	table.insert(coloredwood.old_static_nodes, "coloredwood:wood_"..shade)
	table.insert(coloredwood.old_static_nodes, "coloredwood:fence_"..shade)
end

table.insert(coloredwood.old_13_color_nodes, "coloredwood:wood_grey")

-- add all of the stairsplus nodes, if moreblocks is installed.
if coloredwood.enable_stairsplus then
	for _, shape in ipairs(circular_saw.names) do
		local a = shape[1]
		local b = shape[2]
		for _, hue in ipairs(coloredwood.hues) do
			for _, shade in ipairs(coloredwood.shades) do
				table.insert(coloredwood.old_static_nodes, "coloredwood:"..a.."_wood_"..shade..hue..b)
				table.insert(coloredwood.old_static_nodes, "coloredwood:"..a.."_wood_"..shade..hue.."_s50"..b)
			end
			table.insert(coloredwood.old_static_nodes, "coloredwood:"..a.."_wood_light_"..hue..b) -- light doesn't have extra shades or s50
		end
	end

	for _, shape in ipairs(circular_saw.names) do
		local a = shape[1]
		local b = shape[2]
		for _, hue in ipairs(coloredwood.greys) do
			for _, shade in ipairs(coloredwood.shades) do
				table.insert(coloredwood.old_static_nodes, "coloredwood:"..a.."_wood_"..hue..b)
			end
		end
	end
end

local old_shades = {
	"",
	"",
	"",
	"light_",
	"medium_",
	"medium_",
	"dark_",
	"dark_"
}

local old_greys = {
	"white",
	"white",
	"light_grey",
	"grey",
	"dark_grey",
	"black",
	"white",
	"white"
}

minetest.register_lbm({
	name = "coloredwood:convert",
	label = "Convert wood blocks, fences, stairsplus stuff, etc to use param2 color",
	run_at_every_load = false,
	nodenames = coloredwood.old_static_nodes,
	action = function(pos, node)
		local meta = minetest.get_meta(pos)
		local name = node.name
		local hue, sat, val = unifieddyes.get_hsv(name)
		local color = val..hue..sat
		local s1, s2 = is_stairsplus(name, true)

		if meta and (meta:get_string("dye") ~= "") then return end -- node has already been converted before.

		if s1 then

			if not s2 then print("impossible conversion request!  name = "..node.name.." --> ".."coloredwood:"..s1.."_wood_"..hue.."*nil*") return end

			local paletteidx, _ = unifieddyes.getpaletteidx("unifieddyes:"..color, true)
			local cfdir = paletteidx + (node.param2 % 32)
			local newname = "coloredwood:"..s1.."_wood_"..hue..s2

			minetest.set_node(pos, { name = newname, param2 = cfdir })
			local meta = minetest.get_meta(pos)
			meta:set_string("dye", "unifieddyes:"..color)
		elseif string.find(name, ":fence") then
			local paletteidx, hue = unifieddyes.getpaletteidx("unifieddyes:"..color, "extended")
			minetest.set_node(pos, { name = "coloredwood:fence", param2 = paletteidx })
			meta:set_string("dye", "unifieddyes:"..color)
			meta:set_string("palette", "ext")
		else
			if hue == "aqua" then
				hue = "spring"
			elseif hue == "skyblue" then
				hue = "azure"
			elseif hue == "redviolet" then
				hue = "rose"
			end

			color = val..hue..sat

			local paletteidx, hue = unifieddyes.getpaletteidx("unifieddyes:"..color, "extended")
			minetest.set_node(pos, { name = "coloredwood:wood_block", param2 = paletteidx })
			meta:set_string("dye", "unifieddyes:"..color)
			meta:set_string("palette", "ext")
		end
	end
})

table.insert(coloredwood.old_13_color_nodes, "coloredwood:fence")

minetest.register_lbm({
	name = "coloredwood:recolor_basics",
	label = "Convert fences and base 13-color wood to use UD extended palette",
	run_at_every_load = false,
	nodenames = coloredwood.old_13_color_nodes,
	action = function(pos, node)
		local meta = minetest.get_meta(pos)
		if meta:get_string("palette") ~= "ext" then
			if node.name == "coloredwood:fence" then
				minetest.swap_node(pos, { name = node.name, param2 = unifieddyes.convert_classic_palette[node.param2] })
			else
				local hue = string.sub(node.name, 18)
				local shadenum = math.floor(node.param2/32) + 1
				local shade = old_shades[shadenum]
				local sat = ""

				if hue == "grey" then
					hue = old_greys[shadenum]
					shade = ""
					sat = ""
				elseif shadenum == 3 or shadenum == 6 or shadenum == 8 then
					sat = "_s50"
				end

				local newcolor = unifieddyes.convert_classic_palette[unifieddyes.getpaletteidx("unifieddyes:"..shade..hue..sat)]
				minetest.swap_node(pos, { name = "coloredwood:wood_block", param2 = newcolor })
			end
			meta:set_string("palette", "ext")
		end
	end
})

print("[Colored Wood] Loaded!")