write something there

mods/plantlife_modpack/pl_seaweed/init.lua

@@ -0,0 +1,239 @@
+-- support for i18n
+local S = minetest.get_translator("pl_seaweed")
+
+local seaweed_rarity = minetest.settings:get("pl_seaweed.seaweed_rarity") or 0.06
+
+local function get_ndef(name)
+	return minetest.registered_nodes[name] or {}
+end
+
+local algae_list = { {nil}, {2}, {3}, {4} }
+
+for i in ipairs(algae_list) do
+	local num = ""
+	local algae_groups = {snappy = 3,flammable=2}
+
+	if algae_list[i][1] ~= nil then
+		num = "_"..algae_list[i][1]
+		algae_groups = { snappy = 3,flammable=2, not_in_creative_inventory=1 }
+	end
+
+	minetest.register_node(":flowers:seaweed"..num, {
+		description = S("Seaweed"),
+		drawtype = "nodebox",
+		tiles = {
+			"flowers_seaweed"..num..".png",
+			"flowers_seaweed"..num..".png^[transformFY"
+		},
+		use_texture_alpha = "clip",
+		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)
+			if not itemstack or not placer or not pointed_thing then
+				return
+			end
+
+			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 get_ndef(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 get_ndef(top_node.name)["buildable_to"] then
+					place_pos = top_pos
+				else
+					return
+				end
+			elseif get_ndef(above_node.name)["buildable_to"] then
+				place_pos = pt.above
+			end
+			if not place_pos then return end -- something went wrong :P
+
+			local pname = placer:get_player_name()
+			if not minetest.is_protected(place_pos, pname) then
+
+			local nodename = "default:cobble" -- :D
+
+				if not keys["sneak"] then
+					--local node = minetest.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.swap_node(place_pos, {name = nodename, param2 = math.random(0,3) })
+				else
+					local fdir = minetest.dir_to_facedir(placer:get_look_dir())
+					minetest.swap_node(place_pos, {name = "flowers:seaweed", param2 = fdir})
+				end
+
+				if not minetest.is_creative_enabled(pname) then
+					itemstack:take_item()
+				end
+				return itemstack
+			end
+		end,
+	})
+end
+
+minetest.register_alias("flowers:flower_seaweed", "flowers:seaweed")
+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")
+
+-- Register seaweed decorations
+local warm_shores = {}
+for _,biome in ipairs(asuna.features.ocean.temperate) do
+	table.insert(warm_shores,biome .. "_shore")
+end
+for _,biome in ipairs(asuna.features.ocean.tropical) do
+	table.insert(warm_shores,biome .. "_shore")
+end
+
+local seaweed_selector = {
+	minetest.get_content_id("flowers:seaweed"),
+	minetest.get_content_id("flowers:seaweed_2"),
+	minetest.get_content_id("flowers:seaweed_3"),
+}
+
+local cids = {
+	air = minetest.get_content_id("air"),
+	water = minetest.get_content_id("default:water_source"),
+}
+
+abdecor.register_advanced_decoration("plantlife_seaweed",{
+	target = {
+		place_on = {
+			"default:sand",
+			"default:dirt_with_grass",
+			"default:dirt_with_rainforest_litter",
+			"livingjungle:jungleground",
+			"livingjungle:leafyjungleground",
+			"naturalbiomes:alderswamp_litter",
+		},
+		spawn_by = "default:water_source",
+		num_spawn_by = 3,
+		sidelen = 80,
+		fill_ratio = 0.25,
+		biomes = warm_shores,
+		y_max = 1,
+		y_min = 1,
+	},
+	fn = function(mapgen)
+		-- Get provided values
+		local va = mapgen.voxelarea
+		local pos = va:index(mapgen.pos.x,mapgen.pos.y,mapgen.pos.z)
+		local vdata = mapgen.data
+
+		-- Get stride values
+		local ystride = va.ystride
+		local zstride = va.zstride
+
+		-- Set mapgen node to air
+		vdata[pos + ystride] = cids.air
+
+		-- List of potential open water spots where seaweed can be placed
+		local open_water = {0,0,0,0}
+
+		-- Semi-pseudo-random number for how many nodes from shore to place seaweed
+		local pcgr = PcgRandom(pos)
+		local scan_limit
+
+		-- Scan -x for the furthest available open water
+		scan_limit = pcgr:next(1,4) + 1
+		for xscan = 1, scan_limit do
+			local ipos = pos - xscan
+			if vdata[ipos] == cids.water then
+				open_water[1] = ipos + ystride
+			else
+				break
+			end
+		end
+
+		-- Scan +x for the furthest available open water
+		scan_limit = pcgr:next(1,4) + 1
+		for xscan = 1, scan_limit do
+			local ipos = pos + xscan
+			if vdata[ipos] == cids.water then
+				open_water[2] = ipos + ystride
+			else
+				break
+			end
+		end
+
+		-- Scan -z for the furthest available open water
+		scan_limit = pcgr:next(1,4) + 1
+		for zscan = 1, scan_limit do
+			local ipos = pos - zscan * zstride
+			if vdata[ipos] == cids.water then
+				open_water[3] = ipos + ystride
+			else
+				break
+			end
+		end
+
+		-- Scan +z for the furthest available open water
+		scan_limit = pcgr:next(1,4) + 1
+		for zscan = 1, scan_limit do
+			local ipos = pos + zscan * zstride
+			if vdata[ipos] == cids.water then
+				open_water[4] = ipos + ystride
+			else
+				break
+			end
+		end
+
+		-- Iterate through open water and generate seaweed where possible
+		for i = 1, 4 do
+			local owpos = open_water[i]
+			if owpos ~= 0 then -- valid open water
+				vdata[owpos] = seaweed_selector[pcgr:next(1,3)]
+			end
+		end
+	end,
+})
+
+	minetest.register_decoration({
+		deco_type = "simple",
+		place_on = "default:sand",
+		sidelen = 80,
+		fill_ratio = 0.00275,
+		biomes = warm_shores,
+		y_max = 1,
+		y_min = 1,
+		decoration = {
+			"flowers:seaweed_2",
+			"flowers:seaweed_3",
+			"flowers:seaweed_4",
+		},
+	})

mods/plantlife_modpack/pl_seaweed/locale/pl_seaweed.de.tr

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=Seegras

mods/plantlife_modpack/pl_seaweed/locale/pl_seaweed.fr.tr

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=Algues

mods/plantlife_modpack/pl_seaweed/locale/pl_seaweed.tr.tr

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=Deniz yosunu

mods/plantlife_modpack/pl_seaweed/locale/pl_seawood.eo.tr

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=Algo

mods/plantlife_modpack/pl_seaweed/locale/pl_seawood.es.tr

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=Algas marinas

mods/plantlife_modpack/pl_seaweed/locale/template.txt

@@ -0,0 +1,2 @@
+# textdomain: pl_seaweed
+Seaweed=

mods/plantlife_modpack/pl_seaweed/mod.conf

@@ -0,0 +1,3 @@
+name = pl_seaweed
+depends = default, abdecor
+optional_depends = farming, flowers

mods/plantlife_modpack/pl_seaweed/settingtypes.txt

@@ -0,0 +1,2 @@
+# Seaweed rarity (higher number -> higher probability)
+pl_seaweed.seaweed_rarity (Seaweed rarity) float 0.06 0.0001 1