Add german translations for all mods

Xanthin

2014-04-16 39c41a06f4993dc17507fb480fcabbca319ceff7

 technic/machines/other/frames.lua

@@ -1,43 +1,159 @@
frames={}

function get_face(pos,ppos,pvect)
local S = technic.getter

frames = {}

local infinite_stacks = minetest.setting_getbool("creative_mode") and minetest.get_modpath("unified_inventory") == nil

local frames_pos = {}

-- Helpers

local function get_face(pos,ppos,pvect)
   -- Raytracer to get which face has been clicked
   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 
      if y_int>-0.45 and y_int<0.45 and z_int>-0.45 and z_int<0.45 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 
      if y_int>-0.45 and y_int<0.45 and z_int>-0.45 and z_int<0.45 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 
      if x_int>-0.45 and x_int<0.45 and z_int>-0.45 and z_int<0.45 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 
      if x_int>-0.45 and x_int<0.45 and z_int>-0.45 and z_int<0.45 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 
      if x_int>-0.45 and x_int<0.45 and y_int>-0.45 and y_int<0.45 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 
      if x_int>-0.45 and x_int<0.45 and y_int>-0.45 and y_int<0.45 then return 6 end 
   end
end

local function lines(str)
   local t = {}
   local function helper(line) table.insert(t, line) return "" end
   helper((str:gsub("(.-)\r?\n", helper)))
   return t
end

local function pos_to_string(pos)
   if pos.x == 0 then pos.x = 0 end -- Fix for signed 0
   if pos.y == 0 then pos.y = 0 end -- Fix for signed 0
   if pos.z == 0 then pos.z = 0 end -- Fix for signed 0
   return tostring(pos.x).."\n"..tostring(pos.y).."\n"..tostring(pos.z)
end

local function pos_from_string(str)
   local l = lines(str)
   return {x = tonumber(l[1]), y = tonumber(l[2]), z = tonumber(l[3])}
end

local 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

local function table_empty(table)
   for _, __ in pairs(table) do
      return false
   end
   return true
end

local 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

