From 8e03d7ded6441b26e9d44102c0cd2ee39f9e90bc Mon Sep 17 00:00:00 2001
From: RealBadAngel <mk@realbadangel.pl>
Date: Sun, 30 Jun 2013 07:12:02 +0200
Subject: [PATCH] Sync with indev branch, bump version to 0.4.7

---
 technic/injector.lua |   79 ++++++++++++++++++++++++++++++++-------
 1 files changed, 65 insertions(+), 14 deletions(-)

diff --git a/technic/injector.lua b/technic/injector.lua
index 0691777..c493744 100644
--- a/technic/injector.lua
+++ b/technic/injector.lua
@@ -3,6 +3,15 @@
 	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_injector_top.png", "technic_injector_bottom.png", "technic_injector_side.png",
@@ -15,16 +24,36 @@
 		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")
 		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_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
+	local mode=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;]")
 	end,
 })
 
@@ -46,21 +75,43 @@
 function inject_items (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 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
+		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

--
Gitblit v1.8.0