Add files via upload

mods/riesenpilz/LICENSE.txt

@@ -0,0 +1,9 @@
+Sounds and textures
+	CC by 3.0
+Code
+	MIT
+
+Some source information:
+— glowshroom and lavashroom from bas080's plants mod (originally WTFPL)
+— parasol mushroom from a mod called mushrooms (originally WTFPL)
+— "45" mushrooms from r01922090's mush45 mod (originally WTFPL)

mods/riesenpilz/README.md

@@ -0,0 +1,25 @@
+[Mod] mushrooms [riesenpilz]
+
+This mod adds mushrooms to minetest. The growing tool can make them giant.
+
+**Depends:** see [depends.txt](https://raw.githubusercontent.com/HybridDog/riesenpilz/master/depends.txt)<br/>
+**License:** see [LICENSE.txt](https://raw.githubusercontent.com/HybridDog/riesenpilz/master/LICENSE.txt)<br/>
+**Download:** [zip](https://github.com/HybridDog/riesenpilz/archive/master.zip), [tar.gz](https://github.com/HybridDog/riesenpilz/archive/master.tar.gz)<br/>
+
+![I'm a screenshot!](https://cloud.githubusercontent.com/assets/3192173/5332059/421c735a-7e47-11e4-88cc-b9ed90b659a8.png)
+
+If you got ideas or found bugs, please tell them to me.
+
+
+TODO:
+* Mapgen: Do not use a fixed table of tree nodes; instead use a more flexible
+  way to remove trees.
+* Add a settingtypes.txt
+* Make the growingtool craftable
+* Test if visual_scale is useful for the small mushroom nodes,
+  e.g. to make textures smaller or to use power-of-two sized textures.
+  Nodeboxes would need to be changed accordingly (maybe automatically).
+* Add new features:
+  * Add more giant mushrooms
+  * Add more content from the mushrooms mod
+  * Add a lava suit

mods/riesenpilz/functions.lua

@@ -0,0 +1,37 @@
+if riesenpilz.info then
+	function riesenpilz.inform(msg, spam, t)
+		if spam <= riesenpilz.max_spam then
+			local info
+			if t then
+				info = string.format("[riesenpilz] "..msg.." after ca. %.2fs", os.clock() - t)
+			else
+				info = "[riesenpilz] "..msg
+			end
+			print(info)
+			if riesenpilz.inform_all then
+				minetest.chat_send_all(info)
+			end
+		end
+	end
+else
+	function riesenpilz.inform()
+	end
+end
+
+local circle_tables = {}
+function riesenpilz.circle(r)
+	local circle = circle_tables[r]
+	if circle then
+		return circle
+	end
+	circle = {}
+	for i = -r, r do
+		for j = -r, r do
+			if math.floor(math.sqrt(i * i + j * j) + 0.5) == r then
+				circle[#circle+1] = {x=i, y=0, z=j}
+			end
+		end
+	end
+	circle_tables[r] = circle
+	return circle
+end

mods/riesenpilz/mapgen.lua

@@ -0,0 +1,340 @@
+local minetest = minetest	--Should make things a bit faster.
+
+local c
+local function define_contents()
+	c = {
+		ignore = minetest.get_content_id("ignore"),
+		air = minetest.get_content_id("air"),
+
+		water = minetest.get_content_id("default:water_source"),
+		stone = minetest.get_content_id("default:stone"),
+		dirt = minetest.get_content_id("default:dirt"),
+		desert_sand = minetest.get_content_id("default:desert_sand"),
+
+		dry_shrub = minetest.get_content_id("default:dry_shrub"),
+
+		ground = minetest.get_content_id("riesenpilz:ground"),
+		riesenpilz_brown = minetest.get_content_id("riesenpilz:brown"),
+		riesenpilz_red = minetest.get_content_id("riesenpilz:red"),
+		riesenpilz_fly_agaric = minetest.get_content_id("riesenpilz:fly_agaric"),
+		riesenpilz_lavashroom = minetest.get_content_id("riesenpilz:lavashroom"),
+		riesenpilz_glowshroom = minetest.get_content_id("riesenpilz:glowshroom"),
+		riesenpilz_parasol = minetest.get_content_id("riesenpilz:parasol"),
+
+		TREE_STUFF = {
+			minetest.get_content_id("default:tree"),
+			minetest.get_content_id("default:leaves"),
+			minetest.get_content_id("default:apple"),
+			minetest.get_content_id("default:jungletree"),
+			minetest.get_content_id("default:jungleleaves"),
+			minetest.get_content_id("default:junglegrass"),
+		},
+	}
+end
+
+
+local grounds = {}
+local function is_ground(id)
+	local is = grounds[id]
+	if is ~= nil then
+		return is
+	end
+	local data = minetest.registered_nodes[minetest.get_name_from_content_id(id)]
+	if not data
+	or data.paramtype == "light" then
+		grounds[id] = false
+		return false
+	end
+	local groups = data.groups
+	if groups
+	and (groups.crumbly == 3 or groups.soil == 1) then
+		grounds[id] = true
+		return true
+	end
+	grounds[id] = false
+	return false
+end
+
+local toremoves = {}
+local function is_toremove(id)
+	local is = toremoves[id]
+	if is ~= nil then
+		return is
+	end
+	local data = minetest.registered_nodes[minetest.get_name_from_content_id(id)]
+	if not data then
+		toremoves[id] = false
+		return false
+	end
+	local groups = data.groups
+	if groups
+	and groups.flammable then
+		toremoves[id] = true
+		return true
+	end
+	toremoves[id] = false
+	return false
+end
+
+
+local data = {}
+local area, pr
+local function make_circle(nam, pos, radius, chance)
+	local circle = riesenpilz.circle(radius)
+	for i = 1, #circle do
+		if pr:next(1, chance) == 1 then
+			local vi = area:indexp(vector.add(pos, circle[i]))
+			if data[vi] == c.air
+			and is_ground(data[vi - area.ystride]) then
+				data[vi] = nam
+			end
+		end
+	end
+end
+
+
+local nosmooth_rarity = 0.5
+local smooth_rarity_max = 0.6
+local smooth_rarity_min = 0.4
+local smooth_rarity_dif = smooth_rarity_max - smooth_rarity_min
+local perlin_scale = 500
+
+local contents_defined
+minetest.register_on_generated(function(minp, maxp, seed)
+	if maxp.y <= 0
+	or minp.y >= 150 then --avoid generation in the sky
+		return
+	end
+
+	local x0,z0,x1,z1 = minp.x,minp.z,maxp.x,maxp.z	-- Assume X and Z lengths are equal
+	local perlin1 = minetest.get_perlin(51,3, 0.5, perlin_scale)	--Get map specific perlin
+
+	if not riesenpilz.always_generate then
+		local biome_allowed
+		for x = x0, x1, 16 do
+			for z = z0, z1, 16 do
+				if perlin1:get2d({x=x, y=z}) > nosmooth_rarity then
+					biome_allowed = true
+					break
+				end
+			end
+			if biome_allowed then
+				break
+			end
+		end
+		if not biome_allowed then
+			return
+		end
+	end
+
+	local t1 = os.clock()
+	riesenpilz.inform(("tries to generate a giant mushroom biome at: " ..
+		"x=[%d; %d]; y=[%d; %d]; z=[%d; %d]"):format(minp.x, maxp.x, minp.y,
+		maxp.y, minp.z, maxp.z), 2)
+
+	if not contents_defined then
+		define_contents()
+		contents_defined = true
+	end
+
+	local divs = (maxp.x-minp.x);
+	local num = 1
+	local tab = {}
+	pr = PseudoRandom(seed+68)
+
+	local heightmap = minetest.get_mapgen_object("heightmap")
+	local hmi = 1
+	local hm_zstride = divs+1
+
+	local vm, emin, emax = minetest.get_mapgen_object("voxelmanip")
+	vm:get_data(data)
+	area = VoxelArea:new{MinEdge=emin, MaxEdge=emax}
+
+	for p_pos in area:iterp(minp, maxp) do	--remove tree stuff
+		local d_p_pos = data[p_pos]
+		for _,nam in ipairs(c.TREE_STUFF) do
+			if d_p_pos == nam then
+				data[p_pos] = c.air
+				break
+			end
+		end
+	end
+
+	for j=0,divs do
+		for i=0,divs do
+			local x,z = x0+i,z0+j
+
+			--Check if we are in a "riesenpilz biome"
+			local in_biome = false
+			local test = perlin1:get2d({x=x, y=z})
+			--smooth mapgen
+			if riesenpilz.always_generate then
+				in_biome = true
+			elseif riesenpilz.smooth then
+				if test >= smooth_rarity_max
+				or (
+					test > smooth_rarity_min
+					and pr:next(1, 1000) <= ((test-smooth_rarity_min)/smooth_rarity_dif)*1000
+				) then
+					in_biome = true
+				end
+			elseif test > nosmooth_rarity then
+				in_biome = true
+			end
+
+			if in_biome then
+
+				local ymin = math.max(heightmap[hmi]-5, minp.y)
+				local ymax = math.min(heightmap[hmi]+20, maxp.y)
+
+				-- skip the air part
+				local ground
+				local vi = area:index(x, ymax, z)
+				for y = ymax, ymin, -1 do
+					if data[vi] ~= c.air then
+						ground = y
+						break
+					end
+					vi = vi - area.ystride
+				end
+
+				local ground_y
+				if ground then
+					for y = ground, ymin, -1 do
+						local d_p_pos = data[vi]
+						if is_toremove(d_p_pos) then
+							-- remove trees etc.
+							data[vi] = c.air
+						else
+							if is_ground(d_p_pos) then
+								ground_y = y
+								heightmap[hmi] = y
+							end
+							break
+						end
+						vi = vi - area.ystride
+					end
+				end
+
+				if ground_y then
+					-- add ground and dirt below if needed
+					data[vi] = c.ground
+					for off = -1,-5,-1 do
+						local p_pos = vi + off * area.ystride
+						if not is_ground(data[p_pos])
+						or data[p_pos] == c.dirt then
+							break
+						end
+						data[p_pos] = c.dirt
+					end
+
+					local bigtype
+					local boden = {x=x,y=ground_y+1,z=z}
+					if pr:next(1,15) == 1 then
+						data[vi + area.ystride] = c.dry_shrub
+					elseif pr:next(1,80) == 1 then
+						make_circle(c.riesenpilz_brown, boden, pr:next(3,4), 3)
+					elseif pr:next(1,85) == 1 then
+						make_circle(c.riesenpilz_parasol, boden, pr:next(3,5), 3)
+					elseif pr:next(1,90) == 1 then
+						make_circle(c.riesenpilz_red, boden, pr:next(4,5), 3)
+					elseif pr:next(1,100) == 1 then
+						make_circle(c.riesenpilz_fly_agaric, boden, 4, 3)
+					elseif pr:next(1,340) == 10 then
+						bigtype = 2
+					elseif pr:next(1,380) == 1 then
+						bigtype = 1
+					elseif pr:next(1,390) == 20 then
+						bigtype = 3
+					elseif pr:next(1,800) == 7 then
+						bigtype = 5
+					elseif pr:next(1,4000) == 1 then
+						make_circle(c.riesenpilz_lavashroom, boden, pr:next(5,6), 3)
+					elseif pr:next(1,5000) == 1 then
+						make_circle(c.riesenpilz_glowshroom, boden, 3, 3)
+					elseif pr:next(1,6000) == 2 then
+						if pr:next(1,200) == 15 then
+							bigtype = 4
+						elseif pr:next(1,2000) == 54 then
+							bigtype = 6
+						end
+					end
+					if bigtype then
+						tab[num] = {bigtype, boden}
+						num = num+1
+					end
+				end
+			end
+			hmi = hmi+1
+		end
+	end
+	riesenpilz.inform("ground finished", 2, t1)
+
+	local param2s
+	if num ~= 1 then
+		local t2 = os.clock()
+		for _,v in pairs(tab) do
+			local p = v[2]
+
+			-- simple test for the distance to the biome border
+			local found_border = false
+			local dist = 5
+			local xmin = math.max(minp.x, p.x - dist)
+			local xmax = math.min(maxp.x, p.x + dist)
+			local hm_vi = (p.z - minp.z) * hm_zstride + xmin - minp.x + 1
+			for _ = xmin, xmax do
+				if not heightmap[hm_vi] then
+					found_border = true
+					break
+				end
+				hm_vi = hm_vi+1
+			end
+			if not found_border then
+				local zmin = math.max(minp.z, p.z - dist)
+				local zmax = math.min(maxp.z, p.z + dist)
+				hm_vi = (zmin - minp.z) * hm_zstride + p.x - minp.x + 1
+				for _ = zmin, zmax do
+					if not heightmap[hm_vi] then
+						found_border = true
+						break
+					end
+					hm_vi = hm_vi + hm_zstride
+				end
+			end
+
+			if not found_border then
+				local m = v[1]
+				if m == 1 then
+					riesenpilz.red(p, data, area)
+				elseif m == 2 then
+					riesenpilz.brown(p, data, area)
+				elseif m == 3 then
+					if not param2s then
+						param2s = vm:get_param2_data()
+					end
+					riesenpilz.fly_agaric(p, data, area, param2s)
+				elseif m == 4 then
+					riesenpilz.lavashroom(p, data, area)
+				elseif m == 5 then
+					riesenpilz.parasol(p, data, area)
+				elseif m == 6 then
+					riesenpilz.red45(p, data, area)
+				end
+			end
+		end
+		riesenpilz.inform("giant shrooms generated", 2, t2)
+	end
+
+	local t2 = os.clock()
+	vm:set_data(data)
+	if param2s then
+		vm:set_param2_data(param2s)
+	end
+	vm:set_lighting({day=0, night=0})
+	vm:calc_lighting()
+	vm:write_to_map()
+	area = nil
+	riesenpilz.inform("data set", 2, t2)
+
+	riesenpilz.inform("done", 1, t1)
+end)

mods/riesenpilz/mod.conf

@@ -0,0 +1,3 @@
+name = riesenpilz
+depends = default
+optional_depends = digilines,fence_registration,technic

mods/riesenpilz/settings.lua

@@ -0,0 +1,25 @@
+--This file contains configuration options for riesenpilz mod.
+
+-- mapgen size etc. does not work
+riesenpilz.enable_mapgen = false
+
+--Generate giant mushroom biomes everywhere
+riesenpilz.always_generate = false
+
+--Enables smooth transition of biomes.
+riesenpilz.smooth = true
+
+--says some information.
+riesenpilz.info = true
+
+--informs the players too
+riesenpilz.inform_all = false--minetest.is_singleplayer()
+
+--1:<a bit of information> 2:<acceptable amount of information> 3:<lots of text>
+riesenpilz.max_spam = 2
+
+--3d apple
+riesenpilz.change_apple = true
+
+--disallows growing a mushroom if it not every node would have a free place
+riesenpilz.giant_restrict_area = false