tweak for mineclone and 5.x, backguard compat 0.4, intlib only for older

* backported commit 131c932aa6
  that will tweak detection of player api for mt5, mineclone2 and mt 0.4
* backported adapted 5e96602085

api.lua

@@ -1,4 +1,4 @@
-local MP = minetest.get_modpath(minetest.get_current_modname())
+local MP = minetest.get_modpath("mobs")
 -- Check for translation method
 local S
 
@@ -21,22 +21,29 @@ else
 		end
 	end
 end
+local FS = function(...) return minetest.formspec_escape(S(...)) end
+
 
 -- CMI support check
 local use_cmi = minetest.global_exists("cmi")
 
+-- MineClone2 check
+local use_mc2 = minetest.get_modpath("mcl_core")
+
+-- Global
 mobs = {
 	mod = "redo",
-	version = "20230807",
-	intllib = S,
+	version = "20230809",
+	translate = S, intllib = S,
 	invis = minetest.global_exists("invisibility") and invisibility or {},
 	node_ice = "default:ice",
-	node_snow = minetest.registered_aliases["mapgen_snow"] or "default:snow" or "mcl_core:snow",
-	node_dirt = minetest.registered_aliases["mapgen_dirt"] or "default:dirt" or "mcl_core:dirt"
+	node_snow = minetest.registered_aliases["mapgen_snow"]
+			or (use_mc2 and "mcl_core:snow") or "default:snow",
+	node_dirt = minetest.registered_aliases["mapgen_dirt"]
+			or (use_mc2 and "mcl_core:dirt") or "default:dirt"
 }
 mobs.fallback_node = mobs.node_dirt
 
-
 -- localize common functions
 local pi = math.pi
 local square = math.sqrt

init.lua

@@ -21,6 +21,9 @@ dofile(path .. "/crafts.lua")
 dofile(path .. "/spawner.lua")
 
 -- Lucky Blocks
-dofile(path .. "/lucky_block.lua")
+if minetest.get_modpath("lucky_block") then
+	dofile(path .. "/lucky_block.lua")
+end
+
 
 print("[MOD] Mobs Redo loaded")

lucky_block.lua

@@ -1,7 +1,5 @@
 
-if minetest.get_modpath("lucky_block") then
-
-	lucky_block:add_blocks({
+lucky_block:add_blocks({
 	{"dro", {"mobs:meat_raw"}, 5},
 	{"dro", {"mobs:meat"}, 5},
 	{"dro", {"mobs:nametag"}, 1},
@@ -14,5 +12,4 @@ if minetest.get_modpath("lucky_block") then
 	{"dro", {"mobs:fence_wood"}, 10},
 	{"dro", {"mobs:fence_top"}, 12},
 	{"lig"}
-	})
-end
+})

mount.lua

@@ -1,8 +1,10 @@
 -- lib_mount by Blert2112 (edited by TenPlus1)
 
---[[ one of these is needed (for now) to ride mobs, otherwise no riding for you
-if not minetest.get_modpath("default")
-or not minetest.get_modpath("player_api") then
+local is_pa = minetest.get_modpath("player_api") -- 5.x compatibility
+local is_mc2 = minetest.get_modpath("mcl_mobs") -- MineClone2 check
+
+-- one of these is needed to ride mobs, otherwise no riding for you
+if not minetest.get_modpath("default") and not is_pa and not is_mc2 then
 
 	function mobs.attach() end
 	function mobs.detach() end
@@ -11,10 +13,6 @@ or not minetest.get_modpath("player_api") then
 
 	return
 end
-]]
-
-local is_pa = minetest.get_modpath("player_api") -- 5.x compatibility
-local is_mc2 = minetest.get_modpath("mcl_mobs") -- MineClone2 compatibility
 
 -- are we a real player ?
 local function is_player(player)
@@ -25,7 +23,7 @@ local function is_player(player)
 	return false
 end
 
-
+-- Localise some functions
 local abs, cos, floor, sin, sqrt, pi =
 		math.abs, math.cos, math.floor, math.sin, math.sqrt, math.pi
 
@@ -117,16 +115,18 @@ local function force_detach(player)
 
 	local name = player:get_player_name()
 
-	if is_pa then
-		player_api.player_attached[name] = false
-		player_api.set_animation(player, "stand", 30)
-	elseif is_mc2 then
+	if is_mc2 then
 		mcl_player.player_attached[player:get_player_name()] = false
 		mcl_player.player_set_animation(player, "stand", 30)
+	else
+		if is_pa then
+		player_api.player_attached[name] = false
+		player_api.set_animation(player, "stand", 30)
 		else
 		default.player_attached[name] = false
 		default.player_set_animation(player, "stand", 30)
 		end
+	end
 
 	player:set_eye_offset({x = 0, y = 0, z = 0}, {x = 0, y = 0, z = 0})
 	player:set_properties({visual_size = {x = 1, y = 1}})
@@ -209,13 +209,15 @@ function mobs.attach(entity, player)
 
 	force_detach(player)
 
-	if is_pa then
-		player_api.player_attached[player:get_player_name()] = true
-	elseif is_mc2 then
+	if is_mc2 then
 		mcl_player.player_attached[player:get_player_name()] = true
+	else
+		if is_pa then
+		player_api.player_attached[player:get_player_name()] = true
 		else
 		default.player_attached[player:get_player_name()] = true
 		end
+	end
 
 	player:set_attach(entity.object, "", attach_at, entity.player_rotation)
 	player:set_eye_offset(eye_offset, {x = 0, y = 0, z = 0})
@@ -231,10 +233,11 @@ function mobs.attach(entity, player)
 
 		if is_player(player) then
 
+			if is_mc2 then
+				mcl_player.player_set_animation(player, "sit_mount" , 30)
+			else
 				if is_pa then
 				player_api.set_animation(player, "sit", 30)
-			elseif is_mc2 then
-				mcl_player.player_set_animation(player, "sit_mount" , 30)
 				else
 				default.player_set_animation(player, "sit", 30)
 				end