minetest_bitumen/pump.lua

local pump_formspec =
	"size[10,8;]" ..
	default.gui_bg ..
	default.gui_bg_img ..
	default.gui_slots ..
	"button[5,1;1,4;start;Start]" ..
	"list[current_player;main;0,3.85;8,1;]" ..
	"list[current_player;main;0,5.08;8,3;8]" ..
	"listring[context;main]" ..
	"listring[current_player;main]" ..
	default.get_hotbar_bg(0, 3.85)

local pump_formspec_on =
	"size[10,8;]" ..
	default.gui_bg ..
	default.gui_bg_img ..
	default.gui_slots ..
	"button[5,1;1,4;stop;Stop]" ..
	"list[current_player;main;0,3.85;8,1;]" ..
	"list[current_player;main;0,5.08;8,3;8]" ..
	"listring[context;main]" ..
	"listring[current_player;main]" ..
	default.get_hotbar_bg(0, 3.85)




local function swap_node(pos, name)
	local node = minetest.get_node(pos)
	if node.name == name then
		return
	end
	node.name = name
	minetest.swap_node(pos, node)
end

minetest.register_node("bitumen:pump", {
	description = "Pump",
	drawtype = "normal",
	tiles = {"default_steel_block.png"},
	is_ground_content = false,
	paramtype2 = "facedir",
	groups = {cracky = 1, petroleum_fixture=1, oddly_breakable_by_hand = 3},
	sounds = default.node_sound_glass_defaults(),
	on_place = minetest.rotate_node,
	
	on_construct = function(pos) 
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec", pump_formspec)
		
		--bitumen.pipes.on_construct(pos)
	end,
	on_receive_fields = function(pos, form, fields, player)
		local meta = minetest:get_meta(pos)
			local mf = meta:get_string("formspec")
			print(dump(mf))
		if fields.start then
			print("start")
			swap_node(pos, "bitumen:pump_on")
			
			-- refetch the meta after the node swap just to be sure
			local meta = minetest:get_meta(pos)
			meta:set_string("formspec", "") 
			meta:set_string("formspec", pump_formspec_on) 
			local mf = meta:get_string("formspec")
			print(dump(mf))
			
			minetest.show_formspec(player:get_player_name(), "", pump_formspec_on)
		end
	end,
	
	on_punch = function(pos)
		swap_node(pos, "bitumen:pump_on")
	end,
})



minetest.register_abm({
	nodenames = {"bitumen:pump"},
	interval = 1,
	chance   = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		local node   = minetest.get_node(pos)
		
		local back_dir = minetest.facedir_to_dir(node.param2)
		local backpos = vector.add(pos, back_dir) 
		local backnet = bitumen.pipes.get_net(backpos)
		if backnet == nil then
			print("pump no backnet at "..minetest.pos_to_string(backpos))
			return
		end
		
		local front_dir = vector.multiply(back_dir, -1)
		local frontpos = vector.add(pos, front_dir)
		local frontnet = bitumen.pipes.get_net(frontpos)
		if frontnet == nil then
			print("pump no frontnet at "..minetest.pos_to_string(frontpos))
			return
		end
		
		if backnet.fluid ~= frontnet.fluid and backnet.fluid ~= "air" then
			print("pump: bad_fluid")
			return -- incompatible fluids
		end
		
		local lift = 25
		
		local taken, fluid = bitumen.pipes.take_fluid(frontpos, 20)
		local pushed = bitumen.pipes.push_fluid(backpos, fluid, taken, lift)
		print("pumped " ..pushed)
		
		if pushed < taken then
			print("pump leaked ".. (taken - pushed))
		end
	end
})

minetest.register_node("bitumen:pump_on", {
	description = "Pump (Active)",
	drawtype = "normal",
	tiles = {"default_tin_block.png"},
	is_ground_content = false,
	paramtype2 = "facedir",
	groups = {cracky = 1, petroleum_fixture=1, oddly_breakable_by_hand = 3, --[[not_in_creaetive_inventory=1]]},
	sounds = default.node_sound_glass_defaults(),
	on_place = minetest.rotate_node,
	drop = "bitumen:pump",
	
	on_construct = function(pos) 
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec", pump_formspec_on)
		
		--bitumen.pipes.on_construct(pos)
	end,
	
	on_receive_fields = function(pos, form, fields, player)
		if fields.stop then
			print("start")
			swap_node(pos, {name="bitumen:pump"})
			
			local meta = minetest:get_meta(pos)
			meta:set_string("formspec", pump_formspec)
			minetest.show_formspec(player:get_player_name(), "", pump_formspec)
		end
	end,

	on_punch = function(pos)
		swap_node(pos, "bitumen:pump")
	end,
})