frames={}
|
|
function get_face(pos,ppos,pvect)
|
ppos={x=ppos.x-pos.x,y=ppos.y-pos.y+1.5,z=ppos.z-pos.z}
|
if pvect.x>0 then
|
local t=(-0.5-ppos.x)/pvect.x
|
local y_int=ppos.y+t*pvect.y
|
local z_int=ppos.z+t*pvect.z
|
if y_int>-0.4 and y_int<0.4 and z_int>-0.4 and z_int<0.4 then return 1 end
|
elseif pvect.x<0 then
|
local t=(0.5-ppos.x)/pvect.x
|
local y_int=ppos.y+t*pvect.y
|
local z_int=ppos.z+t*pvect.z
|
if y_int>-0.4 and y_int<0.4 and z_int>-0.4 and z_int<0.4 then return 2 end
|
end
|
if pvect.y>0 then
|
local t=(-0.5-ppos.y)/pvect.y
|
local x_int=ppos.x+t*pvect.x
|
local z_int=ppos.z+t*pvect.z
|
if x_int>-0.4 and x_int<0.4 and z_int>-0.4 and z_int<0.4 then return 3 end
|
elseif pvect.y<0 then
|
local t=(0.5-ppos.y)/pvect.y
|
local x_int=ppos.x+t*pvect.x
|
local z_int=ppos.z+t*pvect.z
|
if x_int>-0.4 and x_int<0.4 and z_int>-0.4 and z_int<0.4 then return 4 end
|
end
|
if pvect.z>0 then
|
local t=(-0.5-ppos.z)/pvect.z
|
local x_int=ppos.x+t*pvect.x
|
local y_int=ppos.y+t*pvect.y
|
if x_int>-0.4 and x_int<0.4 and y_int>-0.4 and y_int<0.4 then return 5 end
|
elseif pvect.z<0 then
|
local t=(0.5-ppos.z)/pvect.z
|
local x_int=ppos.x+t*pvect.x
|
local y_int=ppos.y+t*pvect.y
|
if x_int>-0.4 and x_int<0.4 and y_int>-0.4 and y_int<0.4 then return 6 end
|
end
|
end
|
|
|
for xm=0,1 do
|
for xp=0,1 do
|
for ym=0,1 do
|
for yp=0,1 do
|
for zm=0,1 do
|
for zp=0,1 do
|
|
local a=8/16
|
local b=7/16
|
local nodeboxes= {
|
{ -a, -a, -a, -b, a, -b },
|
{ -a, -a, b, -b, a, a },
|
{ b, -a, b, a, a, a },
|
{ b, -a, -a, a, a, -b },
|
|
{ -b, b, -a, b, a, -b },
|
{ -b, -a, -a, b, -b, -b },
|
|
{ -b, b, b, b, a, a },
|
{ -b, -a, b, b, -b, a },
|
|
{ b, b, -b, a, a, b },
|
{ b, -a, -b, a, -b, b },
|
|
{ -a, b, -b, -b, a, b },
|
{ -a, -a, -b, -b, -b, b },
|
}
|
|
if yp==0 then
|
table.insert(nodeboxes, {-b,b,-b, b,a,b})
|
end
|
if ym==0 then
|
table.insert(nodeboxes, {-b,-a,-b, b,-b,b})
|
end
|
if xp==0 then
|
table.insert(nodeboxes, {b,b,b,a,-b,-b})
|
end
|
if xm==0 then
|
table.insert(nodeboxes, {-a,-b,-b,-b,b,b})
|
end
|
if zp==0 then
|
table.insert(nodeboxes, {-b,-b,b, b,b,a})
|
end
|
if zm==0 then
|
table.insert(nodeboxes, {-b,-b,-a, b,b,-b})
|
end
|
|
local nameext=tostring(xm)..tostring(xp)..tostring(ym)..tostring(yp)..tostring(zm)..tostring(zp)
|
local groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2}
|
if nameext~="111111" then groups.not_in_creative_inventory=1 end
|
|
|
minetest.register_node("technic:frame_"..nameext,{
|
description = "Frame",
|
tiles = {"technic_frame.png"},
|
groups=groups,
|
drawtype = "nodebox",
|
node_box = {
|
type = "fixed",
|
fixed=nodeboxes,
|
},
|
selection_box = {
|
type="fixed",
|
fixed={-0.5,-0.5,-0.5,0.5,0.5,0.5}
|
},
|
paramtype = "light",
|
frame=1,
|
drop="technic:frame_111111",
|
frame_connect_all=function(pos)
|
local nodename=minetest.env:get_node(pos).name
|
l2={}
|
l1={{x=-1,y=0,z=0},{x=1,y=0,z=0},{x=0,y=-1,z=0},{x=0,y=1,z=0},{x=0,y=0,z=-1},{x=0,y=0,z=1}}
|
for i,dir in ipairs(l1) do
|
if string.sub(nodename,-7+i,-7+i)=="1" then
|
l2[#(l2)+1]=dir
|
end
|
end
|
return l2
|
end,
|
on_punch=function(pos,node,puncher)
|
local ppos=puncher:getpos()
|
local pvect=puncher:get_look_dir()
|
local pface=get_face(pos,ppos,pvect)
|
if pface==nil then return end
|
local nodename=node.name
|
local newstate=tostring(1-tonumber(string.sub(nodename,-7+pface,-7+pface)))
|
if pface<=5 then
|
nodename=string.sub(nodename,1,-7+pface-1)..newstate..string.sub(nodename,-7+pface+1)
|
else
|
nodename=string.sub(nodename,1,-2)..newstate
|
end
|
node.name=nodename
|
minetest.env:set_node(pos,node)
|
end
|
})
|
|
end
|
end
|
end
|
end
|
end
|
end
|
|
|
function frame_motor1_on(pos,node)
|
local npos={x=pos.x,y=pos.y+1,z=pos.z}
|
local nnode=minetest.env:get_node(npos)
|
if node.param2==0 then
|
dir={x=1,y=0,z=0}
|
elseif node.param2==1 then
|
dir={x=0,y=0,z=-1}
|
elseif node.param2==2 then
|
dir={x=-1,y=0,z=0}
|
else
|
dir={x=0,y=0,z=1}
|
end
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
function frame_motor2_on(pos,node)
|
local npos={x=pos.x,y=pos.y-1,z=pos.z}
|
local nnode=minetest.env:get_node(npos)
|
if node.param2==0 then
|
dir={x=1,y=0,z=0}
|
elseif node.param2==1 then
|
dir={x=0,y=0,z=-1}
|
elseif node.param2==2 then
|
dir={x=-1,y=0,z=0}
|
else
|
dir={x=0,y=0,z=1}
|
end
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
function frame_motor3_on(pos,node)
|
local npos={x=pos.x,y=pos.y,z=pos.z}
|
if node.param2==0 then
|
dir={x=1,y=0,z=0}
|
npos.z=npos.z-1
|
elseif node.param2==1 then
|
dir={x=0,y=0,z=-1}
|
npos.x=npos.x-1
|
elseif node.param2==2 then
|
dir={x=-1,y=0,z=0}
|
npos.z=npos.z+1
|
else
|
dir={x=0,y=0,z=1}
|
npos.x=npos.x+1
|
end
|
local nnode=minetest.env:get_node(npos)
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
function frame_motor4_on(pos,node)
|
local npos={x=pos.x,y=pos.y,z=pos.z}
|
if node.param2==0 then
|
dir={x=-1,y=0,z=0}
|
npos.z=npos.z-1
|
elseif node.param2==1 then
|
dir={x=0,y=0,z=1}
|
npos.x=npos.x-1
|
elseif node.param2==2 then
|
dir={x=1,y=0,z=0}
|
npos.z=npos.z+1
|
else
|
dir={x=0,y=0,z=-1}
|
npos.x=npos.x+1
|
end
|
local nnode=minetest.env:get_node(npos)
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
function frame_motor5_on(pos,node)
|
local npos={x=pos.x,y=pos.y,z=pos.z}
|
if node.param2==0 then
|
npos.z=npos.z-1
|
elseif node.param2==1 then
|
npos.x=npos.x-1
|
elseif node.param2==2 then
|
npos.z=npos.z+1
|
else
|
npos.x=npos.x+1
|
end
|
dir={x=0,y=1,z=0}
|
local nnode=minetest.env:get_node(npos)
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
function frame_motor6_on(pos,node)
|
local npos={x=pos.x,y=pos.y,z=pos.z}
|
if node.param2==0 then
|
npos.z=npos.z-1
|
elseif node.param2==1 then
|
npos.x=npos.x-1
|
elseif node.param2==2 then
|
npos.z=npos.z+1
|
else
|
npos.x=npos.x+1
|
end
|
dir={x=0,y=-1,z=0}
|
local nnode=minetest.env:get_node(npos)
|
if minetest.registered_nodes[nnode.name].frame==1 then
|
local connected_nodes=get_connected_nodes(npos)
|
move_nodes_vect(connected_nodes,dir)
|
end
|
end
|
|
|
minetest.register_node("technic:frame_motor1",{
|
description = "Frame motor 1",
|
tiles = {"pipeworks_filter_top.png", "technic_lv_cable.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor1_on}},
|
frames_can_connect=function(pos,dir)
|
return dir.y~=-1
|
end
|
})
|
|
minetest.register_node("technic:frame_motor2",{
|
description = "Frame motor 2",
|
tiles = {"technic_lv_cable.png", "pipeworks_filter_top.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor2_on}},
|
frames_can_connect=function(pos,dir)
|
return dir.y~=1
|
end
|
})
|
|
minetest.register_node("technic:frame_motor3",{
|
description = "Frame motor 3",
|
tiles = {"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "pipeworks_filter_top.png"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor3_on}},
|
frames_can_connect=function(pos,dir)
|
local node=minetest.env:get_node(pos)
|
if node.param2==0 then return dir.z~=1
|
elseif node.param2==1 then return dir.x~=1
|
elseif node.param2==2 then return dir.z~=-1
|
else return dir.x~=-1 end
|
end
|
})
|
|
minetest.register_node("technic:frame_motor4",{
|
description = "Frame motor 4",
|
tiles = {"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "pipeworks_filter_top.png^[transformR180"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor4_on}},
|
frames_can_connect=function(pos,dir)
|
local node=minetest.env:get_node(pos)
|
if node.param2==0 then return dir.z~=1
|
elseif node.param2==1 then return dir.x~=1
|
elseif node.param2==2 then return dir.z~=-1
|
else return dir.x~=-1 end
|
end
|
})
|
|
minetest.register_node("technic:frame_motor5",{
|
description = "Frame motor 5",
|
tiles = {"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "pipeworks_filter_top.png^[transformR90"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor5_on}},
|
frames_can_connect=function(pos,dir)
|
local node=minetest.env:get_node(pos)
|
if node.param2==0 then return dir.z~=1
|
elseif node.param2==1 then return dir.x~=1
|
elseif node.param2==2 then return dir.z~=-1
|
else return dir.x~=-1 end
|
end
|
})
|
|
minetest.register_node("technic:frame_motor6",{
|
description = "Frame motor 6",
|
tiles = {"technic_lv_cable.png", "technic_lv_cable.png", "technic_lv_cable.png",
|
"technic_lv_cable.png", "technic_lv_cable.png", "pipeworks_filter_top.png^[transformR270"},
|
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,mesecon=2},
|
paramtype2 = "facedir",
|
mesecons={effector={action_on=frame_motor6_on}},
|
frames_can_connect=function(pos,dir)
|
local node=minetest.env:get_node(pos)
|
if node.param2==0 then return dir.z~=1
|
elseif node.param2==1 then return dir.x~=1
|
elseif node.param2==2 then return dir.z~=-1
|
else return dir.x~=-1 end
|
end
|
})
|
|
function add_table(table,toadd)
|
local i=1
|
while true do
|
o=table[i]
|
if o==toadd then return end
|
if o==nil then break end
|
i=i+1
|
end
|
table[i]=toadd
|
end
|
|
function move_nodes_vect(poslist,vect)
|
for _,pos in ipairs(poslist) do
|
local npos=frames.addVect(pos,vect)
|
local name = minetest.env:get_node(npos).name
|
if (name~="air" and minetest.registered_nodes[name].liquidtype=="none") and not(pos_in_list(poslist,npos)) then
|
return end
|
end
|
nodelist={}
|
for _,pos in ipairs(poslist) do
|
local node=minetest.env:get_node(pos)
|
local meta=minetest.env:get_meta(pos):to_table()
|
nodelist[#(nodelist)+1]={pos=pos,node=node,meta=meta}
|
end
|
objects={}
|
for _,pos in ipairs(poslist) do
|
for _,object in ipairs(minetest.env:get_objects_inside_radius(pos, 1)) do
|
add_table(objects,object)
|
end
|
end
|
for _,obj in ipairs(objects) do
|
obj:setpos(frames.addVect(obj:getpos(),vect))
|
le=obj:get_luaentity()
|
if le and le.name == "pipeworks:tubed_item" then
|
le.start_pos=frames.addVect(le.start_pos,vect)
|
end
|
end
|
for _,n in ipairs(nodelist) do
|
local npos=frames.addVect(n.pos,vect)
|
minetest.env:set_node(npos,n.node)
|
local meta=minetest.env:get_meta(npos)
|
meta:from_table(n.meta)
|
for __,pos in ipairs(poslist) do
|
if npos.x==pos.x and npos.y==pos.y and npos.z==pos.z then
|
table.remove(poslist, __)
|
break
|
end
|
end
|
end
|
for __,pos in ipairs(poslist) do
|
minetest.env:remove_node(pos)
|
end
|
end
|
|
function get_connected_nodes(pos)
|
c={pos}
|
local nodename=minetest.env:get_node(pos).name
|
connected(pos,c,minetest.registered_nodes[nodename].frame_connect_all(pos))
|
return c
|
end
|
|
function frames.addVect(pos,vect)
|
return {x=pos.x+vect.x,y=pos.y+vect.y,z=pos.z+vect.z}
|
end
|
|
function pos_in_list(l,pos)
|
for _,p in ipairs(l) do
|
if p.x==pos.x and p.y==pos.y and p.z==pos.z then return true end
|
end
|
return false
|
end
|
|
function connected(pos,c,adj)
|
for _,vect in ipairs(adj) do
|
local pos1=frames.addVect(pos,vect)
|
local nodename=minetest.env:get_node(pos1).name
|
if not(pos_in_list(c,pos1)) and nodename~="air" and
|
(minetest.registered_nodes[nodename].frames_can_connect==nil or
|
minetest.registered_nodes[nodename].frames_can_connect(pos1,vect)) then
|
c[#(c)+1]=pos1
|
if minetest.registered_nodes[nodename].frame==1 then
|
local adj=minetest.registered_nodes[nodename].frame_connect_all(pos1)
|
connected(pos1,c,adj)
|
end
|
end
|
end
|
end
|
