Merge pull request #38 from kpoppel/master

kpoppel

2013-07-02 053fa59739f4b772174bf0a090969b3395ab3f98

 technic/injector.lua

@@ -3,323 +3,115 @@
   stack_max = 99,
})

minetest.register_craft({
   output = 'technic:injector 1',
   recipe = {
      {'', 'technic:control_logic_unit',''},
      {'', 'default:chest',''},
      {'', 'pipeworks:tube_000000',''},
   }
})

minetest.register_node("technic:injector", {
   description = "Injector",
   tiles = {"technic_iron_chest_top.png", "technic_iron_chest_top.png", "technic_iron_chest_side.png",
      "technic_iron_chest_side.png", "technic_iron_chest_side.png", "technic_iron_chest_front.png"},
   paramtype2 = "facedir",
   groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
   legacy_facedir_simple = true,
   tiles = {"technic_injector_top.png", "technic_injector_bottom.png", "technic_injector_side.png",
      "technic_injector_side.png", "technic_injector_side.png", "technic_injector_side.png"},
   groups = chest_groups1,
   tube = tubes_properties,
   sounds = default.node_sound_wood_defaults(),
   on_construct = function(pos)
      local meta = minetest.env:get_meta(pos)
      meta:set_string("formspec",
            "invsize[9,9;]"..
            "invsize[8,9;]"..
            "label[0,0;Injector]"..
            "button[0,1;.8,.8;mode;]"..
            "label[.8,1;Mode: single items]"..
            "list[current_name;main;0,2;8,2;]"..
            "list[current_player;main;0,5;8,4;]")
      meta:set_string("infotext", "Injector")
      local inv = meta:get_inventory()
      inv:set_size("main", 8*4)
      meta:set_string("mode","single items")
   end,
   can_dig = function(pos,player)
      local meta = minetest.env:get_meta(pos);
      local inv = meta:get_inventory()
      return inv:is_empty("main")
   end,
   on_punch = function (pos, node, puncher)
   local meta = minetest.env:get_meta(pos);
   local inv = meta:get_inventory()
   for _,stack in ipairs(inv:get_list("main")) do
      if stack:get_name() ~="" then 
         inv:remove_item("main",stack)
         pos1=pos
         pos1.y=pos1.y
         local x=pos1.x+1.5
         local z=pos1.z
         item1=tube_item({x=pos1.x,y=pos1.y,z=pos1.z},stack)
         item1:get_luaentity().start_pos = {x=pos1.x,y=pos1.y,z=pos1.z}
         item1:setvelocity({x=1, y=0, z=0})
         item1:setacceleration({x=0, y=0, z=0})
         return
         end
   end
end,
})


function tube_item(pos, item)
      local TUBE_nodes = {}
      local CHEST_nodes = {}

       TUBE_nodes[1]={}
       TUBE_nodes[1].x=pos.x
      TUBE_nodes[1].y=pos.y
      TUBE_nodes[1].z=pos.z


table_index=1
   repeat
   check_TUBE_node (TUBE_nodes,CHEST_nodes,table_index)
   table_index=table_index+1
   if TUBE_nodes[table_index]==nil then break end
   until false
found=table_index-1


print("Found "..found.." tubes connected")
print(dump(CHEST_nodes))
   -- Take item in any format
   local stack = ItemStack(item)
   local obj = minetest.env:add_entity(pos, "technic:tubed_item")
   obj:get_luaentity():set_item(stack:to_string())
   return obj
end

