musttest_game/mods/farming/api.lua

local FARMING_DEFTIME_MIN = 60*10
local FARMING_DEFTIME_MAX = 60*15

-- Localize for performance.
local math_random = math.random

function farming.notify_soil(pos)
	local minp = vector.add(pos, -4)
	local maxp = vector.add(pos, 4)
	local soils = minetest.find_nodes_in_area(minp, maxp, "group:field")
	if soils and #soils > 0 then
		for i=1, #soils do
			local timer = minetest.get_node_timer(soils[i])
			if timer and not timer:is_started() then
				timer:start(math_random(1, 60))
			end
		end
	end
end

function farming.notify_soil_single(pos)
	local timer = minetest.get_node_timer(pos)
  if timer and not timer:is_started() then
  	timer:start(math_random(1, 60))
	end
end



-- Wear out hoes, place soil
-- TODO Ignore group:flower (note to self: why?)
farming.hoe_on_use = function(itemstack, user, pointed_thing, uses)
	local pt = pointed_thing
	-- check if pointing at a node
	if not pt then
		return
	end
	if pt.type ~= "node" then
		return
	end

	local pname = user:get_player_name()
	local under = minetest.get_node(pt.under)
	local p = {x=pt.under.x, y=pt.under.y+1, z=pt.under.z}
	local above = minetest.get_node(p)

	-- return if any of the nodes is not registered
	if not minetest.reg_ns_nodes[under.name] then
		return
	end
	if not minetest.reg_ns_nodes[above.name] then
		return
	end

	-- Allow 'default:dirt' and 'default:desert_sand' to be hoed, bypassing protection.
	-- This is needed because the hoed/soil versions of these two nodes can be
	-- trampled bypassing protection, causing them to revert to their base dirt form.
	-- Note that hoed dirt/sand can only be trampled if nothing is growing on it.
	-- Important: do NOT allow any kind of grass to be hoed without protection permission.
	if not (under.name == "default:dirt" or under.name == "default:desert_sand") then
		if minetest.is_protected(pt.under, pname) then
			return
		end
		if minetest.is_protected(pt.above, pname) then
			return
		end
	end

  -- Let hoes be used to get resources back from planted mese crystals.
  -- Note that harvesting a crystal completely yeilds more fragments,
  -- but there is a risk that the you won't be able to restore the plant when you're done.
  if string.find(under.name, "^mese_crystals:mese_crystal_ore%d") then
    user:get_inventory():add_item("main", "default:mese_crystal_fragment 3")
    ambiance.sound_play("default_break_glass", pt.under, 0.3, 10)
    minetest.remove_node(pt.under)

    -- 1/2 chance to get bluerack back; this is because 1 bluerack makes 2 seeds.
    -- This way, we don't make it possible to magically duplicate resources.
		local p = {x=pt.under.x, y=pt.under.y-1, z=pt.under.z}
    if not minetest.test_protection(p, pname) then
			if math_random(1, 2) == 1 then
				if minetest.get_node(p).name == "default:obsidian" then
					minetest.add_node(p, {name="rackstone:bluerack"})
					ambiance.sound_play("default_dig_cracky", pt.under, 1.0, 10)
				end
			end
		end

    return
  end

	-- check if the node above the pointed thing is air
	if above.name ~= "air" then
		return
	end

	-- check if pointing at soil
	if minetest.get_item_group(under.name, "soil") ~= 1 then
		return
	end

	-- check if (wet) soil defined
	local ndef = minetest.reg_ns_nodes[under.name]
	if ndef.soil == nil or ndef.soil.wet == nil or ndef.soil.dry == nil then
		return
	end

	-- turn the node into soil and play sound
	minetest.add_node(pt.under, {name = ndef.soil.dry})
	minetest.sound_play("default_dig_crumbly", {
		pos = pt.under,
		gain = 0.5,
	}, true)
	farming.notify_soil_single(pt.under)

	-- wear tool
	local wdef = itemstack:get_definition()
	itemstack:add_wear(65535/(uses-1))

	-- tool break sound
	if itemstack:get_count() == 0 and wdef.sound and wdef.sound.breaks then
		minetest.sound_play(wdef.sound.breaks, {pos = pt.above, gain = 0.5}, true)
	end

	return itemstack
