Liquid Sampler node added

basic_machines/liquidsampler.lua

@@ -0,0 +1,239 @@
+--[[
+
+	TechAge
+	=======
+
+	Copyright (C) 2019 Joachim Stolberg
+
+	GPL v3
+	See LICENSE.txt for more information
+	
+	TA2/TA3/TA4 Liquid Sampler
+	
+]]--
+
+-- for lazy programmers
+local M = minetest.get_meta
+-- Consumer Related Data
+local CRD = function(pos) return (minetest.registered_nodes[minetest.get_node(pos).name] or {}).consumer end
+
+local S = techage.S
+
+local STANDBY_TICKS = 4
+local COUNTDOWN_TICKS = 2
+local CYCLE_TIME = 8
+
+local function formspec(self, pos, mem)
+	return "size[9,8.5]"..
+	default.gui_bg..
+	default.gui_bg_img..
+	default.gui_slots..
+	"list[context;src;0,0;1,4;]"..
+	"image[0,0;1,1;bucket.png]"..
+	"image[1,0;1,1;"..techage.get_power_image(pos, mem).."]"..
+	"image[1,1.5;1,1;techage_form_arrow.png]"..
+	"image_button[1,3;1,1;".. self:get_state_button_image(mem) ..";state_button;]"..
+	"list[context;dst;2,0;7,4;]"..
+	"list[current_player;main;0.5,4.5;8,4;]"..
+	"listring[current_player;main]"..
+	"listring[context;src]" ..
+	"listring[current_player;main]"..
+	"listring[context;dst]" ..
+	"listring[current_player;main]"
+end
+
+local function allow_metadata_inventory_put(pos, listname, index, stack, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return 0
+	end
+	if listname == "src" then
+		CRD(pos).State:start_if_standby(pos)
+	end
+	return stack:get_count()
+end
+
+local function allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
+	local inv = M(pos):get_inventory()
+	local stack = inv:get_stack(from_list, from_index)
+	return allow_metadata_inventory_put(pos, to_list, to_index, stack, player)
+end
+
+local function allow_metadata_inventory_take(pos, listname, index, stack, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return 0
+	end
+	return stack:get_count()
+end
+
+local function test_liquid(node)
+	local liquiddef = bucket.liquids[node.name]
+	if liquiddef ~= nil	and liquiddef.itemname ~= nil and 
+			node.name == liquiddef.source then
+		return liquiddef.itemname
+	end
+end
+
+local function sample_liquid(pos, crd, mem, inv)
+	local meta = M(pos)
+	local water_pos = minetest.string_to_pos(meta:get_string("water_pos"))
+	local giving_back = test_liquid(minetest.get_node(water_pos))
+	if giving_back then
+		if inv:room_for_item("dst", ItemStack(giving_back)) and
+				inv:contains_item("src", ItemStack("bucket:bucket_empty")) then
+			minetest.remove_node(water_pos)
+			inv:remove_item("src", ItemStack("bucket:bucket_empty"))
+			inv:add_item("dst", ItemStack(giving_back))
+			crd.State:keep_running(pos, mem, COUNTDOWN_TICKS)
+		else
+			crd.State:idle(pos, mem)
+		end
+	else
+		crd.State:fault(pos, mem)
+	end
+end
+
+local function keep_running(pos, elapsed)
+	--if tubelib.data_not_corrupted(pos) then
+	local mem = tubelib2.get_mem(pos)
+	local crd = CRD(pos)	
+	local inv = M(pos):get_inventory()
+	sample_liquid(pos, crd, mem, inv)
+end
+
+local function on_receive_fields(pos, formname, fields, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return
+	end
+	local mem = tubelib2.get_mem(pos)
+	CRD(pos).State:state_button_event(pos, mem, fields)
+end
+
+local function can_dig(pos, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return false
+	end
+	local inv = M(pos):get_inventory()
+	return inv:is_empty("dst") and inv:is_empty("src")
+end
+
+local tiles = {}
+-- '#' will be replaced by the stage number
+-- '{power}' will be replaced by the power PNG
+tiles.pas = {
+	-- up, down, right, left, back, front
+	"techage_filling_ta#.png^techage_appl_hole_electric.png^techage_frame_ta#_top.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png^techage_appl_outp.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png^techage_appl_inp.png",
+	"techage_filling_ta#.png^techage_liquidsampler.png^techage_frame_ta#.png",
+	"techage_filling_ta#.png^techage_appl_liquidsampler.png^techage_frame_ta#.png",
+}
+tiles.act = {
+	-- up, down, right, left, back, front
+	"techage_filling_ta#.png^techage_appl_hole_electric.png^techage_frame_ta#_top.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png^techage_appl_outp.png",
+	"techage_filling_ta#.png^techage_frame_ta#.png^techage_appl_inp.png",
+	{
+		image = "techage_filling4_ta#.png^techage_liquidsampler4.png^techage_frame4_ta#.png",
+		backface_culling = false,
+		animation = {
+			type = "vertical_frames",
+			aspect_w = 32,
+			aspect_h = 32,
+			length = 1.0,
+		},
+	},
+	"techage_filling_ta#.png^techage_appl_liquidsampler.png^techage_frame_ta#.png",
+}
+
+local tubing = {
+	on_pull_item = function(pos, in_dir, num)
+		local meta = minetest.get_meta(pos)
+		if meta:get_int("pull_dir") == in_dir then
+			local inv = M(pos):get_inventory()
+			return techage.get_items(inv, "dst", num)
+		end
+	end,
+	on_push_item = function(pos, in_dir, stack)
+		local meta = minetest.get_meta(pos)
+		if meta:get_int("push_dir") == in_dir then
+			local inv = M(pos):get_inventory()
+			return techage.put_items(inv, "src", stack)
+		end
+	end,
+	on_unpull_item = function(pos, in_dir, stack)
+		local meta = minetest.get_meta(pos)
+		if meta:get_int("pull_dir") == in_dir then
+			local inv = M(pos):get_inventory()
+			return techage.put_items(inv, "dst", stack)
+		end
+	end,
+	on_recv_message = function(pos, src, topic, payload)
+		return CRD(pos).State:on_receive_message(pos, topic, payload)
+	end,
+	on_node_load = function(pos)
+		CRD(pos).State:on_node_load(pos)
+	end,
+}
+
+local node_name_ta2, node_name_ta3, node_name_ta4 = 
+	techage.register_consumer("liquidsampler", S("Liquid Sampler"), tiles, {
+		cycle_time = CYCLE_TIME,
+		standby_ticks = STANDBY_TICKS,
+		formspec = formspec,
+		tubing = tubing,
+		after_place_node = function(pos, placer)
+			local inv = M(pos):get_inventory()
+			inv:set_size("src", 4)
+			inv:set_size("dst", 28)
+			local water_pos = techage.get_pos(pos, "B")
+			M(pos):set_string("water_pos", minetest.pos_to_string(water_pos))
+			techage.power.set_conn_dirs(pos, {"U"})
+		end,
+		can_dig = can_dig,
+		node_timer = keep_running,
+		on_receive_fields = on_receive_fields,
+		allow_metadata_inventory_put = allow_metadata_inventory_put,
+		allow_metadata_inventory_move = allow_metadata_inventory_move,
+		allow_metadata_inventory_take = allow_metadata_inventory_take,
+		groups = {choppy=2, cracky=2, crumbly=2},
+		sounds = default.node_sound_wood_defaults(),
+		num_items = {0,1,2,4},
+		power_consumption = {0,3,5,8},
+	})
+
+minetest.register_craft({
+	output = node_name_ta2,
+	recipe = {
+		{"group:wood", "default:mese_crystal", "group:wood"},
+		{"techage:tubeS", "bucket:bucket_empty", "techage:tubeS"},
+		{"group:wood", "techage:iron_ingot", "group:wood"},
+	},
+})
+
+minetest.register_craft({
+	output = node_name_ta3,
+	recipe = {
+		{"", "default:mese_crystal", ""},
+		{"", node_name_ta2, ""},
+		{"", "techage:vacuum_tube", ""},
+	},
+})
+
+techage.register_entry_page("ta2", "liquidsampler",
+	S("TA2 Liquid Sampler"), 
+	S("The Liquid Sampler is used to collect water or other bucket registered liquids.@n"..
+		"The Liquid Sampler has to be placed into water/liquids and need empty buckets@n"..
+		"to operate. The Liquid Sampler takes 1 bucket water every 8 seconds.@n"..
+		"It needs 3 units axle power, supplied from the top."), 
+	"techage:ta2_liquidsampler_pas")
+
+techage.register_entry_page("ta3m", "liquidsampler",
+	S("TA3 Liquid Sampler"), 
+	S("The Liquid Sampler is used to collect water or other bucket registered liquids.@n"..
+		"The Liquid Sampler has to be placed into water/liquids and need empty buckets@n"..
+		"to operate. The Liquid Sampler takes 2 buckets water every 8 seconds.@n"..
+		"It needs 5 units electrical power, supplied from the top."), 
+	"techage:ta3_liquidsampler_pas")
+

doc/ta2_doc.lua

@@ -20,6 +20,7 @@ techage.register_category_page("ta2", "Steam Age (TA2)",
 		"and machines to produce ores and vacuum tubes for the first electronic devices and machines in TA3."),
 	"techage:charcoal", {
 		"steam_engine", "boiler1", "boiler2", "cylinder", "flywheel", 
-		"pusher", "distributor", "chest", "grinder", "gravelsieve", "autocrafter", "rinser", "electronic_fab"}
+		"pusher", "distributor", "chest", "grinder", "gravelsieve", "autocrafter", "rinser", 
+		"electronic_fab", "liquidsampler"}
 )
 

doc/ta3_doc.lua

@@ -102,7 +102,8 @@ techage.register_category_page("ta3m",
 	S("TA3: Machines"),
 	S("Collection of TA3 machines, some with eletrical power supply."),
 	"techage:ta3_autocrafter_pas", 
-	{"pusher", "distributor", "chest", "grinder", "gravelsieve", "autocrafter", "electronic_fab", "funnel"}
+	{"pusher", "distributor", "chest", "grinder", "gravelsieve", "autocrafter", "electronic_fab", 
+		"funnel", "liquidsampler"}
 )
 
 techage.register_category_page("ta3l", 

init.lua

@@ -105,6 +105,7 @@ else
 	dofile(MP.."/basic_machines/autocrafter.lua")
 	dofile(MP.."/basic_machines/electronic_fab.lua")
 	dofile(MP.."/basic_machines/funnel.lua")
+	dofile(MP.."/basic_machines/liquidsampler.lua")
 
 	-- Coal power station
 	dofile(MP.."/coal_power_station/firebox.lua")

power/power2.lua

@@ -43,7 +43,9 @@ local function set_conn_dirs(pos, sides)
 	end
 	M(pos):set_string("power_dirs", minetest.serialize(tbl))
 end
-		
+
+techage.power.set_conn_dirs = set_conn_dirs
+
 local function valid_indir(pos, in_dir)
 	local s = M(pos):get_string("power_dirs")
 	if s == "" then