compat = HandyNotes.compat

do
	local Astrolabe = DongleStub("Astrolabe-1.0")

	local orig = GetCurrentMapAreaID()

    -- Create a lookup table from mapID to c,z pairs
	local mapcz = {}
	for cid, zlist in ipairs{GetMapContinents()} do
		for zid, mapid in ipairs{GetMapZones(cid)} do
			SetMapZoom(cid, zid)
			local mapid = GetCurrentMapAreaID()
			mapcz[mapid] = {cid, zid}
		end
	end

	SetMapByID(orig)

    -- This function takes the mapID return from the Astrolabe function
    -- and converts it to a c,z,x,y tuple
	function compat:GetCurrentPlayerPosition()
		local map, floor, x, y = Astrolabe:GetCurrentPlayerPosition()
		local cz = mapcz[map]
		if cz then
			local c, z = unpack(cz)
			return c, z, x, y
		end
	end

	function compat:ComputeDistance(c1,z1,x1,y1,c2,z2,x2,y2)
		local m1 = Astrolabe:GetMapID(c1, z1)
		local floors = Astrolabe:GetNumFloors(m1)
		local f1 = floors == 0 and 0 or 1
		local m2 = Astrolabe:GetMapID(c2, z2)
		floors = Astrolabe:GetNumFloors(m2)
		local f2 = floors == 0 and 0 or 1
		return Astrolabe:ComputeDistance(m1, f1, x1, y1, m2, f2, x2, y2)
	end

	function compat:TranslateWorldMapPosition(c, z, x, y, c2, z2)
		local C = Astrolabe:GetMapID(c, z)
		local floors = Astrolabe:GetNumFloors(m1)
		local f1 = floors == 0 and 0 or 1
		local nC = Astrolabe:GetMapID(c2, z2)
		floors = Astrolabe:GetNumFloors(nC)
		local f2 = floors == 0 and 0 or 1
		return Astrolabe:TranslateWorldMapPosition(C, f1, x, y, nC, f2)
	end
end