techage/basic_machines/funnel.lua

--[[

	TechAge
	=======

	Copyright (C) 2019 Joachim Stolberg

	GPL v3
	See LICENSE.txt for more information
	
	TA3 Funnel
	
]]--

-- for lazy programmers
local M = minetest.get_meta
local S = techage.S

local CYCLE_TIME = 2

local function start_node(pos, mem)
	mem.running = true
	minetest.get_node_timer(pos):start(CYCLE_TIME)
	local meta = M(pos)
	local own_num = meta:get_string("node_number")
	meta:set_string("infotext", "TA3 Funnel "..own_num.." : running")
end

local function stop_node(pos, mem)
	mem.running = false
	minetest.get_node_timer(pos):stop()
	local meta = M(pos)
	local own_num = meta:get_string("node_number")
	meta:set_string("infotext", "TA3 Funnel "..own_num.." : stopped")
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
	return stack:get_count()
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 formspec(mem)
	local state = techage.STOPPED
	if mem.running then
		state = techage.RUNNING
	end
	return "size[9,7]"..
	default.gui_bg..
	default.gui_bg_img..
	default.gui_slots..
	"list[context;main;0.5,0;8,2;]"..
	"image_button[4,2.1;1,1;"..techage.state_button(state)..";state_button;]"..
	"list[current_player;main;0.5,3.3;8,4;]"..
	"listring[context;main]"..
	"listring[current_player;main]"
end

local function scan_for_objects(pos, elapsed)
	local mem = tubelib2.get_mem(pos)
	if not mem.running then
		return false
	end
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	for _, object in pairs(minetest.get_objects_inside_radius(pos, 1)) do
		local lua_entity = object:get_luaentity()
		if not object:is_player() and lua_entity and lua_entity.name == "__builtin:item" then
			local obj_pos = object:getpos()
			if lua_entity.itemstring ~= "" and ((obj_pos.y - pos.y) >= 0.4) then
				local stack = ItemStack(lua_entity.itemstring)
				if inv:room_for_item("main", stack) then
					inv:add_item("main", stack)
					object:remove()
				end
			end
			
		end
	end
	return true
end

minetest.register_node("techage:ta3_funnel", {
	description = "TA3 Funnel",
	tiles = {
		-- up, down, right, left, back, front
	"techage_filling_ta3.png^techage_appl_funnel_top.png^techage_frame_ta3_top.png",
	"techage_filling_ta3.png^techage_frame_ta3.png",
	"techage_filling_ta3.png^techage_frame_ta3.png^techage_appl_outp.png",
	"techage_filling_ta3.png^techage_frame_ta3.png",
	"techage_filling_ta3.png^techage_appl_funnel.png^techage_frame_ta3.png",
	"techage_filling_ta3.png^techage_appl_funnel.png^techage_frame_ta3.png",
	},

	drawtype = "nodebox",
	paramtype = "light",
	node_box = {
		type = "fixed",
		fixed = {
			{-8/16, -8/16, -8/16,  8/16, 8/16, -6/16},
			{-8/16, -8/16,  6/16,  8/16, 8/16,  8/16},
			{-8/16, -8/16, -8/16, -6/16, 8/16,  8/16},
			{ 6/16, -8/16, -8/16,  8/16, 8/16,  8/16},
			{-6/16, -8/16, -6/16,  6/16, 4/16,  6/16},
		},
	},
	selection_box = {
		type = "fixed",
		fixed = {-8/16, -8/16, -8/16,   8/16, 8/16, 8/16},
	},

	on_construct = function(pos)
		local meta =  M(pos)
		local inv = meta:get_inventory()
		inv:set_size('main', 16)
	end,
	
	after_place_node = function(pos, placer)
		local meta = M(pos)
		local mem = tubelib2.init_mem(pos)
		mem.running = false
		local own_num = techage.add_node(pos, "techage:ta3_funnel")
		local node = minetest.get_node(pos)
		meta:set_string("node_number", own_num)
		meta:set_string("owner", placer:get_player_name())
		meta:set_string("infotext", "TA3 Funnel "..own_num.." : stopped")
		meta:set_string("formspec", formspec(mem))
		meta:set_int("pull_dir", techage.side_to_indir("R", node.param2))
	end,

	on_timer = scan_for_objects,
	
	on_receive_fields = function(pos, formname, fields, player)
		if minetest.is_protected(pos, player:get_player_name()) then
			return
		end
		
		local meta = M(pos)
		local mem = tubelib2.get_mem(pos)
		if fields.state_button ~= nil then
			if mem.running then
				stop_node(pos, mem)
			else
				start_node(pos, mem)
			end
		end
		meta:set_string("formspec", formspec(mem))
	end,
	
	can_dig = function(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("main")
	end,

	after_dig_node = function(pos, oldnode, oldmetadata, digger)
		techage.remove_node(pos)
		tubelib2.del_mem(pos)
	end,
	
	allow_metadata_inventory_put = allow_metadata_inventory_put,
	allow_metadata_inventory_take = allow_metadata_inventory_take,

	paramtype2 = "facedir",
	groups = {choppy=2, cracky=2, crumbly=2},
	is_ground_content = false,
	sounds = default.node_sound_wood_defaults(),
})


techage.register_node({"techage:ta3_funnel"}, {
	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, "main", num)
		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, "main", stack)
		end
	end,
	on_recv_message = function(pos, src, topic, payload)
		local mem = tubelib2.get_mem(pos)
		if topic == "state" then
			if mem.running then
				return "running"
			else
				return "stopped"
			end
		elseif topic == "on" then
			if not mem.running then
				start_node(pos, mem)
			end
		elseif topic == "off" then
			if mem.running then
				stop_node(pos, mem)
			end
		else
			return "unsupported"
		end
	end,
	on_node_load = function(pos)
		local mem = tubelib2.get_mem(pos)
		if mem.running then
			minetest.get_node_timer(pos):start(CYCLE_TIME)
		end
	end,
})


minetest.register_craft({
	output = "techage:ta3_funnel",
	recipe = {
		{"group:wood", "", "group:wood"},
		{"group:wood", "default:mese_crystal", "techage:tubeS"},
		{"group:wood", "techage:iron_ingot", "group:wood"},
	},
})