--[[

	TechAge
	=======

	Copyright (C) 2020-2022 Joachim Stolberg

	AGPL v3
	See LICENSE.txt for more information

	TA5 Pack Container
	
]]--

-- for lazy programmers
local M = minetest.get_meta
local P2S = function(pos) if pos then return minetest.pos_to_string(pos) end end
local S2P = minetest.string_to_pos
local S = techage.S

local MP = minetest.get_modpath("techage")
local fly  = dofile(MP .. "/basis/fly_lib.lua")
local mark = dofile(MP .. "/basis/mark_lib.lua")

local MAX_BLOCKS = 16
local DESCRIPTION = S("TA5 Pack Container")

local function formspec(nvm, meta)
	local status = meta:get_string("status")
	local path = meta:contains("path") and meta:get_string("path") or "0,3,0"
	local node_name = meta:get_string("node_name")
	return "size[8,4.3]" ..
		"box[0,-0.1;7.8,0.5;#c6e8ff]" ..
		"label[0.2,-0.1;" .. minetest.colorize( "#000000", DESCRIPTION) .. "]" ..
		--techage.wrench_image(7.4, -0.05) ..
		"field[0.4,1.2;3.8,1;node_name;" .. S("Node name") .. ";" .. node_name .. "]" ..
		"button[4.1,0.9;3.8,1;store;" .. S("Store") .. "]" ..
		"button[0.1,2.1;3.8,1;record;" .. S("Record") .. "]" ..
		"box[0,1.9;7.8,0.02;#ffffff]" ..
		"button[4.1,2.1;3.8,1;done;" .. S("Done") .. "]" ..
		"button[0.1,2.9;3.8,1;pack;" .. S("Pack") .. "]" ..
		"button[4.1,2.9;3.8,1;unpack;" .. S("Unpack") .. "]" ..
		"label[0.3,3.9;" .. status .. "]"
end

local function set_storage_pos(pos, oldnode, oldmetadata, drops)
	if oldmetadata.data_stored == "1" then
		local meta = drops[1]:get_meta()
		meta:set_string("storage_pos", P2S(pos))
		meta:set_string("node_name", oldmetadata.node_name or "")
		meta:set_string("status", oldmetadata.status or "")
		meta:set_int("data_stored", 1)
		meta:set_string("description", DESCRIPTION .. ' "' .. (oldmetadata.node_name or "") .. '"')
	end
end

local function get_storage_pos(pos, itemstack)
	local imeta = itemstack:get_meta()
	if imeta then
		local meta = M(pos)
		meta:set_string("node_name", imeta:get_string("node_name"))
		meta:set_string("status", imeta:get_string("status"))
		meta:set_int("data_stored", imeta:get_int("data_stored"))
		local pos2 = S2P(imeta:get_string("storage_pos"))
		if pos2 then
			local node = techage.get_node_lvm(pos2)
			if node.name == "techage:ta5_packcontainer_storage" then
				return pos2, node.param2
			end
		end
	end
end

local function takeover_data(old_pos, new_pos)
	local nvm1 = techage.get_nvm(old_pos)
	local nvm2 = techage.get_nvm(new_pos)
	nvm2.pos_list = nvm1.pos_list
	nvm2.pack_tbl = nvm1.pack_tbl
end

local function remove_storage_node(old_pos)
	minetest.remove_node(old_pos)
	techage.del_mem(old_pos)
end

local function adjust_database(pos, nvm, move, turn)
	nvm.pos_list = techage.adjust_pos_list_move(nvm.pos_list, move)
	nvm.pos_list = techage.adjust_pos_list_turn(pos, nvm.pos_list, turn)
	nvm.pack_tbl = techage.adjust_pack_tbl_move(nvm.pack_tbl, move)
	nvm.pack_tbl = techage.adjust_pack_tbl_turn(pos, nvm.pack_tbl, turn)
end

local function after_place_node(pos, placer, itemstack)
	local nvm = techage.get_nvm(pos)
	local meta = M(pos)
	meta:set_string("infotext", DESCRIPTION)
	meta:set_string("owner", placer:get_player_name())
	local old_pos, old_param2 = get_storage_pos(pos, itemstack)
	if old_pos then
		local new_param2 = minetest.get_node(pos).param2
		local turn = techage.determine_turn_rotation(old_param2, new_param2)
		local move = vector.subtract(pos, old_pos)
		takeover_data(old_pos, pos)
		adjust_database(pos, nvm, move, turn)
		remove_storage_node(old_pos)
	end
	meta:set_string("formspec", formspec(nvm, meta))