end



-- Register new hoes
farming.register_hoe = function(name, def)
	-- Check for : prefix (register new hoes in your mod's namespace)
	if name:sub(1,1) ~= ":" then
		name = ":" .. name
	end

	-- Check def table
	if def.description == nil then
		def.description = "Hoe"
	end
	if def.inventory_image == nil then
		def.inventory_image = "unknown_item.png"
	end
	if def.recipe == nil then
		def.recipe = {
			{"air","air",""},
			{"","group:stick",""},
			{"","group:stick",""}
		}
	end
	if def.max_uses == nil then
		def.max_uses = 30
	end

	-- Register the tool
	minetest.register_tool(name, {
		description = def.description,
		inventory_image = def.inventory_image,

		on_use = function(itemstack, user, pointed_thing)
			return farming.hoe_on_use(itemstack, user, pointed_thing, def.max_uses)
		end,

		groups = def.groups,
		sound = {breaks = "default_tool_breaks"},
	})

	-- Register its recipe
	if def.material == nil then
		minetest.register_craft({
			output = name:sub(2),
			recipe = def.recipe
		})
	else
		local handle = "group:stick"
		if def.handle then
			handle = def.handle
		end

		minetest.register_craft({
			output = name:sub(2),
			recipe = {
				{def.material, def.material, ""},
				{"", handle, ""},
				{"", handle, ""}
			}
		})
		-- Reverse Recipe
		minetest.register_craft({
			output = name:sub(2),
			recipe = {
				{"", def.material, def.material},
				{"", handle, ""},
				{"", handle, ""}
			}
		})
	end
end

local function tick_multiplier(pos, def)
	local minp = vector.subtract(pos, 2)
	local maxp = vector.add(pos, 2)
	local soil_pos = vector.add(pos, {x=0, y=-1, z=0})
	local soil_meta = minetest.get_meta(soil_pos)

	local mult = 1

	local cold = minetest.find_nodes_in_area(minp, maxp, "group:cold")
	mult = mult + (#cold / 2)

	-- Plant can disable minerals, if they should not grow any faster when
	-- minerals are present.
	if not def.farming_minerals_unused then
		minp = vector.subtract(pos, 3)
		maxp = vector.add(pos, 3)

		local minerals = minetest.find_nodes_in_area(minp, maxp, "glowstone:minerals")
		mult = mult - (#minerals / 4)
	end

	-- Sand is very poor soil!
	local sand = minetest.find_nodes_in_area(minp, maxp, "group:sand")
	mult = mult + (#sand / 4)

	-- Soil may be drained of nutrients from growing the same crop over and over again.
	mult = mult + (soil_meta:get_int("soil_fatigue") / 10)

	-- Trampled soil retards growth a little bit more.
	if soil_meta:get_int("trampled") > 0 then
		mult = mult + 0.1
	end

	-- Clamp time-tick multiplier to minimum value.
	if mult < 0.2 then mult = 0.2 end
	return mult
end

-- how often node timers for plants will tick, +/- some random value
local function tick(pos, def)
	local mult = tick_multiplier(pos, def)

	local min = (def.farming_growing_time_min or FARMING_DEFTIME_MIN) * mult
	local max = (def.farming_growing_time_max or FARMING_DEFTIME_MAX) * mult

	local time = math_random(min, max)
  minetest.get_node_timer(pos):start(time)

  --minetest.get_node_timer(pos):start(1.0) -- Debug
end

-- how often a growth failure tick is retried (e.g. too dark)
local function tick_again(pos, def)
	local min = 50
	local max = 100
  minetest.get_node_timer(pos):start(math_random(min, max))

  --minetest.get_node_timer(pos):start(1.0) -- Debug
end

function farming.restart_timer(pos)
	local node = minetest.get_node(pos)
	local ndef = minetest.registered_nodes[node.name]
	if ndef and ndef._farming_next_plant and ndef.on_timer then
		tick(pos, ndef)
	end
end

-- Seed placement
farming.place_seed = function(itemstack, placer, pointed_thing, plantname)
	local pt = pointed_thing
	-- check if pointing at a node
	if not pt then
		return itemstack
	end
	if pt.type ~= "node" then
		return itemstack
	end

	local under = minetest.get_node(pt.under)
  
  -- Pass through interactions to nodes that define them (like chests).
  do
    local ndef = minetest.reg_ns_nodes[under.name]
    if ndef and ndef.on_rightclick and not placer:get_player_control().sneak then
      return ndef.on_rightclick(pt.under, under, placer, itemstack, pt)
    end
  end

	local above = minetest.get_node(pt.above)

	-- Permit player to place seed on protected soil (by commenting this code).
	-- This allows players to build public farms.
	--if minetest.is_protected(pt.under, placer:get_player_name()) then
	--	minetest.record_protection_violation(pt.under, placer:get_player_name())
	--	return
	--end

	if minetest.is_protected(pt.above, placer:get_player_name()) then
		minetest.record_protection_violation(pt.above, placer:get_player_name())
		return
	end

	-- return if any of the nodes is not registered
	if not minetest.reg_ns_nodes[under.name] then
		return itemstack
	end
	if not minetest.reg_ns_nodes[above.name] then
		return itemstack
	end

	-- check if pointing at the top of the node
	if pt.above.y ~= pt.under.y+1 then
		return itemstack
	end

	-- check if you can replace the node above the pointed node
	local ndef = minetest.reg_ns_nodes[above.name]
	if not ndef or not ndef.buildable_to then
		return itemstack
	end
    
	local pdef = minetest.reg_ns_nodes[plantname]
	if not pdef then
		return itemstack
	end

	local have_surface = false
	if pdef.soil_nodes then
		for k, v in ipairs(pdef.soil_nodes) do
			if v == under.name then
				have_surface = true
				break
			end
		end
	end

	-- check if pointing at soil
	if minetest.get_item_group(under.name, "soil") < 2 and not have_surface then
		return itemstack
	end

	-- add the node and remove 1 item from the itemstack
	-- note: use of `add_node` automatically invokes droplift + dirtspread notifications.
	minetest.add_node(pt.above, {name = plantname, param2 = 1})
	tick(pt.above, pdef)
	itemstack:take_item()
	return itemstack
end



function farming.update_soil_fatigue(soil_pos, seed)
	-- Wear out soil if used to grow the same thing many times.
	-- Worn soil grows plants slower.
	-- Growing different plants each time stops the increase of this
	-- counter, but does not reduce it.
	local soil_meta = minetest.get_meta(soil_pos)
	local fatigue_count = soil_meta:get_int("soil_fatigue")
	local last_seed = soil_meta:get_string("last_seed")
	local seed_table = minetest.deserialize(last_seed) or {}

	-- If seed was grown on this soil previously, increase soil fatigue.
	for seed_entry, growth_count in pairs(seed_table) do
		if seed_entry == seed then
			-- Fatigue is increased by the number of times this seed was grown.
			fatigue_count = fatigue_count + growth_count
			break
		end
	end

	-- Record how many times this particular plant has been grown.
	if not seed_table[seed] then
		seed_table[seed] = 1
	else
		seed_table[seed] = seed_table[seed] + 1
	end

	-- You can of course clear this metadata by spading the dirt, just like you
	-- can aerate soil in real life.
	soil_meta:set_int("soil_fatigue", fatigue_count)
	soil_meta:set_string("last_seed", minetest.serialize(seed_table))
	soil_meta:mark_as_private({"soil_fatigue", "last_seed"})
end



-- This should only ever be called from the `on_timer' callback of a node.
farming.grow_plant = function(pos, elapsed)
	local node = minetest.get_node(pos)
	local name = node.name
	local def = minetest.reg_ns_nodes[name]
	local soil_pos = {x = pos.x, y = pos.y - 1, z = pos.z}
	local soil_node = minetest.get_node_or_nil(soil_pos)

	if not soil_node then
		tick_again(pos, def)
		--minetest.chat_send_all('fail 1')
		return
	end
  
	if not def._farming_next_plant then
		-- disable timer for fully grown plant
		--minetest.chat_send_all('fail 2')
		return
	end
    
	-- Allow to randomly choose the next plant from a variety.
	local next_plant = def._farming_next_plant
	if type(next_plant) == "table" then
		next_plant = next_plant[math.random(1, #next_plant)]
	end

	-- I have no idea what this code is supposed to do.
	-- Probably a bug waiting to happen. >:(
	local have_soil = false
	if def.soil_nodes then
		for k, v in ipairs(def.soil_nodes) do
			if v == soil_node.name then
				have_soil = true
				break
			end
		end
	end

	-- grow seed
	if not have_soil then
		if minetest.get_item_group(node.name, "seed") ~= 0 and def.fertility then
			-- omitted is a check for light, we assume seeds can germinate in the dark.
			for _, fertility_group in pairs(def.fertility) do
				if minetest.get_item_group(soil_node.name, fertility_group) ~= 0 then
					local placenode = {name = next_plant}
					if def.place_param2 then
						placenode.param2 = def.place_param2
					end

					minetest.swap_node(pos, placenode)
					farming.update_soil_fatigue(soil_pos, node.name)

					if minetest.reg_ns_nodes[next_plant]._farming_next_plant then
						tick(pos, def)
						--minetest.chat_send_all('fail 4')
						return
					end
				end
			end

			--minetest.chat_send_all('fail 8')
			return
		end
	end
  
	-- check if on wet soil
	if not have_soil then
		if minetest.get_item_group(soil_node.name, "soil") < 3 then
			tick_again(pos, def)
			--minetest.chat_send_all('fail 5')
			return
		end
	end
  
	-- check light
	local light = minetest.get_node_light(pos)
	if not light or light < def.minlight or light > def.maxlight then
		tick_again(pos, def)
		--minetest.chat_send_all('fail 6')
		return
	end
  
	local npdef = minetest.reg_ns_nodes[next_plant]

	-- grow
	local placenode = {name = next_plant}
	if npdef.place_param2 then
		placenode.param2 = npdef.place_param2
	elseif npdef.paramtype2 == "degrotate" then
		placenode.param2 = math_random(0, 239)
	end
	minetest.swap_node(pos, placenode)
  
	-- new timer needed?
	if npdef._farming_next_plant then
		tick(pos, npdef)
	elseif npdef._farming_restart_timer then
		-- Allow the last plant in a growing
		-- sequence to request a timer restart.
		tick(pos, npdef)
	end
  
	--minetest.chat_send_all('fail 7')
	return
end

-- Register plants
farming.register_plant = function(name, def)
	local mname = name:split(":")[1]
	local pname = name:split(":")[2]

	-- Check def table
	if not def.description then
		def.description = "Seed"
	end
	if not def.inventory_image then
		def.inventory_image = "unknown_item.png"
	end
	if not def.steps then
		return nil
	end
	if not def.minlight then
		def.minlight = 1
	end
	if not def.maxlight then
		def.maxlight = 14
	end
	if not def.fertility then
		def.fertility = {}
	end

	-- Register seed
	local g = {level = 1, seed = 1, seed_oil = 1, snappy = 3, attached_node = 1, flammable = 2, notify_destruct = 1}
	for k, v in pairs(def.fertility) do
		g[v] = 1
	end

	local seed_node_name = mname .. ":seed_" .. pname
	local craft_item_name = mname .. ":" .. pname
	local plant_node_prefix = mname .. ":" .. pname

	minetest.register_node(":" .. seed_node_name, {
		description = def.description,
		tiles = {def.inventory_image},
		inventory_image = def.inventory_image,
		wield_image = def.inventory_image,
		drawtype = "signlike",
		groups = g,
		paramtype = "light",
		paramtype2 = "wallmounted",
    place_param2 = def.place_param2 or nil, -- this isn't actually used for placement
		walkable = false,
		sunlight_propagates = true,
		selection_box = {
			type = "fixed",
			fixed = {-0.5, -0.5, -0.5, 0.5, -5/16, 0.5},
		},
		fertility = def.fertility,
		sounds = default.node_sound_dirt_defaults({
			dug = {name = "default_grass_footstep", gain = 0.2},
			place = {name = "default_place_node", gain = 0.25},
		}),

		on_place = function(itemstack, placer, pointed_thing)
      local under = pointed_thing.under
			local node = minetest.get_node(under)
			local udef = minetest.reg_ns_nodes[node.name]
			if udef and udef.on_rightclick and
					not (placer and placer:get_player_control().sneak) then
				return udef.on_rightclick(under, node, placer, itemstack,
					pointed_thing) or itemstack
			end

			return farming.place_seed(itemstack, placer, pointed_thing, seed_node_name)
		end,

		_farming_next_plant = plant_node_prefix .. "_1",
		on_timer = farming.grow_plant,
		minlight = def.minlight,
		maxlight = def.maxlight,
	})

	-- Register harvest
	minetest.register_craftitem(":" .. craft_item_name, {
		description = pname:gsub("^%l", string.upper),
		inventory_image = mname .. "_" .. pname .. ".png",
		groups = {flammable = 2},

		-- Pass through flowerpot data if available.
		flowerpot_insert = def.flowerpot_insert,
	})

	-- Register growing steps
	for i = 1, def.steps do
		local drop = {
			items = {
				{items = {craft_item_name}, rarity = 9 - i},
				{items = {craft_item_name}, rarity= 18 - i * 2},
				{items = {seed_node_name}, rarity = 9 - i},
				{items = {seed_node_name}, rarity = 18 - i * 2},
			}
		}
		local nodegroups = utility.dig_groups("crop", {flammable = 2, plant = 1, not_in_creative_inventory = 1, attached_node = 1, notify_destruct = 1})
		nodegroups[pname] = i

		local next_plant = nil
		local prev_plant = nil
		local prev_seed = nil

		if i == 1 then
			prev_seed = seed_node_name
		end

		if i < def.steps then
			next_plant = plant_node_prefix .. "_" .. (i + 1)
		end

		if i > 1 then
			prev_plant = plant_node_prefix .. "_" .. (i - 1)
		end

		minetest.register_node(":" .. plant_node_prefix .. "_" .. i, {
			drawtype = "plantlike",
			waving = 1,
			tiles = {mname .. "_" .. pname .. "_" .. i .. ".png"},
			paramtype = "light",
      paramtype2 = def.paramtype2 or nil,
			place_param2 = def.place_param2 or nil,
			walkable = false,
			buildable_to = true,
			drop = drop,
			selection_box = {
				type = "fixed",
				fixed = {-0.5, -0.5, -0.5, 0.5, -5/16, 0.5},
			},
			groups = nodegroups,
			sounds = default.node_sound_leaves_defaults(),
			_farming_next_plant = next_plant,
			_farming_prev_plant = prev_plant,
			_farming_prev_seed = prev_seed,
			on_timer = farming.grow_plant,
			minlight = def.minlight,
			maxlight = def.maxlight,
			movement_speed_multiplier = default.SLOW_SPEED_PLANTS,

			-- Pass through flowerpot data if available.
			flowerpot_drop = def.flowerpot_drop,
		})
	end

	-- Return
	local r = {
		seed = seed_node_name,
		harvest = craft_item_name
	}
	return r
end