basic_machines/mover.lua

------------------------------------------------------------------------------------------------------------------------------------
-- BASIC MACHINES MOD by rnd
-- mod with basic simple automatization for minetest. No background processing, just one abm with 5s timer (clock generator), no other lag causing background processing.
------------------------------------------------------------------------------------------------------------------------------------

--  *** SETTINGS *** --
basic_machines.timer = 5 -- main timestep
basic_machines.machines_minstep = 1 -- minimal allowed activation timestep, if faster machines overheat

basic_machines.max_range = 10 -- machines normal range of operation
basic_machines.machines_operations = 10 -- 1 coal will provide 10 mover basic operations ( moving dirt 1 block distance)
basic_machines.machines_TTL = 16 -- time to live for signals, how many hops before signal dissipates

basic_machines.version = "12/04/2018a"
basic_machines.clockgen = 1 -- if 0 all background continuously running activity (clockgen/keypad) repeating is disabled

-- how hard it is to move blocks, default factor 1, note fuel cost is this multiplied by distance and divided by machine_operations..
basic_machines.hardness = {
	["default:stone"] = 4,
	["default:tree"] = 2,
	["default:jungletree"] = 2,
	["default:pine_tree"] = 2,
	["default:aspen_tree"] = 2,
	["default:acacia_tree"] = 2,
	["default:lava_source"] = 5950,
	["default:water_source"] = 5950,
	["default:river_water_source"] = 5950,
	["default:obsidian"] = 20,
	["bedrock2:bedrock"] = 999999,
	["spawners_env:mobs_spider_spawner"] = 999999,
	["spawners_env:mobs_spider_spawner_active"] = 999999,
	["spawners_env:mobs_spider_spawner_waiting"] = 999999,
	["spawners_env:spawners_mobs_uruk_hai_spawner"] = 999999,
	["spawners_env:spawners_mobs_uruk_hai_spawner_active"] = 999999,
	["spawners_env:spawners_mobs_uruk_hai_spawner_waiting"] = 999999,
	["telemosaic:extender_one"] = 999999,
	["telemosaic:extender_two"] = 999999,
	["telemosaic:extender_three"] = 999999,
	["telemosaic:beacon_off"] = 999999,
	["telemosaic:beacon"] = 999999,
	["telemosaic:beacon_err"] = 999999,
	["farming_addons:cocoa_1"] = 999999,
	["farming_addons:cocoa_2"] = 999999,
	["farming_addons:cocoa_3"] = 999999,
	["x_default:treasure_chest"] = 999999,
	-- move machines for free
	["basic_machines:mover"] = 0,
	["basic_machines:keypad"] = 0,
	["basic_machines:distributor"] = 0,
	["basic_machines:battery"] = 0,
	["basic_machines:detector"] = 0,
	["basic_machines:generator"] = 0,
	["basic_machines:clockgen"] = 0,
	["basic_machines:ball_spawner"] = 0,
	["basic_machines:light_on"] = 0,
	["basic_machines:light_off"] = 0,
	["farming:wheat_8"] = 1,
	["farming:cotton_8"] = 1,
	["farming:seed_wheat"] = 0.5,
	["farming:seed_cotton"] = 0.5,
}

-- define which nodes are dug up completely, like a tree
basic_machines.dig_up_table = {
	["default:cactus"] = true,
	["default:tree"] = true,
	["default:jungletree"] = true,
	["default:pine_tree"] = true,
	["default:acacia_tree"] = true,
	["default:aspen_tree"] = true,
	["default:papyrus"] = true
}

-- set up nodes for harvest when digging: [nodename] = {what remains after harvest, harvest result}
basic_machines.harvest_table = {
["mese_crystals:mese_crystal_ore4"] = {"mese_crystals:mese_crystal_ore1", "default:mese_crystal 3"}, -- harvesting mese crystals
["mese_crystals:mese_crystal_ore3"] = {"mese_crystals:mese_crystal_ore1", "default:mese_crystal 2"},
["mese_crystals:mese_crystal_ore2"] = {"mese_crystals:mese_crystal_ore1", "default:mese_crystal 1"},
["mese_crystals:mese_crystal_ore1"] = {"mese_crystals:mese_crystal_ore1", ""},
}

-- list of objects that cant be teleported with mover
basic_machines.no_teleport_table = {
	["itemframes:item"] = true,
	["signs:text"] = true,
	["spawners_mobs:dummy_mobs_sheep_white"] = true,
	["spawners_mobs:dummy_mobs_chicken"] = true,
	["spawners_mobs:dummy_mobs_cow"] = true,
	["spawners_mobs:dummy_mobs_oerkki"] = true,
	["spawners_mobs:dummy_mobs_pumba"] = true,
	["spawners_mobs:dummy_mobs_spider"] = true,
	["spawners_mobs:dummy_mobs_stone_monster"] = true,
	["spawners_mobs:dummy_mobs_tree_monster"] = true,
	["spawners_mobs:dummy_spawners_mobs_balrog"] = true,
	["spawners_mobs:dummy_spawners_mobs_bunny_evil"] = true,
	["spawners_mobs:dummy_spawners_mobs_mummy"] = true,
	["spawners_mobs:dummy_spawners_mobs_uruk_hai"] = true,
	["spawners_ores:dummy_ore_stone_with_tin"] = true,
	["spawners_ores:dummy_ore_stone_with_iron"] = true,
	["spawners_ores:dummy_ore_stone_with_gold"] = true,
	["spawners_ores:dummy_ore_stone_with_copper"] = true,
	["spawners_env:dummy_spawners_mobs_uruk_hai"] = true,
	["spawners_env:dummy_mobs_spider"] = true,
	["spawners_env:dummy_spawners_mobs_balrog"] = true,
	["xdecor:book_open"] = true
}

-- list of nodes mover cant take from in inventory mode
basic_machines.limit_inventory_table = { -- node name = {list of bad inventories to take from}
	["basic_machines:autocrafter"] = {["recipe"] = 1, ["output"] = 1},
	["basic_machines:constructor"] = {["recipe"] = 1},
	["basic_machines:battery_0"] = {["upgrade"] = 1},
	["basic_machines:battery_1"] = {["upgrade"] = 1},
	["basic_machines:battery_2"] = {["upgrade"] = 1},
	["basic_machines:generator"] = {["upgrade"] = 1},
	["basic_machines:mover"] = {["upgrade"] = 1},
	["moreblocks:circular_saw"] = {["input"] = 1, ["recycle"] = 1, ["micro"] = 1, ["output"] = 1 },
	["easyvend:depositor"] = {["item"] = 1, ["gold"] = 1},
	["easyvend:vendor"] = {["item"] = 1, ["gold"] = 1},
	["easyvend:depositor_on"] = {["item"] = 1, ["gold"] = 1},
	["easyvend:vendor_on"] = {["item"] = 1, ["gold"] = 1},
	["x_default:treasure_chest"] = {["main"] = 1},
}

-- when activated with keypad these will be "punched" to update their text too
basic_machines.signs = {
	["default:sign_wall_wood"] = true,
	["signs:sign_wall_green"] = true,
	["signs:sign_wall_green"] = true,
	["signs:sign_wall_yellow"] = true,
	["signs:sign_wall_red"] = true,
	["signs:sign_wall_red"] = true,
	["signs:sign_wall_white_black"] = true,
	["signs:sign_yard"] = true
}

--  *** END OF SETTINGS *** --

local machines_timer = basic_machines.timer
local machines_minstep = basic_machines.machines_minstep
local max_range = basic_machines.max_range
local machines_operations = basic_machines.machines_operations
local machines_TTL = basic_machines.machines_TTL
local punchset = {}

minetest.register_on_joinplayer(function(player)
	local name = player:get_player_name()

	if name == nil then
		return
	end

	punchset[name] = {}
	punchset[name].state = 0
end)

local get_mover_form = function(pos,player)
	if not player then
		return
	end

	local meta = minetest.get_meta(pos);
	local x0, y0, z0, x1, y1, z1, x2, y2, z2, prefer, mode, mreverse

	-- pos1
	x0 = meta:get_int("x0")
	y0 = meta:get_int("y0")
	z0 = meta:get_int("z0")

	-- pos11
	x1 = meta:get_int("x1")
	y1 = meta:get_int("y1")
	z1 = meta:get_int("z1")

	-- pos2
	x2 = meta:get_int("x2")
	y2 = meta:get_int("y2")
	z2 = meta:get_int("z2")

	machines.pos1[player:get_player_name()] = {x = pos.x + x0, y = pos.y + y0, z = pos.z + z0}
	machines.mark_pos1(player:get_player_name()) -- mark pos1
	machines.pos11[player:get_player_name()] = {x = pos.x + x1, y = pos.y + y1, z = pos.z + z1}
	machines.mark_pos11(player:get_player_name()) -- mark pos11
	machines.pos2[player:get_player_name()] = {x = pos.x + x2, y = pos.y + y2, z = pos.z + z2}
	machines.mark_pos2(player:get_player_name()) -- mark pos2

	prefer = meta:get_string("prefer")
	local mreverse = meta:get_int("reverse")
	local list_name = "nodemeta:"..pos.x..","..pos.y..","..pos.z
	local mode_list = {
		["normal"] = 1,
		["dig"] = 2,
		["drop"] = 3,
		["object"] = 4,
		["inventory"] = 5,
		["transport"] = 6
	}

	local mode_string = meta:get_string("mode") or ""

	-- source meta
	local meta1 = minetest.get_meta({x = pos.x + x0, y = pos.y + y0, z = pos.z + z0})
	-- target meta
	local meta2 = minetest.get_meta({x = pos.x + x2, y = pos.y + y2, z = pos.z + z2})

	local inv1 = 1
	local inv2 = 1
	local inv1m = meta:get_string("inv1")
	local inv2m = meta:get_string("inv2")

	local list1 = meta1:get_inventory():get_lists()
	local inv_list1 = ""
	-- stupid dropdown requires item index but returns string on receive so we have to find index.. grrr, one other solution: invert the table: key <-> value
	local j = 1

	for i in pairs( list1) do
		inv_list1 = inv_list1 .. i .. ","
		if i == inv1m then
			inv1 = j
		end
		j = j + 1
	end

	local list2 = meta2:get_inventory():get_lists()
	local inv_list2 = ""
	j = 1

	if list2 then
		for i in pairs( list2) do
			inv_list2 = inv_list2 .. i .. ","
			if i == inv2m then
				inv2 = j
			end
			j = j + 1
		end
	end

	local upgrade = meta:get_float("upgrade")
	if upgrade > 0 then
		upgrade = upgrade - 1
	end

	if upgrade > 10 then
		upgrade = 10
		meta:set_float("upgrade", 10)
	end

	local seltab = meta:get_int("seltab")
	local form

	-- MODE --
	if seltab == 1 then
		local mode_description = {
			["normal"] = "This will move blocks as they are - without change.",
			["dig"] = "This will transform blocks as if player digged them.",
			["drop"] = "This will take block/item out of chest (you need to set filter) and will drop it",
			["object"] = "make TELEPORTER/ELEVATOR. This will move any object inside sphere (with center source1 and radius defined by source2) to target position. For ELEVATOR teleport points need to be placed exactly vertically in line with mover and you need to upgrade with 1 diamondblock for every 100 height difference. ",
			["inventory"] = "This will move items from inventory of any block at source position to any inventory of block at target position",
			["transport"] = "This will move all blocks at source area to new area starting at target position. This mode preserves all inventories and other metadata",
		}

		local text = mode_description[mode_string] or "description"
		local mode_list = {
			["normal"] = 1,
			["dig"] = 2,
			["drop"] = 3,
			["object"] = 4,
			["inventory"] = 5,
			["transport"] = 6
		}

		mode = mode_list[mode_string] or 1

		form = "size[8,8.25]" ..  -- width, height
		--"size[6,10]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"tabheader[0,0;tabs;MODE OF OPERATION,WHERE TO MOVE;".. seltab .. ";true;true]"..
		"label[0.,0;MODE selection]".."button[3,0.25;1,1;help;help]"..
		"dropdown[0.,0.35;3,1;mode;normal,dig,drop,object,inventory,transport;".. mode .."]"..
		"textarea[0.25,1.25;8,2.;description;;".. text.."]"..

		"field[0.25,3.5;3,1;prefer;FILTER;"..prefer.."]"..

		"list[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";filter;3,3.4;1,1;]"..
		"list[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";upgrade;5,3.4;1,1;]".."label[4,3;UPGRADE LVL ".. upgrade .."]" ..
		"list[current_player;main;0,4.5;8,4;]"..
		"listring[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";upgrade]"..
		"listring[current_player;main]"..
		"listring[nodemeta:"..pos.x..','..pos.y..','..pos.z ..";filter]"..
		"listring[current_player;main] button_exit[5,0.25;1,1;OK;OK]"

	else -- POSITIONS

		local inventory_list1, inventory_list2

		if mode_string == "inventory" then
			inventory_list1 = "label[4.5,0.25;source inventory] dropdown[4.5,0.75;1.5,1;inv1;".. inv_list1 ..";" .. inv1 .."]"
			inventory_list2 = "label[4.5,3.;target inventory] dropdown[4.5,3.5;1.5,1;inv2;".. inv_list2 .. ";" .. inv2 .."]"
		else
			inventory_list1 = ""
			inventory_list2 = ""
		end

		form = "size[6,5.5]" ..  -- width, height
		--"size[6,10]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"tabheader[0,0;tabs;MODE OF OPERATION,WHERE TO MOVE;".. seltab .. ";true;true]"..

		"label[0.,0;" .. minetest.colorize("lawngreen","INPUT AREA - mover will dig here").."]"..
		"field[0.25,1.;1,1;x0;source1;"..x0.."] field[1.25,1.;1,1;y0;;"..y0.."] field[2.25,1.;1,1;z0;;"..z0.."]"..
		"image[3,0.75;1,1;machines_pos1.png]"..
		inventory_list1..
		"field[0.25,2;1,1;x1;source2;"..x1.."] field[1.25,2;1,1;y1;;"..y1.."] field[2.25,2;1,1;z1;;"..z1.."]"..
		"image[3,1.75;1,1;machines_pos11.png]"..

		"label[0.,2.75;" .. minetest.colorize("red","TARGET POSITION - mover will move to here").."]"..

		"field[0.25,3.75;1,1;x2;Target;"..x2.."] field[1.25,3.75;1,1;y2;;"..y2.."] field[2.25,3.75;1,1;z2;;"..z2.."]"..
		"image[3,3.5;1,1;machines_pos2.png]"..
		inventory_list2 ..
		"label[0.,4.25;REVERSE source and target (0/1/2)]"..
		"field[0.25,5;1.,1;reverse;;"..mreverse.."]" ..
		"listring[current_player;main] button[4,4.75;1,1;help;help] button_exit[5,4.75;1,1;OK;OK]"
	end

	return form
end

