More waterlilies and seaweed

Edited existing textures and added new from "along_shore".
Waterlilies and seaweed spawn ongen.

flowers_plus/init.lua

@@ -1,17 +1,27 @@
 -- This file supplies a few additional plants and some related crafts
 -- for the plantlife modpack.  Last revision:  2013-04-24
 
+flowers_plus = {}
+
 local SPAWN_DELAY = 1000
 local SPAWN_CHANCE = 200
 local flowers_seed_diff = 329
+local lilies_max_count = 320
+local lilies_rarity = 33
+local seaweed_max_count = 320
+local seaweed_rarity = 33
 
 -- register the various rotations of waterlilies
 
 local lilies_list = {
-	{ nil, nil },
+	{ nil  , nil 	   , 1	},
-	{ "225", "22.5" },
+	{ "225", "22.5"    , 2	},
-	{ "45" , "45"   },
+	{ "45" , "45"      , 3	},
-	{ "675", "67.5" },
+	{ "675", "67.5"    , 4	},
+	{ "s1" , "small_1" , 5	},
+	{ "s2" , "small_2" , 6	},
+	{ "s3" , "small_3" , 7	},
+	{ "s4" , "small_4" , 8	},
 }
 
 for i in ipairs(lilies_list) do
@@ -28,7 +38,10 @@ for i in ipairs(lilies_list) do
 	minetest.register_node(":flowers:waterlily"..deg1, {
 		description = "Waterlily",
 		drawtype = "nodebox",
-		tiles = { "flowers_waterlily"..deg2..".png" },
+		tiles = { 
+			"flowers_waterlily"..deg2..".png",
+			"flowers_waterlily"..deg2..".png^[transformFY"
+		},
 		inventory_image = "flowers_waterlily.png",
 		wield_image  = "flowers_waterlily.png",
 		sunlight_propagates = true,
@@ -78,7 +91,7 @@ for i in ipairs(lilies_list) do
 
 				if not keys["sneak"] then
 					local node = minetest.env:get_node(pt.under)
-					local waterlily = math.random(1,4)
+					local waterlily = math.random(1,8)
 					if waterlily == 1 then
 						nodename = "flowers:waterlily"
 					elseif waterlily == 2 then
@@ -87,6 +100,14 @@ for i in ipairs(lilies_list) do
 						nodename = "flowers:waterlily_45"
 					elseif waterlily == 4 then
 						nodename = "flowers:waterlily_675"
+					elseif waterlily == 5 then
+						nodename = "flowers:waterlily_s1"
+					elseif waterlily == 6 then
+						nodename = "flowers:waterlily_s2"
+					elseif waterlily == 7 then
+						nodename = "flowers:waterlily_s3"
+					elseif waterlily == 8 then
+						nodename = "flowers:waterlily_s4"
 					end
 					minetest.add_node(place_pos, {name = nodename, param2 = math.random(0,3) })
 				else
@@ -103,24 +124,97 @@ for i in ipairs(lilies_list) do
 	})
 end
 
