Fix music player's sound management

Zefram

2014-08-14 1d0687556a52891aeadc0e8d9a58e44c53cb826b

 technic/machines/other/injector.lua

@@ -1,33 +1,80 @@

local S = technic.getter

local 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"
               technic.tube_inject_item(pos, pos, vector.new(0, -1, 0), item0)
               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 
               technic.tube_inject_item(pos, pos, vector.new(0, -1, 0), item0)
               stack:clear()
               inv:set_stack("main", i, stack)
               return
               end
            end
         end
      end
		
end

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

local function set_injector_formspec(meta)
   local is_stack = meta:get_string("mode") == "whole stacks"
   meta:set_string("formspec",
         "invsize[8,9;]"..
         "item_image[0,0;1,1;technic:injector]"..
         "label[1,0;"..S("Self-Contained Injector").."]"..
         (is_stack and
            "button[0,1;2,1;mode_item;"..S("Stackwise").."]" or
            "button[0,1;2,1;mode_stack;"..S("Itemwise").."]")..
         "list[current_name;main;0,2;8,2;]"..
         "list[current_player;main;0,5;8,4;]")
end

minetest.register_node("technic:injector", {
   description = "Injector",
   description = S("Self-Contained Injector"),
   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,
   groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2, tubedevice=1},
   tube = {connect_sides={bottom=1}},
   sounds = default.node_sound_wood_defaults(),
   on_construct = function(pos)
      local meta = minetest.env:get_meta(pos)
      meta:set_string("formspec",
            "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")
      meta:set_string("infotext", S("Self-Contained Injector"))
      local inv = meta:get_inventory()
      inv:set_size("main", 8*4)
      meta:set_string("mode","single items")
      set_injector_formspec(meta)
   end,
   can_dig = function(pos,player)
      local meta = minetest.env:get_meta(pos);
@@ -36,22 +83,9 @@
   end,
   on_receive_fields = function(pos, formanme, fields, sender)
      local meta = minetest.env:get_meta(pos)
      local mode=meta:get_string("mode")
      if fields.mode then 
         if mode == "single items" then
            mode = "whole stacks" 
         else
            mode = "single items"
         end
         meta:set_string("mode", mode)
      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;]")
      if fields.mode_item then meta:set_string("mode", "single items") end
      if fields.mode_stack then meta:set_string("mode", "whole stacks") end
      set_injector_formspec(meta)
   end,
   allow_metadata_inventory_put = technic.machine_inventory_put,
   allow_metadata_inventory_take = technic.machine_inventory_take,
@@ -72,46 +106,3 @@
   end,
})

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
		
end