-- Map handling

nav.map_radius = 256

nav.waypoints = {}

local form_nav = default.ui.get_page("core")
default.ui.register_page("nav_nav", form_nav)

local open_formspecs = {}

local timer = 10
local update_time = 0.1

function nav.add_waypoint(pos, name, label, isinfo, type)
   nav.waypoints[name] = {pos = pos, label = label, isinfo = isinfo or false, type = type}
end

function nav.remove_waypoint(name)
   nav.waypoints[name] = nil
end

function nav.get_waypoints_in_square(pos, radius)
   local wpts = {}

   for name, data in pairs(nav.waypoints) do
      local wp = data.pos
      
      if wp.x > pos.x-radius and wp.x < pos.x+radius and  wp.z > pos.z-radius and wp.z < pos.z+radius then
	 table.insert(wpts, name)
      end
   end

   return wpts
end

local function get_formspec_waypoint(x, y, name, label, isinfo)
   local img = "nav_waypoint.png"
   if isinfo then
      img = "nav_info.png"
   end

   local form = ""
   
   form = form .. "image_button["..(x-0.72)..","..(y-0.53)..";0.5,0.5;"..img..";"..name..";;false;false;"..img.."]"
   form = form .. "tooltip["..name..";"..minetest.formspec_escape(label).."]"

   return form
end

function nav.show_map(player)
   local name = player:get_player_name()
   local pos = player:getpos()

   local form = default.ui.get_page("nav_nav")

   form = form .. "field[-1,-1;0,0;nav_map_tracker;;]"

   form = form .. "label[0.25,0.25;"..minetest.formspec_escape(name).." ("..math.floor(pos.x+0.5)..", "..math.floor(pos.y)..", "..math.floor(pos.z+0.5)..")]"

   form = form .. "image[0.5,3;6,6;nav_background.png]"

   local wpts = nav.get_waypoints_in_square(pos, nav.map_radius)
   for _, wptname in pairs(wpts) do
      local wpt = nav.waypoints[wptname]

      form = form .. get_formspec_waypoint(
	 3.5+(((wpt.pos.x-pos.x)/nav.map_radius)*3),
	 6+(((pos.z-wpt.pos.z)/nav.map_radius)*3),
	 wptname,
	 wpt.label,
	 wpt.isinfo)
   end

   form = form .. "image[5.5,3;1,1;nav_map_compass.png]"

   form = form .. "label[6.25,6.6;"..nav.map_radius.."m]"
   form = form .. "image[5.5,5.5;3,3;"..minetest.formspec_escape("nav_legend.png^[transformFX").."]"

   minetest.show_formspec(name, "nav_map", form)
end

local function recieve_fields(player, form_name, fields)
   if form_name == "nav_map" then
      if fields.quit or fields.nav_map_tracker then
	 open_formspecs[player:get_player_name()] = false
      end
   end
end

local function on_joinplayer(player)
   local name = player:get_player_name()

   minetest.after(
      1.0,
      function()
	 nav.add_waypoint(player:getpos(), "player_"..name, name, true, "player")
      end)
end

local function on_leaveplayer(player)
   local name = player:get_player_name()

   nav.remove_waypoint("player_"..name)
end

local function step(dtime)
   timer = timer + dtime

   if timer > update_time then
      local players = {}

      for _, player in pairs(minetest.get_connected_players()) do
	 local name = player:get_player_name()

	 players[name] = player

	 if open_formspecs[name] == true then
	    nav.show_map(player)
	 end
      end

      for wptname, wpt in pairs(nav.waypoints) do
	 if wpt.type == "player" then
	    wpt.pos = players[wpt.label]:getpos()
	 end
      end

      timer = 0
   end
end

minetest.register_craftitem(
   "nav:map",
   {
      description = "Map",
      inventory_image = "nav_inventory.png",
      wield_image = "nav_inventory.png",
      stack_max = 1,
      on_use = function(itemstack, player, pointed_thing)
		  open_formspecs[player:get_player_name()] = true
		  nav.show_map(player)
	       end,
   })

minetest.register_craft(
   {
      output = "nav:map",
      recipe = {
	 {"default:stick", "default:stick", "default:stick"},
	 {"default:paper", "default:paper", "default:paper"},
	 {"default:stick", "default:stick", "default:stick"},
      }
   })


minetest.register_on_joinplayer(on_joinplayer)
minetest.register_on_leaveplayer(on_leaveplayer)
minetest.register_globalstep(step)
minetest.register_on_player_receive_fields(recieve_fields)