meatblocks can be eaten for 20 hp

api.lua

@@ -9,7 +9,7 @@ local use_cmi = minetest.global_exists("cmi")
 
 mobs = {
 	mod = "redo",
-	version = "20200825",
+	version = "20200916",
 	intllib = S,
 	invis = minetest.global_exists("invisibility") and invisibility or {}
 }
@@ -2685,20 +2685,20 @@ function mob_class:on_punch(hitter, tflp, tool_capabilities, dir, damage)
 
 	-- mob health check
 	if self.health <= 0 then
-		return
+		return true
 	end
 
 	-- custom punch function
 	if self.do_punch
 	and self:do_punch(hitter, tflp, tool_capabilities, dir) == false then
-		return
+		return true
 	end
 
 	-- error checking when mod profiling is enabled
 	if not tool_capabilities then
 		minetest.log("warning",
 				"[mobs] Mod profiling enabled, damage not enabled")
-		return
+		return true
 	end
 
 	-- is mob protected?
@@ -2709,7 +2709,7 @@ function mob_class:on_punch(hitter, tflp, tool_capabilities, dir, damage)
 		minetest.chat_send_player(hitter:get_player_name(),
 				S("Mob has been protected!"))
 
-		return
+		return true
 	end
 
 	local weapon = hitter:get_wielded_item()
@@ -2770,7 +2770,7 @@ function mob_class:on_punch(hitter, tflp, tool_capabilities, dir, damage)
 	if use_cmi
 	and cmi.notify_punch(
 			self.object, hitter, tflp, tool_capabilities, dir, damage) then
-		return
+		return true
 	end
 
 	-- add weapon wear
@@ -2875,7 +2875,7 @@ function mob_class:on_punch(hitter, tflp, tool_capabilities, dir, damage)
 		local v = self.object:get_velocity()
 
 		-- sanity check
-		if not v then return end
+		if not v then return true end
 
 		local kb = damage or 1
 		local up = 2
@@ -3699,8 +3699,8 @@ function mobs:spawn_abm_check(pos, node, name)
 end
 
 
-function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
-		interval, chance, aoc, min_height, max_height, day_toggle, on_spawn)
+function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light, interval,
+		chance, aoc, min_height, max_height, day_toggle, on_spawn, map_load)
 
 	-- Do mobs spawn at all?
 	if not mobs_spawn or not mobs.spawning_mobs[name] then
@@ -3725,23 +3725,24 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 		minetest.log("action", string.format(
 				"[mobs] Chance setting for %s changed to %s (total: %s)",
 				name, chance, aoc))
-
 	end
 
 	mobs.spawning_mobs[name].aoc = aoc
 
