local timer = 0
local landtimer = 0
local pi = math.pi
local random = water_life.random
local landinterval = 60						-- check every 60 seconds for spawnpos on land
local waterinterval = 20						-- check every 20 seconds for spawnpos in water


local function getcount(name)
	if not name then
		return 0
	else
		return name
	end
end


local function spawnstep(dtime)

	timer = timer + dtime
	landtimer = landtimer + dtime

	if timer > waterinterval then

		for _,plyr in ipairs(minetest.get_connected_players()) do

			local toomuch = false

			if plyr and plyr:is_player() and plyr:get_pos().y > -50 and plyr:get_pos().y < 150 then	-- each player gets a spawn chance every 10s on average

				local pos = plyr:get_pos()
				local yaw = plyr:get_look_horizontal()
				local animal = water_life.count_objects(pos)
				local meta = plyr:get_meta()

				if meta:get_int("snakepoison") > 0 then
					poison_value = 1	--defautl poison value
					local pl_name=plyr:get_player_name()	-- player name
					local hunger_ng_infos = hunger_ng.get_hunger_information(pl_name)	-- information from hunger_ng
					--minetest.log(dump(hunger_ng_infos))
					local hunger_ng_interoper = hunger_ng.interoperability
					--minetest.log(dump(hunger_ng_interoper))
					-- if healing is enabled, then add healing to poison value
					-- if the same you have the chance to survive if you stay satiated
					if hunger_ng_infos.effects.healing then
						poison_value = ((waterinterval/hunger_ng_interoper.settings.timers.heal)*hunger_ng_interoper.effects.heal.amount) + 0.1 --+ poison_value -- if you want decrease healt even with healing
					end
					minetest.log("Poison: "..dump(poison_value))

					local score = plyr:get_hp()-poison_value
					--if score < 0 then score = 0 end
					minetest.log("Health: "..dump(score))
					plyr:set_hp(score)
				end

				if meta:get_int("repellant") > 0 then
					if math.floor(os.clock()) - meta:get_int("repellant") > water_life.repeltime then
						water_life.change_hud(plyr,"repellant",0)
						meta:set_int("repellant",0)
					end
				end

				if animal.all > water_life.maxmobs then toomuch = true end

																							-- find a pos randomly in look direction of player
				local radius = (water_life.abr * 12)												-- 75% from 16 = 12 nodes
				radius = random(7,radius)														-- not nearer than 7 nodes in front of player
				local angel = math.rad(random(75))                                       					-- look for random angel 0 - 75 degrees
				if water_life.leftorright() then yaw = yaw + angel else yaw = yaw - angel end   			-- add or substract to/from yaw

				local pos2 = mobkit.pos_translate2d(pos,yaw,radius)									-- calculate position
				local depth, stype, surface = water_life.water_depth(pos2,25)							-- get surface pos and water depth
				local bdata =  water_life_get_biome_data(pos2)										-- get biome data at spawn position
				local ground = {}
				local dalam = depth
				local landpos = nil
				local geckopos = nil
				local moskitopos = nil

				-- no need of so many postions on land
				if landtimer > landinterval then
					landpos = water_life.find_node_under_air(pos2)
					geckopos = water_life.find_node_under_air(pos2,5,{"group:tree","group:leaves","default:junglegrass"})
					moskitopos = water_life.find_node_under_air(pos2,5,{"default:river_water_source","water_life:muddy_river_water_source","group:flora","default:dirt_with_rainforest_litter"})
				end


				if moskitopos and not water_life.dangerous then
							local mlevel = minetest.get_node_light(moskitopos)
							local ptime = water_life.get_game_time()
							local mdata = water_life_get_biome_data(moskitopos)
							--minetest.chat_send_all("MOSKITO: "..dump(moskitopos).." : "..dump(mdata.temp).." : "..dump(ptime).." : "..dump(mlevel))

							if ((ptime and ptime > 2) or mlevel < 8) and mdata.temp > 16 then			--from 3pm to 5am or in shadows all day long

									minetest.set_node(moskitopos, {name = "water_life:moskito"})
									minetest.get_node_timer(moskitopos):start(random(15,45))
									local pmeta = minetest.get_meta(moskitopos)
									pmeta:set_int("mlife",math.floor(os.clock()))

							end
				end

				--some spawn on land, too

				if landpos then
					local landdata =  water_life_get_biome_data(landpos)


					if not water_life.dangerous then
						-- the snake
						local mobname = 'water_life:snake'
						local faktor = (100 - getcount(animal[mobname]) * 50)
						if random(100) < faktor then
							local fits = minetest.is_protected(landpos,mobname)
							--minetest.chat_send_all(dump(fits))

							if (string.match(landdata.name,"desert") or string.match(landdata.name,"savanna"))
							and not fits and landdata.temp > 15 then

								local obj=minetest.add_entity(landpos,mobname)			-- ok spawn it already damnit
							end
						end


					end


					--the beaver
					local mobname = 'water_life:beaver'
					local faktor = (100 - getcount(animal[mobname]) * 25)
					if random(100) < faktor then

						if string.match(landdata.name,"coniferous") and landdata.temp > -5 and landdata.temp < 20 then

							local obj=minetest.add_entity(landpos,mobname)			-- ok spawn it already damnit
						end
					end
				end


				if geckopos then
					local landdata =  water_life_get_biome_data(geckopos)

					local mobname = 'water_life:gecko'
					local faktor = (100 - getcount(animal[mobname]) * 50)
					if random(100) < faktor then


						if (string.match(landdata.name,"rainforest") or string.match(landdata.name,"savanna"))
						and landdata.temp > 20 then

							local obj=minetest.add_entity(geckopos,mobname)			-- ok spawn it already damnit
						end
					end
				end



				--water spawn

				if depth and depth > 0 then
					if water_life.radar_debug then
						water_life.temp_show(surface,9,5)
						minetest.chat_send_all(">>> Depth ="..dump(depth).." <<<   "..dump(stype))
						minetest.chat_send_all(dump(bdata.name))
					end
					pos2 = surface

				end

				local liquidflag = nil

				if stype == "default:water_source" then
					liquidflag = "sea"

				elseif stype == "default:river_water_source" then
					liquidflag = "river"

				elseif stype == "water_life:muddy_river_water_source" then
					liquidflag = "muddy"

				end

				if liquidflag and not toomuch and surface then
					ground = mobkit.pos_shift(surface,{y=(dalam*-1)})


					if not water_life.dangerous then
						--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
						local mobname = 'water_life:croc'
						local faktor = 100 - getcount(animal[mobname]) * 33
						if random(100) < faktor then
							local fits = false
							if string.match(bdata.name,"rainforest") or string.match(bdata.name,"savanna") then fits = true end

							if depth < 4 and fits then      --shark min water depth
								local obj=minetest.add_entity(surface,mobname)			-- ok spawn it already damnit
							end


						end
						--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))


						local mobname = 'water_life:snake'
						local faktor = (100 - getcount(animal[mobname]) * 50) +25
						if random(100) < faktor then
							local fits = false
							if string.match(bdata.name,"desert") or string.match(bdata.name,"savanna") then fits = true end

							if depth < 3 and fits then      --snake max water depth
								local obj=minetest.add_entity(surface,mobname)			-- ok spawn it already damnit
							end


						end
						--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))

						local mobname = 'water_life:shark'
						if water_life.shark_spawn_rate >= random(1000) then

							local bcheck = water_life.count_objects(pos2,12)
							if getcount(animal[mobname]) < water_life.maxsharks and liquidflag == "sea" and not bcheck["water_life:shark_buoy"]
								and not animal["water_life:croc"] then

								if depth > 4 then      --shark min water depth
								local obj=minetest.add_entity(mobkit.pos_shift(ground,{y=2}),mobname)			-- spawn it 2 nodes above sea ground
								end
							end

						end
					end

					local mobname = "water_life:gull"
					local faktor = 100 - getcount(animal[mobname]) * 20
					if random(100) < faktor and liquidflag == "sea" then
						if depth > 4 then
							local spawn = mobkit.pos_shift(surface,{y=12})
							--spawn.y = spawn.y + 12
							local obj=minetest.add_entity(spawn,mobname)			-- ok spawn it already damnit
						end
					end


					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
					mobname = "water_life:urchin"
					if water_life.urchin_spawn_rate >= random(1000) then

							local upos1 = mobkit.pos_shift(ground,{x=-5,y=-2,z=-5})
							local upos2 = mobkit.pos_shift(ground,{x=5,y=2,z=5})
							local coraltable = minetest.find_nodes_in_area(upos1, upos2, water_life.urchinspawn)
							--local nearlife = water_life.count_objects(ground,5,"water_life:urchin")
							if coraltable and #coraltable > 0 and getcount(animal[mobname]) < 15 and liquidflag == "sea" then
								local coralpos = coraltable[random(#coraltable)]
								coralpos.y = coralpos.y +1
								local node = minetest.get_node(coralpos)

								if node.name == "default:water_source" then
									local obj= water_life.set_urchin(coralpos)  --minetest.add_entity(coralpos,mobname)
								end
							end
					end


					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
					mobname = "water_life:clams"
					if water_life.clams_spawn_rate >= random(1000) then
							local clpos1 = mobkit.pos_shift(ground,{x=-8, y=-2, z=8})
							local clpos2 = mobkit.pos_shift(ground,{x=8, y=2, z=8})
							local coraltable = minetest.find_nodes_in_area(clpos1, clpos2, water_life.clams_spawn)
							----minetest.chat_send_all("seagrass ="..dump(#coraltable))
							local nearlife = water_life.count_objects(ground,8,"water_life:clams")
							if coraltable and #coraltable > 0 and getcount(animal[mobname]) < 10 and liquidflag == "sea" then
								local coralpos = mobkit.pos_shift(coraltable[random(#coraltable)],{y=1})

								local node = minetest.get_node(coralpos)
								if node.name == "default:water_source" then
									local obj= water_life.set_urchin(coralpos,"water_life:clams")
								end
							end
					end


					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
					mobname = "water_life:jellyfish"


					local faktor = 100 - getcount(animal[mobname]) * 20
					if random(100) < faktor and liquidflag == "sea" and depth > 2 then
						local obj=minetest.add_entity(mobkit.pos_shift(ground,{y=2}),mobname)
					end


					mobname = "water_life:coralfish"

					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))

					local cfpos1 = mobkit.pos_shift(ground,{x=-5,y=-2,z=-5})
					local cfpos2 = mobkit.pos_shift(ground,{x=5,y=2,z=5})
					local coraltable = minetest.find_nodes_in_area(cfpos1,cfpos2,water_life.urchinspawn)
					--local nearlife = water_life.count_objects(ground,nil,mobname)
					faktor = 100 - getcount(animal[mobname]) * 6.66
					if random(100) < faktor and liquidflag == "sea" and #coraltable > 1 then
						local cfish = coraltable[random(#coraltable)]
						cfish.y = cfish.y +1
						local maxfish = random(3,7)
						for i = 1,maxfish,1 do
							local obj=minetest.add_entity(cfish,mobname)
							if obj then
								local entity = obj:get_luaentity()
								entity.base = cfish
								entity.head = random(65535)
							end
						end
					end


					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
					mobname = "water_life:clownfish"

					faktor = 100 - getcount(animal[mobname]) * 50
					if random(100) < faktor and liquidflag == "sea" and #coraltable > 1 then
						local cfish = coraltable[random(#coraltable)]
						cfish.y = cfish.y +1
						local obj=minetest.add_entity(cfish,mobname)
						if obj then
							local entity = obj:get_luaentity()
							entity.base = cfish
						end
					end

					--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))
					mobname = 'water_life:fish'
						--local nearlife = water_life.count_objects(pos2,24,"water_life:piranha")
						if water_life.fish_spawn_rate >= random(1000) and ((animal.all < (water_life.maxmobs-5)) or getcount(animal[mobname]) < 5) and (liquidflag == "river" or liquidflag == "muddy") then

							local table = minetest.get_biome_data(pos)

							if not water_life.dangerous and table and water_life.piranha_biomes[minetest.get_biome_name(table.biome)] then
								mobname = "water_life:piranha"
							end

								if depth > 2 then										-- min water depth for piranha and riverfish
									if mobname == "water_life:fish" then
										local obj=minetest.add_entity(pos2,mobname)			-- ok spawn it already damnit
									else
										if getcount(animal[mobname]) < 10 then
											for i = 1,3,1 do
												local obj=minetest.add_entity(pos2,mobname)			-- ok spawn it already damnit
											end
										end
									end
							end


						end

						--minetest.chat_send_all(dump(minetest.pos_to_string(surface)).." "..dump(minetest.pos_to_string(ground)))

						mobname = 'water_life:whale'
						if water_life.whale_spawn_rate >= random(1000) and getcount(animal[mobname]) < (water_life.maxwhales) and liquidflag == "sea" then


							if depth > 8 then																-- min water depth for whales

								local gotwhale = true
								local whpos = mobkit.pos_shift(surface,{y=-3})
								for i = 0,3,1 do
									local whpos2 = mobkit.pos_translate2d(whpos,math.rad(i*90),30)
									local under = water_life.find_collision(whpos,whpos2, false)
									----minetest.chat_send_all(dump(under))
									if under and under < 25 then
										gotwhale = false
										break
									end
								end
								if gotwhale then local obj=minetest.add_entity(surface,mobname) end		-- ok spawn it already damnit

							end
						end

					end
				end
		end
	timer = 0
	if landtimer > landinterval then landtimer = 0 end
	end

end



minetest.register_globalstep(spawnstep)