pipeworks/autoplace.lua
Vanessa Ezekowitz 564abfe45a Made storage tank participate in autoplace algorithm. Tuned API a
little to allow for more flexible placement.
2012-08-21 13:52:25 -04:00

116 lines
3.6 KiB
Lua

function pipe_autoroute(pos, state)
nctr = minetest.env:get_node(pos)
if (string.find(nctr.name, "pipeworks:pipe_") == nil) then return end
pxm=0
pxp=0
pym=0
pyp=0
pzm=0
pzp=0
nxm = minetest.env:get_node({ x=pos.x-1, y=pos.y , z=pos.z })
nxp = minetest.env:get_node({ x=pos.x+1, y=pos.y , z=pos.z })
nym = minetest.env:get_node({ x=pos.x , y=pos.y-1, z=pos.z })
nyp = minetest.env:get_node({ x=pos.x , y=pos.y+1, z=pos.z })
nzm = minetest.env:get_node({ x=pos.x , y=pos.y , z=pos.z-1 })
nzp = minetest.env:get_node({ x=pos.x , y=pos.y , z=pos.z+1 })
if (string.find(nxm.name, "pipeworks:pipe_") ~= nil) then pxm=1 end
if (string.find(nxp.name, "pipeworks:pipe_") ~= nil) then pxp=1 end
if (string.find(nym.name, "pipeworks:pipe_") ~= nil) then pym=1 end
if (string.find(nyp.name, "pipeworks:pipe_") ~= nil) then pyp=1 end
if (string.find(nzm.name, "pipeworks:pipe_") ~= nil) then pzm=1 end
if (string.find(nzp.name, "pipeworks:pipe_") ~= nil) then pzp=1 end
pipe_checkfordevice(pos)
nsurround = pxm..pxp..pym..pyp..pzm..pzp
if nsurround == "000000" then nsurround = "110000" end
minetest.env:add_node(pos, { name = "pipeworks:pipe_"..nsurround..state })
end
function pipe_device_autorotate(pos, state, bname)
if state == nil then
nname = bname
else
nname = bname.."_"..state
end
local nctr = minetest.env:get_node(pos)
pxm=0
pxp=0
pzm=0
pzp=0
nxm = minetest.env:get_node({ x=pos.x-1, y=pos.y , z=pos.z })
nxp = minetest.env:get_node({ x=pos.x+1, y=pos.y , z=pos.z })
nzm = minetest.env:get_node({ x=pos.x , y=pos.y , z=pos.z-1 })
nzp = minetest.env:get_node({ x=pos.x , y=pos.y , z=pos.z+1 })
if (string.find(nxm.name, "pipeworks:pipe_") ~= nil) then pxm=1 end
if (string.find(nxp.name, "pipeworks:pipe_") ~= nil) then pxp=1 end
if (string.find(nzm.name, "pipeworks:pipe_") ~= nil) then pzm=1 end
if (string.find(nzp.name, "pipeworks:pipe_") ~= nil) then pzp=1 end
pipe_checkfordevice(pos)
if (pxm+pxp) ~= 0 then
minetest.env:add_node(pos, { name = nname.."_x" })
return
end
if (pzm+pzp) ~= 0 then
minetest.env:add_node(pos, { name = nname.."_z" })
end
end
pipe_checkfordevice = function(pos)
for p in ipairs(pipes_devicelist) do
pdev = pipes_devicelist[p]
if (string.find(nxm.name, "pipeworks:"..pdev.."_off_x") ~= nil) or
(string.find(nxm.name, "pipeworks:"..pdev.."_on_x") ~= nil) or
(string.find(nxm.name, "pipeworks:"..pdev.."_x") ~= nil) then
pxm=1
end
if (string.find(nxp.name, "pipeworks:"..pdev.."_off_x") ~= nil) or
(string.find(nxp.name, "pipeworks:"..pdev.."_on_x") ~= nil) or
(string.find(nxp.name, "pipeworks:"..pdev.."_x") ~= nil) then
pxp=1
end
if (string.find(nzm.name, "pipeworks:"..pdev.."_off_z") ~= nil) or
(string.find(nzm.name, "pipeworks:"..pdev.."_on_z") ~= nil) or
(string.find(nzm.name, "pipeworks:"..pdev.."_z") ~= nil) then
pzm=1
end
if (string.find(nzp.name, "pipeworks:"..pdev.."_off_z") ~= nil) or
(string.find(nzp.name, "pipeworks:"..pdev.."_on_z") ~= nil) or
(string.find(nzp.name, "pipeworks:"..pdev.."_z") ~= nil) then
pzp=1
end
end
end
pipe_scanforobjects = function(pos)
pipe_autoroute({ x=pos.x-1, y=pos.y , z=pos.z }, "_loaded")
pipe_autoroute({ x=pos.x+1, y=pos.y , z=pos.z }, "_loaded")
pipe_autoroute({ x=pos.x , y=pos.y , z=pos.z-1 }, "_loaded")
pipe_autoroute({ x=pos.x , y=pos.y , z=pos.z+1 }, "_loaded")
pipe_autoroute({ x=pos.x-1, y=pos.y , z=pos.z }, "_empty")
pipe_autoroute({ x=pos.x+1, y=pos.y , z=pos.z }, "_empty")
pipe_autoroute({ x=pos.x , y=pos.y , z=pos.z-1 }, "_empty")
pipe_autoroute({ x=pos.x , y=pos.y , z=pos.z+1 }, "_empty")
end