MineClone5/mods/ITEMS/mcl_maps/init.lua

mcl_maps = {}

local S = minetest.get_translator("mcl_maps")
local modpath = minetest.get_modpath("mcl_maps")
local worldpath = minetest.get_worldpath()
local map_textures_path = worldpath .. "/mcl_maps/"

local math_min = math.min
local math_max = math.max

minetest.mkdir(map_textures_path)

local function load_json_file(name)
	local file = assert(io.open(modpath .. "/" .. name .. ".json", "r"))
	local data = minetest.parse_json(file:read())
	file:close()
	return data
end

local texture_colors = load_json_file("colors")
local palettes = load_json_file("palettes")

local color_cache = {}

local creating_maps = {}
local loaded_maps = {}

local c_air = minetest.get_content_id("air")

function mcl_maps.create_map(pos)
	local minp = vector.subtract(vector.floor(pos), 64)
	local maxp = vector.add(minp, 127)

	local itemstack = ItemStack("mcl_maps:filled_map")
	local meta = itemstack:get_meta()
	local id = string.format("%.0f-%.0f", minetest.hash_node_position(minp), mcl_time.get_seconds_irl())
	meta:set_string("mcl_maps:id", id)
	meta:set_string("mcl_maps:minp", minetest.pos_to_string(minp))
	meta:set_string("mcl_maps:maxp", minetest.pos_to_string(maxp))
	tt.reload_itemstack_description(itemstack)

	creating_maps[id] = true
	minetest.emerge_area(minp, maxp, function(blockpos, action, calls_remaining)
		if calls_remaining > 0 then
			return
		end
		local vm = minetest.get_voxel_manip()
		local emin, emax = vm:read_from_map(minp, maxp)
		local data = vm:get_data()
		local param2data = vm:get_param2_data()
		local offset_x, offset_y, offset_z = minp.x - emin.x, minp.y - emin.y, minp.z - emin.z
		local dx = emax.x - emin.x + 1
		local dy = (emax.y - emin.y + 1) * dx
		local offset = offset_z * dy + offset_y * dx + offset_x
		local map_y_start = 64 * dx
		local map_y_limit = 127 * dx

		local pixels = {}
		local last_heightmap
		for x = 1, 128 do
			local map_x = x + offset
			local heightmap = {}
			for z = 1, 128 do
				local map_z = (z-1) * dy + map_x
				local color, height

				local map_y = map_z + map_y_start
				local map_y_limit = map_z + map_y_limit
				while data[map_y] ~= c_air and map_y < map_y_limit do
					map_y = map_y + dx
				end
				while data[map_y] == c_air and map_y > map_z do
					map_y = map_y - dx
				end
				local c_id = data[map_y]
				color = color_cache[c_id]
				if color == nil then
					local nodename = minetest.get_name_from_content_id(c_id)
					local def = minetest.registered_nodes[nodename]
					if def then
						local texture
						if def.palette then
							texture = def.palette
						elseif def.tiles then
							texture = def.tiles[1]
							if type(texture) == "table" then
								texture = texture.name
							end
						end
						if texture then
							texture = texture:match("([^=^%^]-([^.]+))$"):split("^")[1]
						end
						if def.palette then
							local palette = palettes[texture]
							color = palette and {palette = palette}
						else
							color = texture_colors[texture]
						end
					end
				end

				if color and color.palette then
					color = color.palette[param2data[map_y] + 1]
				else
					color_cache[c_id] = color or false
				end

				if color and last_heightmap then
					local last_height = last_heightmap[z]
					local y = map_y - map_z
					if last_height < y then
						color = {
							math_min(255, color[1] + 16),
							math_min(255, color[2] + 16),
							math_min(255, color[3] + 16),
						}
					elseif last_height > y then
						color = {
							math_max(0, color[1] - 16),
							math_max(0, color[2] - 16),
							math_max(0, color[3] - 16),
						}
					end
				end
				height = map_y - map_z

				heightmap[z] = height or minp.y
				pixels[#pixels + 1] = color and {r = color[1], g = color[2], b = color[3]} or {r = 0, g = 0, b = 0}
			end
			last_heightmap = heightmap
		end

		local png = minetest.encode_png(128, 128, pixels)
		local f = io.open(map_textures_path .. "mcl_maps_map_texture_" .. id .. ".png", "w")
		if not f then return end
		f:write(png)
		f:close()
		creating_maps[id] = nil
	end)
	return itemstack
end

local loading_maps = {}

function mcl_maps.load_map(id)
	if id == "" or creating_maps[id] or loading_maps[id] then
		return
	end

	local texture = "mcl_maps_map_texture_" .. id .. ".png"

	if not loaded_maps[id] then
		loading_maps[id] = true
		minetest.dynamic_add_media({filepath = map_textures_path .. texture, ephemeral = true}, function(player_name)
			loaded_maps[id] = true
			loading_maps[id] = nil
		end)
		return
	end

	return texture
end

function mcl_maps.load_map_item(itemstack)
	return mcl_maps.load_map(itemstack:get_meta():get_string("mcl_maps:id"))
end

local function fill_map(itemstack, placer, pointed_thing)
	local new_stack = mcl_util.call_on_rightclick(itemstack, placer, pointed_thing)
	if new_stack then
		return new_stack
	end

	if minetest.settings:get_bool("enable_real_maps", true) then
		local new_map = mcl_maps.create_map(placer:get_pos())
		itemstack:take_item()
		if itemstack:is_empty() then
			return new_map
		else
			local inv = placer:get_inventory()
			if inv:room_for_item("main", new_map) then
				inv:add_item("main", new_map)
			else
				minetest.add_item(placer:get_pos(), new_map)
			end
			return itemstack
		end
	end
end

minetest.register_craftitem("mcl_maps:empty_map", {
	description = S("Empty Map"),
	_doc_items_longdesc = S("Empty maps are not useful as maps, but they can be stacked and turned to maps which can be used."),
	_doc_items_usagehelp = S("Rightclick to create a filled map (which can't be stacked anymore)."),
	inventory_image = "mcl_maps_map_empty.png",
	on_place = fill_map,
	on_secondary_use = fill_map,
	stack_max = 64,
})

local filled_def = {
	description = S("Map"),
	_tt_help = S("Shows a map image."),
	_doc_items_longdesc = S("When created, the map saves the nearby area as an image that can be viewed any time by holding the map."),
	_doc_items_usagehelp = S("Hold the map in your hand. This will display a map on your screen."),
	inventory_image = "mcl_maps_map_filled.png^(mcl_maps_map_filled_markings.png^[colorize:#000000)",
	stack_max = 64,
	groups = {not_in_creative_inventory = 1, filled_map = 1, tool = 1},
}

minetest.register_craftitem("mcl_maps:filled_map", filled_def)

local filled_wield_def = table.copy(filled_def)
filled_wield_def.use_texture_alpha = minetest.features.use_texture_alpha_string_modes and "opaque" or false
filled_wield_def.visual_scale = 1
filled_wield_def.wield_scale = {x = 1, y = 1, z = 1}
filled_wield_def.paramtype = "light"
filled_wield_def.drawtype = "mesh"
filled_wield_def.node_placement_prediction = ""
filled_wield_def.range = minetest.registered_items[""].range
filled_wield_def.on_place = mcl_util.call_on_rightclick

for _, texture in pairs(mcl_skins.list) do
	local def = table.copy(filled_wield_def)
	def.tiles = {texture .. ".png"}
	def.mesh = "mcl_meshhand.b3d"
	def._mcl_hand_id = texture
	minetest.register_node("mcl_maps:filled_map_" .. texture, def)

	local female_def = table.copy(def)
	female_def.mesh = "mcl_meshhand_female.b3d"
	female_def._mcl_hand_id = texture .. "_female"
	minetest.register_node("mcl_maps:filled_map_" .. texture .. "_female", female_def)
end

local old_add_item = minetest.add_item
function minetest.add_item(pos, stack)
	stack = ItemStack(stack)
	if minetest.get_item_group(stack:get_name(), "filled_map") > 0 then
		stack:set_name("mcl_maps:filled_map")
	end
	return old_add_item(pos, stack)
end

tt.register_priority_snippet(function(itemstring, _, itemstack)
	if itemstack and minetest.get_item_group(itemstring, "filled_map") > 0 then
		local id = itemstack:get_meta():get_string("mcl_maps:id")
		if id ~= "" then
			return "#" .. id, mcl_colors.GRAY
		end
	end
end)

minetest.register_craft({
	output = "mcl_maps:empty_map",
	recipe = {
		{ "mcl_core:paper", "mcl_core:paper", "mcl_core:paper" },
		{ "mcl_core:paper", "group:compass", "mcl_core:paper" },
		{ "mcl_core:paper", "mcl_core:paper", "mcl_core:paper" },
	}
})

minetest.register_craft({
	type = "shapeless",
	output = "mcl_maps:filled_map 2",
	recipe = {"group:filled_map", "mcl_maps:empty_map"},
})

local function on_craft(itemstack, player, old_craft_grid, craft_inv)
	if itemstack:get_name() == "mcl_maps:filled_map" then
		for _, stack in pairs(old_craft_grid) do
			if minetest.get_item_group(stack:get_name(), "filled_map") > 0 then
				itemstack:get_meta():from_table(stack:get_meta():to_table())
				return itemstack
			end
		end
	end
end

minetest.register_on_craft(on_craft)
minetest.register_craft_predict(on_craft)

local maps = {}
local huds = {}

minetest.register_on_joinplayer(function(player)
	local map_def = {
		hud_elem_type = "image",
		text = "blank.png",
		position = {x = 0.75, y = 0.8},
		alignment = {x = 0, y = -1},
		offset = {x = 0, y = 0},
		scale = {x = 2, y = 2},
	}
	local marker_def = table.copy(map_def)
	marker_def.alignment = {x = 0, y = 0}
	huds[player] = {
		map = player:hud_add(map_def),
		marker = player:hud_add(marker_def),
	}
end)

minetest.register_on_leaveplayer(function(player)
	maps[player] = nil
	huds[player] = nil
end)

minetest.register_globalstep(function(dtime)
	for _, player in pairs(minetest.get_connected_players()) do
		local wield = player:get_wielded_item()
		local texture = mcl_maps.load_map_item(wield)
		local hud = huds[player]
		if texture then
			local wield_def = wield:get_definition()
			local hand_def = player:get_inventory():get_stack("hand", 1):get_definition()

			if hand_def and wield_def and hand_def._mcl_hand_id ~= wield_def._mcl_hand_id then
				wield:set_name("mcl_maps:filled_map_" .. hand_def._mcl_hand_id)
				player:set_wielded_item(wield)
			end

			if texture ~= maps[player] then
				player:hud_change(hud.map, "text", "[combine:140x140:0,0=mcl_maps_map_background.png:6,6=" .. texture)
				maps[player] = texture
			end

			local pos = vector.round(player:get_pos())
			local meta = wield:get_meta()
			local minp = minetest.string_to_pos(meta:get_string("mcl_maps:minp"))
			local maxp = minetest.string_to_pos(meta:get_string("mcl_maps:maxp"))

			local marker = "mcl_maps_player_arrow.png"

			if pos.x < minp.x then
				marker = "mcl_maps_player_dot.png"
				pos.x = minp.x
			elseif pos.x > maxp.x then
				marker = "mcl_maps_player_dot.png"
				pos.x = maxp.x
			end

			if pos.z < minp.z then
				marker = "mcl_maps_player_dot.png"
				pos.z = minp.z
			elseif pos.z > maxp.z then
				marker = "mcl_maps_player_dot.png"
				pos.z = maxp.z
			end

			if marker == "mcl_maps_player_arrow.png" then
				local yaw = (math.floor(player:get_look_horizontal() * 180 / math.pi / 90 + 0.5) % 4) * 90
				marker = marker .. "^[transformR" .. yaw
			end

			player:hud_change(hud.marker, "text", marker)
			player:hud_change(hud.marker, "offset", {x = (6 - 140 / 2 + pos.x - minp.x) * 2, y = (6 - 140 + maxp.z - pos.z) * 2})
		elseif maps[player] then
			player:hud_change(hud.map, "text", "blank.png")
			player:hud_change(hud.marker, "text", "blank.png")
			maps[player] = nil
		end
	end
end)