local find_and_connect_battery = function(pos)
	local r = 1
	for i = 0, 2 do
		local positions = minetest.find_nodes_in_area( --find battery
			{x = pos.x - r, y = pos.y - r, z = pos.z - r},
			{x = pos.x + r, y = pos.y + r, z = pos.z + r},
			"basic_machines:battery_" .. i )

		if #positions > 0 then
			local meta = minetest.get_meta(pos)
			local fpos = positions[1]
			meta:set_int("batx", fpos.x)
			meta:set_int("baty", fpos.y)
			meta:set_int("batz", fpos.z)

			return fpos
		end -- pick first battery we found
	end

	return nil
end

-- MOVER --
minetest.register_node("basic_machines:mover", {
	description = "Mover - universal digging/harvesting/teleporting/transporting machine, its upgradeable.",
	tiles = {"basic_machine_mover_side.png"},
	groups = {cracky = 3, mesecon_effector_on = 1},
	sounds = default.node_sound_wood_defaults(),

	after_place_node = function(pos, placer)
		local meta = minetest.env:get_meta(pos)
		meta:set_string("infotext", "Mover block. Set it up by punching or right click. Activate it by keypad signal.")
		meta:set_string("owner", placer:get_player_name())
		meta:set_int("public", 0)
		meta:set_int("x0", 0)
		meta:set_int("y0", -1)
		-- source1
		meta:set_int("z0", 0)
		meta:set_int("x1", 0)
		meta:set_int("y1", -1)
		-- source2: defines cube
		meta:set_int("z1", 0)
		meta:set_int("pc", 0)
		-- current cube position and dimensions
		meta:set_int("dim", 1)
		meta:set_int("pc", 0)
		-- current cube position and dimensions
		meta:set_int("dim", 1)
		meta:set_int("x2", 0)
		meta:set_int("y2", 1)
		meta:set_int("z2", 0)
		meta:set_float("fuel", 0)
		meta:set_string("prefer", "")
		meta:set_string("mode", "normal")
		meta:set_float("upgrade", 1)
		meta:set_int("seltab", 1)

		local privs = minetest.get_player_privs(placer:get_player_name())

		-- means operation will be for free
		if privs.privs then
			meta:set_float("upgrade", -1)
		end

		local inv = meta:get_inventory()
		inv:set_size("upgrade", 1 * 1)
		inv:set_size("filter", 1 * 1)

		local name = placer:get_player_name()
		punchset[name].state = 0

		local text = "This machine can move anything. General idea is the following : \n\n"..
		"First you need to define rectangle work area (where it takes, marked by two number 1 boxes that appear in world) and target area (where it puts, marked by one number 2 box) by punching mover then following CHAT instructions exactly.\n\n"..
		"CHECK why it doesnt work: 1. did you click OK in mover after changing setting 2. does it have battery, 3. does battery have enough fuel\n\n"..
		"IMPORTANT: Please read the help button inside machine before first use."

			local form = "size [5.5,5.5] textarea[0,0;6,7;help;MOVER INTRODUCTION;".. text.."]"
			-- minetest.show_formspec(name, "basic_machines:intro_mover", form)
	end,

	-- dont dig if upgrades inside, cause they will be destroyed
	can_dig = function(pos, player)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		return inv:is_empty("upgrade")
	end,

	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
		local privs = minetest.get_player_privs(player:get_player_name())
		local cant_build = minetest.is_protected(pos,player:get_player_name())

		-- only ppl sharing protection can setup
		if not privs.privs and cant_build then
			return
		end

		local form = get_mover_form(pos, player)
		minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
	end,

	allow_metadata_inventory_put = function(pos, listname, index, stack, player)

		if minetest.is_protected(pos, player:get_player_name()) then
			minetest.record_protection_violation(pos, player:get_player_name())
			return 0
		end

		local stack_name = stack:get_name()

		if listname == "filter" then
			local meta = minetest.get_meta(pos)
			local form = get_mover_form(pos, player)

			meta:set_string("prefer", stack_name)
			minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)

			return 1
		end

		if listname == "upgrade" then
			if not (stack_name == "default:diamondblock" or stack_name == "default:mese") then
				return 0
			end
		end

		return stack:get_count()
	end,

	on_metadata_inventory_put = function(pos, listname, index, stack, player)

		if listname == "upgrade" then
			-- update upgrades
			local meta = minetest.get_meta(pos)
			local upgrade = 0
			local inv = meta:get_inventory()
			local stack_name = stack:get_name()
			local upgrade_name = "default:mese"

			-- check if upgrade should be for elevator
			if meta:get_int("elevator") == 1 then
				upgrade_name = "default:diamondblock"
			end

			-- add upgrades
			if stack_name == upgrade_name then
				upgrade = inv:get_stack(listname, index):get_count() or 0

				-- not more than 10
				if upgrade > 10 then
					upgrade = 10
				end

				meta:set_float("upgrade", upgrade + 1)

				local form = get_mover_form(pos, player)
				minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
			-- reset upgrade level when switching the item
			else
				meta:set_float("upgrade", 1)

				local form = get_mover_form(pos, player)
				minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
			end

		end
	end,

	allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		-- reset upgrade
		meta:set_float("upgrade", 1)
		local form = get_mover_form(pos, player)
		minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
		return stack:get_count()
	end,

	mesecons = {
		effector = {
			action_on = function(pos, node,ttl)
				if type(ttl) ~= "number" then
					ttl = 1
				end

				local meta = minetest.get_meta(pos)
				local fuel = meta:get_float("fuel")

				local x0 = meta:get_int("x0")
				local y0 = meta:get_int("y0")
				local z0 = meta:get_int("z0")
				local x2 = meta:get_int("x2")
				local y2 = meta:get_int("y2")
				local z2 = meta:get_int("z2")

				local mode = meta:get_string("mode")
				local mreverse = meta:get_int("reverse")
				-- where to take from
				local pos1 = {x = x0 + pos.x, y = y0 + pos.y, z = z0 + pos.z}
				-- where to put
				local pos2 = {x = x2 + pos.x, y = y2 + pos.y, z = z2 + pos.z}
				local pc = meta:get_int("pc")
				local dim = meta:get_int("dim")
				pc = (pc+1) % dim
				-- cycle position
				meta:set_int("pc", pc)
				-- get dimensions
				local x1 = meta:get_int("x1") - x0 + 1
				local y1 = meta:get_int("y1") - y0 + 1
				local z1 = meta:get_int("z1") - z0 + 1

				--pc = z*a*b+x*b+y, from x,y,z to pc
				-- set current input position
				pos1.y = y0 + (pc % y1)
				pc = (pc - (pc % y1)) / y1
				pos1.x = x0 + (pc % x1)
				pc = (pc - (pc % x1)) / x1
				pos1.z = z0 + pc
				pos1.x = pos.x + pos1.x
				pos1.y = pos.y + pos1.y
				pos1.z = pos.z + pos1.z

				-- special modes that use its own source/target positions:
				if mode == "transport" and mreverse < 2 then
					-- translation from pos1
					pos2 = {
						x = meta:get_int("x2") - x0 + pos1.x,
						y = meta:get_int("y2") - y0 + pos1.y,
						z = meta:get_int("z2") - z0 + pos1.z
					}
				end

				-- reverse pos1, pos2
				if mreverse ~= 0 and mreverse ~= 2 then
					if mode == "object" then
						x0 = pos2.x - pos.x
						y0 = pos2.y - pos.y
						z0 = pos2.z - pos.z
						pos2 = {x = pos1.x, y = pos1.y, z = pos1.z}
					else
						local post = {x = pos1.x, y = pos1.y, z = pos1.z}
						pos1 = {x = pos2.x, y = pos2.y, z = pos2.z}
						pos2 = {x = post.x, y = post.y, z = post.z}
					end
				end

				-- PROTECTION CHECK
				local owner = meta:get_string("owner")

				if (minetest.is_protected(pos1, owner) or minetest.is_protected(pos2, owner)) and mode ~= "object" then
					meta:set_string("infotext", "Mover block. Protection fail.")
					return
				end

				local node1 = minetest.get_node(pos1)
				local node2 = minetest.get_node(pos2)
				local prefer = meta:get_string("prefer")

				-- prevent mover from working when player offline and reverse seed planting is enabled
				if mode == "normal" or mode == "dig" then
					local placer = minetest.get_player_by_name(owner)
					local tempprefer = prefer
					if tempprefer == "" then
						tempprefer = ":"
					end

					local name_parts = tempprefer:split(":")

					if not placer and
						 not (node2.name == "default:chest" or node2.name == "default:chest_locked") and
						 (name_parts[1] == "farming" or name_parts[1] == "farming_addons") then
						return
					end
				end

				-- FUEL COST: calculate
				local dist = math.abs(pos2.x - pos1.x) + math.abs(pos2.y - pos1.y) + math.abs(pos2.z - pos1.z)
				local hardness = basic_machines.hardness[node1.name]

				-- no free teleports from machine blocks
				if hardness == 0 and mode == "object" then
					hardness = 1
				end

				local fuel_cost = hardness or 1
				local upgrade =  meta:get_float("upgrade") or 1

				-- taking items from chests/inventory move
				if node1.name == "default:chest_locked" or mode == "inventory" then
					fuel_cost = basic_machines.hardness[prefer] or 1
				end

				fuel_cost = fuel_cost * dist / machines_operations -- machines_operations=10 by default, so 10 basic operations possible with 1 coal

				if mode == "object" then
					fuel_cost = fuel_cost * 0.1

					-- check if elevator mode
					if x2 == 0 and z2 == 0 then
						local requirement = math.floor(math.abs(pos2.y - pos.y) / 100) + 1

						if upgrade - 1 < requirement then
							meta:set_string("infotext","MOVER: Elevator error. Need at least "..requirement .. " diamond block(s) in upgrade (1 for every 100 height). ")
							return
						end

						fuel_cost = 0
					end

				elseif mode == "inventory" then
					fuel_cost = fuel_cost * 0.1
				end

				-- upgrade decreases fuel cost
				fuel_cost = fuel_cost / upgrade

				-- free operation for admin
				if upgrade == -1 then
					fuel_cost = 0
				end

				-- FUEL OPERATIONS
				-- needs fuel to operate, find nearby battery
				if fuel < fuel_cost then
					local found_fuel = 0

					-- cached battery position
					local fpos = {
						x = meta:get_int("batx"),
						y = meta:get_int("baty"),
						z = meta:get_int("batz")
					}

					-- check battery for power
					local power_draw = fuel_cost

					-- at least 10 one block operations with 1 refuel
					if power_draw < 1 then
						power_draw = 1
					end

					local supply = basic_machines.check_power(fpos, power_draw)

					if supply > 0 then
						found_fuel = supply
					-- no battery at target location, try to find it!
					elseif supply < 0 then
						local fpos = find_and_connect_battery(pos)

						if not fpos then
							meta:set_string("infotext", "Can not find nearby battery to connect to!")

							minetest.sound_play("default_cool_lava", {
								pos = pos,
								gain = 1.0,
								max_hear_distance = 8
							})

							return
						end
					end

					if found_fuel ~= 0 then
						fuel = fuel + found_fuel
						meta:set_float("fuel", fuel)
						meta:set_string("infotext", "Mover block refueled. Fuel ".. fuel)
					end
				end

				if fuel < fuel_cost then
					meta:set_string("infotext", "Mover block. Energy ".. fuel ..", needed energy " .. fuel_cost .. ". Put nonempty battery next to mover.")
					return
				end

				-- teleport objects and return
				if mode == "object" then
					-- if target is chest put items in it
					local target_chest = false

					if node2.name == "default:chest" or
						 node2.name == "default:chest_locked" then
						target_chest = true
					end

					local r = math.max(math.abs(x1), math.abs(y1), math.abs(z1))
					r = math.min(r, 10)
					local teleport_any = false

					-- put objects in target chest
					if target_chest then
						local cmeta = minetest.get_meta(pos2)
						local inv = cmeta:get_inventory()

						for _,obj in pairs(minetest.get_objects_inside_radius({x=x0+pos.x,y=y0+pos.y,z=z0+pos.z}, r)) do
							local lua_entity = obj:get_luaentity()

							if not obj:is_player() and lua_entity and lua_entity.itemstring ~= "" then
								local detected_obj = lua_entity.name or ""

								-- object on no teleport list
								if not basic_machines.no_teleport_table[detected_obj] then
									-- put item in chest
									local stack = ItemStack(lua_entity.itemstring)

									if inv:room_for_item("main", stack) then
										teleport_any = true
										inv:add_item("main", stack)
									end

									-- patch for dupe, might not be needed if future minetest object management is better
									obj:setpos({x = 0, y = 0, z = 0})
									obj:remove()
								end
							end
						end

						if teleport_any then
							fuel = fuel - fuel_cost
							meta:set_float("fuel", fuel)
							meta:set_string("infotext", "Mover block. Fuel "..fuel)

							minetest.sound_play("tng_transporter1", {
								pos = pos2,
								gain = 1.0,
								max_hear_distance = 8
							})
						end
						return
					end

					local times = basic_machines.tonumber(prefer) or 0

					if times > 20 then
						times = 20
					elseif times < 0.2 then
						times = 0
					end

					local velocityv

					if times ~= 0 then
						velocityv = {
							x = pos2.x - x0 - pos.x,
							y = pos2.y - y0 - pos.y,
							z = pos2.z - z0 - pos.z
						}

						local vv = math.sqrt(velocityv.x * velocityv.x + velocityv.y * velocityv.y + velocityv.z * velocityv.z)
						local velocitys = 0

						if times ~= 0 then
							velocitys = vv/times
						else
							vv = 0
						end

						if vv ~= 0 then
							vv = velocitys/vv
						else
							vv = 0
						end

						velocityv.x = velocityv.x * vv;	velocityv.y = velocityv.y * vv;	velocityv.z = velocityv.z* vv
					end

				--minetest.chat_send_all(" times ".. times .. " v " .. minetest.pos_to_string(velocityv));

				-- move objects to another location
				local finalsound = true

				for _, obj in pairs(minetest.get_objects_inside_radius({x=x0+pos.x,y=y0+pos.y,z=z0+pos.z}, r)) do

					if obj:is_player() then
						-- move player only from owners land
						if not minetest.is_protected(obj:getpos(), owner) and
							 (prefer == "" or obj:get_player_name() == prefer) then
							obj:moveto(pos2, false)
							teleport_any = true
						end
					else
						local lua_entity = obj:get_luaentity()
						local detected_obj = lua_entity.name or ""

						-- object on no teleport list
						if not basic_machines.no_teleport_table[detected_obj] then
							if times > 0 then
								local finalmove = true
								-- move objects with set velocity in target direction
								obj:setvelocity(velocityv);

								-- interaction with objects like carts
								if obj:get_luaentity() then
									if lua_entity.name then
										-- move balls for free
										if lua_entity.name == "basic_machines:ball" then
											lua_entity.velocity = {x=velocityv.x*times,y=velocityv.y*times,z=velocityv.z*times}
											finalmove = false
											finalsound = false
										end

										-- just accelerate cart
										if lua_entity.name == "carts:cart" then
											lua_entity.velocity = {x=velocityv.x*times,y=velocityv.y*times,z=velocityv.z*times}
											fuel = fuel - fuel_cost; meta:set_float("fuel",fuel)
											meta:set_string("infotext", "Mover block. Fuel "..fuel)
											return
										end
									end
								end

								-- dont move objects like balls to destination after delay
								if finalmove then
									minetest.after(times, function()
										if obj then
											obj:setvelocity({x = 0, y = 0, z = 0})
											obj:moveto(pos2, false)
										end
									end)
								end
							else
								obj:moveto(pos2, false)
							end
						end

						teleport_any = true
					end
				end

				if teleport_any then
					fuel = fuel - fuel_cost
					meta:set_float("fuel", fuel)
					meta:set_string("infotext", "Mover block. Fuel "..fuel)

					if finalsound then
						minetest.sound_play("tng_transporter1", {
							pos = pos2,
							gain = 1.0,
							max_hear_distance = 8
						})
					end
				end

				return
				end

				local dig = false
				-- digs at target location
				if mode == "dig" then
					dig = true
				end

				local drop = false
				-- drops node instead of placing it
				if mode == "drop" then
					drop = true
				end

				-- harvest mode for special nodes: mese crystals
				local harvest = false

				-- decide what to do if source or target are chests
				local source_chest = false

				if string.find(node1.name, "default:chest") then
					source_chest = true
				end

				-- nothing to move
				if node1.name == "air" then
					return
				end

				local target_chest = false

				if node2.name == "default:chest" or
					 node2.name == "default:chest_locked" then
					target_chest = true
				end

				-- do nothing if target nonempty and not chest
				if not target_chest and
					 not (mode == "inventory") and
					 minetest.get_node(pos2).name ~= "air" then
					 return
				end

				local invName1 = ""
				local invName2 = ""

				if mode == "inventory" then
					invName1 = meta:get_string("inv1")
					invName2 = meta:get_string("inv2")

					-- reverse inventory names too
					if mreverse == 1 then
						local invNamet = invName1
						invName1 = invName2
						invName2 = invNamet
					end
				end

				-- inventory mode
				if mode == "inventory" then
					--if prefer == "" then meta:set_string("infotext", "Mover block. must set nodes to move (filter) in inventory mode."); return; end

					-- forbidden nodes to take from in inventory mode - to prevent abuses
					if basic_machines.limit_inventory_table[node1.name] then
						-- forbidden to take from this inventory
						if basic_machines.limit_inventory_table[node1.name][invName1] then
							return
						end
					end

					local stack, meta1, inv1
					-- if prefer == "" then just pick one item from chest to transfer
					if prefer == "" then
						meta1 = minetest.get_meta(pos1)
						inv1 = meta1:get_inventory()

						-- nothing to move
						if inv1:is_empty(invName1) then
							return
						end

						local size = inv1:get_size(invName1)

						local found = false

						-- find item to move in inventory
						for i = 1, size do
							stack = inv1:get_stack(invName1, i)

							-- prevent item stacks with more than 'stack_max' items
							if stack:get_count() > stack:get_stack_max() then
								stack:set_count(stack:get_stack_max())
							else
								stack:set_count(stack:get_count())
							end

							if not stack:is_empty() then found = true break end
						end
						if not found then return end
					end

					-- can we move item to target inventory?
					if prefer ~= "" then
						meta1 = minetest.get_meta(pos1)
						inv1 = meta1:get_inventory()

						-- nothing to move
						if inv1:is_empty(invName1) then
							return
						end

						local size = inv1:get_size(invName1)
						local preferstack = ItemStack(prefer)

						local found = false

						-- find item to move in inventory
						for i = 1, size do
							stack = inv1:get_stack(invName1, i)

							if stack:get_name() == preferstack:get_name() then
								-- prevent item stacks with more than 'stack_max' items
								if preferstack:get_count() > preferstack:get_stack_max() then
									stack:set_count(preferstack:get_stack_max())
								else
									stack:set_count(preferstack:get_count())
								end

								found = true
								break
							end
						end

						if not found then
							return
						end
					end

					local meta2 = minetest.get_meta(pos2)
					local inv2 = meta2:get_inventory()

					if not inv2:room_for_item(invName2, stack) then
						return
					end

					-- add item to target inventory and remove item from source inventory
					if prefer ~= "" then
						meta1 = minetest.get_meta(pos1)
						inv1 = meta1:get_inventory()
					end

					if inv1:contains_item(invName1, stack) then
						inv2:add_item(invName2, stack)
						inv1:remove_item(invName1, stack)
					else
						-- admin is owner.. just add stuff
						if upgrade == -1 then
							inv2:add_item(invName2, stack)

						-- item not found in chest
						else
							return
						end
					end

					minetest.sound_play("chest_inventory_move", {
						pos = pos2,
						gain = 1.0,
						max_hear_distance = 8
					})

					fuel = fuel - fuel_cost
					meta:set_float("fuel", fuel)
					meta:set_string("infotext", "Mover block. Fuel "..fuel)

					return
				end

				-- filtering
				-- prefered node set
				if prefer ~= "" then
					-- only take prefered node or from chests/inventories
					if prefer ~= node1.name and
						 not source_chest and
						 mode ~= "inventory" then
							return
					end

					-- take stuff from chest
					if source_chest then
						local cmeta = minetest.get_meta(pos1)
						local inv = cmeta:get_inventory()
						local stack = ItemStack(prefer)

						-- prevent item stacks with more than 'stack_max' items
						if stack:get_count() > stack:get_stack_max() then
							stack:set_count(stack:get_stack_max())
						else
							stack:set_count(stack:get_count())
						end

						if inv:contains_item("main", stack) then
							inv:remove_item("main", stack)
						else
							return
						end
					end

					node1 = {}
					node1.name = prefer
				end

				-- doesnt know what to take out of chest/inventory
				if (prefer == "" and source_chest) then
					return
				end

				-- if target chest put in chest
				if target_chest then
					local cmeta = minetest.get_meta(pos2)
					local inv = cmeta:get_inventory()

					-- dig tree or cactus
					-- check for cactus or tree
					local count = 0
					-- digs up node as a tree
					local dig_up = false

					if dig then
						if not source_chest and
							 basic_machines.dig_up_table[node1.name] then
							dig_up = true
						end

						-- do we harvest the node? (only for mese crystals)
						if not source_chest then
							if basic_machines.harvest_table[node1.name] ~= nil then
								harvest = true

								local remains = basic_machines.harvest_table[node1.name][1]
								local result = basic_machines.harvest_table[node1.name][2]
								minetest.set_node(pos1,{name = remains})
								inv:add_item("main", result)
							end
						end

						-- dig up to 16 nodes
						if dig_up == true then
							local r = 1
							if node1.name == "default:cactus" or
								 node1.name == "default:papyrus" then
								r = 0
							end

							-- acacia trees grow wider than others
							if node1.name == "default:acacia_tree" then
								r = 2
							end

							local positions = minetest.find_nodes_in_area({x = pos1.x - r, y = pos1.y, z = pos1.z - r}, {x = pos1.x + r, y = pos1.y + 16, z = pos1.z + r}, node1.name)

							local def = minetest.registered_nodes[node1.name]
							local distance_ok = vector.distance(pos1, pos2) <= 16
							local texture = "default_dirt.png"

							-- try to find a node texture
							if def then
								if def.tiles then
									if #def.tiles > 0 then
										if type(def.tiles[1]) == "string" then
											texture = def.tiles[1]
										end
									end
								end
							end

							for _, pos3 in ipairs(positions) do
								minetest.set_node(pos3, {name = "air"})
								count = count + 1

								-- add particles only when not too far
								if distance_ok then
									minetest.add_particlespawner({
										amount = math.random(1, 3),
										time = 0.5,
										minpos = {x=pos3.x-0.7, y=pos3.y, z=pos3.z-0.7},
										maxpos = {x=pos3.x+0.7, y=pos3.y+0.75, z=pos3.z+0.7},
										minvel = {x = -0.5, y = -4, z = -0.5},
										maxvel = {x = 0.5,  y = -2, z = 0.5},
										minacc = {x = -0.5, y = -4, z = -0.5},
										maxacc = {x = 0.5,  y = -2, z = 0.5},
										minexptime = 0.5,
										maxexptime = 1,
										minsize = 0.5,
										maxsize = 2,
										collisiondetection = true,
										texture = texture
									})
								end
							end

							-- if tree or cactus was digged up
							inv:add_item("main", node1.name.." "..count - 1)
						end

						-- minetest drop code emulation
						if not harvest then
							local table = minetest.registered_items[node1.name]

							if table ~= nil then --put in chest
								if table.drop ~= nil then -- drop handling
									if table.drop.items then
										--handle drops better, emulation of drop code
										local max_items = table.drop.max_items or 0

										if max_items == 0 then -- just drop all the items (taking the rarity into consideration)
											max_items = #table.drop.items or 0
										end

										local drop = table.drop
										local i = 0

										for k, v in pairs(drop.items) do
											if i > max_items then
												break
											end

											i = i + 1

											local rare = v.rarity or 1

											if math.random(1, rare) == 1 then
												node1 = {}
												-- pick item randomly from list
												node1.name = v.items[math.random(1, #v.items)]
												inv:add_item("main",node1.name)
											end
										end
									else
										inv:add_item("main", table.drop)
									end
								else
									inv:add_item("main", node1.name)
								end
							end
						end

					-- if not dig just put it in
					else
						inv:add_item("main", node1.name)
					end
				end

				minetest.sound_play("transporter", {
					pos = pos2,
					gain = 1.0,
					max_hear_distance = 8
				})

				-- chest to chest transport has lower cost, *0.1
				if target_chest and source_chest then
					fuel_cost = fuel_cost * 0.1
				end

				fuel = fuel - fuel_cost
				meta:set_float("fuel", fuel)
				meta:set_string("infotext", "Mover block. Fuel "..fuel)

				-- transport nodes parallel as defined by source1 and target, clone with complete metadata
				if mode == "transport" then
					local meta1 = minetest.get_meta(pos1):to_table()

					minetest.set_node(pos2, minetest.get_node(pos1))
					minetest.get_meta(pos2):from_table(meta1)
					minetest.set_node(pos1,{name = "air"})
					minetest.get_meta(pos1):from_table(nil)

					return
				end

				-- REMOVE DIGGED NODE
				if not target_chest then
					if not drop then
						-- get node (seed) table definition
						local def = minetest.registered_nodes[node1.name]
						local name_parts = node1.name:split(":")

						-- create pointed_thing table
						local pointed_thing = {
							type = "node",
							above = {
								y = pos2.y,
								x = pos2.x,
								z = pos2.z
							},
							under = {
								y = pos2.y - 1,
								x = pos2.x,
								z = pos2.z
							}
						}

						-- create ItemStack table
						local stack = ItemStack(node1.name)
						local placer = minetest.get_player_by_name(owner)

						-- use default behaviour on_place if found in def
						if def and
							 def.on_place and
							 placer ~= nil and
							 (name_parts[1] == "farming" or name_parts[1] == "farming_addons" ) then

							def.on_place(stack, placer, pointed_thing)

							-- add particles only when not too far
							if vector.distance(pos1, pos2) <= 16 then
								local texture = "default_dirt.png"

								-- try to find a node texture
								if def.tiles then
									if #def.tiles > 0 then
										if type(def.tiles[1]) == "string" then
											texture = def.tiles[1]
										end
									end
								end

								minetest.add_particlespawner({
									amount = math.random(3, 6),
									time = 0.5,
									minpos = {x=pos2.x-0.7, y=pos2.y, z=pos2.z-0.7},
									maxpos = {x=pos2.x+0.7, y=pos2.y+0.75, z=pos2.z+0.7},
									minvel = {x = -0.5, y = -4, z = -0.5},
									maxvel = {x = 0.5,  y = -2, z = 0.5},
									minacc = {x = -0.5, y = -4, z = -0.5},
									maxacc = {x = 0.5,  y = -2, z = 0.5},
									minexptime = 0.5,
									maxexptime = 1,
									minsize = 0.5,
									maxsize = 2,
									collisiondetection = true,
									texture = texture
								})
							end

						-- on_place not found in def - use set_node instead
						else
							minetest.set_node(pos2, {name = node1.name})

							if def then
								-- add particles only when not too far
								if vector.distance(pos1, pos2) <= 16 then
									local texture = "default_dirt.png"

									-- try to find a node texture
									if def.tiles then
										if #def.tiles > 0 then
											if type(def.tiles[1]) == "string" then
												texture = def.tiles[1]
											end
										end
									end

									minetest.add_particlespawner({
										amount = math.random(3, 6),
										time = 0.5,
										minpos = {x=pos2.x-0.7, y=pos2.y, z=pos2.z-0.7},
										maxpos = {x=pos2.x+0.7, y=pos2.y+0.75, z=pos2.z+0.7},
										minvel = {x = -0.5, y = -4, z = -0.5},
										maxvel = {x = 0.5,  y = -2, z = 0.5},
										minacc = {x = -0.5, y = -4, z = -0.5},
										maxacc = {x = 0.5,  y = -2, z = 0.5},
										minexptime = 0.5,
										maxexptime = 1,
										minsize = 0.5,
										maxsize = 2,
										collisiondetection = true,
										texture = texture
									})
								end
							end

						end
					end

					if drop then
						local stack = ItemStack(node1.name)
						-- drops it
						minetest.add_item(pos2,stack)
					end
				end

				if not (source_chest) and not (harvest) then
					if dig then
						minetest.check_for_falling(pos1)
					end
					local def = minetest.registered_nodes[node1.name]

					minetest.set_node(pos1, {name = "air"})

					if def then
						-- add particles only when not too far
						if vector.distance(pos1, pos2) <= 16 then
							local texture = "default_dirt.png"

							-- try to find a node texture
							if def.tiles then
								if #def.tiles > 0 then
									if type(def.tiles[1]) == "string" then
										texture = def.tiles[1]
									end
								end
							end

							minetest.add_particlespawner({
								amount = math.random(3, 6),
								time = 0.5,
								minpos = {x=pos1.x-0.5, y=pos1.y, z=pos1.z-0.5},
								maxpos = {x=pos1.x+0.5, y=pos1.y+0.75, z=pos1.z+0.5},
								minvel = {x = -0.5, y = -4, z = -0.5},
								maxvel = {x = 0.5,  y = -2, z = 0.5},
								minacc = {x = -0.5, y = -4, z = -0.5},
								maxacc = {x = 0.5,  y = -2, z = 0.5},
								minexptime = 0.5,
								maxexptime = 1,
								minsize = 0.5,
								maxsize = 2,
								collisiondetection = true,
								texture = texture
							})
						end
					end

				end
			end, -- /action_on - mover

			-- this toggles reverse option of mover
			action_off = function(pos, node,ttl)
				if type(ttl) ~= "number" then
					ttl = 1
				end

				local meta = minetest.get_meta(pos)
				local mreverse = meta:get_int("reverse")
				local mode = meta:get_string("mode")

				-- reverse switching is not very helpful when auto harvest trees for example
				if mode ~= "dig" then
					if mreverse == 1 then
						mreverse = 0
					elseif mreverse == 0 then
						mreverse = 1
					end

					meta:set_int("reverse", mreverse)
				end
			end
		} -- /effector - mover
	}
}) -- /mover - register_node

-- KEYPAD --

local function use_keypad(pos,ttl, again) -- position, time to live ( how many times can signal travel before vanishing to prevent infinite recursion ), do we want to activate again

	if ttl<0 then return end;
	local meta = minetest.get_meta(pos);

	local t0 = meta:get_int("t");
	local t1 = minetest.get_gametime();
	local T = meta:get_int("T"); -- temperature

	if t0>t1-machines_minstep then -- activated before natural time
		T=T+1;
	else
		if T>0 then
			T=T-1
			if t1-t0>5 then T = 0 end
		end
	end
	meta:set_int("T",T);
	meta:set_int("t",t1); -- update last activation time

	if T > 2 then -- overheat
			minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
			meta:set_string("infotext","overheat: temperature ".. T)
			return
	end


	local name =  meta:get_string("owner");
	if minetest.is_protected(pos,name) then meta:set_string("infotext", "Protection fail. reset."); meta:set_int("count",0); return end
	local count = meta:get_int("count") or 0; -- counts how many repeats left

	local repeating = meta:get_int("repeating");

	if repeating==1 and again~=1 then
		-- stop it
		meta:set_int("repeating",0);
		meta:set_int("count", 0)
		meta:set_int("T",4);
		meta:set_string("infotext", "#KEYPAD: reseting. Punch again after 5s to activate")
		return;
	end



	if count>0 then -- this is keypad repeating its activation
		count = count - 1; meta:set_int("count",count);
	else
		meta:set_int("repeating",0);
		--return
	end

	if count>=0 then
		meta:set_string("infotext", "Keypad operation: ".. count .." cycles left")
	else
		meta:set_string("infotext", "Keypad operation: activation ".. -count)
	end

	if count>0 then -- only trigger repeat if count on
			if repeating == 0 then meta:set_int("repeating",1); end-- its repeating now
			if basic_machines.clockgen==0 then return end
			minetest.after(machines_timer, function()
				use_keypad(pos,machines_TTL,1)
			end )

	end

	local x0,y0,z0,mode;
	x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");
	x0=pos.x+x0;y0=pos.y+y0;z0=pos.z+z0;
	mode = meta:get_int("mode");

	-- pass the signal on to target, depending on mode

	local tpos = {x=x0,y=y0,z=z0}; -- target position
	local node = minetest.get_node(tpos);if not node.name then return end -- error
	local text = meta:get_string("text");

	if text ~= "" then -- TEXT MODE; set text on target
		if text == "@" then -- keyboard mode, set text from input
			text = meta:get_string("input") or "";
			meta:set_string("input",""); -- clear input again
		end

		local bit = string.byte(text);
		if bit == 33 then -- if text starts with !, then we send chat text to all nearby players, radius 5
			text = string.sub(text,2) ; if not text or text == "" then return end
			local players = minetest.get_connected_players();
			for _,player in pairs(players) do
				local pos1 = player:getpos();
				local dist = math.sqrt((pos1.x-tpos.x)^2 + (pos1.y-tpos.y)^2 + (pos1.z-tpos.z)^2 );
				if dist<=5 then
					minetest.chat_send_player(player:get_player_name(), text)
				end
			end
			return
		elseif bit == 36 then-- text starts with $, play sound
			text = string.sub(text,2) ; if not text or text == "" then return end
			minetest.sound_play(text, {pos=pos,gain=1.0,max_hear_distance = 16,})
		end

		local tmeta = minetest.get_meta(tpos);if not tmeta then return end

		if basic_machines.signs[node.name] then -- update text on signs with signs_lib
			tmeta:set_string("infotext", text);
			tmeta:set_string("text",text);
			local table = minetest.registered_nodes[node.name];
			if not table.on_punch then return end -- error
			if signs_lib and signs_lib.update_sign then
				--signs_lib.update_sign(pos)
				table.on_punch(tpos, node, nil); -- warning - this can cause problems if no signs_lib installed
			end

			return
		end

		-- target is keypad, special functions: @, % that output to target keypad text
		if node.name == "basic_machines:keypad" then -- special modify of target keypad text and change its target

			x0=tmeta:get_int("x0");y0=tmeta:get_int("y0");z0=tmeta:get_int("z0");
			x0=tpos.x+x0;y0=tpos.y+y0;z0=tpos.z+z0;
			tpos = {x=x0,y=y0,z=z0};

			if string.byte(text) == 64 then -- target keypad's text starts with @ ( ascii code 64) -> character replacement
				text = string.sub(text,2); if not text or text == "" then return end
				--read words[j] from blocks above keypad:
				local j=0;
				text = string.gsub(text, "@",
					function()
						j=j+1;
						return minetest.get_meta({x=pos.x,y=pos.y+j,z=pos.z}):get_string("infotext")
					end
				) ; -- replace every @ in ttext with string on blocks above

				-- set target keypad's text
				--tmeta = minetest.get_meta(tpos);if not tmeta then return end
				tmeta:set_string("text", text);
			elseif string.byte(text) == 37 then -- target keypad's text starts with % ( ascii code 37) -> word extraction

				local ttext = minetest.get_meta({x=pos.x,y=pos.y+1,z=pos.z}):get_string("infotext")
				local i = basic_machines.tonumber(string.sub(text,2,2)) or 1; --read the number following the %
				--extract i-th word from text
				 local j = 0;
				 for word in string.gmatch(ttext, "%S+") do
					j=j+1; if j == i then text = word; break; end
				 end

				-- set target keypad's target's text
				--tmeta = minetest.get_meta(tpos); if not tmeta then return end
				tmeta:set_string("text", text);
			else

				if string.byte(text) == 64 then -- if text starts with @ clear target keypad text
					tmeta:set_string("text","");
					return
				end
				-- just set text..
				--tmeta = minetest.get_meta(tpos); if not tmeta then return end
				tmeta:set_string("infotext", text);
			end
			return
		end

		if node.name == "basic_machines:detector" then -- change filter on detector
			if string.byte(text) == 64 then -- if text starts with @ clear the filter
				tmeta:set_string("node","");
			else
				-- prevent item stacks with more than 'stack_max' items
				local textstack = ItemStack(text)
				if textstack:get_count() > textstack:get_stack_max() then
					textstack:set_count(textstack:get_stack_max())
				else
					textstack:set_count(textstack:get_count())
				end

				tmeta:set_string("node", textstack:to_string());
			end
			return
		end

		if node.name == "basic_machines:mover" then -- change filter on mover
			if string.byte(text) == 64 then -- if text starts with @ clear the filter
				tmeta:set_string("prefer","");
			else
				-- prevent item stacks with more than 'stack_max' items
				local textstack = ItemStack(text)
				if textstack:get_count() > textstack:get_stack_max() then
					textstack:set_count(textstack:get_stack_max())
				else
					textstack:set_count(textstack:get_count())
				end

				tmeta:set_string("prefer", textstack:to_string());
			end
			return
		end

		if node.name == "basic_machines:distributor" then
			local i = string.find(text," ");
			if i then
				local ti = basic_machines.tonumber(string.sub(text,1,i-1)) or 1;
				local tm = basic_machines.tonumber(string.sub(text,i+1)) or 1;
				if ti>=1 and ti<=16 and tm>=-2 and tm<=2 then
					tmeta:set_int("active"..ti,tm)
				end
			end
		return
		end

		tmeta:set_string("infotext", text); -- else just set text
	end


	--activate target
	local table = minetest.registered_nodes[node.name];
	if not table then return end -- error
	if not table.mesecons then return end -- error
	if not table.mesecons.effector then return end -- error
	local effector=table.mesecons.effector;

	if mode == 3 then -- keypad in toggle mode
		local state = meta:get_int("state") or 0;state = 1-state; meta:set_int("state",state);
		if state == 0 then mode = 1 else mode = 2 end
	end
	-- pass the signal on to target

	if mode == 2 then -- on
		if not effector.action_on then return end
		effector.action_on(tpos,node,ttl-1); -- run
	elseif mode == 1 then -- off
		if not effector.action_off then return end
		effector.action_off(tpos,node,ttl-1); -- run
	end

end

local function check_keypad(pos,name,ttl) -- called only when manually activated via punch
	local meta = minetest.get_meta(pos);
	local pass =  meta:get_string("pass");
	if pass == "" then
		local iter = meta:get_int("iter");
		local count = meta:get_int("count");
		if count<iter-1 or iter<2 then meta:set_int("active_repeats",0) end -- so that keypad can work again, at least one operation must have occured though
		meta:set_int("count",iter); use_keypad(pos,machines_TTL,0) -- time to live set when punched
		return
	end
	if name == "" then return end

	if meta:get_string("text") == "@" then -- keypad works as a keyboard
		local form  =
		"size[3,1]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"field[0.25,0.25;3,1;pass;Enter text: ;".."".."] button_exit[0.,0.5;1,1;OK;OK]";
		minetest.show_formspec(name, "basic_machines:check_keypad_"..minetest.pos_to_string(pos), form)
		return
	end

	pass = ""
	local form  =
		"size[3,1.25]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"field[0.25,0.25;3,1;pass;Enter Password: ;".."".."] button_exit[0.,0.75;1,1;OK;OK]";
		minetest.show_formspec(name, "basic_machines:check_keypad_"..minetest.pos_to_string(pos), form)
	return
end

minetest.register_node("basic_machines:keypad", {
	description = "Keypad - basic way to activate machines by sending signal",
	tiles = {"keypad.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_metal_defaults(),
	after_place_node = function(pos, placer)
		local meta = minetest.env:get_meta(pos)
		meta:set_string("infotext", "Keypad. Right click to set it up or punch it. Set any password and text \"@\" to work as keyboard.")
		meta:set_string("owner", placer:get_player_name()); meta:set_int("public",1);
		meta:set_int("x0",0);meta:set_int("y0",0);meta:set_int("z0",0); -- target

		meta:set_string("pass", "");meta:set_int("mode",2); -- pasword, mode of operation
		meta:set_int("iter",1);meta:set_int("count",0); -- how many repeats to do, current repeat count
		local name = placer:get_player_name();punchset[name] =  {};punchset[name].state = 0
	end,

	mesecons = {effector = {
		action_on = function (pos, node,ttl)
		if type(ttl)~="number" then ttl = 1 end
		if ttl<0 then return end -- machines_TTL prevents infinite recursion
		use_keypad(pos,0,0) -- activate just 1 time
	end
	}
	},
	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
		local meta = minetest.get_meta(pos);
		local privs = minetest.get_player_privs(player:get_player_name());
		local cant_build = minetest.is_protected(pos,player:get_player_name());
		--meta:get_string("owner")~=player:get_player_name() and
		if not privs.privs and cant_build then
			return
		end -- only  ppl sharing protection can set up keypad
		local x0,y0,z0,x1,y1,z1,pass,iter,mode;
		x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");iter=meta:get_int("iter") or 1;
		local text = meta:get_string("text") or "";
		mode = meta:get_int("mode") or 1;

		machines.pos1[player:get_player_name()] = {x=pos.x+x0,y=pos.y+y0,z=pos.z+z0};machines.mark_pos1(player:get_player_name()) -- mark pos1

		pass = meta:get_string("pass");
		local form  =
		"size[4.25,3.75]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"field[2.25,0.25;2.25,1;pass;Password: ;"..pass.."]" ..
		"field[0.25,2.5;3.25,1;text;text;".. text .."]" ..
		"field[0.25,0.25;1,1;mode;mode;"..mode.."]".. "field[1.25,0.25;1,1;iter;repeat;".. iter .."]"..

		"label[0.,0.75;".. minetest.colorize("lawngreen","MODE: 1=OFF/2=ON/3=TOGGLE").."]"..
		"field[0.25,3.5;1,1;x0;target;"..x0.."] field[1.25,3.5;1,1;y0;;"..y0.."] field[2.25,3.5;1,1;z0;;"..z0.."]"..
		"button_exit[3.25,3.25;1,1;help;help] button_exit[3.25,2.25;1,1;OK;OK]"



		;
		-- if meta:get_string("owner")==player:get_player_name() then
			minetest.show_formspec(player:get_player_name(), "basic_machines:keypad_"..minetest.pos_to_string(pos), form)
		-- else
			-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_keypad", form)
		-- end
	end
})



-- DETECTOR --

minetest.register_node("basic_machines:detector", {
	description = "Detector - can detect blocks/players/objects and activate machines",
	tiles = {"detector.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_metal_defaults(),
	after_place_node = function(pos, placer)
		local meta = minetest.env:get_meta(pos)
		meta:set_string("infotext", "Detector. Right click/punch to set it up.")
		meta:set_string("owner", placer:get_player_name()); meta:set_int("public",0);
		meta:set_int("x0",0);meta:set_int("y0",0);meta:set_int("z0",0); -- source1: read
		meta:set_int("x1",0);meta:set_int("y1",0);meta:set_int("z1",0); -- source1: read
		meta:set_int("x2",0);meta:set_int("y2",1);meta:set_int("z2",0); -- target: activate
		meta:set_int("r",0)
		meta:set_string("node","");meta:set_int("NOT",2);
		meta:set_string("mode","node");
		meta:set_int("public",0);
		meta:set_int("state",0);

		local inv = meta:get_inventory();inv:set_size("mode_select", 3*1)
		inv:set_stack("mode_select", 1, ItemStack("default:coal_lump"))
		local name = placer:get_player_name();punchset[name] =  {}; punchset[name].node = "";	punchset[name].state = 0
	end,

	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
		local meta = minetest.get_meta(pos);
		local privs = minetest.get_player_privs(player:get_player_name());

		local cant_build = minetest.is_protected(pos,player:get_player_name());
		--meta:get_string("owner")~=player:get_player_name() and
		if not privs.privs  and cant_build then
			return
		end

		local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT,mode,op;
		x0=meta:get_int("x0");y0=meta:get_int("y0");z0=meta:get_int("z0");
		x1=meta:get_int("x1");y1=meta:get_int("y1");z1=meta:get_int("z1");
		x2=meta:get_int("x2");y2=meta:get_int("y2");z2=meta:get_int("z2");r=meta:get_int("r");
		mode=meta:get_string("mode"); op = meta:get_string("op");
		local mode_list = {["node"]=1,["player"]=2,["object"]=3,["inventory"]=4, ["infotext"] = 5,  ["light"]=6};
		mode = mode_list[mode] or 1;
		local op_list = {[""]=1,["AND"]=2,["OR"]=3};
		op = op_list[op] or 1;


		machines.pos1[player:get_player_name()] = {x=pos.x+x0,y=pos.y+y0,z=pos.z+z0};machines.mark_pos1(player:get_player_name()) -- mark pos1
		machines.pos11[player:get_player_name()] = {x=pos.x+x1,y=pos.y+y1,z=pos.z+z1};machines.mark_pos11(player:get_player_name()) -- mark pos11
		machines.pos2[player:get_player_name()] = {x=pos.x+x2,y=pos.y+y2,z=pos.z+z2};machines.mark_pos2(player:get_player_name()) -- mark pos2

		local inv1=1;
		local inv1m = meta:get_string("inv1");
		local meta1=minetest.get_meta({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0});
		local list1 = meta1:get_inventory():get_lists(); local inv_list1 = ""; local j;
		j=1; -- stupid dropdown requires item index but returns string on receive so we have to find index.. grrr, one other solution: invert the table: key <-> value

		for i in pairs( list1) do
			inv_list1 = inv_list1 .. i .. ",";
			if i == inv1m then inv1=j end; j=j+1;
		end

		node=meta:get_string("node") or "";
		NOT=meta:get_int("NOT");
		local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
		local form  =
		"size[4,6.25]" ..  -- width, height
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		"field[0.25,0.5;1,1;x0;source1;"..x0.."] field[1.25,0.5;1,1;y0;;"..y0.."] field[2.25,0.5;1,1;z0;;"..z0.."]"..
		"dropdown[3,0.25;1,1;op; ,AND,OR;".. op .."]"..
		"field[0.25,1.5;1,1;x1;source2;"..x1.."] field[1.25,1.5;1,1;y1;;"..y1.."] field[2.25,1.5;1,1;z1;;"..z1.."]"..
		"field[0.25,2.5;1,1;x2;target;"..x2.."] field[1.25,2.5;1,1;y2;;"..y2.."] field[2.25,2.5;1,1;z2;;"..z2.."]"..
		"field[0.25,3.5;2,1;node;Node/player/object: ;"..node.."]".."field[3.25,2.5;1,1;r;radius;"..r.."]"..
		"dropdown[0,4.5;3,1;mode;node,player,object,inventory,infotext,light;".. mode .."]"..
		"dropdown[0,5.5;3,1;inv1;"..inv_list1..";".. inv1 .."]"..
		"label[0.,4.0;" .. minetest.colorize("lawngreen", "MODE selection") .. "]"..
		"label[0.,5.2;inventory selection]"..
		"field[2.25,3.5;2,1;NOT;filter out -2/-1/0/1/2/3/4;"..NOT.."]"..
		"button[3.,4.4;1,1;help;help] button_exit[3.,5.4;1,1;OK;OK] "

		--if meta:get_string("owner")==player:get_player_name() then
			minetest.show_formspec(player:get_player_name(), "basic_machines:detector_"..minetest.pos_to_string(pos), form)
		-- else
			-- minetest.show_formspec(player:get_player_name(), "view_only_basic_machines_detector", form)
		-- end
	end,

	allow_metadata_inventory_put = function(pos, listname, index, stack, player)

		if minetest.is_protected(pos, player:get_player_name()) then
			minetest.record_protection_violation(pos, player:get_player_name())
			return 0
		end

		return 0
	end,

	allow_metadata_inventory_take = function(pos, listname, index, stack, player)

		if minetest.is_protected(pos, player:get_player_name()) then
			minetest.record_protection_violation(pos, player:get_player_name())
			return 0
		end

		return 0
	end,

	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		local meta = minetest.get_meta(pos);
		local mode = "node";
		if to_index == 2 then
			mode = "player";
			meta:set_int("r",math.max(meta:get_int("r"),1))
		end
		if to_index == 3 then
			mode = "object";
			meta:set_int("r",math.max(meta:get_int("r"),1))
		end
		meta:set_string("mode",mode)
		minetest.chat_send_player(player:get_player_name(), "DETECTOR: Mode of operation set  to: "..mode)
		return count
	end,

	mesecons = {effector = {
		action_on = function (pos, node,ttl)
			if ttl<0 then return end

			local meta = minetest.get_meta(pos);

			local t0 = meta:get_int("t");
			local t1 = minetest.get_gametime();
			local T = meta:get_int("T"); -- temperature

			if t0>t1-machines_minstep then -- activated before natural time
				T=T+1;
			else
				if T>0 then T=T-1 end
			end
			meta:set_int("T",T);
			meta:set_int("t",t1); -- update last activation time

			if T > 2 then -- overheat
					minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
					meta:set_string("infotext","overheat: temperature ".. T)
					return
			end


			local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT,mode,op;
			x0=meta:get_int("x0")+pos.x;y0=meta:get_int("y0")+pos.y;z0=meta:get_int("z0")+pos.z;
			x2=meta:get_int("x2")+pos.x;y2=meta:get_int("y2")+pos.y;z2=meta:get_int("z2")+pos.z;

			r = meta:get_int("r") or 0; NOT = meta:get_int("NOT")
			node=meta:get_string("node") or ""; mode=meta:get_string("mode") or ""; op = meta:get_string("op") or "";

			local trigger = false
			local detected_obj = "";

			if mode == "node" then
				local tnode = minetest.get_node({x=x0,y=y0,z=z0}).name; -- read node at source position
				detected_obj = tnode;

				if node~="" and string.find(tnode,"default:chest") then -- if source is chest, look inside chest for items
					local cmeta = minetest.get_meta({x=x0,y=y0,z=z0});
					local inv = cmeta:get_inventory();
					local stack = ItemStack(node)
					if inv:contains_item("main", stack) then trigger = true end
				else -- source not a chest
					if (node=="" and tnode~="air") or node == tnode then trigger = true end
					if r>0 and node~="" then
						local found_node = minetest.find_node_near({x=x0, y=y0, z=z0}, r, {node})
						if node ~= "" and found_node then trigger = true end
					end
				end

				-- operation: AND, OR... look at other source position too
				if op~= "" then
					local trigger1 = false;
					x1=meta:get_int("x1")+pos.x;y1=meta:get_int("y1")+pos.y;z1=meta:get_int("z1")+pos.z;
					tnode = minetest.get_node({x=x1,y=y1,z=z1}).name; -- read node at source position

					if node~="" and string.find(tnode,"default:chest") then -- it source is chest, look inside chest for items
						local cmeta = minetest.get_meta({x=x1,y=y1,z=z1});
						local inv = cmeta:get_inventory();
						local stack = ItemStack(node)
						if inv:contains_item("main", stack) then trigger1 = true end
					else -- source not a chest
						if (node=="" and tnode~="air") or node == tnode then trigger1 = true end
						if r>0 and node~="" then
							local found_node = minetest.find_node_near({x=x0, y=y0, z=z0}, r, {node})
							if node ~= "" and found_node then trigger1 = true end
						end
					end
					if op == "AND" then
						trigger = trigger and trigger1;
					elseif op == "OR" then
						trigger = trigger or trigger1;
					end
				end

			elseif mode=="inventory" then
				local cmeta = minetest.get_meta({x = x0, y = y0, z = z0})
				local inv = cmeta:get_inventory()
				local stack = ItemStack(node)
				local inv1m =meta:get_string("inv1")

				-- if there is item report name and trigger
				if node == "" then

					if inv:is_empty(inv1m) then
						trigger = false
					-- nonempty
					else
						trigger = true
						local size = inv:get_size(inv1m)

						-- find item to move in inventory
						for i = 1, size do
							local stack = inv:get_stack(inv1m, i)
							if not stack:is_empty() then
								detected_obj = stack:to_string()
								break
							end
						end
					end

				-- node name was set
				else
					local stack = ItemStack(node);
					if inv:contains_item(inv1m, stack) then trigger = true end
				end
			elseif mode == "infotext" then
				local cmeta = minetest.get_meta({x=x0,y=y0,z=z0});
				detected_obj = cmeta:get_string("infotext");
				if detected_obj == node or node =="" then trigger = true end
			elseif mode == "light" then
				detected_obj=minetest.get_node_light({x=x0,y=y0,z=z0}) or 0;
				if detected_obj>=(basic_machines.tonumber(node) or 0) or node == "" then trigger = true end
			else -- players/objects
				local objects = minetest.get_objects_inside_radius({x=x0,y=y0,z=z0}, r)
				local player_near=false;
				for _,obj in pairs(objects) do
					if mode == "player" then
						if obj:is_player() then

							player_near = true
							detected_obj = obj:get_player_name();
							if (node=="" or detected_obj==node) then
								trigger = true break
							end

						end;
					elseif mode == "object" and not obj:is_player() then
						if obj:get_luaentity() then
							detected_obj = obj:get_luaentity().itemstring or "";
							if detected_obj == "" then
								detected_obj = obj:get_luaentity().name or ""
							end

							if detected_obj==node then trigger=true break end
						end
						if node=="" then trigger = true break end
					end
				end

				if node~="" and NOT==-1 and not(trigger) and not(player_near) and mode == "player" then
					trigger = true
				end-- name specified, but noone around and negation -> 0

			end

			-- negation and output filtering
			local state = meta:get_int("state");


			if NOT ==  1 then -- just go on normally
				-- -2: only false, -1: NOT, 0: no signal, 1: normal signal: 2: only true
				elseif NOT == -1 then trigger = not trigger -- NEGATION
				elseif NOT == -2 and trigger then return -- ONLY FALSE
				elseif NOT == 0 then return -- do nothing
				elseif NOT == 2 and not trigger then return  -- ONLY TRUE
				elseif NOT == 3 and ((trigger and state == 1) or (not trigger and state == 0)) then return -- no change of state
			end

			local nstate;
			if trigger then nstate = 1 else nstate=0 end -- next detector output state
			if nstate~=state then meta:set_int("state",nstate) end -- update state if changed


			local node = minetest.get_node({x=x2,y=y2,z=z2});if not node.name then return end -- error
			local table = minetest.registered_nodes[node.name];
			if not table then return end -- error
			if not table.mesecons then return end -- error
			if not table.mesecons.effector then return end -- error
			local effector=table.mesecons.effector;

			if trigger then -- activate target node if succesful
				meta:set_string("infotext", "detector: on");
				if not effector.action_on then return end
				if NOT == 4 then -- set detected object name as target text (target must be keypad, if not changes infotext)
					if minetest.get_node({x=x2,y=y2,z=z2}).name == "basic_machines:keypad" then
						detected_obj = detected_obj or "";
						local tmeta = minetest.get_meta({x=x2,y=y2,z=z2});
						tmeta:set_string("text",detected_obj);
					end
				end
				effector.action_on({x=x2,y=y2,z=z2},node,ttl-1); -- run
			else
				meta:set_string("infotext", "detector: off");
				if not effector.action_off then return end
				effector.action_off({x=x2,y=y2,z=z2},node,ttl-1); -- run
			end
		end
		}
	}
})


-- minetest.register_chatcommand("clockgen", { -- test: toggle machine running with clockgens, useful for debugging
-- -- i.e. seeing how machines running affect server performance
-- 	description = "",
-- 	privs = {
-- 		interact = true
-- 	},
-- 	func = function(name, param)
-- 		local privs = minetest.get_player_privs(name);
-- 		if not privs.privs then return end
-- 		local player = minetest.get_player_by_name(name);
-- 		if basic_machines.clockgen == 0 then basic_machines.clockgen = 1 else basic_machines.clockgen = 0 end
-- 		minetest.chat_send_player(name, "#clockgen set to " .. basic_machines.clockgen);
-- 	end
-- })


-- CLOCK GENERATOR : periodically activates machine on top of it
minetest.register_abm({
	nodenames = {"basic_machines:clockgen"},
	neighbors = {""},
	interval = machines_timer,
	chance = 1,

	action = function(pos, node, active_object_count, active_object_count_wider)
		if basic_machines.clockgen == 0 then return end
		local meta = minetest.get_meta(pos);
		local machines = meta:get_int("machines");
		if machines~=1 then -- no machines privilege
			if not minetest.get_player_by_name(meta:get_string("owner")) then -- owner not online
				return
			end
		end

		pos.y=pos.y+1;
		node = minetest.get_node(pos);if not node.name or node.name == "air" then return end
		local table = minetest.registered_nodes[node.name];
		if table and table.mesecons and table.mesecons.effector then -- check if all elements exist, safe cause it checks from left to right
			else return
		end
		local effector=table.mesecons.effector;
		if effector.action_on then
			effector.action_on(pos,node,machines_TTL);
		end
	end
	});

minetest.register_node("basic_machines:clockgen", {
	description = "Clock generator - use sparingly, continually activates top block",
	tiles = {"basic_machine_clock_generator.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_metal_defaults(),
	after_place_node = function(pos, placer)
		local meta =  minetest.get_meta(pos);
		local owner = placer:get_player_name() or "";
		local privs = minetest.get_player_privs(owner);
		if privs.machines then meta:set_int("machines",1) end

		meta:set_string("owner",owner);
		meta:set_string("infotext","clock generator (owned by " .. owner .. "): place machine to be activated on top of generator");
	end
})



-- DISTRIBUTOR --
local get_distributor_form = function(pos,player)
	if not player then return end
	local meta = minetest.get_meta(pos);
	local privs = minetest.get_player_privs(player:get_player_name());
	local cant_build = minetest.is_protected(pos,player:get_player_name());
	--meta:get_string("owner")~=player:get_player_name() and
	if not privs.privs and cant_build then
		return
	end

	local p = {}; local active = {};
	local n = meta:get_int("n");
	local delay = meta:get_float("delay");
	for i =1,n do
		p[i]={x=meta:get_int("x"..i),y=meta:get_int("y"..i),z=meta:get_int("z"..i)};
		active[i]=meta:get_int("active"..i);
	end

	local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
	local form  =
	"size[7,"..(0.75+(n)*0.75).."]" ..  -- width, height
	default.gui_bg..
	default.gui_bg_img..
	default.gui_slots..
	"label[0,-0.25;" .. minetest.colorize("lawngreen","target: x y z, MODE -2=only OFF, -1=NOT input/0/1=input, 2 = only ON") .. "]";
	for i =1,n do
		form = form.."field[0.25,"..(0.5+(i-1)*0.75)..";1,1;x"..i..";;"..p[i].x.."] field[1.25,"..(0.5+(i-1)*0.75)..";1,1;y"..i..";;"..p[i].y.."] field[2.25,"..(0.5+(i-1)*0.75)..";1,1;z"..i..";;"..p[i].z.."] field [ 3.25,"..(0.5+(i-1)*0.75)..";1,1;active"..i..";;" .. active[i] .. "]"
		form = form .. "button[4.,"..(0.25+(i-1)*0.75)..";1.5,1;SHOW"..i..";SHOW "..i.."]".."button_exit[5.25,"..(0.25+(i-1)*0.75)..";1,1;SET"..i..";SET]".."button[6.25,"..(0.25+(i-1)*0.75)..";1,1;X"..i..";X]"
	end

	form=form.."button_exit[4.25,"..(0.25+(n)*0.75)..";1,1;ADD;ADD]".."button_exit[3.,"..(0.25+(n)*0.75)..";1,1;OK;OK]".."field[0.25,"..(0.5+(n)*0.75)..";1,1;delay;delay;"..delay .. "]";
	form = form.."button[6.25,"..(0.25+(n)*0.75)..";1,1;help;help]";
	return form
end


minetest.register_node("basic_machines:distributor", {
	description = "Distributor - can forward signal up to 16 different targets",
	tiles = {"distributor.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_wood_defaults(),
	after_place_node = function(pos, placer)
		local meta = minetest.env:get_meta(pos)
		meta:set_string("infotext", "Distributor. Right click/punch to set it up.")
		meta:set_string("owner", placer:get_player_name()); meta:set_int("public",0);
		for i=1,10 do
			meta:set_int("x"..i,0);meta:set_int("y"..i,1);meta:set_int("z"..i,0);meta:set_int("active"..i,1) -- target i
		end
		meta:set_int("n",2); -- how many targets initially
		meta:set_float("delay",0); -- delay when transmitting signal


		meta:set_int("public",0); -- can other ppl set it up?
		local name = placer:get_player_name();punchset[name] =  {}; punchset[name].node = "";	punchset[name].state = 0
	end,

	mesecons = {effector = {
		action_on = function (pos, node,ttl)
			if type(ttl)~="number" then ttl = 1 end
			if not(ttl>0) then return end
			local meta = minetest.get_meta(pos);

			local t0 = meta:get_int("t");
			local t1 = minetest.get_gametime();
			local T = meta:get_int("T"); -- temperature

			if t0>t1-machines_minstep then -- activated before natural time
				T=T+1;
			else
				if T>0 then
					T=T-1
					if t1-t0>5 then T = 0 end -- reset temperature if more than 5s elapsed since last punch
				end

			end
			meta:set_int("T",T);
			meta:set_int("t",t1); -- update last activation time

			if T > 2 then -- overheat
					minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
					meta:set_string("infotext","overheat: temperature ".. T)
					return
			end

			local delay = minetest.get_meta(pos):get_float("delay");

			local activate = function()
				local posf = {}; local active = {};
				local n = meta:get_int("n");local delay = meta:get_float("delay");
				for i =1,n do
					posf[i]={x=meta:get_int("x"..i)+pos.x,y=meta:get_int("y"..i)+pos.y,z=meta:get_int("z"..i)+pos.z};
					active[i]=meta:get_int("active"..i);
				end

				local table,node;

				for i=1,n do
					if active[i]~=0 then
						node = minetest.get_node(posf[i]);if not node.name then return end -- error
						table = minetest.registered_nodes[node.name];

						if table and table.mesecons and table.mesecons.effector then -- check if all elements exist, safe cause it checks from left to right
							-- alternative way: overkill
							--ret = pcall(function() if not table.mesecons.effector then end end); -- exception handling to determine if structure exists

							local effector=table.mesecons.effector;
							local active_i = active[i];

							if (active_i == 1 or active_i == 2) and effector.action_on then -- normal OR only forward input ON
								effector.action_on(posf[i],node,ttl-1);
							elseif active_i == -1 and effector.action_off then
								effector.action_off(posf[i],node,ttl-1)
							end
						end

					end
				end
			end

			if delay>0 then
				minetest.after(delay, activate)
			elseif delay == 0 then
				activate()
			else -- delay <0 - do random activation: delay = -500 means 500/1000 chance to activate
				if math.random(1000)<=-delay then
					activate()
				end
			end

	end,

	action_off = function (pos, node,ttl)

			if type(ttl)~="number" then ttl = 1 end
			if not(ttl>0) then return end
			local meta = minetest.get_meta(pos);


			local t0 = meta:get_int("t");
			local t1 = minetest.get_gametime();
			local T = meta:get_int("T"); -- temperature

			if t0>t1-machines_minstep then -- activated before natural time
				T=T+1;
			else
				if T>0 then T=T-1 end
			end
			meta:set_int("T",T);
			meta:set_int("t",t1); -- update last activation time

			if T > 2 then -- overheat
					minetest.sound_play("default_cool_lava",{pos = pos, max_hear_distance = 16, gain = 0.25})
					meta:set_string("infotext","overheat: temperature ".. T)
					return
			end
			local delay = minetest.get_meta(pos):get_float("delay");

			local activate = function()
				local posf = {}; local active = {};
				local n = meta:get_int("n");
				for i =1,n do
					posf[i]={x=meta:get_int("x"..i)+pos.x,y=meta:get_int("y"..i)+pos.y,z=meta:get_int("z"..i)+pos.z};
					active[i]=meta:get_int("active"..i);
				end

				local node, table


				for i=1,n do
					if active[i]~=0 then
						node = minetest.get_node(posf[i]);if not node.name then return end -- error
						table = minetest.registered_nodes[node.name];
						if table and table.mesecons and table.mesecons.effector then
							local effector=table.mesecons.effector;
							if (active[i] == 1 or active[i]==-2) and effector.action_off then  -- normal OR only forward input OFF
								effector.action_off(posf[i],node,ttl-1);
							elseif (active[i] == -1) and effector.action_on then
								effector.action_on(posf[i],node,ttl-1);
							end
						end
					end
				end
			end

			if delay>0 then minetest.after(delay, activate) else activate() end

	end
	}
	},
	on_rightclick = function(pos, node, player, itemstack, pointed_thing)
		local form = get_distributor_form(pos,player)
		if form then minetest.show_formspec(player:get_player_name(), "basic_machines:distributor_"..minetest.pos_to_string(pos), form) end
	end,
	}
)


-- LIGHT --

minetest.register_node("basic_machines:light_off", {
	description = "Light off",
	tiles = {"light_off.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_glass_defaults(),
	mesecons = {effector = {
		action_on = function (pos, node,ttl)
			minetest.swap_node(pos,{name = "basic_machines:light_on"});
			local meta = minetest.get_meta(pos);
			local deactivate = meta:get_int("deactivate");

			if deactivate > 0 then
					--meta:set_int("active",0);
					minetest.after(deactivate,
						function()
							--if meta:get_int("active") ~= 1 then -- was not activated again, so turn it off
								minetest.swap_node(pos,{name = "basic_machines:light_off"}); -- turn off again
								--meta:set_int("active",0);
							--end
						end
					)
			end
			end
			}
	},
})


minetest.register_node("basic_machines:light_on", {
	description = "Light on",
	tiles = {"light.png"},
	groups = {cracky=3, mesecon_effector_on = 1},
	sounds = default.node_sound_glass_defaults(),
	paramtype = "light",
	light_source = LIGHT_MAX,
	after_place_node = function(pos, placer)
		local meta = minetest.get_meta(pos);
		local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
		local deactivate = meta:get_int("deactivate");
		local form  = "size[2,2]"..
			default.gui_bg..
			default.gui_bg_img..
			default.gui_slots..
			"field[0.25,0.5;2,1;deactivate;deactivate after ;"..deactivate.."]".."button_exit[0.,1;1,1;OK;OK]";
		meta:set_string("formspec", form);
	end,
	on_receive_fields = function(pos, formname, fields, player)

		if minetest.is_protected(pos, player:get_player_name()) then
			minetest.record_protection_violation(pos, player:get_player_name())
			return
		end

		if fields.deactivate then
			local meta = minetest.get_meta(pos);
			local deactivate = basic_machines.tonumber(fields.deactivate) or 0;
			if deactivate <0 or deactivate > 600 then deactivate = 0 end
			meta:set_int("deactivate",deactivate);
			local form  = "size[2,2]"..
			default.gui_bg..
			default.gui_bg_img..
			default.gui_slots..
			"field[0.25,0.5;2,1;deactivate;deactivate after ;"..deactivate.."]".."button_exit[0.,1;1,1;OK;OK]";
			meta:set_string("formspec", form);
		end

		end,

	mesecons = {effector = {
		action_off = function (pos, node,ttl)
			minetest.swap_node(pos,{name = "basic_machines:light_off"});
		end,
		action_on = function (pos, node,ttl)
			local meta = minetest.get_meta(pos);
			local count = basic_machines.tonumber(meta:get_string("infotext")) or 0;
			meta:set_string("infotext",count+1); -- increase activate count
		end
				}
	},

})



punchset.known_nodes = {["basic_machines:mover"]=true,["basic_machines:keypad"]=true,["basic_machines:detector"]=true};

-- SETUP BY PUNCHING
minetest.register_on_punchnode(function(pos, node, puncher, pointed_thing)

	-- STRANGE PROBLEM: if player doesnt move it takes another punch at same block for this function to run again, and it works normally if player moved at least one block from his previous position
	-- it only happens with keypad - maybe caused by formspec displayed..

	local name = puncher:get_player_name(); if name==nil then return end
	if punchset[name]== nil then  -- set up punchstate
		punchset[name] = {}
		punchset[name].node = ""
		punchset[name].pos1 = {x=0,y=0,z=0};punchset[name].pos2 = {x=0,y=0,z=0};punchset[name].pos = {x=0,y=0,z=0};
		punchset[name].state = 0; -- 0 ready for punch, 1 ready for start position, 2 ready for end position
		return
	end


	-- check for known node names in case of first punch
	if punchset[name].state == 0 and not punchset.known_nodes[node.name] then return end
	-- from now on only punches with mover/keypad/... or setup punches

	if punchset.known_nodes[node.name] then  -- check if player is suppose to be able to punch interact
			if node.name~="basic_machines:keypad" then -- keypad is supposed to be punch interactive!
				if minetest.is_protected(pos, name) then return end
			end
	end

	if node.name == "basic_machines:mover" then -- mover init code
		if punchset[name].state == 0 then
			-- if not puncher:get_player_control().sneak then
				-- return
			-- end
			minetest.chat_send_player(name, "MOVER: Now punch source1, source2, end position to set up mover.")
			punchset[name].node = node.name;punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
			punchset[name].state = 1
			return
		end
	end

	-- mover code, not first punch
	if punchset[name].node == "basic_machines:mover" then

		if minetest.is_protected(pos,name) then
			minetest.chat_send_player(name, "MOVER: Punched position is protected. aborting.")
			punchset[name].node = "";
			punchset[name].state = 0; return
		end

		local meta = minetest.get_meta(punchset[name].pos)

		if not meta then
			return
		end

		local range = meta:get_float("upgrade") or 1
		range = range * max_range

		if punchset[name].state == 1 then
			local privs = minetest.get_player_privs(puncher:get_player_name());
			if not privs.privs and (math.abs(punchset[name].pos.x - pos.x)>range or math.abs(punchset[name].pos.y - pos.y)>range or math.abs(punchset[name].pos.z - pos.z)>range) then
					minetest.chat_send_player(name, "MOVER: Punch closer to mover. reseting.")
					punchset[name].state = 0; return
			end

			if punchset[name].pos.x==pos.x and punchset[name].pos.y==pos.y and punchset[name].pos.z==pos.z then
				minetest.chat_send_player(name, "MOVER: Punch something else. aborting.")
				punchset[name].state = 0;
				return
			end

			punchset[name].pos1 = {x=pos.x,y=pos.y,z=pos.z};punchset[name].state = 2;
			machines.pos1[name] = punchset[name].pos1;machines.mark_pos1(name) -- mark position
			minetest.chat_send_player(name, "MOVER: Source1 position for mover set. Punch again to set source2 position.")
			return
		end


		if punchset[name].state == 2 then
			local privs = minetest.get_player_privs(puncher:get_player_name());
			if not privs.privs and (math.abs(punchset[name].pos.x - pos.x)>range or math.abs(punchset[name].pos.y - pos.y)>range or math.abs(punchset[name].pos.z - pos.z)>range) then
					minetest.chat_send_player(name, "MOVER: Punch closer to mover. reseting.")
					punchset[name].state = 0; return
			end

			if punchset[name].pos.x==pos.x and punchset[name].pos.y==pos.y and punchset[name].pos.z==pos.z then
				minetest.chat_send_player(name, "MOVER: Punch something else. aborting.")
				punchset[name].state = 0;
				return
			end

			punchset[name].pos11 = {x=pos.x,y=pos.y,z=pos.z};punchset[name].state = 3;
			machines.pos11[name] = {x=pos.x,y=pos.y,z=pos.z};
			-- mark pos11
			machines.mark_pos11(name)
			minetest.chat_send_player(name, "MOVER: Source2 position for mover set. Punch again to set target position.")
			return
		end

		if punchset[name].state == 3 then
			if punchset[name].node ~= "basic_machines:mover" then
				punchset[name].state = 0
				return
			end

			local privs = minetest.get_player_privs(puncher:get_player_name());
			local elevator_mode = false
			local meta = minetest.get_meta(punchset[name].pos)
			meta:set_int("elevator", 0)

			-- check if elevator mode
			if punchset[name].pos.x == pos.x and
				 punchset[name].pos.z == pos.z then
				-- trying to make elevator?
				if math.abs(punchset[name].pos.y - pos.y) > 3 then
					local meta = minetest.get_meta(punchset[name].pos)

					-- only if object mode
					if meta:get_string("mode") == "object" then
						-- count number of diamond blocks to determine if elevator can be set up with this height distance
						local inv = meta:get_inventory()
						local upgrade = 0

						if inv:get_stack("upgrade", 1):get_name() == "default:diamondblock" then

							local inv_stack = inv:get_stack("upgrade", 1)
							upgrade = inv_stack:get_count()

							if upgrade > 10 then
								upgrade = 10
							end
						end

						local requirement = math.floor(math.abs(punchset[name].pos.y - pos.y) / 100) + 1

						if upgrade < requirement then
							minetest.chat_send_player(name, "MOVER: Error while trying to make elevator. Need at least "..requirement .. " diamond block(s) in upgrade (1 for every 100 height). ")
							punchset[name].state = 0
							return
						else
							elevator_mode = true
							meta:set_int("upgrade", upgrade + 1)
							meta:set_int("elevator", 1)
							minetest.chat_send_player(name, "MOVER: elevator setup completed, upgrade level " .. upgrade)
							meta:set_string("infotext", "ELEVATOR, activate to use.")
						end

					end

				end

			end

			if not privs.privs and
				 not elevator_mode and
				 (math.abs(punchset[name].pos.x - pos.x) > range or math.abs(punchset[name].pos.y - pos.y) > range or math.abs(punchset[name].pos.z - pos.z) > range) then
				minetest.chat_send_player(name, "MOVER: Punch closer to mover. aborting.")
				punchset[name].state = 0
				return
			end

			punchset[name].pos2 = {x = pos.x, y = pos.y, z = pos.z}
			punchset[name].state = 0
			-- mark pos2
			machines.pos2[name] = punchset[name].pos2
			machines.mark_pos2(name)

			minetest.chat_send_player(name, "MOVER: End position for mover set.")

			local x0 = punchset[name].pos1.x-punchset[name].pos.x
			local y0 = punchset[name].pos1.y-punchset[name].pos.y
			local z0 = punchset[name].pos1.z-punchset[name].pos.z
			local meta = minetest.get_meta(punchset[name].pos)

			local x1 = punchset[name].pos11.x-punchset[name].pos.x
			local y1 = punchset[name].pos11.y-punchset[name].pos.y
			local z1 = punchset[name].pos11.z-punchset[name].pos.z

			local x2 = punchset[name].pos2.x-punchset[name].pos.x
			local y2 = punchset[name].pos2.y-punchset[name].pos.y
			local z2 = punchset[name].pos2.z-punchset[name].pos.z

			-- this ensures that x0 <= x1
			if x0 > x1 then
				x0, x1 = x1, x0
			end

			if y0 > y1 then
				y0, y1 = y1, y0
			end

			if z0 > z1 then
				z0, z1 = z1, z0
			end

			meta:set_int("x1", x1)
			meta:set_int("y1", y1)
			meta:set_int("z1", z1)

			meta:set_int("x0", x0)
			meta:set_int("y0", y0)
			meta:set_int("z0", z0)

			meta:set_int("x2", x2)
			meta:set_int("y2", y2)
			meta:set_int("z2", z2)

			meta:set_int("pc", 0)
			meta:set_int("dim", (x1 - x0 + 1) * (y1 - y0 + 1) * (z1 - z0 + 1))
			return
		end
	end

	-- KEYPAD
	if node.name == "basic_machines:keypad" then -- keypad init/usage code

		local meta = minetest.get_meta(pos);
		if not (meta:get_int("x0")==0 and meta:get_int("y0")==0 and meta:get_int("z0")==0) then -- already configured
			check_keypad(pos,name)-- not setup, just standard operation
			punchset[name].state = 0;
			return;
		else
			if minetest.is_protected(pos, name) then return minetest.chat_send_player(name, "KEYPAD: You must be able to build to set up keypad.") end
			--if meta:get_string("owner")~= name then minetest.chat_send_player(name, "KEYPAD: Only owner can set up keypad.") return end
			if punchset[name].state == 0 then
				minetest.chat_send_player(name, "KEYPAD: Now punch the target block.")
				punchset[name].node = node.name;punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
				punchset[name].state = 1
				return
			end
		end
	end

	if punchset[name].node=="basic_machines:keypad" then -- keypad setup code

		if minetest.is_protected(pos,name) then
			minetest.chat_send_player(name, "KEYPAD: Punched position is protected. aborting.")
			punchset[name].node = "";
			punchset[name].state = 0; return
		end

		if punchset[name].state == 1 then
			local meta = minetest.get_meta(punchset[name].pos);
			local x = pos.x-punchset[name].pos.x;
			local y = pos.y-punchset[name].pos.y;
			local z = pos.z-punchset[name].pos.z;
			if math.abs(x)>max_range or math.abs(y)>max_range or math.abs(z)>max_range then
					minetest.chat_send_player(name, "KEYPAD: Punch closer to keypad. reseting.")
					punchset[name].state = 0; return
			end

			machines.pos1[name] = pos;
			machines.mark_pos1(name) -- mark pos1

			meta:set_int("x0",x);meta:set_int("y0",y);meta:set_int("z0",z);
			punchset[name].state = 0
			minetest.chat_send_player(name, "KEYPAD: Keypad target set with coordinates " .. x .. " " .. y .. " " .. z)
			meta:set_string("infotext", "Punch keypad to use it.");
			return
		end
	end

	-- DETECTOR "basic_machines:detector"
	if node.name == "basic_machines:detector" then -- detector init code
		local meta = minetest.get_meta(pos);

			--meta:get_string("owner")~= name
			if minetest.is_protected(pos,name) then minetest.chat_send_player(name, "DETECTOR: You must be able to build to set up detector.") return end
			if punchset[name].state == 0 then
				minetest.chat_send_player(name, "DETECTOR: Now punch the source block.")
				punchset[name].node = node.name;
				punchset[name].pos = {x=pos.x,y=pos.y,z=pos.z};
				punchset[name].state = 1
				return
			end
	end

	if punchset[name].node == "basic_machines:detector" then

			if minetest.is_protected(pos,name) then
				minetest.chat_send_player(name, "DETECTOR: Punched position is protected. aborting.")
				punchset[name].node = "";
				punchset[name].state = 0; return
			end

			if punchset[name].state == 1 then
				if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
					minetest.chat_send_player(name, "DETECTOR: Punch closer to detector. aborting.")
					punchset[name].state = 0; return
				end
				minetest.chat_send_player(name, "DETECTOR: Now punch the target machine.")
				punchset[name].pos1 = {x=pos.x,y=pos.y,z=pos.z};
				machines.pos1[name] = pos;machines.mark_pos1(name) -- mark pos1
				punchset[name].state = 2
				return
			end


			if punchset[name].state == 2 then
				if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
					minetest.chat_send_player(name, "DETECTOR: Punch closer to detector. aborting.")
					punchset[name].state = 0; return
				end

				if punchset[name].pos.x == pos.x and punchset[name].pos.y == pos.y and punchset[name].pos.z == pos.z then
					minetest.chat_send_player(name, "DETECTOR: Punch something else. aborting.")
					punchset[name].state = 0; return
				end


				minetest.chat_send_player(name, "DETECTOR: Setup complete.")
				machines.pos2[name] = pos;machines.mark_pos2(name) -- mark pos2
				local x = punchset[name].pos1.x-punchset[name].pos.x;
				local y = punchset[name].pos1.y-punchset[name].pos.y;
				local z = punchset[name].pos1.z-punchset[name].pos.z;
				local meta = minetest.get_meta(punchset[name].pos);
				meta:set_int("x0",x);meta:set_int("y0",y);meta:set_int("z0",z);
				x=pos.x-punchset[name].pos.x;y=pos.y-punchset[name].pos.y;z=pos.z-punchset[name].pos.z;
				meta:set_int("x2",x);meta:set_int("y2",y);meta:set_int("z2",z);
				punchset[name].state = 0
				return
			end
	end


	if punchset[name].node == "basic_machines:distributor" then

			if minetest.is_protected(pos,name) then
				minetest.chat_send_player(name, "DISTRIBUTOR: Punched position is protected. aborting.")
				punchset[name].node = "";
				punchset[name].state = 0; return
			end

			if punchset[name].state > 0 then
				if math.abs(punchset[name].pos.x - pos.x)>max_range or math.abs(punchset[name].pos.y - pos.y)>max_range or math.abs(punchset[name].pos.z - pos.z)>max_range then
					minetest.chat_send_player(name, "DISTRIBUTOR: Punch closer to distributor. aborting.")
					punchset[name].state = 0; return
				end
				minetest.chat_send_player(name, "DISTRIBUTOR: target set.")
				local meta = minetest.get_meta(punchset[name].pos);
				local x = pos.x-punchset[name].pos.x;
				local y = pos.y-punchset[name].pos.y;
				local z = pos.z-punchset[name].pos.z;
				local j = punchset[name].state;

				meta:set_int("x"..j,x);meta:set_int("y"..j,y);meta:set_int("z"..j,z);
				if x==0 and y==0 and z==0 then meta:set_int("active"..j,0) end
				machines.pos1[name] = pos;machines.mark_pos1(name) -- mark pos1
				punchset[name].state = 0;
				return
			end

	end



end)


-- FORM PROCESSING for all machines
minetest.register_on_player_receive_fields(function(player,formname,fields)

	-- MOVER
	local fname = "basic_machines:mover_"
	if string.sub(formname,0,string.len(fname)) == fname then
		local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
		local name = player:get_player_name(); if name==nil then return end
		local meta = minetest.get_meta(pos)
		local privs = minetest.get_player_privs(name);
		if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder can interact


		if fields.help == "help" then
			local text = "version " .. basic_machines.version .. "\nSETUP: For interactive setup "..
			"punch the mover and then punch source1, source2, target node (follow instructions). Put charged battery within distance 1 from mover. For advanced setup right click mover. Positions are defined by x y z coordinates (see top of mover for orientation). Mover itself is at coordinates 0 0 0. "..
			"\n\nMODES of operation: normal (just teleport block), dig (digs and gives you resulted node - good for harvesting farms), drop "..
			"(drops node on ground), object (teleportation of player and objects. distance between source1/2 defines teleport radius). by setting filter you can specify move time for objects or names for players. "..
			"By setting 'filter' only selected nodes are moved.\nInventory mode can exchange items between node inventories. You need to select inventory name for source/target from the dropdown list on the right and enter node to be moved into filter."..
			"\n*advanced* You can reverse start/end position by setting reverse nonzero. This is useful for placing stuff at many locations-planting. If you put reverse=2/3 in transport mode it will disable parallel transport but will still do reverse effect with 3. If you activate mover with OFF signal it will toggle reverse." ..
			"\n\n FUEL CONSUMPTION depends on blocks to be moved and distance. For example, stone or tree is harder to move than dirt, harvesting wheat is very cheap and and moving lava is very hard."..
			"\n\n UPGRADE mover by moving mese blocks in upgrade inventory. Each mese block increases mover range by 10, fuel consumption is divided by (number of mese blocks)+1 in upgrade. Max 10 blocks are used for upgrade. Dont forget to click OK to refresh after upgrade. "..
			"\n\n Activate mover by keypad/detector signal or mese signal (if mesecons mod) .";
			local form = "size [6,7]"..
			default.gui_bg..
			default.gui_bg_img..
			default.gui_slots..
			"textarea[0,0;6.5,8.5;help;MOVER HELP;".. text.."]"
			minetest.show_formspec(name, "basic_machines:help_mover", form)
			return
		end

		if fields.tabs then
			meta:set_int("seltab", basic_machines.tonumber(fields.tabs) or 1)
			local form = get_mover_form(pos,player)
			minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
			return
		end

		if fields.OK == "OK" then --yyy

			local seltab = meta:get_int("seltab");

			if seltab == 2 then -- POSITIONS
				-- positions
				local x0, y0, z0, x1, y1, z1, x2, y2, z2
				x0 = basic_machines.tonumber(fields.x0) or 0
				y0 = basic_machines.tonumber(fields.y0) or -1
				z0 = basic_machines.tonumber(fields.z0) or 0
				x1 = basic_machines.tonumber(fields.x1) or 0
				y1 = basic_machines.tonumber(fields.y1) or -1
				z1 = basic_machines.tonumber(fields.z1) or 0
				x2 = basic_machines.tonumber(fields.x2) or 0
				y2 = basic_machines.tonumber(fields.y2) or 1
				z2 = basic_machines.tonumber(fields.z2) or 0

				-- did the numbers change from last time?
				if meta:get_int("x0") ~= x0 or meta:get_int("y0") ~= y0 or
					 meta:get_int("z0") ~= z0 or
					 meta:get_int("x1") ~= x1 or
					 meta:get_int("y1") ~= y1 or
					 meta:get_int("z1") ~= z1 or
					 meta:get_int("x2") ~= x2 or
					 meta:get_int("y2") ~= y2 or
					 meta:get_int("z2") ~= z2 then
					-- are new numbers inside bounds?
					if not privs.privs and
						 (math.abs(x1) > max_range or math.abs(y1) > max_range or math.abs(z1) > max_range or math.abs(x2) > max_range or math.abs(y2) > max_range or math.abs(z2) > max_range) then
						minetest.chat_send_player(name,"#mover: all coordinates must be between ".. -max_range .. " and " .. max_range .. ". For increased range set up positions by punching"); return
					end
				end

				--local range = meta:get_float("upgrade") or 1;	range = range * max_range;

				local x = x0; x0 = math.min(x,x1); x1 = math.max(x,x1);
				local y = y0; y0 = math.min(y,y1); y1 = math.max(y,y1);
				local z = z0; z0 = math.min(z,z1); z1 = math.max(z,z1);

				if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
					minetest.chat_send_player(name, "MOVER: position is protected. aborting.")
					return
				end

				if minetest.is_protected({x=pos.x+x1,y=pos.y+y1,z=pos.z+z1},name) then
					minetest.chat_send_player(name, "MOVER: position is protected. aborting.")
					return
				end

				meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);
				meta:set_int("x1",x1);meta:set_int("y1",y1);meta:set_int("z1",z1);
				meta:set_int("dim",(x1-x0+1)*(y1-y0+1)*(z1-z0+1))
				meta:set_int("x2",x2);meta:set_int("y2",y2);meta:set_int("z2",z2);

				if fields.reverse then
					meta:set_string("reverse",fields.reverse);
				end

				if fields.inv1 then
				 meta:set_string("inv1",fields.inv1);
				end

				if fields.inv2 then
					 meta:set_string("inv2",fields.inv2);
				end

				--notification
				meta:set_string("infotext", "Mover block. Set up with source coordinates ".. x0 ..","..y0..","..z0.. " -> ".. x1 ..","..y1..","..z1.. " and target coord ".. x2 ..","..y2..",".. z2 .. ". Put charged battery next to it and start it with keypad/mese signal.");

			else -- MODE 1

				if fields.mode then
					meta:set_string("mode",fields.mode);
				end


				--filter
				local prefer = fields.prefer or ""
				local meta_prefer = meta:get_string("prefer")

				if meta_prefer ~= prefer then
					meta_prefer = prefer
				end

				-- prevent item stacks with more than 'stack_max' items
				local preferstack = ItemStack(meta_prefer)
				if preferstack:get_count() > preferstack:get_stack_max() then
					preferstack:set_count(preferstack:get_stack_max())
				else
					preferstack:set_count(preferstack:get_count())
				end

				meta:set_string("prefer", preferstack:to_string());

				--notification
				meta:set_string("infotext", "Mover block. Mode or filter changed.");
			end

			if meta:get_float("fuel")<0 then meta:set_float("fuel",0) end -- reset block

			-- display battery
			local fpos = find_and_connect_battery(pos);

			if not fpos then
				minetest.chat_send_player(name,"MOVER: please put battery nearby")
			else
				minetest.chat_send_player(name,"MOVER: battery found - displaying mark 1")
				machines.pos1[name] = fpos;	machines.mark_pos1(name)
			end

		elseif fields.mode then
			meta:set_string("mode",fields.mode);
			local form = get_mover_form(pos,player)
			minetest.show_formspec(player:get_player_name(), "basic_machines:mover_"..minetest.pos_to_string(pos), form)
			return
		end

		return
	end

	-- KEYPAD
	fname = "basic_machines:keypad_"
	if string.sub(formname,0,string.len(fname)) == fname then
		local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
		local name = player:get_player_name(); if name==nil then return end
		local meta = minetest.get_meta(pos)
		local privs = minetest.get_player_privs(player:get_player_name());
		if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder can interact

		if fields.help then
			local text = "target : represents coordinates ( x, y, z ) relative to keypad. (0,0,0) is keypad itself, (0,1,0) is one node above, (0,-1,0) one node below. X coordinate axes goes from east to west, Y from down to up, Z from south to north."..
			"\n\nPassword: enter password and press OK. Password will be encrypted. Next time you use keypad you will need to enter correct password to gain access."..
				"\n\nrepeat: number to control how many times activation is repeated after initial punch"..

				"\n\ntext: if set then text on target node will be changed. In case target is detector/mover, filter settings will be changed. Can be used for special operations."..

				"\n\n1=OFF/2=ON/3=TOGGLE control the way how target node is activated"..

			"\n**************************************************\nusage\n"..

				"\nJust punch ( left click ) keypad, then the target block will be activated."..
				"\nTo set text on other nodes ( text shows when you look at node ) just target the node and set nonempty text. Upon activation text will be set. When target node is another keypad, its \"text\" field will be set. When targets is mover/detector, its \"filter\" field will be set. To clear \"filter\" set text to \"@\".  When target is distributor, you can change i-th target of distributor to mode mode with \"i mode\""..

				"\n\nkeyboard : to use keypad as keyboard for text input write \"@\" in \"text\" field and set any password. Next time keypad is used it will work as text input device."..

				"\n\ndisplaying messages to nearby players ( up to 5 blocks around keypad's target ): set text to \"!text\". Upon activation player will see \"text\" in their chat."..

				"\n\nplaying sound to nearby players : set text to \"$sound_name\""..

				"\n\nadvanced: "..
				"\ntext replacement : Suppose keypad A is set with text \"@some @. text @!\" and there are blocks on top of keypad A with infotext '1' and '2'. Suppose we target B with A and activate A. Then text of keypad B will be set to \"some 1. text 2!\""..
				"\nword extraction: Suppose similiar setup but now keypad A is set with text \"%1\". Then upon activation text of keypad B will be set to 1.st word of infotext";

			local form = "size[6,7]"..
				default.gui_bg..
				default.gui_bg_img..
				default.gui_slots..
				"textarea[0,0;6.5,8.5;help;KEYPAD HELP;".. text.."]"
			minetest.show_formspec(name, "basic_machines:help_keypad", form)
			return
		end

		if fields.OK == "OK" then
			local x0,y0,z0,pass,mode;
			x0=basic_machines.tonumber(fields.x0) or 0;y0=basic_machines.tonumber(fields.y0) or 1;z0=basic_machines.tonumber(fields.z0) or 0
			pass = fields.pass or ""; mode = fields.mode or 1;

			if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
				minetest.chat_send_player(name, "KEYPAD: position is protected. aborting.")
				return
			end

			if not privs.privs and (math.abs(x0)>max_range or math.abs(y0)>max_range or math.abs(z0)>max_range) then
				minetest.chat_send_player(name,"#keypad: all coordinates must be between ".. -max_range .. " and " .. max_range); return
			end
			meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);

			if fields.pass then
				if fields.pass~="" and string.len(fields.pass)<=16 then -- dont replace password with hash which is longer - 27 chars
					pass=minetest.get_password_hash(pos.x, pass..pos.y);pass=minetest.get_password_hash(pos.y, pass..pos.z);
					meta:set_string("pass",pass);
				end
			end

			if fields.text then
				meta:set_string("text", fields.text);
				if string.find(fields.text, "!") then minetest.log("action", string.format("%s set up keypad for message display at %s", name, minetest.pos_to_string(pos))) end
			end

			meta:set_int("iter",math.min(basic_machines.tonumber(fields.iter) or 1,500));meta:set_int("mode",basic_machines.tonumber(mode) or 2);
			meta:set_string("infotext", "Punch keypad to use it.");
			if pass~="" then
				if fields.text~="@" then
					meta:set_string("infotext",meta:get_string("infotext").. ". Password protected.");
				else
					meta:set_string("infotext","punch keyboard to use it.");
				end
			end

		end
		return
	end

	fname = "basic_machines:check_keypad_"
	if string.sub(formname,0,string.len(fname)) == fname then
		local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
		local name = player:get_player_name(); if name==nil then return end
		local meta = minetest.get_meta(pos)

		if fields.OK == "OK" then

			local pass;
			pass = fields.pass or "";

			if meta:get_string("text")=="@" then -- keyboard mode
				meta:set_string("input", pass);
				meta:set_int("count",1);
				use_keypad(pos,machines_TTL,0);
				return
			end


			pass=minetest.get_password_hash(pos.x, pass..pos.y);pass=minetest.get_password_hash(pos.y, pass..pos.z);

			if pass~=meta:get_string("pass") then
				minetest.chat_send_player(name,"ACCESS DENIED. WRONG PASSWORD.")
				return
			end
		minetest.chat_send_player(name,"ACCESS GRANTED.")

		if meta:get_int("count")<=0 then -- only accept new operation requests if idle
			meta:set_int("count",meta:get_int("iter"));
			meta:set_int("active_repeats",0);
			use_keypad(pos,machines_TTL,0)
		else
			meta:set_int("count",0);
			meta:set_string("infotext","operation aborted by user. punch to activate.") -- reset
		end

		return
		end
	end

	-- DETECTOR
	local fname = "basic_machines:detector_"
	if string.sub(formname,0,string.len(fname)) == fname then
		local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
		local name = player:get_player_name(); if name==nil then return end
		local meta = minetest.get_meta(pos)
		local privs = minetest.get_player_privs(player:get_player_name());
		if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder

		--minetest.chat_send_all("formname " .. formname .. " fields " .. dump(fields))

		if fields.help == "help" then
			local text = "SETUP: right click or punch and follow chat instructions. With detector you can detect nodes, objects, players, or items inside inventories."..
			"If detector activates it will trigger machine at target position.\n\nThere are 4 modes of operation - node/player/object/inventory detection. Inside node/player/object "..
			"write node/player/object name. If you detect players/objects you can specify range of detection. If you want detector to activate target precisely when its not triggered set NOT to 1\n\n"..
			"For example, to detect empty space write air, to detect tree write default:tree, to detect ripe wheat write farming:wheat_8, for flowing water write default:water_flowing ... "..
			"If source position is chest it will look into it and check if there are items inside. If mode is inventory it will check for items in specified inventory of source node."..
			"\n\nADVANCED: you can select second source and then select AND/OR from the right top dropdown list to do logical operations. You can also filter output signal:\n -2=only OFF,-1=NOT/0/1=normal,2=only ON, 3 only if changed"..
			" 4 = if target keypad set its text to detected object name" ;
			local form = "size[5.5,5.5]"..
				default.gui_bg..
				default.gui_bg_img..
				default.gui_slots..
				"textarea[0,0;6,7;help;DETECTOR HELP;".. text.."]"
			minetest.show_formspec(name, "basic_machines:help_detector", form)
		end

		if fields.OK == "OK" then


			local x0,y0,z0,x1,y1,z1,x2,y2,z2,r,node,NOT;
			x0=basic_machines.tonumber(fields.x0) or 0;y0=basic_machines.tonumber(fields.y0) or 0;z0=basic_machines.tonumber(fields.z0) or 0
			x1=basic_machines.tonumber(fields.x1) or 0;y1=basic_machines.tonumber(fields.y1) or 0;z1=basic_machines.tonumber(fields.z1) or 0
			x2=basic_machines.tonumber(fields.x2) or 0;y2=basic_machines.tonumber(fields.y2) or 0;z2=basic_machines.tonumber(fields.z2) or 0
			r=basic_machines.tonumber(fields.r) or 1;
			NOT = basic_machines.tonumber(fields.NOT)


			if minetest.is_protected({x=pos.x+x0,y=pos.y+y0,z=pos.z+z0},name) then
				minetest.chat_send_player(name, "DETECTOR: position is protected. aborting.")
				return
			end

			if minetest.is_protected({x=pos.x+x2,y=pos.y+y2,z=pos.z+z2},name) then
				minetest.chat_send_player(name, "DETECTOR: position is protected. aborting.")
				return
			end


			if not privs.privs and (math.abs(x0)>max_range or math.abs(y0)>max_range or math.abs(z0)>max_range or math.abs(x1)>max_range or math.abs(y1)>max_range or math.abs(z1)>max_range) then
				minetest.chat_send_player(name,"#detector: all coordinates must be between ".. -max_range .. " and " .. max_range); return
			end

			if fields.inv1 then
				 meta:set_string("inv1",fields.inv1);
			end

			meta:set_int("x0",x0);meta:set_int("y0",y0);meta:set_int("z0",z0);
			meta:set_int("x1",x1);meta:set_int("y1",y1);meta:set_int("z1",z1);
			meta:set_int("x2",x2);meta:set_int("y2",y2);meta:set_int("z2",z2);

			meta:set_int("r",math.min(r,10));
			if NOT then
				meta:set_int("NOT",NOT);
			end
			meta:set_string("node",fields.node or "");

			local mode = fields.mode or "node";
			meta:set_string("mode",mode);
			local op = fields.op or "";
			meta:set_string("op",op);

		end
		return
	end


	-- DISTRIBUTOR
	local fname = "basic_machines:distributor_"
	if string.sub(formname,0,string.len(fname)) == fname then
		local pos_s = string.sub(formname,string.len(fname)+1); local pos = minetest.string_to_pos(pos_s)
		local name = player:get_player_name(); if name==nil then return end
		local meta = minetest.get_meta(pos)
		local privs = minetest.get_player_privs(player:get_player_name());
		if (minetest.is_protected(pos,name) and not privs.privs) or not fields then return end -- only builder
		--minetest.chat_send_all("formname " .. formname .. " fields " .. dump(fields))

		if fields.OK == "OK" then

			local posf = {}; local active = {};
			local n = meta:get_int("n");
			for i = 1,n do
				posf[i]={x=basic_machines.tonumber(fields["x"..i]) or 0,y=basic_machines.tonumber(fields["y"..i]) or 0,z=basic_machines.tonumber(fields["z"..i]) or 0};
				active[i]=basic_machines.tonumber(fields["active"..i]) or 0;

				if (not (privs.privs) and math.abs(posf[i].x)>max_range or math.abs(posf[i].y)>max_range or math.abs(posf[i].z)>max_range) then
					minetest.chat_send_player(name,"#distributor: all coordinates must be between ".. -max_range .. " and " .. max_range);
					return
				end

				meta:set_int("x"..i,posf[i].x);meta:set_int("y"..i,posf[i].y);meta:set_int("z"..i,posf[i].z);
				if posf[i].x==0 and posf[i].y==0 and posf[i].z==0 then
					meta:set_int("active"..i,0); -- no point in activating itself
					else
					meta:set_int("active"..i,active[i]);
				end
				if fields.delay then
					meta:set_float("delay", basic_machines.tonumber(fields.delay) or 0);
				end
			end
		end

		if fields["ADD"] then
			local n = meta:get_int("n");
			if n<16 then meta:set_int("n",n+1);	end -- max 16 outputs
			local form = get_distributor_form(pos,player)
			minetest.show_formspec(player:get_player_name(), "basic_machines:distributor_"..minetest.pos_to_string(pos), form)
			return
		end

		-- SHOWING TARGET
		local j=-1;local n = meta:get_int("n");
		for i = 1,n do if fields["SHOW"..i] then j = i end end
		--show j-th point
		if j>0 then
			local posf={x=basic_machines.tonumber(fields["x"..j]) or 0,y=basic_machines.tonumber(fields["y"..j]) or 0,z=basic_machines.tonumber(fields["z"..j]) or 0};
			machines.pos1[player:get_player_name()] = {x=posf.x+pos.x,y=posf.y+pos.y,z=posf.z+pos.z};
			machines.mark_pos1(player:get_player_name())
			return;
		end

		--SETUP TARGET
		j=-1;
		for i = 1,n do if fields["SET"..i] then j = i end end
		-- set up j-th point
		if j>0 then
			punchset[name].node = "basic_machines:distributor";
			punchset[name].state = j
			punchset[name].pos = pos;
			minetest.chat_send_player(name,"[DISTRIBUTOR] punch the position to set target "..j);
			return;
		end

		-- REMOVE TARGET
		if n>0 then
			j=-1;
			for i = 1,n do if fields["X"..i] then j = i end end
			-- remove j-th point
			if j>0 then
				for i=j,n-1 do
					meta:set_int("x"..i, meta:get_int("x"..(i+1)))
					meta:set_int("y"..i, meta:get_int("y"..(i+1)))
					meta:set_int("z"..i, meta:get_int("z"..(i+1)))
					meta:set_int("active"..i, meta:get_int("active"..(i+1)))
				end

				meta:set_int("n",n-1);
				local form = get_distributor_form(pos,player)
				minetest.show_formspec(player:get_player_name(), "basic_machines:distributor_"..minetest.pos_to_string(pos), form)
				return;
			end
		end

		if fields.help == "help" then
			local text = "SETUP: to select target nodes for activation click SET then click target node.\n"..
			"You can add more targets with ADD. To see where target node is click SHOW button next to it.\n"..
			"Numbers in each row represent (from left to right) : first 3 numbers are target coordinates,\n"..
			"last number controls how signal is passed to target. For example, to only pass OFF signal use -2,\n"..
			"to only pass ON use 2, -1 negates the signal, 1 = pass original signal, 0 blocks signal\n"..
			"delay option adds delay to activations, in seconds. With negative delay activation is randomized with probability -delay/1000.\n\n"..
			"ADVANCED: you can use distributor as an event handler. First you must deactivate first target by putting 0 at\n"..
			"last place in first line. Meanings of first 2 numbers are as follows: first number 0/1 controls if node/n".. "listens to failed interact attempts around it, second number -1/1 listens to chat and can mute it";
			local form = "size[5.5,5.5]"..
				default.gui_bg..
				default.gui_bg_img..
				default.gui_slots..
				"textarea[0,0;6,7;help;DISTRIBUTOR HELP;".. text.."]"
			minetest.show_formspec(name, "basic_machines:help_distributor", form)
		end

	end


end)



-- CRAFTS --

minetest.register_craft({
	output = "basic_machines:keypad",
	recipe = {
		{"default:stick"},
		{"default:wood"},
	}
})

minetest.register_craft({
	output = "basic_machines:mover",
	recipe = {
		{"default:mese_crystal", "default:mese_crystal","default:mese_crystal"},
		{"default:mese_crystal", "default:mese_crystal","default:mese_crystal"},
		{"default:stone", "basic_machines:keypad", "default:stone"}
	}
})

minetest.register_craft({
	output = "basic_machines:detector",
	recipe = {
		{"default:mese_crystal", "default:mese_crystal"},
		{"default:mese_crystal", "default:mese_crystal"},
		{"basic_machines:keypad",""}
	}
})

minetest.register_craft({
	output = "basic_machines:light_on",
	recipe = {
		{"default:torch", "default:torch"},
		{"default:torch", "default:torch"}
	}
})


minetest.register_craft({
	output = "basic_machines:distributor",
	recipe = {
		{"default:steel_ingot"},
		{"default:mese_crystal"},
		{"basic_machines:keypad"}
	}
})

minetest.register_craft({
	output = "basic_machines:clockgen",
	recipe = {
		{"default:diamondblock"},
		{"basic_machines:keypad"}
	}
})