--[[

	TechAge
	=======

	Copyright (C) 2022 Joachim Stolberg

	AGPL v3
	See LICENSE.txt for more information

	Colored Signal Lamps (with unifieddyes support)

]]--

-- for lazy programmers
local M = minetest.get_meta
local S = techage.S

local logic = techage.logic

local COLORED = minetest.get_modpath("unifieddyes") and minetest.global_exists("unifieddyes")

local LampsOff = {}
local LampsOn = {}

local function switch_on(pos, node, player, color)
	if player and minetest.is_protected(pos, player:get_player_name()) then
		return
	end
	color = (tonumber(color) or COLORED and 96 or 6) % 256
	if LampsOff[node.name] then
		node.name = LampsOff[node.name]
		node.param2 = color
		minetest.swap_node(pos, node)
	elseif LampsOn[node.name] and color ~= node.param2 then
		node.param2 = color
		minetest.swap_node(pos, node)
	end
end

local function switch_off(pos, node, player)
	if player and minetest.is_protected(pos, player:get_player_name()) then
		return
	end
	if LampsOn[node.name] then
		node.name = LampsOn[node.name]
		node.param2 = COLORED and 241 or 35
		minetest.swap_node(pos, node)
	end
end

local function register_signallamp(name, description, tiles, node_box)
	LampsOff[name .. "_off"] = name .. "_on"
	LampsOn[name .. "_on"] = name .. "_off"

	minetest.register_node(name .. "_off", {
		description = description,
		tiles = tiles,
		drawtype = node_box and "nodebox",
		node_box = node_box,

		after_place_node = function(pos, placer, itemstack, pointed_thing)
			logic.after_place_node(pos, placer, name .. "_off", description)
			logic.infotext(M(pos), description)
			if COLORED then
				unifieddyes.recolor_on_place(pos, placer, itemstack, pointed_thing)
			end
		end,

		on_rightclick = switch_on,

		after_dig_node = function(pos, oldnode, oldmetadata, digger)
			techage.remove_node(pos, oldnode, oldmetadata)
			if COLORED then
				unifieddyes.after_dig_node(pos, oldnode, oldmetadata, digger)
			else
				local node = minetest.get_node(pos)
				node.param2 = 35
				minetest.swap_node(pos, node)
			end
		end,

		on_construct = COLORED and unifieddyes.on_construct or nil,
		on_dig = COLORED and unifieddyes.on_dig or nil,

		paramtype = "light",
		paramtype2 = "color",
		--palette = "techage_palette256.png",
		palette = COLORED and "unifieddyes_palette_extended.png" or "techage_palette256.png",
		place_param2 = 241,
		sunlight_propagates = true,
		sounds = default.node_sound_glass_defaults(),
		groups = {choppy=2, cracky=1, ud_param2_colorable = 1},
		is_ground_content = false,
		drop = name .. "_off"
	})

	minetest.register_node(name .. "_on", {
		description = description,
		tiles = tiles,
		drawtype = node_box and "nodebox",
		node_box = node_box,

		on_rightclick = switch_off,

		paramtype = "light",
		paramtype2 = "color",
		--palette = "techage_palette256.png",
		palette = COLORED and "unifieddyes_palette_extended.png" or "techage_palette256.png",
		groups = {choppy=2, cracky=1, not_in_creative_inventory=1, ud_param2_colorable = 1},

		after_dig_node = function(pos, oldnode, oldmetadata, digger)
			techage.remove_node(pos, oldnode, oldmetadata)
			if COLORED then
				unifieddyes.after_dig_node(pos, oldnode, oldmetadata, digger)
			end
		end,

		on_dig = COLORED and unifieddyes.on_dig or nil,
		light_source = 10,
		is_ground_content = false,
		drop = name .. "_off"
	})

	techage.register_node({name .. "_off", name .. "_on"}, {
		on_recv_message = function(pos, src, topic, payload)
			if topic == "on" then
				local node = techage.get_node_lvm(pos)
				switch_on(pos, node)
				return true
			elseif topic == "off" then
				local node = techage.get_node_lvm(pos)
				switch_off(pos, node)
				return true
			elseif topic == "color" then
				local node = techage.get_node_lvm(pos)
				switch_on(pos, node, nil, payload)
				return true
			else
				return "unsupported"
			end
		end,
		on_beduino_receive_cmnd = function(pos, src, topic, payload)
			if topic == 1 and payload[1] == 1 then
				local node = techage.get_node_lvm(pos)
				switch_on(pos, node)
				return 0
			elseif topic == 1 and payload[1] == 0 then
				local node = techage.get_node_lvm(pos)
				switch_off(pos, node)
				return 0
			elseif topic == 70 then
				local node = techage.get_node_lvm(pos)
				switch_on(pos, node, nil, payload[1])
				return 0
			else
				return 2
			end
		end,
	})
end

minetest.register_chatcommand("ta_color", {
	description = minetest.formspec_escape(
			"Output the color palette and the numbers for Lua/Beduino color commands"),

	func = function(name, param)
		local tbl = {}
		if COLORED then
			tbl[1] = "size[14,7]"
			tbl[2] = "background[0,0;14,7;unifieddyes_palette_extended.png]"
			for i = 0, 10 do
				local y = i * 0.64
				tbl[#tbl + 1] = "label[0," .. y .. ";" .. (i * 24 +  0) .. "]"
				tbl[#tbl + 1] = "label[7," .. y .. ";" .. (i * 24 + 12) .. "]"
			end
		else
			tbl[1] = "size[10,7.5]"
			tbl[2] = "background[0,0;10,7.5;techage_palette256.png]"
			for i = 0, 13 do
				local y = i * 0.5
				tbl[#tbl + 1] = "label[0," .. y .. ";" .. (i * 18 + 0) .. "]"
				tbl[#tbl + 1] = "label[5," .. y .. ";" .. (i * 18 + 9) .. "]"
			end
		end
		minetest.show_formspec(name, ";techage:color_form", table.concat(tbl, ""))
		return true
    end
})

-- Register callback
minetest.register_on_player_receive_fields(function(player, formname, fields)
    if formname ~= "techage:color_form" then
        return false
    end
    return true
end)


register_signallamp("techage:signal_lamp", 
	S("TechAge Signal Lamp"), 
	{"techage_signal_lamp.png^[colorize:#000000:100"},
	{
		type = "fixed",
		fixed = {
			{-6/16, -6/16, -6/16,  6/16, 6/16, 6/16},
			{-4/16, -10/16, -4/16,  4/16, -6/16, 4/16},
		}
	}
)

register_signallamp("techage:signal_lamp2", 
	S("TechAge Signal Lamp 2 "), 
	{"techage_signallamp2.png"}
)

minetest.register_craft({
		output = "techage:signal_lamp_off",
		recipe = {
			{"", "wool:white", ""},
			{"", "default:torch", ""},
			{"", "techage:vacuum_tube", ""},
		},
	})

minetest.register_craft({
		output = "techage:signal_lamp2_off",
		recipe = {
			{"", "default:glass", ""},
			{"", "default:torch", ""},
			{"", "techage:vacuum_tube", ""},
		},
	})