From af87d6278c416fa891eaf53a7de186eb7ce6cf20 Mon Sep 17 00:00:00 2001
From: Niklp <89982526+Niklp09@users.noreply.github.com>
Date: Sat, 7 Oct 2023 11:23:18 +0200
Subject: [PATCH] Add player_monoids support (#15)

---
 control.lua | 39 +++++++++++++++++++++++++--------------
 mod.conf    |  1 +
 2 files changed, 26 insertions(+), 14 deletions(-)

diff --git a/control.lua b/control.lua
index 1eebc25..b100c02 100644
--- a/control.lua
+++ b/control.lua
@@ -10,6 +10,7 @@
 ]]--
 
 local DAYS_WITHOUT_USE = 72 * 5
+local mod_player_monoids = minetest.get_modpath("player_monoids")
 
 -- for lazy programmers
 local P2S = function(pos) if pos then return minetest.pos_to_string(pos) end end
@@ -69,25 +70,30 @@ end
 
 local function set_operator_privs(player, pos)
 	local privs = minetest.get_player_privs(player:get_player_name())
-	local physics = player:get_physics_override()
 	local meta = player:get_meta()
 	-- Check access conflicts with other mods
 	if meta:get_int("player_physics_locked") == 0 then 
-		if pos and meta and privs and physics then
+		if pos and meta and privs then
 			meta:set_string("towercrane_pos", P2S(pos))
 			-- store the player privs default values
 			meta:set_string("towercrane_fast", privs["fast"] and "true" or "false")
 			meta:set_string("towercrane_fly", privs["fly"] and "true" or "false")
-			meta:set_int("towercrane_speed", physics.speed)
 			-- set operator privs
 			meta:set_int("towercrane_isoperator", 1)
 			meta:set_int("player_physics_locked", 1)
 			privs["fly"] = true
 			privs["fast"] = nil
-			physics.speed = 0.7
-			-- write back
-			player:set_physics_override(physics)
 			minetest.set_player_privs(player:get_player_name(), privs)
+
+			if mod_player_monoids then
+				player_monoids.speed:add_change(player, 0.7, "towercrane:crane")
+			else
+				local physics = player:get_physics_override()
+				meta:set_int("towercrane_speed", physics.speed)
+				physics.speed = 0.7
+				-- write back
+				player:set_physics_override(physics)
+			end
 			return true
 		end
 	end
@@ -96,24 +102,29 @@ end
 
 local function reset_operator_privs(player)
 	local privs = minetest.get_player_privs(player:get_player_name())
-	local physics = player:get_physics_override()
 	local meta = player:get_meta()
-	if meta and privs and physics then
+	if meta and privs then
 		meta:set_string("towercrane_pos", "")
 		-- restore the player privs default values
 		meta:set_int("towercrane_isoperator", 0)
 		meta:set_int("player_physics_locked", 0)
 		privs["fast"] = meta:get_string("towercrane_fast") == "true" or nil
 		privs["fly"] = meta:get_string("towercrane_fly") == "true" or nil
-		physics.speed = meta:get_int("towercrane_speed")
-		if physics.speed == 0 then physics.speed = 1 end
+		minetest.set_player_privs(player:get_player_name(), privs)
 		-- delete stored default values
 		meta:set_string("towercrane_fast", "")
 		meta:set_string("towercrane_fly", "")
-		meta:set_string("towercrane_speed", "")
-		-- write back
-		player:set_physics_override(physics)
-		minetest.set_player_privs(player:get_player_name(), privs)
+
+		if mod_player_monoids then
+			player_monoids.speed:del_change(player, "towercrane:crane")
+		else
+			local physics = player:get_physics_override()
+			physics.speed = meta:get_int("towercrane_speed")
+			meta:set_string("towercrane_speed", "")
+			if physics.speed == 0 then physics.speed = 1 end
+			-- write back
+			player:set_physics_override(physics)
+		end
 	end
 end
 
diff --git a/mod.conf b/mod.conf
index 2861055..e6d5a7f 100644
--- a/mod.conf
+++ b/mod.conf
@@ -1,3 +1,4 @@
 name = towercrane
 depends = default
+optional_depends = player_monoids
 description = A crane for easier construction of buildings. The crane forms a working area in which the player gets fly privs.
\ No newline at end of file