minetest.register_entity("technic:tubed_item", {
   initial_properties = {
      hp_max = 1,
      physical = false,
      collisionbox = {0,0,0,0,0,0},
      visual = "sprite",
      visual_size = {x=0.5, y=0.5},
      textures = {""},
      spritediv = {x=1, y=1},
      initial_sprite_basepos = {x=0, y=0},
      is_visible = false,
      start_pos={},
      route={}
   },
	
   itemstring = '',
   physical_state = false,

   set_item = function(self, itemstring)
      self.itemstring = itemstring
      local stack = ItemStack(itemstring)
      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,
         visual = "sprite",
         textures = {"unknown_item.png"}
      }
      if item_texture and item_texture ~= "" then
         prop.visual = "sprite"
         prop.textures = {item_texture}
         prop.visual_size = {x=0.3, y=0.3}
      else
         prop.visual = "wielditem"
         prop.textures = {itemname}
         prop.visual_size = {x=0.15, y=0.15}
      end
      self.object:set_properties(prop)
   end,

   get_staticdata = function(self)
			
         return   minetest.serialize({
            itemstring=self.itemstring,
            velocity=self.object:getvelocity(),
            start_pos=self.start_pos
            })
   end,

   on_activate = function(self, staticdata)
--      print (dump(staticdata))
      if  staticdata=="" or staticdata==nil then return end
      local item = minetest.deserialize(staticdata)
      local stack = ItemStack(item.itemstring)
      local itemtable = stack:to_table()
      local itemname = nil
      if itemtable then
         itemname = stack:to_table().name
      end
		
      if itemname then 
      self.start_pos=item.start_pos
      self.object:setvelocity(item.velocity)
      self.object:setacceleration({x=0, y=0, z=0})
      self.object:setpos(item.start_pos)
      end
      self:set_item(item.itemstring)
   end,

   on_step = function(self, dtime)
   if self.start_pos then
   local pos = self.object:getpos()
   local node = minetest.env:get_node(pos)
   on_receive_fields = function(pos, formanme, fields, sender)
   local meta = minetest.env:get_meta(pos)
   tubelike=meta:get_int("tubelike")
   local stack = ItemStack(self.itemstring)
   local drop_pos=nil
		
   local velocity=self.object:getvelocity()
	
   if velocity==nil then print ("wypadl") return end

   if math.abs(velocity.x)==1 then
      local next_node=math.abs(pos.x-self.start_pos.x)
      if next_node >= 1 then 
         self.start_pos.x=self.start_pos.x+velocity.x
         if check_pos_vector (self.start_pos, velocity)==0 then 
         if check_next_step (self.start_pos, velocity)==0 then
            drop_pos=minetest.env:find_node_near({x=self.start_pos.x,y=self.start_pos.y,z=self.start_pos.z+velocity.x}, 1, "air")
            if drop_pos then minetest.item_drop(stack, "", drop_pos) end
            self.object:remove()
            end
         self.object:setpos(self.start_pos)
         self.object:setvelocity(velocity)
         return
         end
         end
   local mode=meta:get_string("mode")
   if fields.mode then 
      if mode=="single items" then mode="whole stacks" 
       else mode="single items"
      end

   if math.abs(velocity.y)==1 then
      local next_node=math.abs(pos.y-self.start_pos.y)
      if next_node >= 1 then 
         self.start_pos.y=self.start_pos.y+velocity.y
         if check_pos_vector (self.start_pos, velocity)==0 then
         if check_next_step (self.start_pos, velocity)==0 then
            drop_pos=minetest.env:find_node_near({x=self.start_pos.x+velocity.x,y=self.start_pos.y+velocity.y,z=self.start_pos.z+velocity.z}, 1, "air")
            if drop_pos then minetest.item_drop(stack, "", drop_pos) end
            self.object:remove()
            end
         self.object:setpos(self.start_pos)
         self.object:setvelocity(velocity)
         return 
         end
         end
      end
	
   if math.abs(velocity.z)==1 then
      local next_node=math.abs(pos.z-self.start_pos.z)
      if next_node >= 1 then 
         self.start_pos.z=self.start_pos.z+velocity.z
         if check_pos_vector (self.start_pos, velocity)==0 then
         if check_next_step (self.start_pos, velocity)==0 then
            drop_pos=minetest.env:find_node_near({x=self.start_pos.x+velocity.x,y=self.start_pos.y+velocity.y,z=self.start_pos.z+velocity.z}, 1, "air")
            if drop_pos then minetest.item_drop(stack, "", drop_pos) end
            self.object:remove()
            end
         self.object:setpos(self.start_pos)
         self.object:setvelocity(velocity)
         return
         end
         end
      end
   local mode=meta:set_string("mode",mode)
   end

end
   meta:set_string("formspec",
            "invsize[8,9;]"..
            "label[0,0;Injector]"..
            "button[0,1;.8,.8;mode;]"..
            "label[.8,1;Mode: "..mode.."]"..
            "list[current_name;main;0,2;8,2;]"..
            "list[current_player;main;0,5;8,4;]")
   end,
})

minetest.register_abm({
   nodenames = {"technic:injector"},
   interval = 1,
   chance = 1,

function check_next_step (pos,velocity)
local meta
local tubelike
   action = function(pos, node, active_object_count, active_object_count_wider)
   local pos1={}
   pos1.x = pos.x
   pos1.y = pos.y-1
   pos1.z = pos.z
   local meta=minetest.env:get_meta(pos1) 
      if meta:get_int("tubelike")==1 then inject_items (pos) end
   end,
})

