Re-added Deployer Initial code of MV furnace

RealBadAngel

2013-02-01 061e6bbadc89a4e4be2818a691436f8144327cf1

 technic/deployer.lua

@@ -8,13 +8,61 @@
   }
})

deployer_signal_on = function(pos, node)
   local pos1={}
   pos1.x=pos.x
   pos1.y=pos.y
   pos1.z=pos.z
   if node.param2==3 then pos1.x=pos1.x+1 end
   if node.param2==2 then pos1.z=pos1.z+1 end
   if node.param2==1 then pos1.x=pos1.x-1 end
   if node.param2==0 then pos1.z=pos1.z-1 end

   if node.name == "technic:deployer_off" then
      hacky_swap_node(pos,"technic:deployer_on")
      nodeupdate(pos)
      local meta = minetest.env:get_meta(pos);
      local inv = meta:get_inventory()
      local i=0
      for _,stack in ipairs(inv:get_list("main")) do
      i=i+1
      if stack:get_name() ~=nil then 
         node1={name=stack:get_name(), param1=0, param2=node.param2}
         minetest.env:place_node(pos1,node1)
         stack:take_item(1);
         inv:set_stack("main", i, stack)
         return
         end
   end
   end
end

deployer_signal_off = function(pos, node)
   if node.name == "technic:deployer_on" then
      hacky_swap_node(pos,"technic:deployer_off")
      nodeupdate(pos)
   end
end

minetest.register_node("technic:deployer_off", {
   description = "Deployer",
   tile_images = {"technic_deployer_top.png","technic_deployer_bottom.png","technic_deployer_side2.png","technic_deployer_side1.png",
         "technic_deployer_back.png","technic_deployer_front_off.png"},
   is_ground_content = true,
   paramtype2 = "facedir",
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2, mesecon_receptor_off = 1, mesecon_effector_off = 1, mesecon = 2,tubedevice=1},
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2, mesecon = 2,tubedevice=1, tubedevice_receiver=1},
   mesecons = {effector={action_on=deployer_signal_on}},
   tube={insert_object=function(pos,node,stack,direction)
         local meta=minetest.env:get_meta(pos)
         local inv=meta:get_inventory()
         return inv:add_item("main",stack)
      end,
      can_insert=function(pos,node,stack,direction)
         local meta=minetest.env:get_meta(pos)
         local inv=meta:get_inventory()
         return inv:room_for_item("main",stack)
      end,
      input_inventory="main"},
   sounds = default.node_sound_stone_defaults(),
   on_construct = function(pos)
   local meta = minetest.env:get_meta(pos)
@@ -46,46 +94,7 @@
   is_ground_content = true,
   paramtype2 = "facedir",
   tubelike=1,
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2, mesecon_receptor_off = 1, mesecon_effector_off = 1, mesecon = 2,tubedevice=1,not_in_creative_inventory=1},
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2, mesecon = 2,tubedevice=1, tubedevice_receiver=1,not_in_creative_inventory=1},
   mesecons = {effector={action_off=deployer_signal_off}},
   sounds = default.node_sound_stone_defaults(),
})

mesecon:register_on_signal_on(function(pos, node)
   local pos1={}
   pos1.x=pos.x
   pos1.y=pos.y
   pos1.z=pos.z
   if node.param2==3 then pos1.x=pos1.x+1 end
   if node.param2==2 then pos1.z=pos1.z+1 end
   if node.param2==1 then pos1.x=pos1.x-1 end
   if node.param2==0 then pos1.z=pos1.z-1 end

   if node.name == "technic:deployer_off" then
      hacky_swap_node(pos,"technic:deployer_on")
      nodeupdate(pos)
         local meta = minetest.env:get_meta(pos);
		
      local inv = meta:get_inventory()
      print (dump(inv))
      for _,stack in ipairs(inv:get_list("main")) do
      print (dump(stack:get_name()))

      if stack:get_name() ~=nil then 
         node1={name=stack:get_name(), param1=0, param2=node.param2}
         minetest.env:place_node(pos1,node1)
         return
         end
   end
   end
end)

mesecon:register_on_signal_off(function(pos, node)
   if node.name == "technic:deployer_on" then
      hacky_swap_node(pos,"technic:deployer_off")
      nodeupdate(pos)
   end
end)

mesecon:register_effector("technic:deployer_on", "technic:deployer_off")