local function move_nodes_vect(poslist,vect,must_not_move,owner)
   if minetest.is_protected then
      for _,pos in ipairs(poslist) do
         local npos=vector.add(pos,vect)
         if minetest.is_protected(pos, owner) or minetest.is_protected(npos, owner) then
            return
         end
      end
   end
   for _,pos in ipairs(poslist) do
      local npos=vector.add(pos,vect)
      local name = minetest.get_node(npos).name
      if ((name~="air" and minetest.registered_nodes[name].liquidtype=="none") or frames_pos[pos_to_string(npos)]) and not(pos_in_list(poslist,npos)) then
         return
      end
      --[[if pos.x==must_not_move.x and pos.y==must_not_move.y and pos.z==must_not_move.z then
         return
      end]]
   end
   local nodelist = {}
   for _, pos in ipairs(poslist) do
      local node = minetest.get_node(pos)
      local meta = minetest.get_meta(pos):to_table()
      nodelist[#(nodelist)+1] = {oldpos = pos, pos = vector.add(pos, vect), node = node, meta = meta}
   end
   local objects = {}
   for _, pos in ipairs(poslist) do
      for _,object in ipairs(minetest.get_objects_inside_radius(pos, 1)) do
         local entity = object:get_luaentity()
         if not entity or not mesecon:is_mvps_unmov(entity.name) then
            add_table(objects, object)
         end
      end
   end
   for _, obj in ipairs(objects) do
      obj:setpos(vector.add(obj:getpos(), vect))
   end
   for _,n in ipairs(nodelist) do
      local npos = n.pos
      minetest.set_node(npos, n.node)
      local meta = minetest.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.remove_node(pos)
   end
   for _, callback in ipairs(mesecon.on_mvps_move) do
      callback(nodelist)
   end
end

local function is_supported_node(name)
   return ((string.find(name, "tube") ~= nil) and (string.find(name, "pipeworks") ~= nil))
end


-- Frames
for xm=0,1 do
for xp=0,1 do
for ym=0,1 do
@@ -91,7 +207,7 @@
   

   minetest.register_node("technic:frame_"..nameext,{
      description = "Frame",
      description = S("Frame"),
      tiles = {"technic_frame.png"},
      groups=groups,
      drawtype = "nodebox",
@@ -106,8 +222,8 @@
      paramtype = "light",
      frame=1,
      drop="technic:frame_111111",
      frame_connect_all=function(pos)
         local nodename=minetest.env:get_node(pos).name
      sunlight_propagates = true,
      frame_connect_all=function(nodename)
         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
@@ -130,8 +246,84 @@
            nodename=string.sub(nodename,1,-2)..newstate
         end
         node.name=nodename
         minetest.env:set_node(pos,node)
      end
         minetest.set_node(pos,node)
      end,
      on_place = function(itemstack, placer, pointed_thing)
         local pos = pointed_thing.above
         if minetest.is_protected(pos, placer:get_player_name()) then
            minetest.log("action", placer:get_player_name()
               .. " tried to place " .. itemstack:get_name()
               .. " at protected position "
               .. minetest.pos_to_string(pos))
            minetest.record_protection_violation(pos, placer:get_player_name())
            return itemstack
         end
         if pos == nil then return end
         local node = minetest.get_node(pos)
         if node.name ~= "air" then
            if is_supported_node(node.name) then
               obj = minetest.add_entity(pos, "technic:frame_entity")
               obj:get_luaentity():set_node({name=itemstack:get_name()})
            end
         else
            minetest.set_node(pos, {name = itemstack:get_name()})
         end
         if not infinite_stacks then
            itemstack:take_item()
         end
         return itemstack
      end,
      on_rightclick = function(pos, node, placer, itemstack, pointed_thing)
         if is_supported_node(itemstack:get_name()) then
            if minetest.is_protected(pos, placer:get_player_name()) then
               minetest.log("action", placer:get_player_name()
                  .. " tried to place " .. itemstack:get_name()
                  .. " at protected position "
                  .. minetest.pos_to_string(pos))
               minetest.record_protection_violation(pos, placer:get_player_name())
               return itemstack
            end
				
            minetest.set_node(pos, {name = itemstack:get_name()})
				
            local take_item = true
            local def = minetest.registered_items[itemstack:get_name()]
            -- Run callback
            if def.after_place_node then
               -- Copy place_to because callback can modify it
               local pos_copy = {x=pos.x, y=pos.y, z=pos.z}
               if def.after_place_node(pos_copy, placer, itemstack) then
                  take_item = false
               end
            end

            -- Run script hook
            local _, callback
            for _, callback in ipairs(minetest.registered_on_placenodes) do
               -- Copy pos and node because callback can modify them
               local pos_copy = {x=pos.x, y=pos.y, z=pos.z}
               local newnode_copy = {name=def.name, param1=0, param2=0}
               local oldnode_copy = {name="air", param1=0, param2=0}
               if callback(pos_copy, newnode_copy, placer, oldnode_copy, itemstack) then
                  take_item = false
               end
            end

            if take_item then
               itemstack:take_item()
            end
				
            obj = minetest.add_entity(pos, "technic:frame_entity")
            obj:get_luaentity():set_node({name=node.name})
				
            return itemstack
         else
            --local pointed_thing = {type = "node", under = pos}
            if pointed_thing then
               minetest.item_place_node(itemstack, placer, pointed_thing)
            end
         end
      end,
   })

end
@@ -141,24 +333,233 @@
end
end

function frame_motor_on(pos, node)
minetest.register_entity("technic:frame_entity", {
   initial_properties = {
      physical = true,
      collisionbox = {-0.5,-0.5,-0.5, 0.5,0.5,0.5},
      visual = "wielditem",
      textures = {},
      visual_size = {x=0.667, y=0.667},
   },

   node = {},

   set_node = function(self, node)
      self.node = node
      local pos = self.object:getpos()
      pos = {x = math.floor(pos.x+0.5), y = math.floor(pos.y+0.5), z = math.floor(pos.z+0.5)}
      frames_pos[pos_to_string(pos)] = node.name
      local stack = ItemStack(node.name)
      local itemtable = stack:to_table()
      local itemname = nil
      if itemtable then
         itemname = stack:to_table().name
      end
      local item_texture = nil
      local item_type = ""
      if minetest.registered_items[itemname] then
         item_texture = minetest.registered_items[itemname].inventory_image
         item_type = minetest.registered_items[itemname].type
      end
      prop = {
         is_visible = true,
         textures = {node.name},
      }
      self.object:set_properties(prop)
   end,

   get_staticdata = function(self)
      return self.node.name
   end,

   on_activate = function(self, staticdata)
      self.object:set_armor_groups({immortal=1})
      self:set_node({name=staticdata})
   end,
	
   dig = function(self)
      minetest.handle_node_drops(self.object:getpos(), {ItemStack("technic:frame_111111")}, self.last_puncher)
      local pos = self.object:getpos()
      pos = {x = math.floor(pos.x+0.5), y = math.floor(pos.y+0.5), z = math.floor(pos.z+0.5)}
      frames_pos[pos_to_string(pos)] = nil
      self.object:remove()
   end,
	
   on_punch = function(self, puncher, time_from_last_punch, tool_capabilities, dir)
      local pos = self.object:getpos()
      if self.damage_object == nil then
         self.damage_object = minetest.add_entity(pos, "technic:damage_entity")
         self.damage_object:get_luaentity().remaining_time = 0.25
         self.damage_object:get_luaentity().frame_object = self
         self.damage_object:get_luaentity().texture_index = 0
         self.damage_object:get_luaentity().texture_change_time = 0.15
      else
         self.damage_object:get_luaentity().remaining_time = 0.25
      end
      self.last_puncher = 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 = self.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
      self.node.name = nodename
      self:set_node(self.node)
   end,
	
   on_rightclick = function(self, clicker)
      local pos = self.object:getpos()
      local ppos = clicker:getpos()
      local pvect = clicker:get_look_dir()
      local pface = get_face(pos, ppos, pvect)
      if pface == nil then return end
      local pos_under = {x = math.floor(pos.x+0.5), y = math.floor(pos.y+0.5), z = math.floor(pos.z+0.5)}
      local pos_above = {x = pos_under.x, y = pos_under.y, z = pos_under.z}
      local index = ({"x", "y", "z"})[math.floor((pface+1)/2)]
      pos_above[index] = pos_above[index] + 2*((pface+1)%2) - 1
      local pointed_thing = {type = "node", under = pos_under, above = pos_above}
      local itemstack = clicker:get_wielded_item()
      local itemdef = minetest.registered_items[itemstack:get_name()]
      if itemdef ~= nil then
         itemdef.on_place(itemstack, clicker, pointed_thing)
      end
   end,
})

local crack = "crack_anylength.png^[verticalframe:5:0"
minetest.register_entity("technic:damage_entity", {
   initial_properties = {
      visual = "cube",
      visual_size = {x=1.01, y=1.01},
      textures = {crack, crack, crack, crack, crack, crack},
      collisionbox = {0, 0, 0, 0, 0, 0},
      physical = false,
   },
   on_step = function(self, dtime)
      if self.remaining_time == nil then
         self.object:remove()
         self.frame_object.damage_object = nil
      end
      self.remaining_time = self.remaining_time - dtime
      if self.remaining_time < 0 then
         self.object:remove()
         self.frame_object.damage_object = nil
      end
      self.texture_change_time = self.texture_change_time - dtime
      if self.texture_change_time < 0 then
         self.texture_change_time = self.texture_change_time + 0.15
         self.texture_index = self.texture_index + 1
         if self.texture_index == 5 then
            self.object:remove()
            self.frame_object.damage_object = nil
            self.frame_object:dig()
         end
         local ct = "crack_anylength.png^[verticalframe:5:"..self.texture_index
         self.object:set_properties({textures = {ct, ct, ct, ct, ct, ct}})
      end
   end,
})

mesecon:register_mvps_unmov("technic:frame_entity")
mesecon:register_mvps_unmov("technic:damage_entity")
mesecon:register_on_mvps_move(function(moved_nodes)
   local to_move = {}
   for _, n in ipairs(moved_nodes) do
      if frames_pos[pos_to_string(n.oldpos)] ~= nil then
         to_move[#to_move+1] = {pos = n.pos, oldpos = n.oldpos, name = frames_pos[pos_to_string(n.oldpos)]}
         frames_pos[pos_to_string(n.oldpos)] = nil
      end
   end
   if #to_move > 0 then
      for _, t in ipairs(to_move) do
         frames_pos[pos_to_string(t.pos)] = t.name
         local objects = minetest.get_objects_inside_radius(t.oldpos, 0.1)
         for _, obj in ipairs(objects) do
            local entity = obj:get_luaentity()
            if entity and (entity.name == "technic:frame_entity" or entity.name == "technic:damage_entity") then
               obj:setpos(t.pos)
            end
         end
      end
   end
end)

minetest.register_on_dignode(function(pos, node)
   if frames_pos[pos_to_string(pos)] ~= nil then
      minetest.set_node(pos, {name = frames_pos[pos_to_string(pos)]})
      frames_pos[pos_to_string(pos)] = nil
      local objects = minetest.get_objects_inside_radius(pos, 0.1)
      for _, obj in ipairs(objects) do
         local entity = obj:get_luaentity()
         if entity and (entity.name == "technic:frame_entity" or entity.name == "technic:damage_entity") then
            obj:remove()
         end
      end
   end
end)

-- Frame motor
local function connected(pos,c,adj)
   for _,vect in ipairs(adj) do
      local pos1=vector.add(pos,vect)
      local nodename=minetest.get_node(pos1).name
      if frames_pos[pos_to_string(pos1)] then
         nodename = frames_pos[pos_to_string(pos1)]
      end
      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(nodename)
            connected(pos1,c,adj)
         end
      end
   end
end

local function get_connected_nodes(pos)
   c={pos}
   local nodename=minetest.get_node(pos).name
   if frames_pos[pos_to_string(pos)] then
      nodename = frames_pos[pos_to_string(pos)]
   end
   connected(pos,c,minetest.registered_nodes[nodename].frame_connect_all(nodename))
   return c
end

local function frame_motor_on(pos, node)
   local dirs = {{x=0,y=1,z=0},{x=0,y=0,z=1},{x=0,y=0,z=-1},{x=1,y=0,z=0},{x=-1,y=0,z=0},{x=0,y=-1,z=0}}
   local nnodepos = frames.addVect(pos, dirs[math.floor(node.param2/4)+1])
   local nnodepos = vector.add(pos, dirs[math.floor(node.param2/4)+1])
   local dir = minetest.facedir_to_dir(node.param2)
   local nnode=minetest.get_node(nnodepos)
   if frames_pos[pos_to_string(nnodepos)] then
      nnode.name = frames_pos[pos_to_string(nnodepos)]
   end
   local meta = minetest.get_meta(pos)
   local owner = meta:get_string("owner")
   if minetest.registered_nodes[nnode.name].frame==1 then
      local connected_nodes=get_connected_nodes(nnodepos)
      move_nodes_vect(connected_nodes,dir,pos)
      move_nodes_vect(connected_nodes,dir,pos,owner)
   end
end

minetest.register_node("technic:frame_motor",{
   description = "Frame motor",
   description = S("Frame Motor"),
   tiles = {"pipeworks_filter_top.png^[transformR90", "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_motor_on}},
   after_place_node = function(pos, placer, itemstack)
      local meta = minetest.get_meta(pos)
      meta:set_string("owner", placer:get_player_name())
   end,
   frames_can_connect=function(pos,dir)
      local node = minetest.get_node(pos)
      local dir2 = ({{x=0,y=1,z=0},{x=0,y=0,z=1},{x=0,y=0,z=-1},{x=1,y=0,z=0},{x=-1,y=0,z=0},{x=0,y=-1,z=0}})[math.floor(node.param2/4)+1]
@@ -166,95 +567,354 @@
   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,must_not_move)
   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
      if pos.x==must_not_move.x and pos.y==must_not_move.y and pos.z==must_not_move.z 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

-- Templates
local function template_connected(pos,c,connectors)
   for _,vect in ipairs({{x=0,y=1,z=0},{x=0,y=0,z=1},{x=0,y=0,z=-1},{x=1,y=0,z=0},{x=-1,y=0,z=0},{x=0,y=-1,z=0}}) do
      local pos1=vector.add(pos,vect)
      local nodename=minetest.get_node(pos1).name
      if not(pos_in_list(c,pos1)) and (nodename=="technic:template" or nodename == "technic:template_connector")then
         local meta = minetest.get_meta(pos1)
         if meta:get_string("connected") == "" then
            c[#(c)+1]=pos1
            template_connected(pos1,c,connectors)
            if nodename == "technic:template_connector" then
               connectors[#connectors+1] = pos1
            end
         end
      end
   end
   for __,pos in ipairs(poslist) do
      minetest.env:remove_node(pos)
end

local function get_templates(pos)
   local c = {pos}
   local connectors
   if minetest.get_node(pos).name == "technic:template_connector" then
      connectors = {pos}
   else
      connectors = {}
   end
   template_connected(pos,c,connectors)
   return c, connectors
end

local function swap_template(pos, new)
   local meta = minetest.get_meta(pos)
   local saved_node = meta:get_string("saved_node")
   meta:set_string("saved_node", "")
   technic.swap_node(pos, new)
   local meta = minetest.get_meta(pos)
   meta:set_string("saved_node", saved_node)
end

local function save_node(pos)
   local node = minetest.get_node(pos)
   if node.name == "air" then
      minetest.set_node(pos, {name="technic:template"})
      return
   end
   if node.name == "technic:template" then
      swap_template(pos, "technic:template_connector")
      local meta = minetest.get_meta(pos)
      meta:set_string("connected", "")
      return
   end
   local meta = minetest.get_meta(pos)
   local meta0 = meta:to_table()
   for _, list in pairs(meta0.inventory) do
      for key, stack in pairs(list) do
         list[key] = stack:to_string()
      end
   end
   node.meta = meta0
   minetest.set_node(pos, {name="technic:template"})
   return node
end

local function restore_node(pos, node)
   minetest.set_node(pos, node)
   local meta = minetest.get_meta(pos)
   for _, list in pairs(node.meta.inventory) do
      for key, stack in pairs(list) do
         list[key] = ItemStack(stack)
      end
   end
   meta:from_table(node.meta)
end

local function expand_template(pos)
   local meta = minetest.get_meta(pos)
   local c = meta:get_string("connected")
   if c == "" then return end
   c = minetest.deserialize(c)
   for _, vect in ipairs(c) do
      local pos1 = vector.add(pos, vect)
      local saved_node = save_node(pos1)
      local meta1 = minetest.get_meta(pos1)
      if saved_node ~= nil then
         meta1:set_string("saved_node", minetest.serialize(saved_node))
      else
         --meta1:set_string("saved_node", "")
      end
   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))
local function compress_templates(pos)
   local templates, connectors = get_templates(pos)
   if #connectors == 0 then
      connectors = {pos}
   end
   for _, cn in ipairs(connectors) do
      local meta = minetest.get_meta(cn)
      local c = {}
      for _,p in ipairs(templates) do
         local np = vector.subtract(p, cn)
         if not pos_in_list(c,np) then
            c[#c+1] = np
         end
      end
      local cc = {}
      for _,p in ipairs(connectors) do
         local np = vector.subtract(p, cn)
         if (np.x ~= 0 or np.y ~= 0 or np.z ~= 0) then
            cc[pos_to_string(np)] = true
         end
      end
      swap_template(cn, "technic:template")
      meta:set_string("connected", minetest.serialize(c))
      meta:set_string("connectors_connected", minetest.serialize(cc))
   end
	
   for _,p in ipairs(templates) do
      if not pos_in_list(connectors, p) then
         minetest.set_node(p, {name = "air"})
      end
   end
end

local function template_drops(pos, node, oldmeta, digger)
   local c = oldmeta.fields.connected
   local cc = oldmeta.fields.connectors_connected
   local drops
   if c == "" or c == nil then
      drops = {"technic:template 1"}
   else
      if cc == "" or cc == nil then
         drops = {"technic:template 1"}
      else
         local dcc = minetest.deserialize(cc)
         if not table_empty(dcc) then
            drops = {}
            for sp, _ in pairs(dcc) do
               local ssp = pos_from_string(sp)
               local p = vector.add(ssp, pos)
               local meta = minetest.get_meta(p)
               local d = minetest.deserialize(meta:get_string("connectors_connected"))
               if d ~= nil then
                  d[pos_to_string({x=-ssp.x, y=-ssp.y, z=-ssp.z})] = nil
                  meta:set_string("connectors_connected", minetest.serialize(d))
               end
            end
         else
            local stack_max = 99
            local num = #(minetest.deserialize(c))
            drops = {}
            while num > stack_max do
               drops[#drops+1] = "technic:template "..stack_max
               num = num - stack_max
            end
            drops[#drops+1] = "technic:template "..num
         end
      end
   end
   minetest.handle_node_drops(pos, drops, digger)
end

local function template_on_destruct(pos, node)
   local meta = minetest.get_meta(pos)
   local saved_node = meta:get_string("saved_node")
   if saved_node ~= "" then
      local nnode = minetest.deserialize(saved_node)
      minetest.after(0, restore_node, pos, nnode)
   end
end

minetest.register_node("technic:template",{
   description = S("Template"),
   tiles = {"technic_mv_cable.png"},
   drop = "",
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
   on_destruct = template_on_destruct,
   after_dig_node = template_drops,
   on_punch = function(pos,node,puncher)
      swap_template(pos, "technic:template_disabled")
   end
})

minetest.register_node("technic:template_disabled",{
   description = S("Template"),
   tiles = {"technic_hv_cable.png"},
   drop = "",
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
   on_destruct = template_on_destruct,
   after_dig_node = template_drops,
   on_punch = function(pos,node,puncher)
   local meta = minetest.get_meta(pos)
      swap_template(pos, "technic:template_connector")
   end
})

minetest.register_node("technic:template_connector",{
   description = S("Template"),
   tiles = {"technic_lv_cable.png"},
   drop = "",
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
   on_destruct = template_on_destruct,
   after_dig_node = template_drops,
   on_punch = function(pos,node,puncher)
      swap_template(pos, "technic:template")
   end
})

minetest.register_craftitem("technic:template_replacer",{
   description = S("Template (replacing)"),
   inventory_image = "technic_template_replacer.png",
   on_place = function(itemstack, placer, pointed_thing)
      local p = pointed_thing.under
      if minetest.is_protected and minetest.is_protected(p, placer:get_player_name()) then
         return nil
      end
      local node = minetest.get_node(p)
      if node.name == "technic:template" then return end
      local saved_node = save_node(p)
      itemstack:take_item()
      if saved_node ~= nil then
         local meta = minetest.get_meta(p)
         meta:set_string("saved_node", minetest.serialize(saved_node))
      end
      return itemstack
   end
})

minetest.register_tool("technic:template_tool",{
   description = S("Template Tool"),
   inventory_image = "technic_template_tool.png",
   on_use = function(itemstack, puncher, pointed_thing)
      local pos = pointed_thing.under
      if pos == nil or (minetest.is_protected and minetest.is_protected(pos, puncher:get_player_name())) then
         return nil
      end
      local node = minetest.get_node(pos)
      if node.name ~= "technic:template" and node.name ~= "technic:template_connector" then return end
      local meta = minetest.get_meta(pos)
      local c2 = meta:get_string("connected")
      if c2 ~= "" then
         expand_template(pos)
      else
         compress_templates(pos)
      end
		
   end
})



-- Template motor
local function get_template_nodes(pos)
   local meta = minetest.get_meta(pos)
   local connected = meta:get_string("connected")
   if connected == "" then return {} end
   local adj = minetest.deserialize(connected)
   local c = {}
   for _,vect in ipairs(adj) do
      local pos1=vector.add(pos,vect)
      local nodename=minetest.get_node(pos1).name
      if not(pos_in_list(c,pos1)) and nodename~="air" then
         c[#(c)+1]=pos1
      end
   end
   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
local function template_motor_on(pos, node)
   local dirs = {{x=0,y=1,z=0},{x=0,y=0,z=1},{x=0,y=0,z=-1},{x=1,y=0,z=0},{x=-1,y=0,z=0},{x=0,y=-1,z=0}}
   local nnodepos = vector.add(pos, dirs[math.floor(node.param2/4)+1])
   local dir = minetest.facedir_to_dir(node.param2)
   local nnode=minetest.get_node(nnodepos)
   local meta = minetest.get_meta(pos)
   local owner = meta:get_string("owner")
   if nnode.name == "technic:template" then
      local connected_nodes=get_template_nodes(nnodepos)
      move_nodes_vect(connected_nodes,dir,pos,owner)
   end
end

minetest.register_node("technic:template_motor",{
   description = S("Template Motor"),
   tiles = {"pipeworks_filter_top.png^[transformR90", "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=template_motor_on}},
   after_place_node = function(pos, placer, itemstack)
      local meta = minetest.get_meta(pos)
      meta:set_string("owner", placer:get_player_name())
   end,
})

-- Crafts
minetest.register_craft({
   output = 'technic:frame_111111',
   recipe = {
      {'',         'default:stick',   ''},
      {'default:stick',   'technic:brass_ingot',   'default:stick'},
      {'',         'default:stick',   ''},
   }
})

minetest.register_craft({
   output = 'technic:frame_motor',
   recipe = {
      {'',               'technic:frame_111111',   ''},
      {'group:mesecon_conductor_craftable',   'technic:motor',   'group:mesecon_conductor_craftable'},
      {'',               'technic:frame_111111',   ''},
   }
})

minetest.register_craft({
   output = 'technic:template 10',
   recipe = {
      {'',         'technic:brass_ingot',   ''},
      {'technic:brass_ingot',   'default:mese_crystal',   'technic:brass_ingot'},
      {'',         'technic:brass_ingot',   ''},
   }
})

minetest.register_craft({
   output = 'technic:template_replacer',
   recipe = {{'technic:template'}}
})

minetest.register_craft({
   output = 'technic:template',
   recipe = {{'technic:template_replacer'}}
})

minetest.register_craft({
   output = 'technic:template_motor',
   recipe = {
      {'',               'technic:template',   ''},
      {'group:mesecon_conductor_craftable',   'technic:motor',   'group:mesecon_conductor_craftable'},
      {'',               'technic:template',   ''},
   }
})

minetest.register_craft({
   output = 'technic:template_tool',
   recipe = {
      {'',            'technic:template',   ''},
      {'default:mese_crystal',   'default:stick',   'default:mese_crystal'},
      {'',            'default:stick',   ''},
   }
})