118 lines
3.3 KiB
Lua
118 lines
3.3 KiB
Lua
|
minetest.register_tool("mapp:map", {
|
||
|
description = "map",
|
||
|
inventory_image = "map_block.png",
|
||
|
stack_max = 1,
|
||
|
on_use = function(itemstack, user, pointed_thing)
|
||
|
map_handler(itemstack,user,pointed_thing)
|
||
|
end,
|
||
|
})
|
||
|
function map_handler (itemstack, user, pointed_thing)
|
||
|
--Bechmark variables.
|
||
|
local clock = os.clock
|
||
|
local start = clock()
|
||
|
|
||
|
local pos = user:getpos()
|
||
|
local player_name=user:get_player_name()
|
||
|
local mapar = {}
|
||
|
local map
|
||
|
local p
|
||
|
local pp
|
||
|
local po = {x = 0, y = 0, z = 0}
|
||
|
local tile = ""
|
||
|
local yaw
|
||
|
local rotate = 0
|
||
|
pos.y = pos.y + 1
|
||
|
yaw = user:get_look_yaw()
|
||
|
if yaw ~= nil then
|
||
|
-- Find rotation and texture based on yaw.
|
||
|
yaw = math.deg(yaw)
|
||
|
yaw = math.fmod (yaw, 360)
|
||
|
if yaw < 90 then
|
||
|
rotate = 90
|
||
|
elseif yaw < 180 then
|
||
|
rotate = 180
|
||
|
elseif yaw < 270 then
|
||
|
rotate = 270
|
||
|
else
|
||
|
rotate = 0
|
||
|
end
|
||
|
yaw = math.fmod(yaw, 90)
|
||
|
yaw = math.floor(yaw / 10) * 10
|
||
|
end
|
||
|
|
||
|
--Localise some global minetest variables for speed.
|
||
|
local env = minetest.env
|
||
|
local registered_nodes = minetest.registered_nodes
|
||
|
|
||
|
for i = -35,35,1 do
|
||
|
mapar[i+35] = {}
|
||
|
for j = -35,35,1 do
|
||
|
mapar[i+35][j+35] = {}
|
||
|
po.x, po.y, po.z = pos.x+i, pos.y, pos.z+j
|
||
|
local no = env:get_node(po)
|
||
|
local k=po.y
|
||
|
if no.name == "air" then
|
||
|
while no.name == "air" do
|
||
|
k=k-1
|
||
|
po.x, po.y, po.z = pos.x+i, k, pos.z+j
|
||
|
no = env:get_node(po)
|
||
|
end
|
||
|
elseif no.name ~= "air" and (no.name ~= "ignore") then
|
||
|
while (no.name ~= "air") and (no.name ~= "ignore") do
|
||
|
k=k+1
|
||
|
po.x, po.y, po.z = pos.x+i, k, pos.z+j
|
||
|
no = env:get_node(po)
|
||
|
end
|
||
|
k=k-1
|
||
|
po.x, po.y, po.z = pos.x+i, k, pos.z+j
|
||
|
end
|
||
|
|
||
|
local node = env:get_node(po)
|
||
|
local tiles
|
||
|
local def = registered_nodes[node.name]
|
||
|
if def then tiles = def["tiles"] end
|
||
|
if tiles ~=nil then
|
||
|
tile = tiles[1]
|
||
|
end
|
||
|
|
||
|
if type(tile)=="table" then
|
||
|
tile=tile["name"]
|
||
|
end
|
||
|
mapar[i+35][j+35].y = k
|
||
|
mapar[i+35][j+35].im = tile
|
||
|
end
|
||
|
end
|
||
|
|
||
|
--Optimisation technique.
|
||
|
--Lua does not edit string buffers via concatenation, using a table and then invoking table.concat is MUCH faster.
|
||
|
p = {}
|
||
|
pp = #p
|
||
|
|
||
|
pp = pp + 1
|
||
|
p[pp] = "size[8.2,8]"..
|
||
|
"background[-1,-1;9.8,9.8;map_block_bg.png]"
|
||
|
|
||
|
for i=1,50,1 do
|
||
|
for j=1,50,1 do
|
||
|
if mapar[i][j].y ~= mapar[i][j+1].y then mapar[i][j].im = mapar[i][j].im .. "^1black_blockt.png" end
|
||
|
if mapar[i][j].y ~= mapar[i][j-1].y then mapar[i][j].im = mapar[i][j].im .. "^1black_blockb.png" end
|
||
|
if mapar[i][j].y ~= mapar[i-1][j].y then mapar[i][j].im = mapar[i][j].im .. "^1black_blockl.png" end
|
||
|
if mapar[i][j].y ~= mapar[i+1][j].y then mapar[i][j].im = mapar[i][j].im .. "^1black_blockr.png" end
|
||
|
pp = pp + 1
|
||
|
p[pp] = "image[".. 0.15*(i) ..",".. 0.15*(50-j)+0.1 ..";0.2,0.2;" .. mapar[i][j].im .. "]"
|
||
|
end
|
||
|
end
|
||
|
|
||
|
pp = pp + 1
|
||
|
if rotate ~= 0 then
|
||
|
p[pp] = "image[".. 0.15*(25)+0.075 ..",".. 0.15*(25)-0.085 ..";0.4,0.4;d" .. yaw .. ".png^[transformFYR".. rotate .."]"
|
||
|
else
|
||
|
p[pp] = "image[".. 0.15*(25)+0.075 ..",".. 0.15*(25)-0.085 ..";0.4,0.4;d" .. yaw .. ".png^[transformFY]"
|
||
|
end
|
||
|
|
||
|
map = table.concat(p, "\n")
|
||
|
|
||
|
minetest.show_formspec(player_name, "mapp:map", map)
|
||
|
print("[Mapp] Map generated in: ".. clock() - start.." seconds.")
|
||
|
end
|