-	minetest.register_abm({
-
-		label = name .. " spawning",
-		nodenames = nodes,
-		neighbors = neighbors,
-		interval = interval,
-		chance = max(1, (chance * mob_chance_multiplier)),
-		catch_up = false,
-
-		action = function(pos, node, active_object_count,
+	local spawn_action = function(pos, node, active_object_count,
 			active_object_count_wider)
 
+		-- use instead of abm's chance setting when using lbm
+		if map_load and random(max(1, (chance * mob_chance_multiplier))) > 1 then
+			return
+		end
+
+		-- use instead of abm's neighbor setting when using lbm
+		if map_load and not minetest.find_node_near(pos, 1, neighbors) then
+--print("--- lbm neighbors not found")
+			return
+		end
+
 		-- is mob actually registered?
 		if not mobs.spawning_mobs[name]
 		or not minetest.registered_entities[name] then
@@ -3761,7 +3762,8 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 		end
 
 		-- do not spawn if too many entities in area
-			if active_object_count_wider >= max_per_block then
+		if active_object_count_wider
+		and active_object_count_wider >= max_per_block then
 --print("--- too many entities in area", active_object_count_wider)
 			return
 		end
@@ -3826,8 +3828,7 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 		end
 
 		-- only spawn a set distance away from player
-			local objs = minetest.get_objects_inside_radius(
-					pos, mob_nospawn_range)
+		local objs = minetest.get_objects_inside_radius(pos, mob_nospawn_range)
 
 		for n = 1, #objs do
 
@@ -3839,8 +3840,7 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 
 		-- do we have enough space to spawn mob? (thanks wuzzy)
 		local ent = minetest.registered_entities[name]
-			local width_x = max(1,
-					ceil(ent.collisionbox[4] - ent.collisionbox[1]))
+		local width_x = max(1, ceil(ent.collisionbox[4] - ent.collisionbox[1]))
 		local min_x, max_x
 
 		if width_x % 2 == 0 then
@@ -3851,8 +3851,7 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 			min_x = -max_x
 		end
 
-			local width_z = max(1,
-					ceil(ent.collisionbox[6] - ent.collisionbox[3]))
+		local width_z = max(1, ceil(ent.collisionbox[6] - ent.collisionbox[3]))
 		local min_z, max_z
 
 		if width_z % 2 == 0 then
@@ -3863,8 +3862,7 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 			min_z = -max_z
 		end
 
-			local max_y = max(0,
-					ceil(ent.collisionbox[5] - ent.collisionbox[2]) - 1)
+		local max_y = max(0, ceil(ent.collisionbox[5] - ent.collisionbox[2]) - 1)
 
 		for y = 0, max_y do
 		for x = min_x, max_x do
@@ -3875,8 +3873,7 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 				y = pos.y + y,
 				z = pos.z + z}
 
-				if minetest.registered_nodes[
-						node_ok(pos2).name].walkable == true then
+			if minetest.registered_nodes[node_ok(pos2).name].walkable == true then
 --print("--- not enough space to spawn", name)
 				return
 			end
@@ -3903,13 +3900,40 @@ function mobs:spawn_specific(name, nodes, neighbors, min_light, max_light,
 --		.. node.name .. " near " .. neighbors[1])
 
 		if on_spawn then
-
-				local ent = mob:get_luaentity()
-
-				on_spawn(ent, pos)
+			on_spawn(mob:get_luaentity(), pos)
 		end
 	end
+
+
+	-- are we registering an abm or lbm?
+	if map_load == true then
+
+		minetest.register_lbm({
+			name = name .. "_spawning",
+			label = name .. " spawning",
+			nodenames = nodes,
+			run_at_every_load = false,
+
+			action = function(pos, node)
+				spawn_action(pos, node)
+			end
 		})
+
+	else
+
+		minetest.register_abm({
+			label = name .. " spawning",
+			nodenames = nodes,
+			neighbors = neighbors,
+			interval = interval,
+			chance = max(1, (chance * mob_chance_multiplier)),
+			catch_up = false,
+
+			action = function(pos, node, active_object_count, active_object_count_wider)
+				spawn_action(pos, node, active_object_count, active_object_count_wider)
+			end
+		})
+	end
 end
 
 
@@ -3922,7 +3946,7 @@ function mobs:register_spawn(name, nodes, max_light, min_light, chance,
 end
 
 
--- MarkBu's spawn function
+-- MarkBu's spawn function (USE this one please)
 function mobs:spawn(def)
 
 	mobs:spawn_specific(
@@ -3937,7 +3961,8 @@ function mobs:spawn(def)
 		def.min_height or -31000,
 		def.max_height or 31000,
 		def.day_toggle,
-		def.on_spawn)
+		def.on_spawn,
+		def.on_map_load)
 end
 
 
@@ -4563,6 +4588,8 @@ function mobs:feed_tame(self, clicker, feed_count, breed, tame)
 			.. ";" .. tag .. "]"
 			.. "button_exit[2.5,3.5;3,1;mob_rename;"
 			.. minetest.formspec_escape(S("Rename")) .. "]")
+
+		return true
 	end
 
 	return false

api.txt

@@ -383,6 +383,9 @@ default setting and can be omitted:
                           anytime
     'on_spawn'            is a custom function which runs after mob has spawned
                           and gives self and pos values.
+    'on_map_load'         when true mobs will have a chance of spawning only
+                          when new areas of map are loaded, interval will not be
+                          used.
 
 The older spawn functions are still active and working but have no defaults like
 the mobs:spawn, so it is recommended to use the above instead.
@@ -698,8 +701,8 @@ mobs_monster:sand_monster 100
 ...you can also change how many of a certain mob appear in an active mapblock by
 adding a comma and then a new value e.g.
 
-mobs_animal:cow 8000,4            <-- 4 cows per mapblock at 8000 spawn chance
-mobs_monster:dirt_monster ,20     <-- 20 dirt monsters per mapblock
+mobs_animal:cow = 8000,4            <-- 4 cows per mapblock at 8000 spawn chance
+mobs_monster:dirt_monster = ,20     <-- 20 dirt monsters per mapblock
 
 
 Rideable Horse Example Mob

crafts.lua

@@ -331,3 +331,25 @@ minetest.register_on_player_receive_fields(function(player, formname, fields)
 		tex_obj = nil
 	end
 end)
+
+
+-- Meat Block (thanks to painterlypack.net for allowing me to use these textures)
+minetest.register_node("mobs:meatblock", {
+	description = S("Meat Block"),
+	tiles = {"mobs_meat_top.png", "mobs_meat_bottom.png", "mobs_meat_side.png"},
+	paramtype2 = "facedir",
+	groups = {choppy = 1, oddly_breakable_by_hand = 1, flammable = 2},
+	sounds = default.node_sound_leaves_defaults(),
+	on_place = minetest.rotate_node,
+	on_use = minetest.item_eat(20),
+})
+
+minetest.register_craft({
+	output = "mobs:meatblock",
+	type = "shapeless",
+	recipe = {
+		"group:food_meat", "group:food_meat", "group:food_meat",
+		"group:food_meat", "group:food_meat", "group:food_meat",
+		"group:food_meat", "group:food_meat", "group:food_meat"
+	}
+})

readme.MD

@@ -23,7 +23,8 @@ Lucky Blocks: 9
 
 
 Changelog:
-- 1.52 - Added 'mob_active_limit' in settings to set number of mobs in game
+- 1.53 - Added 'on_map_load' settings to mobs:spawn so that mobs will only spawn when new areas of map are loaded.
+- 1.52 - Added 'mob_active_limit' in settings to set number of mobs in game,
 (default is 0 for unlimited), removed {immortal} from mob armor, fluid viscocity slows mobs
 - 1.51 - Added some node checks for dangerous nodes, jumping and falling tweaks, spawn area check (thx for idea wuzzy), re-enabled mob suffocation, add 'mob_nospawn_range' setting
 - 1.50 - Added new line_of_sight function that uses raycasting if mt5.0 is found,  (thanks Astrobe), dont spawn mobs if world anchor nearby (technic or simple_anchor mods), chinese local added