Add several more detectors

moremesecons_detector/awards_detector.lua

@@ -0,0 +1,179 @@
+-- Awards detector
+-- Detects awards of players in a certain radius
+
+local S = minetest.get_translator(minetest.get_current_modname())
+
+local function awards_detector_make_formspec(pos)
+	local meta = minetest.get_meta(pos)
+	if meta:get_string("radius") == ""  then meta:set_string("radius", "6") end
+	meta:set_string("formspec", "size[9,2.5]" ..
+		"field[0.3,  0;9,2;scanname;".. S("Name(s) of awards to scan for")..":;${scanname}]"..
+		"field[0.3,1.5;2.5,2;radius;"..S("Radius").." (0-"..mesecon.setting("node_detector_distance_max", 10).."):;${radius}]"..
+		"field[3,1.5;4,2;digiline_channel;Digiline Channel (optional):;${digiline_channel}]"..
+		"button_exit[7,0.75;2,3;;Save]")
+end
+
+local function awards_detector_on_receive_fields(pos, formname, fields, sender)
+	if not fields.scanname or not fields.digiline_channel then return end
+	local name = sender:get_player_name()
+	if minetest.is_protected(pos, name) then
+		minetest.record_protection_violation(pos,name)
+		return
+	end
+
+	local meta = minetest.get_meta(pos)
+	meta:set_string("scanname", fields.scanname)
+	meta:set_string("radius", fields.radius or "6")
+	meta:set_string("digiline_channel", fields.digiline_channel)
+	awards_detector_make_formspec(pos)
+end
+
+-- returns true if a player was found who unlocked all given awards, false if not
+local function awards_detector_scan(pos)
+	local meta = minetest.get_meta(pos)
+	local scanname = meta:get_string("scanname")
+	if scanname == "" then scanname = "awards_builder1" end
+
+	local radius = meta:get_int("radius")
+	local radius_max = mesecon.setting("node_detector_distance_max", 10)
+	if radius < 0 then radius = 0 end
+	if radius > radius_max then radius = radius_max end
+
+	local objs = minetest.get_objects_inside_radius(pos, radius)
+
+	-- abort if no scan results were found
+	if next(objs) == nil then return false end
+
+	local scan_for = {}
+	for _, str in pairs(string.split(scanname:gsub(" ", ""), ",")) do
+		scan_for[str] = 0
+	end
+
+--[[
+	for _, obj in pairs(objs) do
+		if obj:is_player() then
+			local awards_list = awards.get_award_states(obj:get_player_name())
+			if not (#awards_list == 0) then
+				for _, award in pairs(awards_list) do
+					if award.unlocked and scan_for[award.name] ~= nil then
+						scan_for[award.name] = scan_for[award.name] + 1
+					end
+				end
+			end
+		end
+	end
+
+	for award, num_players in pairs(scan_for) do
+		if num_players == 0 then return false end
+	end
+
+	return true
+--]]
+
+	for _, obj in pairs(objs) do
+		if obj:is_player() then
+			local accepted = true
+			for award, _ in pairs(scan_for) do
+				if awards.player(obj:get_player_name()).unlocked[award] == nil then
+					accepted = false
+				end
+			end
+			if accepted then return true end
+		end
+	end
+
+	return false
+end
+
+-- set awards to search when receiving a digiline signal on a specific channel
+local awards_detector_digiline = {
+	effector = {
+		action = function(pos, node, channel, msg)
+			local meta = minetest.get_meta(pos)
+			if channel == meta:get_string("digiline_channel") then
+				meta:set_string("scanname", msg)
+				awards_detector_make_formspec(pos)
+			end
+		end,
+	}
+}
+
+minetest.register_node("moremesecons_detector:awards_detector_off", {
+	tiles = {"default_steel_block.png", "default_steel_block.png", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16)"},
+	paramtype = "light",
+	is_ground_content = false,
+	walkable = true,
+	groups = {cracky=3},
+	description="Awards detector",
+	mesecons = {receptor = {
+		state = mesecon.state.off,
+		rules = mesecon.rules.pplate
+	}},
+	on_construct = awards_detector_make_formspec,
+	on_receive_fields = awards_detector_on_receive_fields,
+	sounds = default.node_sound_stone_defaults(),
+	digiline = awards_detector_digiline,
+	on_blast = mesecon.on_blastnode,
+})
+
+minetest.register_node("moremesecons_detector:awards_detector_on", {
+	tiles = {"default_steel_block.png", "default_steel_block.png", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16^[invert:rg)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16^[invert:rg)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16^[invert:rg)", "default_steel_block.png^(awards_ui_icon.png^[resize:16x16^[invert:rg)"},
+	paramtype = "light",
+	is_ground_content = false,
+	walkable = true,
+	groups = {cracky=3,not_in_creative_inventory=1},
+	drop = 'moremesecons_detector:awards_detector_off',
+	mesecons = {receptor = {
+		state = mesecon.state.on,
+		rules = mesecon.rules.pplate
+	}},
+	on_construct = awards_detector_make_formspec,
+	on_receive_fields = awards_detector_on_receive_fields,
+	sounds = default.node_sound_stone_defaults(),
+	digiline = awards_detector_digiline,
+	on_blast = mesecon.on_blastnode,
+})
+
+minetest.register_craft({
+	output = 'moremesecons_detector:awards_detector_off',
+	recipe = {
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+		{"default:steel_ingot", "mesecons_luacontroller:luacontroller0000", "group:mesecon_conductor_craftable"},
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+	}
+})
+
+minetest.register_craft({
+	output = 'moremesecons_detector:awards_detector_off',
+	recipe = {
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+		{"default:steel_ingot", "mesecons_microcontroller:microcontroller0000", "group:mesecon_conductor_craftable"},
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+	}
+})
+
+minetest.register_abm({
+	nodenames = {"moremesecons_detector:awards_detector_off"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node)
+		if not awards_detector_scan(pos) then return end
+
+		node.name = "moremesecons_detector:awards_detector_on"
+		minetest.swap_node(pos, node)
+		mesecon.receptor_on(pos, mesecon.rules.pplate)
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"moremesecons_detector:awards_detector_on"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node)
+		if awards_detector_scan(pos) then return end
+
+		node.name = "moremesecons_detector:awards_detector_off"
+		minetest.swap_node(pos, node)
+		mesecon.receptor_off(pos, mesecon.rules.pplate)
+	end,
+})

moremesecons_detector/init.lua

@@ -0,0 +1,14 @@
+-- moremesecons_detector mod by h3ndrik
+-- based on the code from mesecons_detector 
+
+local S = minetest.get_translator(minetest.get_current_modname())
+
+dofile(minetest.get_modpath(minetest.get_current_modname()).."/inventory_scanner.lua")
+
+if minetest.get_modpath("awards") then
+	dofile(minetest.get_modpath(minetest.get_current_modname()).."/awards_detector.lua")
+end
+
+if minetest.get_modpath("playerfactions") then
+	dofile(minetest.get_modpath(minetest.get_current_modname()).."/playerfactions_detector.lua")
+end

moremesecons_detector/inventory_scanner.lua

@@ -0,0 +1,164 @@
+-- Inventory scanner
+-- Detects inventory items of players in a certain radius
+
+local S = minetest.get_translator(minetest.get_current_modname())
+
+local function inventory_scanner_make_formspec(pos)
+	local meta = minetest.get_meta(pos)
+	if meta:get_string("radius") == ""  then meta:set_string("radius", "6") end
+	meta:set_string("formspec", "size[9,2.5]" ..
+		"field[0.3,  0;9,2;scanname;"..S("Name of item to scan for (empty for any)")..":;${scanname}]"..
+		"field[0.3,1.5;2.5,2;radius;Radius (0-"..mesecon.setting("node_detector_distance_max", 10).."):;${radius}]"..
+		"field[3,1.5;4,2;digiline_channel;Digiline Channel (optional):;${digiline_channel}]"..
+		"button_exit[7,0.75;2,3;;Save]")
+end
+
+local function inventory_scanner_on_receive_fields(pos, formname, fields, sender)
+	if not fields.scanname or not fields.digiline_channel then return end
+	local name = sender:get_player_name()
+	if minetest.is_protected(pos, name) then
+		minetest.record_protection_violation(pos,name)
+		return
+	end
+
+	local meta = minetest.get_meta(pos)
+	meta:set_string("scanname", fields.scanname)
+	meta:set_string("radius", fields.radius or "6")
+	meta:set_string("digiline_channel", fields.digiline_channel)
+	inventory_scanner_make_formspec(pos)
+end
+
+-- returns true if player was found who has any of the items in their posession, false if not
+local function inventory_scanner_scan(pos)
+	local meta = minetest.get_meta(pos)
+	local scanname = meta:get_string("scanname")
+
+	local radius = meta:get_int("radius")
+	local radius_max = mesecon.setting("node_detector_distance_max", 10)
+	if radius < 0 then radius = 0 end
+	if radius > radius_max then radius = radius_max end
+
+	local objs = minetest.get_objects_inside_radius(pos, radius)
+
+	-- abort if no scan results were found
+	if next(objs) == nil then return false end
+
+	local scan_for = {}
+	for _, str in pairs(string.split(scanname:gsub(" ", ""), ",")) do
+		scan_for[str] = true
+	end
+
+	local has_items = false
+
+	for _, obj in pairs(objs) do
+		if obj:is_player() then
+			local inv = obj:get_inventory()
+			if not inv:is_empty("main") then
+				has_items = true
+			end
+			for itemname, _ in pairs(scan_for) do
+				if inv:contains_item("main", itemname) then
+					return true
+				end
+			end
+		end
+	end
+
+	-- scanname empty: search for any items
+	if scanname == "" and has_items then return true end
+
+	return false
+end
+
+-- set what to search for, when receiving a digiline signal on a specific channel
+local inventory_scanner_digiline = {
+	effector = {
+		action = function(pos, node, channel, msg)
+			local meta = minetest.get_meta(pos)
+			if channel == meta:get_string("digiline_channel") then
+				meta:set_string("scanname", msg)
+				inventory_scanner_make_formspec(pos)
+			end
+		end,
+	}
+}
+
+minetest.register_node("moremesecons_detector:inventory_scanner_off", {
+	tiles = {"default_steel_block.png", "default_steel_block.png", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:red:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:red:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:red:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:red:210)"},
+	paramtype = "light",
+	is_ground_content = false,
+	walkable = true,
+	groups = {cracky=3},
+	description="Inventory Scanner",
+	mesecons = {receptor = {
+		state = mesecon.state.off,
+		rules = mesecon.rules.pplate
+	}},
+	on_construct = inventory_scanner_make_formspec,
+	on_receive_fields = inventory_scanner_on_receive_fields,
+	sounds = default.node_sound_stone_defaults(),
+	digiline = inventory_scanner_digiline,
+	on_blast = mesecon.on_blastnode,
+})
+
+minetest.register_node("moremesecons_detector:inventory_scanner_on", {
+	tiles = {"default_steel_block.png", "default_steel_block.png", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:green:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:green:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:green:210)", "default_steel_block.png^(creative_search_icon.png^[resize:16x16^[colorize:green:210)"},
+	paramtype = "light",
+	is_ground_content = false,
+	walkable = true,
+	groups = {cracky=3,not_in_creative_inventory=1},
+	drop = 'moremesecons_detector:inventory_scanner_off',
+	mesecons = {receptor = {
+		state = mesecon.state.on,
+		rules = mesecon.rules.pplate
+	}},
+	on_construct = inventory_scanner_make_formspec,
+	on_receive_fields = inventory_scanner_on_receive_fields,
+	sounds = default.node_sound_stone_defaults(),
+	digiline = inventory_scanner_digiline,
+	on_blast = mesecon.on_blastnode,
+})
+
+minetest.register_craft({
+	output = 'moremesecons_detector:inventory_scanner_off',
+	recipe = {
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+		{"group:mesecon_conductor_craftable", "mesecons_luacontroller:luacontroller0000", "default:steel_ingot"},
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+	}
+})
+
+minetest.register_craft({
+	output = 'moremesecons_detector:inventory_scanner_off',
+	recipe = {
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+		{"group:mesecon_conductor_craftable", "mesecons_microcontroller:microcontroller0000", "default:steel_ingot"},
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+	}
+})
+
+minetest.register_abm({
+	nodenames = {"moremesecons_detector:inventory_scanner_off"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node)
+		if not inventory_scanner_scan(pos) then return end
+
+		node.name = "moremesecons_detector:inventory_scanner_on"
+		minetest.swap_node(pos, node)
+		mesecon.receptor_on(pos, mesecon.rules.pplate)
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"moremesecons_detector:inventory_scanner_on"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node)
+		if inventory_scanner_scan(pos) then return end
+
+		node.name = "moremesecons_detector:inventory_scanner_off"
+		minetest.swap_node(pos, node)
+		mesecon.receptor_off(pos, mesecon.rules.pplate)
+	end,
+})

moremesecons_detector/locale/moremesecons_detector.de.tr

@@ -0,0 +1,5 @@
+# textdomain:moremesecons_detector
+Name(s) of awards to scan for=Name(n) der benötigten Awards
+Radius=Radius
+Faction to scan for=Benötigte Faction
+Name of item to scan for (empty for any)=Zu suchender Itemstring (Leer für alles)

moremesecons_detector/mod.conf

@@ -0,0 +1,3 @@
+name = moremesecons_detector
+depends = mesecons, mesecons_materials, mesecons_detector
+optional_depends = awards, playerfactions