From 201c2bf170555b0ae767ca05ad707cccf6cb30a3 Mon Sep 17 00:00:00 2001
From: Wuzzy <Wuzzy2@mail.ru>
Date: Sun, 3 Jun 2018 16:13:46 +0200
Subject: [PATCH] Fix minetest.after crashes in mcl_mobs

---
 mods/ENTITIES/mcl_mobs/api.lua   | 42 +++++++++++++++++++++++---------
 mods/ENTITIES/mcl_mobs/mount.lua | 16 +++++++-----
 2 files changed, 41 insertions(+), 17 deletions(-)

diff --git a/mods/ENTITIES/mcl_mobs/api.lua b/mods/ENTITIES/mcl_mobs/api.lua
index b2acbb8d9..2df486348 100644
--- a/mods/ENTITIES/mcl_mobs/api.lua
+++ b/mods/ENTITIES/mcl_mobs/api.lua
@@ -493,8 +493,10 @@ local check_for_death = function(self, cause, cmi_cause)
 		set_animation(self, "die")
 
 		minetest.after(length, function(self)
-
-			if use_cmi then
+			if not self.object:get_luaentity() then
+				return
+			end
+			if use_cmi  then
 				cmi.notify_die(self.object, cmi_cause)
 			end
 
@@ -769,6 +771,9 @@ local do_jump = function(self)
 
 			-- when in air move forward
 			minetest.after(0.3, function(self, v)
+				if not self.object:get_luaentity() then
+					return
+				end
 				self.object:set_acceleration({
 					x = v.x * 2,
 					y = 0,
@@ -949,17 +954,23 @@ local breed = function(self)
 				ent.hornytimer = 41
 
 				-- spawn baby
-				minetest.after(5, function()
+				minetest.after(5, function(parent1, parent2, pos)
+					if not parent1.object:get_luaentity() then
+						return
+					end
+					if not parent2.object:get_luaentity() then
+						return
+					end
 
 					-- custom breed function
-					if self.on_breed then
-						-- when false skip going any further
-						if self.on_breed(self, ent) == false then
+					if parent1.on_breed then
+						-- when false, skip going any further
+						if parent1.on_breed(parent1, parent2) == false then
 							return
 						end
 					end
 
-					local child = mobs:spawn_child(pos, self.name)
+					local child = mobs:spawn_child(pos, parent1.name)
 
 					local ent_c = child:get_luaentity()
 
@@ -967,9 +978,9 @@ local breed = function(self)
 					-- Use texture of one of the parents
 					local p = math.random(1, 2)
 					if p == 1 then
-						ent_c.base_texture = self.base_texture
+						ent_c.base_texture = parent1.base_texture
 					else
-						ent_c.base_texture = ent.base_texture
+						ent_c.base_texture = parent2.base_texture
 					end
 					child:set_properties({
 						textures = ent_c.base_texture
@@ -977,8 +988,8 @@ local breed = function(self)
 
 					-- tamed and owned by parents' owner
 					ent_c.tamed = true
-					ent_c.owner = self.owner
-				end)
+					ent_c.owner = parent1.owner
+				end, self, ent, pos)
 
 				num = 0
 
@@ -1096,6 +1107,9 @@ local smart_mobs = function(self, s, p, dist, dtime)
 			use_pathfind = false
 
 			minetest.after(1, function(self)
+				if not self.object:get_luaentity() then
+					return
+				end
 				if has_lineofsight then self.path.following = false end
 			end, self)
 		end -- can see target!
@@ -1107,6 +1121,9 @@ local smart_mobs = function(self, s, p, dist, dtime)
 		self.path.stuck_timer = 0
 
 		minetest.after(1, function(self)
+			if not self.object:get_luaentity() then
+				return
+			end
 			if has_lineofsight then self.path.following = false end
 		end, self)
 	end
@@ -1117,6 +1134,9 @@ local smart_mobs = function(self, s, p, dist, dtime)
 		self.path.stuck_timer = 0
 
 		minetest.after(1, function(self)
+			if not self.object:get_luaentity() then
+				return
+			end
 			if has_lineofsight then self.path.following = false end
 		end, self)
 	end
diff --git a/mods/ENTITIES/mcl_mobs/mount.lua b/mods/ENTITIES/mcl_mobs/mount.lua
index ae5785031..b12c074da 100644
--- a/mods/ENTITIES/mcl_mobs/mount.lua
+++ b/mods/ENTITIES/mcl_mobs/mount.lua
@@ -151,9 +151,11 @@ function mobs.attach(entity, player)
 		}
 	})
 
-	minetest.after(0.2, function()
-		mcl_player.player_set_animation(player, "sit" , 30)
-	end)
+	minetest.after(0.2, function(player)
+		if player:is_player() then
+			mcl_player.player_set_animation(player, "sit" , 30)
+		end
+	end, player)
 
 	player:set_look_horizontal(entity.object:get_yaw() - rot_view)
 end
@@ -169,9 +171,11 @@ function mobs.detach(player, offset)
 
 	pos = {x = pos.x + offset.x, y = pos.y + 0.2 + offset.y, z = pos.z + offset.z}
 
-	minetest.after(0.1, function()
-		player:setpos(pos)
-	end)
+	minetest.after(0.1, function(player, pos)
+		if player:is_player() then
+			player:set_pos(pos)
+		end
+	end, player, pos)
 end