if velocity.x==0 then
meta = minetest.env:get_meta({x=pos.x-1,y=pos.y,z=pos.z})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=-1 velocity.y=0 velocity.z=0 return 1 end
meta = minetest.env:get_meta({x=pos.x+1,y=pos.y,z=pos.z})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=1 velocity.y=0 velocity.z=0 return 1 end
end

if velocity.z==0 then
meta = minetest.env:get_meta({x=pos.x,y=pos.y,z=pos.z+1})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=0 velocity.y=0 velocity.z=1 return 1 end
meta = minetest.env:get_meta({x=pos.x,y=pos.y,z=pos.z-1})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=0 velocity.y=0 velocity.z=-1 return 1 end
end

if velocity.y==0 then
meta = minetest.env:get_meta({x=pos.x,y=pos.y+1,z=pos.z})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=0 velocity.y=1 velocity.z=0 return 1 end
meta = minetest.env:get_meta({x=pos.x,y=pos.y-1,z=pos.z})
tubelike=meta:get_int("tubelike")
if tubelike==1 then velocity.x=0 velocity.y=-1 velocity.z=0 return 1 end
end

print ("spadl")
return 0
end

function check_pos_vector (pos,velocity)
added={}
added.x=pos.x+velocity.x
added.y=pos.y+velocity.y
added.z=pos.z+velocity.z
local meta=minetest.env:get_meta(added) 
--print(dump(added).." : "..tubelike)
if meta:get_int("tubelike")==1 then return 1 end
return 0
end

function add_new_TUBE_node (TUBE_nodes,pos1,parent)
local i=1
   repeat
      if TUBE_nodes[i]==nil then break end
      if pos1.x==TUBE_nodes[i].x and pos1.y==TUBE_nodes[i].y and pos1.z==TUBE_nodes[i].z then return false end
      i=i+1
   until false
TUBE_nodes[i]={}
TUBE_nodes[i].x=pos1.x
TUBE_nodes[i].y=pos1.y
TUBE_nodes[i].z=pos1.z
TUBE_nodes[i].parent_x=parent.x
TUBE_nodes[i].parent_y=parent.y
TUBE_nodes[i].parent_z=parent.z

return true
end

function check_TUBE_node (TUBE_nodes,CHEST_nodes,i)
      local pos1={}
      local parent={}
      pos1.x=TUBE_nodes[i].x
      pos1.y=TUBE_nodes[i].y
      pos1.z=TUBE_nodes[i].z
      parent.x=pos1.x
      parent.y=pos1.y
      parent.z=pos1.z
      new_node_added=false
	
      pos1.x=pos1.x+1
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.x=pos1.x-2
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.x=pos1.x+1
function inject_items (pos)
      local meta=minetest.env:get_meta(pos) 
      local inv = meta:get_inventory()
      local mode=meta:get_string("mode")
      if mode=="single items" then
         local i=0
         for _,stack in ipairs(inv:get_list("main")) do
         i=i+1
            if stack then
            local item0=stack:to_table()
            if item0 then 
               item0["count"]="1"
               local item1=tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
               item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
               item1:setvelocity({x=0, y=-1, z=0})
               item1:setacceleration({x=0, y=0, z=0})
               stack:take_item(1);
               inv:set_stack("main", i, stack)
               return
               end
            end
         end
      end
      if mode=="whole stacks" then
         local i=0
         for _,stack in ipairs(inv:get_list("main")) do
         i=i+1
            if stack then
            local item0=stack:to_table()
            if item0 then 
               local item1=tube_item({x=pos.x,y=pos.y,z=pos.z},item0)
               item1:get_luaentity().start_pos = {x=pos.x,y=pos.y,z=pos.z}
               item1:setvelocity({x=0, y=-1, z=0})
               item1:setacceleration({x=0, y=0, z=0})
               stack:clear()
               inv:set_stack("main", i, stack)
               return
               end
            end
         end
      end
      
      pos1.y=pos1.y+1
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.y=pos1.y-2
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.y=pos1.y+1

      pos1.z=pos1.z+1
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.z=pos1.z-2
      check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
      pos1.z=pos1.z+1
return new_node_added
end

function check_TUBE_node_subp (TUBE_nodes,CHEST_nodes,pos1,parent)
meta = minetest.env:get_meta(pos1)
if meta:get_float("tubelike")==1 then add_new_TUBE_node(TUBE_nodes,pos1,parent) return end
nctr = minetest.env:get_node(pos1)
if minetest.get_item_group(nctr.name, "tubedevice_receiver") == 1 then add_new_TUBE_node(CHEST_nodes,pos1,parent) return end
end