From 5c8e2d306e11510fd59fd2633c498228e1e60949 Mon Sep 17 00:00:00 2001
From: Splizard <quentin@squeezedoranges.com>
Date: Tue, 18 Dec 2012 11:14:27 +1300
Subject: [PATCH] Get snowfall into a stable state.

---
 config.lua                 |   2 +-
 init.lua                   |  61 ++++++++++++++++++++++++-------------
 textures/snow_snowfall.png | Bin 256 -> 350 bytes
 3 files changed, 40 insertions(+), 23 deletions(-)

diff --git a/config.lua b/config.lua
index f14ce34..87d25f7 100644
--- a/config.lua
+++ b/config.lua
@@ -1,6 +1,6 @@
 --This file contains configuration options for snow mod.
 
---Enables experimental falling snow.
+--Enables falling snow.
 snow.enable_snowfall = false
 
 --Enables debuging.
diff --git a/init.lua b/init.lua
index 44e4087..197450a 100644
--- a/init.lua
+++ b/init.lua
@@ -379,7 +379,7 @@ minetest.register_abm({
 
 if snow.enable_snowfall then
 
-	--Snowing (WIP)
+	--Snowing
 	snow_fall=function (pos)
 		local obj=minetest.env:add_entity(pos, "snow:fall_entity")
 		obj:setvelocity({x=0, y=-1, z=0})
@@ -401,7 +401,12 @@ if snow.enable_snowfall then
 		local pos = self.object:getpos()
 		local node = minetest.env:get_node(pos)
 
-		if self.object:getvelocity().y == 0 then
+		if self.lastpos and self.object:getvelocity().y == 0 then
+			if minetest.env:get_node({x=self.lastpos.x,z=self.lastpos.z,y=self.lastpos.y}).name == "snow:moss" then
+				minetest.env:add_node({x=self.lastpos.x,z=self.lastpos.z,y=self.lastpos.y},{name="snow:snow",param2=1})
+				self.object:remove()
+				return
+			end
 			minetest.env:place_node(self.lastpos,{name="snow:snow"})
 			self.object:remove()
 		end
@@ -411,33 +416,45 @@ if snow.enable_snowfall then
 
 	minetest.register_entity("snow:fall_entity", snow_fall_ENTITY)
 
-	--Snowing abm
+	--Regenerate Snow
 	minetest.register_abm({
-		nodenames = {"default:dirt_with_grass"},
-		interval = 30,
-		chance = 50,
+		nodenames = {"default:dirt_with_grass", "default:desert_sand", "snow:moss"},
+		interval = 500,
+		chance = 150,
 		action = function(pos, node, active_object_count, active_object_count_wider)
+			--Check we are in the right biome
 			local env = minetest.env
 			local perlin1 = env:get_perlin(112,3, 0.5, 150)
 			local test = perlin1:get2d({x=pos.x, y=pos.z})
-			if test > 0.53 then
-				if pos.y >= -10 then
-					if not env:find_node_near(pos, 10, "default:desert_sand") then
-						local ground_y = nil
-						for y=10,0,-1 do
-							if env:get_node({x=pos.x,y=y,z=pos.z}).name ~= "air" then
-								ground_y = y
-								break
+			local in_biome = false
+			local smooth = snow.smooth
+			if smooth and (test > 0.73 or (test > 0.43 and math.random(0,29) > (0.73 - test) * 100 )) then
+				in_biome = true
+			elseif not smooth and test > 0.53 then
+				in_biome = true
+			end
+			if in_biome then
+				--Check if block is under cover
+				local ground_y = nil
+				for y=15,0,-1 do
+					if env:get_node({x=pos.x,y=y+pos.y,z=pos.z}).name ~= "air" then
+						ground_y = pos.y+y
+						break
+					end
+				end
+				if ground_y then
+					local n = env:get_node({x=pos.x,y=ground_y,z=pos.z})
+					if (n.name ~= "snow:snow" and n.name ~= "snow:snow_block" and n.name ~= "snow:ice" and n.name ~= "default:water_source" and n.name ~= "default:papyrus") then
+						local obj = minetest.env:get_objects_inside_radius({x=pos.x,y=ground_y+20,z=pos.z}, 15)
+						for i,v in pairs(obj) do
+							e = v:get_luaentity()
+							if e ~= nil and e.name == "snow:fall_entity" then 
+								return
 							end
 						end
-						if ground_y then
-							local n = env:get_node({x=pos.x,y=ground_y,z=pos.z})
-							if math.random(4) == 1 or (n.name ~= "snow:snow" and n.name ~= "snow:snow_block" and n.name ~= "snow:ice" and n.name ~= "default:water_source") then
-								snow_fall({x=pos.x,y=ground_y+15,z=pos.z})
-								if snow.debug then
-									print("snowfall at x"..pos.x.." y"..pos.z)
-								end
-							end
+						snow_fall({x=pos.x,y=ground_y+15,z=pos.z})
+						if snow.debug then
+							print("snowfall at x"..pos.x.." y"..pos.z)
 						end
 					end
 				end
diff --git a/textures/snow_snowfall.png b/textures/snow_snowfall.png
index 5cde65bf5fbe67b17af0abe7ff0736a6548fcf5e..08922ad436a50590af5ee649dd37650f10590918 100644
GIT binary patch
delta 277
zcmV+w0qXvM0^S0UQhy8)6($0+Kq#C5008SrL_t(I%axL`a>6hWMBjO+EeCqY<o|yu
z!&t5%7B$SK5H^x!D`Z=(q`h}*R5S*0xx!(O06J&3^fZZCW02Cr5aQ*_6(s0=em*}i
z2CbT$i;vXQOh2tD1h_x2uTQw$;B+iUm?cST5hc-kWn9v6jemb=3<4sP{YOl-tC$P&
zfAPpJf1jnFu^dZMHtuc<-j*x|vf{^O2ezOV4^ADJpww3Ngh=OJmgZeBQ>}q4txa+L
z0BwssQ;?Xfb4Krla};SC06$>&#|una?GRA!#p!7EHKvX0eZI!DiA%UvtF|Aar)}rR
bh3^;VtmH0N&knVV00000NkvXXu0mjfl3RZ(

delta 182
zcmV;n07?Je0)PULQhx^o0}3fFaq|oS0050iL_t(I%e|A)4TCTYMDL<3&<+6m4^^SU
zH#BB}>u&&)1fljmW6Nhh$3#KNq<I0J4`5w^z9aWJAx};w<v}yFDVg*dq)(FG<F<%&
ze9IMUPUNv|S2d@zQHcxkpoUhbpFxdYfxkk<Rfu~o#h>VHKraIF&O#~J!X>t@r|(Ef
k8Ylm#PNCIC<K1)q0`YLPFj(mmQ2+n{07*qoM6N<$f*%b}<^TWy