-minetest.register_node(":flowers:seaweed", {
+local algae_list = { {nil}, {2}, {3}, {4} }
-	description = "Seaweed",
+
-	drawtype = "signlike",
+for i in ipairs(algae_list) do
-	tiles = { "flowers_seaweed.png" },
+	local num = ""
-	inventory_image = "flowers_seaweed.png",
+	local algae_groups = {snappy = 3,flammable=2,flower=1}
-	wield_image  = "flowers_seaweed.png",
+
-	sunlight_propagates = true,
+	if algae_list[i][1] ~= nil then
-	paramtype = "light",
+		num = "_"..algae_list[i][1]
-	paramtype2 = "wallmounted",
+		algae_groups = { snappy = 3,flammable=2,flower=1, not_in_creative_inventory=1 }
-	walkable = false,
+	end
-	groups = { snappy = 3,flammable=2,flower=1 },
+	
-	sounds = default.node_sound_leaves_defaults(),
+	minetest.register_node(":flowers:seaweed"..num, {
-	selection_box = {
+		description = "Seaweed",
-		type = "fixed",
+		drawtype = "nodebox",
-		fixed = { -0.5, -0.5, -0.5, 0.5, -0.4, 0.5 },
+		tiles = { 
-	},	
+			"flowers_seaweed"..num..".png",
-	buildable_to = true,
+			"flowers_seaweed"..num..".png^[transformFY"
-})
+		},
+		inventory_image = "flowers_seaweed_2.png",
+		wield_image  = "flowers_seaweed_2.png",
+		sunlight_propagates = true,
+		paramtype = "light",
+		paramtype2 = "facedir",
+		walkable = false,
+		groups = algae_groups,
+		sounds = default.node_sound_leaves_defaults(),
+		selection_box = {
+			type = "fixed",
+			fixed = { -0.4, -0.5, -0.4, 0.4, -0.45, 0.4 },
+		},
+		node_box = {
+			type = "fixed",
+			fixed = { -0.5, -0.49, -0.5, 0.5, -0.49, 0.5 },
+		},	
+		buildable_to = true,
+		
+		liquids_pointable = true,
+		drop = "flowers:seaweed",
+		on_place = function(itemstack, placer, pointed_thing)
+			local keys=placer:get_player_control()
+			local pt = pointed_thing
+
+			local place_pos = nil
+			local top_pos = {x=pt.under.x, y=pt.under.y+1, z=pt.under.z}
+			local under_node = minetest.get_node(pt.under)
+			local above_node = minetest.get_node(pt.above)
+			local top_node   = minetest.get_node(top_pos)
+
+			if plantslib:get_nodedef_field(under_node.name, "buildable_to") then
+				if under_node.name ~= "default:water_source" then
+					place_pos = pt.under
+				elseif top_node.name ~= "default:water_source" 
+				       and plantslib:get_nodedef_field(top_node.name, "buildable_to") then
+					place_pos = top_pos
+				else
+					return
+				end
+			elseif plantslib:get_nodedef_field(above_node.name, "buildable_to") then
+				place_pos = pt.above
+			end
+
+			if not plantslib:node_is_owned(place_pos, placer) then
+
+			local nodename = "default:cobble" -- :D
+
+				if not keys["sneak"] then
+					--local node = minetest.env:get_node(pt.under)
+					local seaweed = math.random(1,4)
+					if seaweed == 1 then
+						nodename = "flowers:seaweed"
+					elseif seaweed == 2 then
+						nodename = "flowers:seaweed_2"
+					elseif seaweed == 3 then
+						nodename = "flowers:seaweed_3"
+					elseif seaweed == 4 then
+						nodename = "flowers:seaweed_4"
+					end
+					minetest.add_node(place_pos, {name = nodename, param2 = math.random(0,3) })
+				else
+					local fdir = minetest.dir_to_facedir(placer:get_look_dir())
+					minetest.add_node(place_pos, {name = "flowers:seaweed", param2 = fdir})
+				end
+
+				if not plantslib.expect_infinite_stacks then
+					itemstack:take_item()
+				end
+				return itemstack
+			end
+		end,
+	})
+end
 
 -- register all potted plant nodes, crafts, and most backward-compat aliases
 
@@ -179,6 +273,107 @@ for i in ipairs(extra_aliases) do
 	minetest.register_alias("flowers:flower_"..flower, "flowers:"..flower)
 end
 
