From 6456aba73f0ef3f2fa7fd2b2a69cfdf8624afe23 Mon Sep 17 00:00:00 2001
From: Wuzzy <wuzzy2@mail.ru>
Date: Sun, 24 May 2020 15:46:26 +0200
Subject: Replacement for Minimal Development Test (PR) (#9450)

---
 games/minimal/mods/util_commands/init.lua | 137 ++++++++++++++++++++++++++++++
 1 file changed, 137 insertions(+)
 create mode 100644 games/minimal/mods/util_commands/init.lua

(limited to 'games/minimal/mods/util_commands/init.lua')

diff --git a/games/minimal/mods/util_commands/init.lua b/games/minimal/mods/util_commands/init.lua
new file mode 100644
index 000000000..ad8d3f9ba
--- /dev/null
+++ b/games/minimal/mods/util_commands/init.lua
@@ -0,0 +1,137 @@
+minetest.register_chatcommand("hotbar", {
+	params = "<size>",
+	description = "Set hotbar size",
+	func = function(name, param)
+		local player = minetest.get_player_by_name(name)
+		if not player then
+			return false, "No player."
+		end
+		local size = tonumber(param)
+		if not size then
+			return false, "Missing or incorrect size parameter!"
+		end
+		local ok = player:hud_set_hotbar_itemcount(size)
+		if ok then
+			return true
+		else
+			return false, "Invalid item count!"
+		end
+	end,
+})
+
+minetest.register_chatcommand("hp", {
+	params = "<hp>",
+	description = "Set your health",
+	func = function(name, param)
+		local player = minetest.get_player_by_name(name)
+		if not player then
+			return false, "No player."
+		end
+		local hp = tonumber(param)
+		if not hp then
+			return false, "Missing or incorrect hp parameter!"
+		end
+		player:set_hp(hp)
+		return true
+	end,
+})
+
+minetest.register_chatcommand("zoom", {
+	params = "[<zoom_fov>]",
+	description = "Set or display your zoom_fov",
+	func = function(name, param)
+		local player = minetest.get_player_by_name(name)
+		if not player then
+			return false, "No player."
+		end
+		if param == "" then
+			local fov = player:get_properties().zoom_fov
+			return true, "zoom_fov = "..tostring(fov)
+		end
+		local fov = tonumber(param)
+		if not fov then
+			return false, "Missing or incorrect zoom_fov parameter!"
+		end
+		player:set_properties({zoom_fov = fov})
+		fov = player:get_properties().zoom_fov
+		return true, "zoom_fov = "..tostring(fov)
+	end,
+})
+
+
+
+local s_infplace = minetest.settings:get("devtest_infplace")
+if s_infplace == "true" then
+	infplace = true
+elseif s_infplace == "false" then
+	infplace = false
+else
+	infplace = minetest.settings:get_bool("creative_mode", false)
+end
+
+minetest.register_chatcommand("infplace", {
+	params = "",
+	description = "Toggle infinite node placement",
+	func = function(name, param)
+		infplace = not infplace
+		if infplace then
+			minetest.chat_send_all("Infinite node placement enabled!")
+			minetest.log("action", "Infinite node placement enabled")
+		else
+			minetest.chat_send_all("Infinite node placement disabled!")
+			minetest.log("action", "Infinite node placement disabled")
+		end
+		return true
+	end,
+})
+
+minetest.register_chatcommand("detach", {
+	params = "[<radius>]",
+	description = "Detach all objects nearby",
+	func = function(name, param)
+		local radius = tonumber(param)
+		if type(radius) ~= "number" then
+			radius = 8
+		end
+		if radius < 1 then
+			radius = 1
+		end
+		local player = minetest.get_player_by_name(name)
+		if not player then
+			return false, "No player."
+		end
+		local objs = minetest.get_objects_inside_radius(player:get_pos(), radius)
+		local num = 0
+		for o=1, #objs do
+			if objs[o]:get_attach() then
+				objs[o]:set_detach()
+				num = num + 1
+			end
+		end
+		return true, string.format("%d object(s) detached.", num)
+	end,
+})
+
+
+-- Unlimited node placement
+minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
+	if placer and placer:is_player() then
+		return infplace
+	end
+end)
+
+-- Don't pick up if the item is already in the inventory
+local old_handle_node_drops = minetest.handle_node_drops
+function minetest.handle_node_drops(pos, drops, digger)
+	if not digger or not digger:is_player() or not infplace then
+		return old_handle_node_drops(pos, drops, digger)
+	end
+	local inv = digger:get_inventory()
+	if inv then
+		for _, item in ipairs(drops) do
+			if not inv:contains_item("main", item, true) then
+				inv:add_item("main", item)
+			end
+		end
+	end
+end
-- 
cgit v1.2.3