end

local function on_receive_fields(pos, formname, fields, player)
	if minetest.is_protected(pos, player:get_player_name()) then
		return
	end

	local meta = M(pos)
	local nvm = techage.get_nvm(pos)
	local data_stored = meta:get_int("data_stored") == 1

	if fields.record and not data_stored then
		nvm.pos_list = nil
		meta:set_string("status", S("Recording..."))
		local name = player:get_player_name()
		minetest.chat_send_player(name, S("Click on all blocks that shall be turned"))
		mark.start(name, MAX_BLOCKS)
		meta:set_string("formspec", formspec(nvm, meta))
	elseif fields.store and not data_stored then
		meta:set_string("node_name", fields.node_name)
		meta:set_string("formspec", formspec(nvm, meta))
	elseif fields.done and not data_stored then
		local name = player:get_player_name()
		nvm.pos_list = mark.get_poslist(name) or {}
		local text = #(nvm.pos_list).." "..S("block positions are stored.")
		meta:set_string("status", text)
		meta:set_string("node_name", fields.node_name)
		mark.unmark_all(name)
		mark.stop(name)
		meta:set_string("formspec", formspec(nvm, meta))
	elseif fields.pack and nvm.pos_list and #nvm.pos_list > 0 and not data_stored then
		nvm.pack_tbl = techage.pack_nodes(nvm.pos_list)
		meta:set_string("status", S("Blocks stored"))
		meta:set_string("formspec", formspec(nvm, meta))
		meta:set_int("data_stored", 1)
	elseif fields.unpack and data_stored and nvm.pack_tbl then
		if techage.unpack_nodes(nvm.pack_tbl) then
			meta:set_string("status", S("Blocks placed"))
			meta:set_int("data_stored", 0)
		else
			meta:set_string("status", S("Position(s) occupied"))
		end
		meta:set_string("formspec", formspec(nvm, meta))
	end
end

local function after_dig_node(pos, oldnode, oldmetadata, digger)
	local name = digger:get_player_name()
	mark.unmark_all(name)
	mark.stop(name)

	if oldmetadata.fields.data_stored == "1" then
		minetest.set_node(pos, {name = "techage:ta5_packcontainer_storage", param2 = oldnode.param2})
		local owner = oldmetadata.fields.owner or ""
		M(pos):set_string("infotext", S("@1's @2 storage", owner, DESCRIPTION))
	else
		techage.del_mem(pos)
	end
end

minetest.register_node("techage:ta5_packcontainer", {
	description = DESCRIPTION,
	tiles = {
		-- up, down, right, left, back, front
		"techage_filling_ta4.png^techage_frame_ta5_top.png^techage_appl_arrow.png",
		"techage_filling_ta4.png^techage_frame_ta5_top.png",
		"techage_filling_ta4.png^techage_frame_ta5.png^techage_appl_pack.png",
	},
	after_place_node = after_place_node,
	on_receive_fields = on_receive_fields,
	after_dig_node = after_dig_node,
	preserve_metadata = set_storage_pos,
	paramtype2 = "facedir",
	groups = {choppy=2, cracky=2, crumbly=2},
	is_ground_content = false,
	sounds = default.node_sound_wood_defaults(),
})

local INFO = [[Commands: 'left', 'right', 'uturn']]

techage.register_node({"techage:ta5_packcontainer"}, {
	on_recv_message = function(pos, src, topic, payload)
		if topic == "info" then
			return INFO
		end
		return false
	end,
})

minetest.register_craft({
	output = "techage:ta4_turncontroller",
	recipe = {
		{"default:steel_ingot", "dye:blue", "default:steel_ingot"},
		{"techage:aluminum", "techage:baborium_ingot", "techage:aluminum"},
		{"group:wood", "basic_materials:gear_steel", "group:wood"},
	},
})

minetest.register_node("techage:ta5_packcontainer_storage", {
	description = DESCRIPTION,
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{ -5/16, -8/16, -5/16, 5/16, -5/16, 5/16},
		},
	},
	tiles = {
		-- up, down, right, left, back, front
		"techage_pack_storage.png",
	},
	paramtype2 = "facedir",
	paramtype = "light",
	sunlight_propagates = true,
	light_source = 5,
	glow = 12,
	use_texture_alpha = techage.CLIP,
	is_ground_content = false,
	on_blast = function() end,
	on_destruct = function () end,
	can_dig = function() return false end,
	diggable = false,
	drop = "",
	groups = {not_in_creative_inventory = 1},
})

techage.register_node({"techage:ta5_packcontainer_storage"})