+minetest.register_alias( "trunks:lilypad"         ,	"flowers:waterlily_s1" )
+minetest.register_alias( "along_shore:lilypads_1" , "flowers:waterlily_s1" )
+minetest.register_alias( "along_shore:lilypads_2" , "flowers:waterlily_s2" )
+minetest.register_alias( "along_shore:lilypads_3" , "flowers:waterlily_s3" )
+minetest.register_alias( "along_shore:lilypads_4" , "flowers:waterlily_s4" )
+minetest.register_alias( "along_shore:pondscum_1" ,	"flowers:seaweed"      )
+minetest.register_alias( "along_shore:seaweed_1"  ,	"flowers:seaweed"      )
+minetest.register_alias( "along_shore:seaweed_2"  ,	"flowers:seaweed_2"    )
+minetest.register_alias( "along_shore:seaweed_3"  ,	"flowers:seaweed_3"    )
+minetest.register_alias( "along_shore:seaweed_4"  ,	"flowers:seaweed_4"    )
+
+-- ongen registrations
+
+flowers_plus.grow_waterlily = function(pos)
+	local right_here = {x=pos.x, y=pos.y+1, z=pos.z}
+	for i in ipairs(lilies_list) do
+		local chance = math.random(1,8)
+		local ext = ""
+		local num = lilies_list[i][3]
+
+		if lilies_list[i][1] ~= nil then
+			ext = "_"..lilies_list[i][1]
+		end
+	
+		if chance == num then
+			minetest.add_node(right_here, {name="flowers:waterlily"..ext, param2=math.random(0,3)})
+		end
+	end
+end
+
+plantslib:register_generate_plant({
+    surface = {"default:water_source"},
+    max_count = lilypads_max_count,
+    rarity = lilypads_rarity,
+    min_elevation = 1,
+	max_elevation = 40,
+	near_nodes = {"default:dirt_with_grass"},
+	near_nodes_size = 4,
+	near_nodes_vertical = 1,
+	near_nodes_count = 1,
+    plantlife_limit = -0.9,
+	temp_max = -0.22,
+    temp_min = 0.22,
+  },
+  "flowers_plus.grow_waterlily"
+)
+
+flowers_plus.grow_seaweed = function(pos)
+	local right_here = {x=pos.x, y=pos.y+1, z=pos.z}
+	minetest.add_node(right_here, {name="along_shore:seaweed_"..math.random(1,4), param2=math.random(1,3)})
+end
+
+plantslib:register_generate_plant({
+    surface = {"default:water_source"},
+    max_count = seaweed_max_count,
+    rarity = seaweed_rarity,
+    min_elevation = 1,
+	max_elevation = 40,
+	near_nodes = {"default:dirt_with_grass"},
+	near_nodes_size = 4,
+	near_nodes_vertical = 1,
+	near_nodes_count = 1,
+    plantlife_limit = -0.9,
+  },
+  "flowers_plus.grow_seaweed"
+)
+
+-- seaweed at beaches
+-- MM: not satisfied with it, but IMHO some beaches should have some algae
+plantslib:register_generate_plant({
+    surface = {"default:water_source"},
+    max_count = seaweed_max_count,
+    rarity = seaweed_rarity,
+    min_elevation = 1,
+	max_elevation = 40,
+	near_nodes = {"default:sand"},
+	near_nodes_size = 1,
+	near_nodes_vertical = 0,
+	near_nodes_count = 3,
+    plantlife_limit = -0.9,
+	temp_max = -0.64, -- MM: more or less random values, just to make sure it's not everywhere
+    temp_min = -0.22, -- MM: more or less random values, just to make sure it's not everywhere
+  },
+  "flowers_plus.grow_seaweed"
+)
+plantslib:register_generate_plant({
+    surface = {"default:sand"},
+    max_count = seaweed_max_count*2,
+    rarity = seaweed_rarity/2,
+    min_elevation = 1,
+	max_elevation = 40,
+	near_nodes = {"default:water_source"},
+	near_nodes_size = 1,
+	near_nodes_vertical = 0,
+	near_nodes_count = 3,
+    plantlife_limit = -0.9,
+	temp_max = -0.64, -- MM: more or less random values, just to make sure it's not everywhere
+    temp_min = -0.22, -- MM: more or less random values, just to make sure it's not everywhere
+  },
+  "flowers_plus.grow_seaweed"
+)
 -- spawn ABM registrations
 
 plantslib:spawn_on_surfaces({
@@ -187,7 +382,11 @@ plantslib:spawn_on_surfaces({
 		"flowers:waterlily",
 		"flowers:waterlily_225",
 		"flowers:waterlily_45",
-		"flowers:waterlily_675"
+		"flowers:waterlily_675",
+		"flowers:waterlily_s1",
+		"flowers:waterlily_s2",
+		"flowers:waterlily_s3",
+		"flowers:waterlily_s4"
 	},
 	avoid_radius = 2.5,
 	spawn_chance = SPAWN_CHANCE*4,