From 478407f0a3134bf82837af6ed8cacf12406a49ef Mon Sep 17 00:00:00 2001
From: RealBadAngel <mk@realbadangel.pl>
Date: Wed, 06 Feb 2013 15:34:01 +0100
Subject: [PATCH] Nore's frames code with nodebox frames
---
technic/textures/technic_frame.png | 0
technic/frames.lua | 430 +++++++++++++++++++++++++++++++++++++++++++++++++++++
technic/init.lua | 2
3 files changed, 432 insertions(+), 0 deletions(-)
diff --git a/technic/frames.lua b/technic/frames.lua
new file mode 100644
index 0000000..f149409
--- /dev/null
+++ b/technic/frames.lua
@@ -0,0 +1,430 @@
+ minetest.register_node("technic:wall", {
+ description = description,
+ drawtype = "nodebox",
+ tiles = {"default_wood.png"},
+ paramtype = "light",
+ --paramtype2 = "facedir",
+ sunlight_propagates = true,
+ is_ground_content = true,
+ node_box = {
+ type = "fixed",
+ --fixed = {-0.5, -0.5, 0.25, 0.5, 0.5, 0.5},
+ fixed={
+ {-0.5, -0.5, -0.5, -0.4, 0.5, -0.4},
+ {-0.4, -0.5, 0.3, -0.3, 0.5, 0.4},
+ {0.3, -0.5, 0.3, 0.4, 0.5,0.4},
+ {0.3, -0.5, -0.3, 0.4, 0.5,-0.4},
+ {-0.3, -0.35, -0.3, 0.3, -0.2,-0.25},
+ {-0.3, 0.2, -0.3, 0.3, 0.35,-0.25},
+ {-0.3, -0.35, 0.25, 0.3, -0.2,0.3},
+ {-0.3, 0.2, 0.25, 0.3, 0.35,0.3},
+ {-0.3, -0.35, -0.25, -0.25, -0.2,0.25},
+ {-0.3, 0.2, -0.25, -0.25, 0.35,0.25},
+ {0.25, -0.35, -0.25, 0.3, -0.2,0.25},
+ {0.25, 0.2, -0.25, 0.3, 0.35,0.25},
+ },},
+ sounds = default.node_sound_stone_defaults(),
+ })
+
+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,
+ },
+ 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"},
+ 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"},
+ 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"},
+ 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 move_nodes_vect(poslist,vect)
+ for _,pos in ipairs(poslist) do
+ local npos=addVect(pos,vect)
+ if minetest.env:get_node(npos).name~="air" 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}
+ minetest.env:remove_node(pos)
+ end
+ for _,n in ipairs(nodelist) do
+ local npos=addVect(n.pos,vect)
+ minetest.env:set_node(npos,n.node)
+ local meta=minetest.env:get_meta(npos)
+ meta:from_table(n.meta)
+ 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 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=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
+
diff --git a/technic/init.lua b/technic/init.lua
index 249757a..0706b0f 100644
--- a/technic/init.lua
+++ b/technic/init.lua
@@ -57,6 +57,8 @@
dofile(modpath.."/node_breaker.lua")
dofile(modpath.."/deployer.lua")
dofile(modpath.."/constructor.lua")
+dofile(modpath.."/frames.lua")
+
if enable_item_drop then dofile(modpath.."/item_drop.lua") end
if enable_item_pickup then dofile(modpath.."/item_pickup.lua") end
diff --git a/technic/textures/technic_frame.png b/technic/textures/technic_frame.png
new file mode 100644
index 0000000..4998120
--- /dev/null
+++ b/technic/textures/technic_frame.png
Binary files differ
--
Gitblit v1.8.0