farming_modpack/farming/abm.lua

minetest.register_abm({
	-- change wetness of soil by time
	label = "Farming soil",
	nodenames = {"group:field"},
	interval = 15,
	chance = 4,
	action = function(pos, node)
		local starttime=os.clock()
		local n_def = minetest.registered_nodes[node.name] or nil
		if not n_def then
			return
		end
		local wet = n_def.soil.wet or nil
		local base = n_def.soil.base or nil
		local dry = n_def.soil.dry or nil
		if not n_def.soil or not wet or not base or not dry then
			return
		end

--		pos.y = pos.y + 1
		local nn = minetest.get_node_or_nil({x=pos.x,y=pos.y+1,z=pos.z})
		if not nn or not nn.name then
			return
		end
		local nn_def = minetest.registered_nodes[nn.name] or nil
--		pos.y = pos.y - 1

		if nn_def and nn_def.walkable and minetest.get_item_group(nn.name, "plant") == 0 then
			minetest.set_node(pos, {name = base})
			return
		end
		-- check if there is water nearby
		local wet_lvl = minetest.get_item_group(node.name, "wet")
		if minetest.find_node_near(pos, 3, {"group:water"}) then
			-- if it is dry soil and not base node, turn it into wet soil
			if wet_lvl == 0 then
				minetest.set_node(pos, {name = wet})
			end
		else
			-- only turn back if there are no unloaded blocks (and therefore
			-- possible water sources) nearby
			if not minetest.find_node_near(pos, 3, {"ignore"}) then
				-- turn it back into base if it is already dry
				if wet_lvl == 0 then
					-- only turn it back if there is no plant/seed on top of it
					if minetest.get_item_group(nn.name, "plant") == 0 and minetest.get_item_group(nn.name, "seed") == 0 then
						minetest.set_node(pos, {name = base})
					end

				-- if its wet turn it back into dry soil
				elseif wet_lvl == 1 then
					minetest.set_node(pos, {name = dry})
				end
			end
		end
--		table.insert(farming.time_farming,1000*(os.clock()-starttime))
	end,
})


minetest.register_abm({
	-- infect plants
	label="crops getting ill",
	nodenames="group:infectable",
	intervall = 120,
	change=50,
	action = function(pos)
		local starttime=os.clock()
		local node=minetest.get_node(pos)
		if node.name == "air" or node.name == "ignore" then
			return
		end
		local ndef = minetest.registered_nodes[node.name]
		if ndef.groups.infectable == nil then
			return
		end
		local meta = minetest.get_meta(pos)
		local ill_rate=meta:get_int("farming:weakness")
		if ill_rate == nil then
			return
		else
			if ill_rate >0 then
			else
				ill_rate = 5
			end
		end
		if math.random(1,ill_rate)==1 then
			farming.plant_infect(pos)
		end
--		table.insert(farming.time_ill,1000*(os.clock()-starttime))
	end
})

minetest.register_abm({
	label="Planting crops",
	nodenames = farming.change_soil,
	neighbors = {"air","group:grass","group:dry_grass"},
	interval = farming.abm_planting+math.random(-1,1), -- little noise
	chance = farming.abm_planting_chance,
	action = function(pos)
--		local starttime=os.clock()
		local ptabove={x=pos.x,y=pos.y+1,z=pos.z}
		local above = minetest.get_node(ptabove)
		if above.name ~= "air" then
			if (minetest.get_item_group(above.name, "grass")==0) or (minetest.get_item_group(above.name, "dry_grass")==0) then
				return
			end
		end
		local ptlight=minetest.get_node_light(ptabove)
		if ptlight < farming.min_light then
			return
		end
		local ptlight=minetest.get_node_light(ptabove,.5)
		if ptlight < farming.min_light then
			return
		end
		-- only for positions, where not too many plants are nearby
		-- first check if any crops are nearby, because the counting
		-- of nearby crops is time consuming
		if minetest.find_node_near(pos,4,"group:farming") ~= nil then
			local count_crops=farming.abm_near_rarity*#minetest.find_nodes_in_area(vector.subtract(pos,4),vector.add(pos,4),"group:farming")
			if math.random(1,math.ceil(count_crops)) > 1 then
				return
			end
		end
		local node_y=pos.y
		local sc={}
		for _,line in ipairs(farming.spreading_crops) do
			if line.y_min<=node_y and line.y_max>=node_y then
				local node_temp=minetest.get_heat(pos)
				if line.temp_min<=node_temp and line.temp_max>=node_temp then
					local node_hum=minetest.get_humidity(pos)
					if line.hum_min<=node_hum and line.hum_max>=node_hum then
						if line.light_min<ptlight and line.light_max >= ptlight then
							for k=1,line.base_rate do
								table.insert(sc,line.name)
							end
						end
					end
				end
			end
		end
		if #sc > 0 then
			local setplant=sc[math.random(1,#sc)]
			minetest.add_node(ptabove, {name=setplant,param2=1})
			minetest.get_node_timer(ptabove):start(math.random(10, 15))
			farming.set_node_metadata(ptabove)
		end
--		table.insert(farming.time_planting,1000*(os.clock()-starttime))
	end,
})


-- for optimisation only
--minetest.register_on_shutdown(function()
	--[[
	for _,colu in ipairs({"time_plantinfect","time_plantcured","time_plantpunch","time_planting","time_ill","time_farming",
		"time_digharvest","time_steptimer","time_infect","time_seedtimer","time_wilttimer",
		"time_tooldig","time_usehook","time_calclight","time_placeseed","time_setmeta"}) do
		if (#farming[colu] > 0 ) then
			local tv=farming[colu]
			table.sort(tv)
			print(colu.." "..tv[math.ceil(#tv*0.25)].." - "..tv[math.ceil(#tv*0.5)].." - "..tv[math.ceil(#tv*0.75)])
		end
	end
	]]
--end)
--[[
for _,colu in ipairs({"time_plantinfect","time_plantcured","time_plantpunch","time_planting","time_ill","time_farming",
		"time_digharvest","time_steptimer","time_infect","time_seedtimer","time_wilttimer",
		"time_tooldig","time_usehook","time_placeseed","time_calclight","time_setmeta"}) do
	farming[colu]={}
end
]]