From: Novatux <nathanael.courant@laposte.net>
Date: Sun, 20 Jan 2013 16:29:11 +0000 (+0100)
Subject: Added sand tubes, which take nearby items.
X-Git-Url: http://81.2.79.47:8989/gitweb/?a=commitdiff_plain;h=1657f7cb7b7080cba505914c840f9d21aee84be3;p=zefram%2Fminetest%2Fpipeworks.git

Added sand tubes, which take nearby items.
---

diff --git a/tubes.lua b/tubes.lua
index 0061f5a..ee982e1 100644
--- a/tubes.lua
+++ b/tubes.lua
@@ -423,5 +423,28 @@ register_tube("pipeworks:accelerator_tube","Accelerator pneumatic tube segment",
 			return notvel(meseadjlist,velocity)
 		end}})
 
+register_tube("pipeworks:sand_tube","Sand pneumatic tube segment",plain_textures,noctr_textures,end_textures,
+		short_texture,inv_texture,
+		{groups={sand_tube=1},
+		tube={can_go=function(pos,node,velocity,stack)
+			return meseadjlist
+		end}})
+
+minetest.register_abm({nodenames={"group:sand_tube"},interval=1,chance=1,
+	action=function(pos, node, active_object_count, active_object_count_wider)
+		for _,object in ipairs(minetest.env:get_objects_inside_radius(pos, 2)) do
+			if not object:is_player() and object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
+				if object:get_luaentity().itemstring ~= "" then
+					local titem=tube_item(pos,object:get_luaentity().itemstring)
+					titem:get_luaentity().start_pos = {x=pos.x,y=pos.y-1,z=pos.z}
+					titem:setvelocity({x=0,y=1,z=0})
+					titem:setacceleration({x=0, y=0, z=0})
+				end
+				object:get_luaentity().itemstring = ""
+				object:remove()
+			end
+		end
+	end})
+
 modpath=minetest.get_modpath("pipeworks")
 dofile(modpath.."/teleport_tube.lua")
\ No newline at end of file