--[[

	Hyperloop Mod
	=============

	Copyright (C) 2017 Joachim Stolberg

	LGPLv2.1+
	See LICENSE.txt for more information

	History:
	see init.lua

]]--

local function store_routes(pos)
	local meta = minetest.get_meta(pos)
	local station_name = meta:get_string("station_name")
	print("station_name="..station_name)
	if station_name ~= nil and station_name ~= "" then
		local res, nodes = hyperloop.scan_neighbours(pos)
		-- generate a list with all tube heads
		local tRoutes = {}
		for _,node in ipairs(nodes) do
			print(node.name)
			if node.name == "hyperloop:tube1" then
				local meta = minetest.get_meta(node.pos)
				local route = {meta:get_string("local"), meta:get_string("remote")}
				--print(dump(route))
				table.insert(tRoutes, route)
			end
		end
		-- store list
		local spos = minetest.pos_to_string(pos)
		hyperloop.tAllStations[station_name] = {pos=spos, routes=tRoutes}
	end
end

local function punch_all_stations()
	for _, item in pairs(hyperloop.tAllStations) do
		minetest.punch_node(minetest.string_to_pos(item.pos))
	end
end


minetest.register_node("hyperloop:junction", {
		description = "Hyperloop Junction Block",
		tiles = {"hyperloop_station.png"},

		after_place_node = function(pos, placer, itemstack, pointed_thing)
			local meta = minetest.get_meta(pos)
			local formspec = "size[5,4]"..
			"label[0,0;Please insert station name]" ..
			"field[1,1.5;3,1;name;Name;MyTown]" ..
			"button_exit[1,2;2,1;exit;Save]"
			meta:set_string("formspec", formspec)
		end,

		on_receive_fields = function(pos, formname, fields, player)
			if fields.name == nil then
				return
			end
			local station_name = string.trim(fields.name)
			if station_name == "" then
				return
			end
			-- check if station already available
			local spos = minetest.pos_to_string(pos)
			if hyperloop.tAllStations[station_name] ~= nil and hyperloop.tAllStations[station_name]["pos"] ~= spos then
				minetest.chat_send_player(player:get_player_name(), "Error: Station name already assigned!")
				return
			end
			local meta = minetest.get_meta(pos)
			meta:set_string("formspec", nil)
			meta:set_string("station_name", station_name)
			meta:set_string("infotext", "Station '"..station_name.."'")
			store_routes(pos)
			-- update routes in station list
			--punch_all_stations() --????????????????????????????????????????????
		end,

		on_punch = function(pos)
			print("Junction punched")
			store_routes(pos)
		end,

		on_destruct = function(pos)
			-- delete station data
			local meta = minetest.get_meta(pos)
			local station_name = meta:get_string("station_name")
			if hyperloop.tAllStations[station_name] ~= nil then
				hyperloop.tAllStations[station_name] = nil
			end
			-- update routes in station list
			--punch_all_stations()
		end,

		paramtype2 = "facedir",
		groups = {cracky=2},
		is_ground_content = false,
	})


-- to build the pod
minetest.register_node("hyperloop:pod_wall", {
		description = "Hyperloop Pod Wall",
		tiles = {
			-- up, down, right, left, back, front
			"hyperloop_skin.png^[transformR90]",
			"hyperloop_skin.png^[transformR90]",
			"hyperloop_skin.png",
			"hyperloop_skin.png",
			"hyperloop_skin.png",
			"hyperloop_skin.png",
		},
		paramtype2 = "facedir",
		groups = {cracky=1},
		is_ground_content = false,
	})


local function book_on_use(itemstack, user)
	local player_name = user:get_player_name()
	local pos = user:get_pos()
	local sStationList = hyperloop.get_stations_as_string(pos)
	local formspec = "size[8,8]" .. default.gui_bg ..
	default.gui_bg_img ..
	"textarea[0.5,0.5;7.5,8;text;Station List:;" ..
	sStationList .. "]" ..
	"button_exit[2.5,7.5;3,1;close;Close]"

	minetest.show_formspec(player_name, "default:book", formspec)
	return itemstack
end

-- Tool for tube workers to find the next station
minetest.register_node(":hyperloop:station_map", {
		description = "Hyperloop Station Map",
		inventory_image = "hyperloop_stations_book.png",
		wield_image = "hyperloop_stations_book.png",
		groups = {cracky=1, book=1},
		on_use = book_on_use,
		on_place = book_on_use,
	})