sheep.lua

local S = mobs.intllib_animal

local random = math.random

local all_colours = {
	{ "black",      S("Black"),      "#000000b0" },
	{ "blue",       S("Blue"),       "#015dbb70" },
	{ "brown",      S("Brown"),      "#663300a0" },
	{ "cyan",       S("Cyan"),       "#01ffd870" },
	{ "dark_green", S("Dark Green"), "#005b0770" },
	{ "dark_grey",  S("Dark Grey"),  "#303030b0" },
	{ "green",      S("Green"),      "#61ff0170" },
	{ "grey",       S("Grey"),       "#5b5b5bb0" },
	{ "magenta",    S("Magenta"),    "#ff05bb70" },
	{ "orange",     S("Orange"),     "#ff840170" },
	{ "pink",       S("Pink"),       "#ff65b570" },
	{ "red",        S("Red"),        "#ff0000a0" },
	{ "violet",     S("Violet"),     "#2000c970" },
	{ "white",      S("White"),      "#abababc0" },
	{ "yellow",     S("Yellow"),     "#e3ff0070" }
}


-- Sheep by PilzAdam/K Pavel, texture converted to minetest by AMMOnym from Summerfield pack

for _, col in ipairs(all_colours) do
	local drops_normal = {
		{ name = "mobs:mutton_raw", chance = 1, min = 1, max = 2 },
		{ name = "wool:" .. col[1], chance = 1, min = 1, max = 1 }
	}

	local drops_gotten = {
		{ name = "mobs:mutton_raw", chance = 1, min = 1, max = 2 }
	}

	mobs:register_mob("mobs_animal:sheep_" .. col[1], {
		stay_near = { "farming:straw", 10 },
		stepheight = 0.6,
		type = "animal",
		passive = true,
		hp_min = 8,
		hp_max = 10,
		armor = 200,
		collisionbox = { -0.5, -1, -0.5, 0.5, 0.3, 0.5 },
		visual = "mesh",
		mesh = "mobs_sheep.b3d",
		textures = {
			{ "mobs_sheep_base.png^(mobs_sheep_wool.png^[colorize:" .. col[3] .. ")" }
		},
		gotten_texture = { "mobs_sheep_shaved.png" },
		gotten_mesh = "mobs_sheep_shaved.b3d",
		makes_footstep_sound = true,
		sounds = {
			random = "mobs_sheep"
		},
		walk_velocity = 1,
		run_velocity = 2,
		runaway = true,
		jump = true,
		jump_height = 6,
		pushable = true,
		drops = drops_normal,
		water_damage = 0.01,
		lava_damage = 5,
		light_damage = 0,
		animation = {
			speed_normal = 15,
			speed_run = 15,
			stand_start = 0,
			stand_end = 80,
			walk_start = 81,
			walk_end = 100,
			die_start = 1, -- we dont have a specific death animation so we will
			die_end = 2, --   re-use 2 standing frames at a speed of 1 fps and
			die_speed = 1, -- have mob rotate when dying.
			die_loop = false,
			die_rotate = true
		},
		follow = {
			"farming:wheat", "default:grass_1", "farming:barley",
			"farming:oat", "farming:rye"
		},
		view_range = 8,
		replace_rate = 10,
		replace_what = {
			{ "group:grass",             "air",          -1 },
			{ "default:dirt_with_grass", "default:dirt", -2 }
		},
		fear_height = 3,
		on_replace = function(self, pos, oldnode, newnode)
			self.food = (self.food or 0) + 1

			-- if sheep replaces 8x grass then it regrows wool
			if self.food >= 8 then
				self.food = 0
				self.gotten = false
				self.drops = drops_normal

				self.object:set_properties({
					textures = {
						"mobs_sheep_base.png^(mobs_sheep_wool.png^[colorize:"
						.. col[3] .. ")"
					},
					mesh = "mobs_sheep.b3d",
				})
			end
		end,
		on_rightclick = function(self, clicker)
			--are we feeding?
			if mobs:feed_tame(self, clicker, 8, true, true) then
				--if fed 7 times then sheep regrows wool
				if self.food and self.food > 6 then
					self.gotten = false
					self.drops = drops_normal

					self.object:set_properties({
						textures = {
							"mobs_sheep_base.png^(mobs_sheep_wool.png^[colorize:"
							.. col[3] .. ")"
						},
						mesh = "mobs_sheep.b3d"
					})
				end

				return
			end

			local item = clicker:get_wielded_item()
			local itemname = item:get_name()
			local name = clicker:get_player_name()

			--are we giving a haircut>
			if itemname == "mobs:shears" then
				if self.gotten ~= false
					or self.child ~= false
					or name ~= self.owner
					or not minetest.get_modpath("wool") then
					return
				end

				self.gotten = true -- shaved
				self.drops = drops_gotten

				local obj = minetest.add_item(
					self.object:get_pos(),
					ItemStack("wool:" .. col[1] .. " " .. random(3))
				)

				if obj then
					obj:set_velocity({
						x = random(-1, 1),
						y = 5,
						z = random(-1, 1)
					})
				end

				item:add_wear(650) -- 100 uses

				clicker:set_wielded_item(item)

				self.object:set_properties({
					textures = { "mobs_sheep_shaved.png" },
					mesh = "mobs_sheep_shaved.b3d"
				})

				return
			end

			--are we coloring?
			if itemname:find("dye:") then
				if self.gotten == false
					and self.child == false
					and self.tamed == true
					and name == self.owner then
					local colr = string.split(itemname, ":")[2]

					for _, c in pairs(all_colours) do
						if c[1] == colr then
							local pos = self.object:get_pos()

							self.object:remove()

							local mob = minetest.add_entity(pos, "mobs_animal:sheep_" .. colr)
							local ent = mob:get_luaentity()

							ent.owner = name
							ent.tamed = true
							ent.protected = self.protected
							ent.fire_damage = self.fire_damage

							-- take item
							if not mobs.is_creative(clicker:get_player_name()) then
								item:take_item()
								clicker:set_wielded_item(item)
							end

							break
						end
					end
				end

				return
			end

			-- protect mod with mobs:protector item
			if mobs:protect(self, clicker) then return end

			--are we capturing?
			if mobs:capture_mob(self, clicker, 0, 5, 60, false, nil) then return end
		end
	})

	-- spawn egg
	mobs:register_egg("mobs_animal:sheep_" .. col[1], S("@1 Sheep", col[2]),
		"wool_" .. col[1] .. ".png^mobs_sheep_inv.png")

	-- compatibility
	mobs:alias_mob("mobs:sheep_" .. col[1], "mobs_animal:sheep_" .. col[1])
end


if not mobs.custom_spawn_animal then
	mobs:spawn({
		name = "mobs_animal:sheep_white",
		nodes = { "default:dirt_with_grass", "ethereal:green_dirt" },
		neighbors = { "group:grass" },
		min_light = 14,
		interval = 60,
		chance = 8000,
		min_height = 0,
		max_height = 200,
		day_toggle = true,
		active_object_count = 3,
		-- custom function to spawn sheep herds around main mob
		on_spawn = function(self, pos)
			local nods = minetest.find_nodes_in_area_under_air(
				{ x = pos.x - 4, y = pos.y - 3, z = pos.z - 4 },
				{ x = pos.x + 4, y = pos.y + 3, z = pos.z + 4 },
				{ "default:dirt_with_grass", "ethereal:green_dirt" })

			if nods and #nods > 0 then
				-- min herd of 3
				local iter = math.min(#nods, 3)

				-- print("--- sheep at", minetest.pos_to_string(pos), iter)

				for n = 1, iter do
					-- 1/8 chance of black sheep, 1/4 chance of baby sheep
					local pos2 = nods[random(#nods)]
					local type = random(8) == 1 and "_black" or "_white"
					local kid = random(4) == 1 and true or nil

					pos2.y = pos2.y + 2

					if minetest.get_node(pos2).name == "air" then
						mobs:add_mob(pos2, {
							name = "mobs_animal:sheep" .. type, child = kid })
					end
				end
			end
		end
	})
end


mobs:alias_mob("mobs:sheep", "mobs_animal:sheep_white") -- compatibility


-- raw mutton
minetest.register_craftitem(":mobs:mutton_raw", {
	description = S("Raw Mutton") .. '\n' ..
		minetest.colorize('#DEB887', S('Hunger') .. ': 2'),
	inventory_image = "mobs_mutton_raw.png",
	on_use = function(itemstack, user, pointed_thing)
		local hunger_amount = minetest.get_item_group(itemstack:get_name(), "hunger_amount") or 0
		if hunger_amount == 0 then
			return itemstack
		end
		return minetest.item_eat(hunger_amount)(itemstack, user, pointed_thing)
	end,
	groups = { food_meat_raw = 1, food_mutton_raw = 1, flammable = 2, hunger_amount = 2 }
})

-- cooked mutton
minetest.register_craftitem(":mobs:mutton_cooked", {
	description = S("Cooked Mutton") .. '\n' ..
		minetest.colorize('#DEB887', S('Hunger') .. ': 6'),
	inventory_image = "mobs_mutton_cooked.png",
	on_use = function(itemstack, user, pointed_thing)
		local hunger_amount = minetest.get_item_group(itemstack:get_name(), "hunger_amount") or 0
		if hunger_amount == 0 then
			return itemstack
		end
		return minetest.item_eat(hunger_amount)(itemstack, user, pointed_thing)
	end,
	groups = { food_meat = 1, food_mutton = 1, flammable = 2, hunger_amount = 6 }
})

minetest.register_craft({
	type = "cooking",
	output = "mobs:mutton_cooked",
	recipe = "mobs:mutton_raw",
	cooktime = 5
})