op baked tuff2

mods/default/README.txt

@@ -0,0 +1,183 @@
+Some (hudge) adjustments and expansions for Hades subgame added 2015 by Glünggi
+
+Minetest 0.4 mod: default
+==========================
+
+License of source code:
+-----------------------
+Copyright (C) 2011-2012 celeron55, Perttu Ahola <celeron55@gmail.com>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU Lesser General Public License as published by
+the Free Software Foundation; either version 2.1 of the License, or
+(at your option) any later version.
+
+http://www.gnu.org/licenses/lgpl-2.1.html
+
+License of media (textures and sounds)
+--------------------------------------
+Attribution-ShareAlike 3.0 Unported (CC BY-SA 3.0)
+http://creativecommons.org/licenses/by-sa/3.0/
+
+Authors of media files
+-----------------------
+Everything not listed in here:
+Copyright (C) 2010-2012 celeron55, Perttu Ahola <celeron55@gmail.com>
+
+Cisoun's WTFPL texture pack:
+  default_chest_front.png
+  default_chest_lock.png
+  default_chest_side.png
+  default_chest_top.png
+  default_stone_brick.png
+  default_dirt.png
+  default_grass.png
+  default_grass_side.png
+  default_jungletree.png
+  default_jungletree_top.png
+  default_lava.png
+  default_leaves.png
+  default_sapling.png
+  default_sign_wall.png
+  default_stone.png
+  default_tool_mesepick.png
+  default_tool_steelpick.png
+  default_tool_steelshovel.png
+  default_tool_stonepick.png
+  default_tool_stoneshovel.png
+  default_tool_woodpick.png
+  default_tool_woodshovel.png
+  default_tree.png
+  default_tree_top.png
+  default_water.png
+
+Originating from G4JC's Almost MC Texture Pack:
+  default_wood.png
+  default_torch.png
+  default_torch_on_ceiling.png
+  default_torch_on_floor.png
+  default_cobble.png
+
+VanessaE's animated torches (WTFPL):
+  default_torch_animated.png
+  default_torch_on_ceiling_animated.png
+  default_torch_on_floor_animated.png
+  default_torch_on_floor.png
+
+RealBadAngel's animated water (WTFPL):
+  default_water_source_animated.png
+  default_water_flowing_animated.png
+
+VanessaE (WTFPL):
+  default_nc_back.png
+  default_nc_front.png
+  default_nc_rb.png
+  default_nc_side.png
+  default_grass_*.png
+  default_desert_sand.png
+  default_desert_stone.png
+  default_desert_stone_brick.png
+  default_sand.png
+  default_sandstone_brick.png
+
+Calinou (CC BY-SA):
+  default_brick.png
+  default_clay_brick.png
+  default_papyrus.png
+  default_tool_steelsword.png
+  default_bronze_ingot.png
+  default_copper_ingot.png
+  default_copper_lump.png
+  default_mineral_copper.png
+
+MirceaKitsune (WTFPL):
+  character.x
+
+Jordach (CC BY-SA 3.0):
+  character.png
+
+PilzAdam (WTFPL):
+  default_jungleleaves.png
+  default_junglesapling.png
+  default_junglewood.png
+  default_obsidian_glass.png
+  default_obsidian_shard.png
+  default_mossycobble.png
+  default_gold_ingot.png
+  default_gold_lump.png
+  default_mineral_gold.png
+  default_diamond.png
+  default_tool_diamondpick.png
+  default_tool_diamondsword.png
+  default_tool_diamondshovel.png
+  default_tool_diamondaxe.png
+  default_tool_meseaxe.png
+  default_tool_meseshovel.png
+  default_tool_mesesword.png
+  default_tool_bronzeaxe.png
+  default_tool_bronzepick.png
+  default_tool_bronzeshovel.png
+  default_tool_bronzesword.png
+  default_snowball.png
+
+jojoa1997 (WTFPL):
+  default_obsidian.png
+
+InfinityProject (WTFPL):
+  default_mineral_diamond.png
+
+Splizard (CC BY-SA 3.0):
+  default_snow.png
+  default_snow_side.png
+  default_ice.png
+
+Zeg9 (CC BY-SA 3.0):
+  default_coal_block.png
+  default_steel_block.png
+  default_copper_block.png
+  default_bronze_block.png
+  default_gold_block.png
+  default_diamond_block.png
+
+kaeza (WTFPL):
+  bubble.png
+
+Glass breaking sounds (CC BY 3.0):
+  1: http://www.freesound.org/people/cmusounddesign/sounds/71947/
+  2: http://www.freesound.org/people/Tomlija/sounds/97669/
+  3: http://www.freesound.org/people/lsprice/sounds/88808/
+
+Mito551 (sounds) (CC BY-SA):
+  default_dig_choppy.ogg
+  default_dig_cracky.ogg
+  default_dig_crumbly.1.ogg
+  default_dig_crumbly.2.ogg
+  default_dig_dig_immediate.ogg
+  default_dig_oddly_breakable_by_hand.ogg
+  default_dug_node.1.ogg
+  default_dug_node.2.ogg
+  default_grass_footstep.1.ogg
+  default_grass_footstep.2.ogg
+  default_grass_footstep.3.ogg
+  default_gravel_footstep.1.ogg
+  default_gravel_footstep.2.ogg
+  default_gravel_footstep.3.ogg
+  default_gravel_footstep.4.ogg
+  default_grass_footstep.1.ogg
+  default_place_node.1.ogg
+  default_place_node.2.ogg
+  default_place_node.3.ogg
+  default_place_node_hard.1.ogg
+  default_place_node_hard.2.ogg
+  default_snow_footstep.1.ogg
+  default_snow_footstep.2.ogg
+  default_hard_footstep.1.ogg
+  default_hard_footstep.2.ogg
+  default_hard_footstep.3.ogg
+  default_sand_footstep.1.ogg
+  default_sand_footstep.2.ogg
+  default_wood_footstep.1.ogg
+  default_wood_footstep.2.ogg
+  default_dirt_footstep.1.ogg
+  default_dirt_footstep.2.ogg
+  default_glass_footstep.ogg

mods/default/craftitems.lua

@@ -0,0 +1,140 @@
+minetest.register_craftitem("default:stick", {
+	description = "Stick",
+	inventory_image = "default_stick.png",
+	groups = {stick=1},
+})
+
+
+minetest.register_craftitem("default:paper", {
+	description = "Paper",
+	inventory_image = "default_paper.png",
+})
+
+minetest.register_craftitem("default:book", {
+	description = "Book",
+	inventory_image = "default_book.png",
+})
+
+
+minetest.register_craftitem("default:coal_lump", {
+	description = "Coal Lump",
+	inventory_image = "default_coal_lump.png",
+})
+
+
+minetest.register_craftitem("default:iron_lump", {
+	description = "Iron Lump",
+	inventory_image = "default_iron_lump.png",
+})
+
+minetest.register_craftitem("default:tin_lump", {
+	description = "Tin Lump",
+	inventory_image = "default_tin_lump.png",
+})
+
+minetest.register_craftitem("default:copper_lump", {
+	description = "Copper Lump",
+	inventory_image = "default_copper_lump.png",
+})
+
+
+minetest.register_craftitem("default:mese_crystal", {
+	description = "Mese Crystal",
+	inventory_image = "default_mese_crystal.png",
+})
+
+
+minetest.register_craftitem("default:gold_lump", {
+	description = "Gold Lump",
+	inventory_image = "default_gold_lump.png",
+})
+
+
+minetest.register_craftitem("default:diamond", {
+	description = "Diamond",
+	inventory_image = "default_diamond.png",
+})
+
+
+minetest.register_craftitem("default:clay_lump", {
+	description = "Clay Lump",
+	inventory_image = "default_clay_lump.png",
+})
+
+
+minetest.register_craftitem("default:steel_ingot", {
+	description = "Steel Ingot",
+	inventory_image = "default_steel_ingot.png",
+})
+
+minetest.register_craftitem("default:tin_ingot", {
+	description = "Tin Ingot",
+	inventory_image = "default_tin_ingot.png",
+})
+
+
+minetest.register_craftitem("default:copper_ingot", {
+	description = "Copper Ingot",
+	inventory_image = "default_copper_ingot.png",
+})
+
+
+minetest.register_craftitem("default:bronze_ingot", {
+	description = "Bronze Ingot",
+	inventory_image = "default_bronze_ingot.png",
+})
+
+
+minetest.register_craftitem("default:gold_ingot", {
+	description = "Gold Ingot",
+	inventory_image = "default_gold_ingot.png"
+})
+
+
+minetest.register_craftitem("default:mese_crystal_fragment", {
+	description = "Mese Crystal Fragment",
+	inventory_image = "default_mese_crystal_fragment.png",
+})
+
+
+minetest.register_craftitem("default:clay_brick", {
+	description = "Clay Brick",
+	inventory_image = "default_clay_brick.png",
+})
+
+
+minetest.register_craftitem("default:scorched_stuff", {
+	description = "Scorched Stuff",
+	inventory_image = "default_scorched_stuff.png",
+})
+
+
+minetest.register_craftitem("default:obsidian_shard", {
+	description = "Obsidian Shard",
+	inventory_image = "default_obsidian_shard.png",
+})
+
+minetest.register_craftitem("default:emerald", {
+	description = "Emerald",
+	inventory_image = "default_emerald.png",
+})
+
+minetest.register_craftitem("default:sapphire", {
+	description = "Sapphire",
+	inventory_image = "default_sapphire.png",
+})
+
+minetest.register_craftitem("default:ruby", {
+	description = "Ruby",
+	inventory_image = "default_ruby.png",
+})
+
+minetest.register_craftitem("default:plate", {
+	description = "Plate",
+	inventory_image = "default_plate.png",
+})
+
+minetest.register_craftitem("default:nails", {
+	description = "Nails",
+	inventory_image = "default_nails.png",
+})

mods/default/functions.lua

@@ -0,0 +1,695 @@
+-- mods/default/functions.lua
+
+
+--
+-- Sounds
+--
+
+
+function default.node_sound_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="", gain=1.0}
+	table.dug = table.dug or
+			{name="default_dug_node", gain=0.25}
+	table.place = table.place or
+			{name="default_place_node_hard", gain=1.0}
+	return table
+end
+
+
+function default.node_sound_stone_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_hard_footstep", gain=0.5}
+	table.dug = table.dug or
+			{name="default_hard_footstep", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+function default.node_sound_dirt_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_dirt_footstep", gain=1.0}
+	table.dug = table.dug or
+			{name="default_dirt_footstep", gain=1.5}
+	table.place = table.place or
+			{name="default_place_node", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+function default.node_sound_sand_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_sand_footstep", gain=0.5}
+	table.dug = table.dug or
+			{name="default_sand_footstep", gain=1.0}
+	table.place = table.place or
+			{name="default_place_node", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+function default.node_sound_wood_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_wood_footstep", gain=0.5}
+	table.dug = table.dug or
+			{name="default_wood_footstep", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+function default.node_sound_leaves_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_grass_footstep", gain=0.35}
+	table.dug = table.dug or
+			{name="default_grass_footstep", gain=0.85}
+	table.dig = table.dig or
+			{name="default_dig_crumbly", gain=0.4}
+	table.place = table.place or
+			{name="default_place_node", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+function default.node_sound_glass_defaults(table)
+	table = table or {}
+	table.footstep = table.footstep or
+			{name="default_glass_footstep", gain=0.5}
+	table.dug = table.dug or
+			{name="default_break_glass", gain=1.0}
+	default.node_sound_defaults(table)
+	return table
+end
+
+
+--
+-- Legacy
+--
+
+
+function default.spawn_falling_node(p, nodename)
+	spawn_falling_node(p, nodename)
+end
+
+
+-- Horrible crap to support old code
+-- Don't use this and never do what this does, it's completely wrong!
+-- (More specifically, the client and the C++ code doesn't get the group)
+function default.register_falling_node(nodename, texture)
+	minetest.log("error", debug.traceback())
+	minetest.log('error', "WARNING: default.register_falling_node is deprecated")
+	if minetest.registered_nodes[nodename] then
+		minetest.registered_nodes[nodename].groups.falling_node = 1
+	end
+end
+
+
+--
+-- Global callbacks
+--
+
+
+-- Global environment step function
+function on_step(dtime)
+	-- print("on_step")
+end
+minetest.register_globalstep(on_step)
+
+
+function on_placenode(p, node)
+	--print("on_placenode")
+end
+minetest.register_on_placenode(on_placenode)
+
+
+function on_dignode(p, node)
+	--print("on_dignode")
+end
+minetest.register_on_dignode(on_dignode)
+
+
+function on_punchnode(p, node)
+end
+minetest.register_on_punchnode(on_punchnode)
+
+
+
+
+--
+-- Grow trees
+--
+
+
+minetest.register_abm({
+	nodenames = {"default:sapling"},
+	interval = 20,
+	chance = 50,
+	action = function(pos, node)
+		local nu =  minetest.get_node({x=pos.x, y=pos.y-1, z=pos.z}).name
+		local is_soil = minetest.get_item_group(nu, "soil")
+		if is_soil == 0 then
+			return
+		end
+
+
+		minetest.log("action", "A sapling grows into a tree at "..minetest.pos_to_string(pos))
+		local vm = minetest.get_voxel_manip()
+		local minp, maxp = vm:read_from_map({x=pos.x-16, y=pos.y, z=pos.z-16}, {x=pos.x+16, y=pos.y+16, z=pos.z+16})
+		local a = VoxelArea:new{MinEdge=minp, MaxEdge=maxp}
+		local data = vm:get_data()
+		default.grow_tree(data, a, pos, math.random(1, 4) == 1, math.random(1,100000))
+		vm:set_data(data)
+		vm:write_to_map(data)
+		vm:update_map()
+	end
+})
+
+
+minetest.register_abm({
+	nodenames = {"default:junglesapling"},
+	interval = 20,
+	chance = 50,
+	action = function(pos, node)
+		local nu =  minetest.get_node({x=pos.x, y=pos.y-1, z=pos.z}).name
+		local is_soil = minetest.get_item_group(nu, "soil")
+		if is_soil == 0 then
+			return
+		end
+
+
+		minetest.log("action", "A jungle sapling grows into a tree at "..minetest.pos_to_string(pos))
+		local vm = minetest.get_voxel_manip()
+		local minp, maxp = vm:read_from_map({x=pos.x-16, y=pos.y-1, z=pos.z-16}, {x=pos.x+16, y=pos.y+16, z=pos.z+16})
+		local a = VoxelArea:new{MinEdge=minp, MaxEdge=maxp}
+		local data = vm:get_data()
+		default.grow_jungletree(data, a, pos, math.random(1,100000))
+		vm:set_data(data)
+		vm:write_to_map(data)
+		vm:update_map()
+	end
+})
+
+
+--
+-- Lavacooling
+--
+
+
+default.cool_lava_source = function(pos)
+            if minetest.find_node_near(pos, 5, {"default:water_flowing"}) == nil then
+               minetest.set_node(pos, {name="default:tuff"})
+            else
+               minetest.set_node(pos, {name="default:water_source"})
+	end
+end
+
+
+default.cool_lava_flowing = function(pos)
+	         minetest.set_node(pos, {name="default:gravel_volcanic"})
+end
+
+
+minetest.register_abm({
+	nodenames = {"default:lava_flowing"},
+	neighbors = {"group:water"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node, active_object_count, active_object_count_wider)
+		default.cool_lava_flowing(pos, node, active_object_count, active_object_count_wider)
+	end,
+})
+
+
+minetest.register_abm({
+	nodenames = {"default:lava_source"},
+	neighbors = {"group:water"},
+	interval = 1,
+	chance = 1,
+	action = function(pos, node, active_object_count, active_object_count_wider)
+		default.cool_lava_source(pos, node, active_object_count, active_object_count_wider)
+	end,
+})
+
+--
+-- Stonetransformation
+--
+
+minetest.register_abm({
+	nodenames = {"default:stone"},
+    neighbors = {"group:lava"},
+	interval = 25,
+	chance = 15,
+	action = function(pos, node)
+		minetest.set_node(pos, {name="default:desert_stone"})
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:stone"},
+	interval = 600,
+	chance = 65,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 2, {"group:water"}) == nil then
+			return
+		else
+			minetest.set_node(pos, {name="default:mossystone"})
+		end
+	end,
+})
+
+--
+-- Tufftransformation
+--
+
+minetest.register_abm({
+	nodenames = {"default:tuff"},
+    neighbors = {"group:lava"},
+	interval = 25,
+	chance = 15,
+	action = function(pos, node)
+		minetest.set_node(pos, {name="default:tuff_baked"})
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:tuff"},
+	interval = 600,
+	chance = 65,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 2, {"group:water"}) == nil then
+			return
+		else
+			minetest.set_node(pos, {name="default:mossytuff"})
+		end
+	end,
+})
+
+--
+-- Marble
+--
+
+minetest.register_abm({
+	nodenames = {"default:chondrit"},
+	neighbors = {"group:water"},
+	interval = 200,
+	chance = 55,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 4, {"group:lava"}) == nil or pos.y > -500 then
+			return
+		else
+			minetest.set_node(pos, {name="default:marble"})
+		end
+	end,
+})
+
+
+--
+-- Obsidian
+--
+
+minetest.register_abm({
+	nodenames = {"default:gravel_volcanic"},
+	neighbors = {"group:lava"},
+	interval = 1111,
+	chance = 65,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 4, {"group:water"}) == nil or pos.y > -1000 then
+			return
+		else
+			minetest.set_node(pos, {name="default:obsidian"})
+		end
+	end,
+})
+
+--
+-- Cobbletransformation
+--
+minetest.register_abm({
+	nodenames = {"default:cobble"},
+    neighbors = {"group:water"},
+	interval = 500,
+	chance = 35,
+	action = function(pos, node)
+		minetest.set_node(pos, {name="default:mossycobble"})
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:cobble"},
+	interval = 500,
+	chance = 55,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 2, {"group:water"}) == nil then
+			return
+		else
+			minetest.set_node(pos, {name="default:mossycobble"})
+		end
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:mossycobble"},
+    neighbors = {"default:water_flowing"},
+	interval = 500,
+	chance = 75,
+	action = function(pos, node)
+		minetest.set_node(pos, {name="default:gravel"})
+	end,
+})
+
+
+--
+-- Ash_leavetransformation
+--
+
+minetest.register_abm({
+	nodenames = {"default:sand"},
+	interval = 550,
+	chance = 35,
+	action = function(pos, node)
+		if minetest.find_node_near(pos, 3, {"group:leaves"}) == nil then
+			return
+		else
+		    pos.y = pos.y+1
+			if minetest.get_node(pos).name == "default:cactus" then
+			  return
+			else
+			pos.y = pos.y-1
+			minetest.set_node(pos, {name="default:desert_sand"})
+			end
+		end
+	end,
+})
+
+
+--
+-- Sandtransformation
+--
+
+minetest.register_abm({
+	nodenames = {"default:desert_sand"},
+    neighbors = {"group:water"},
+	interval = 25,
+	chance = 5,
+	action = function(pos, node)
+		   minetest.set_node(pos, {name="default:dirt"})
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:desert_sand"},
+    neighbors = {"default:dirt", "default:dirt_with_grass"},
+	interval = 50,
+	chance = 5,
+	action = function(pos, node)
+			if minetest.find_node_near(pos, 10, {"group:water"}) == nil then
+				return
+			else
+			    minetest.set_node(pos, {name="default:dirt"})
+			end
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:sand"},
+    neighbors = {"group:water"},
+	interval = 700,
+	chance = 75,
+	action = function(pos, node)
+              minetest.set_node(pos, {name="default:clay"})				
+	end,
+})
+
+
+-- Dirttransformation
+--
+
+minetest.register_abm({
+	nodenames = {"default:dirt"},
+	interval = 50,
+	chance = 20,
+	action = function(pos, node)
+		local name = minetest.get_node(pos).name
+			    pos.y = pos.y+1
+				if minetest.get_node(pos).name == "air" then
+				   if minetest.get_node_light(pos) < 8 then
+				      return
+				   else
+				    pos.y = pos.y-1
+					minetest.set_node(pos, {name="default:dirt_with_grass"})
+				   end
+				end
+	end,
+})
+
+-- minetest.register_abm({
+	-- nodenames = {"default:dirt"},
+	-- interval = 50,
+	-- chance = 20,
+	-- action = function(pos, node)
+			-- if minetest.find_node_near(pos, 10, {"group:water"}) == nil then
+               -- minetest.set_node(pos, {name="default:desert_sand"})				
+            -- else
+               -- return 
+			-- end
+	-- end,
+-- })
+
+-- minetest.register_abm({
+	-- nodenames = {"default:dirt_with_grass"},
+	-- interval = 50,
+	-- chance = 20,
+	-- action = function(pos, node)
+			-- if minetest.find_node_near(pos, 10, {"group:water"}) == nil then
+               -- minetest.set_node(pos, {name="default:dirt"})				
+            -- else
+               -- return 
+			-- end
+	-- end,
+-- })
+-- sugarcane
+minetest.register_abm({
+	nodenames = {"default:sugarcane"},
+	neighbors = {"default:dirt", "default:dirt_with_grass"},
+	interval = 55,
+	chance = 35,
+	action = function(pos, node)
+		pos.y = pos.y-1
+		local name = minetest.get_node(pos).name
+		if name == "default:dirt" or name == "default:dirt_with_grass" then
+			pos.y = pos.y+1
+			local height = 0
+			while minetest.get_node(pos).name == "default:sugarcane" and height < 3 do
+				height = height+1
+				pos.y = pos.y+1
+			end
+			if height < 3 then
+				if minetest.get_node(pos).name == "air" then
+					minetest.set_node(pos, {name="default:sugarcane"})
+				end
+			end
+		end
+	end,
+})
+
+minetest.register_abm({
+	nodenames = {"default:dirt_with_grass"},
+    neighbors = {"default:papyrus"},
+	interval = 500,
+	chance = 25,
+	action = function(pos, node)
+              if minetest.find_node_near(pos, 10, {"default:sugarcane"}) == nil then
+			     pos.y = pos.y+1
+				 if minetest.get_node(pos).name == "air" then
+			        minetest.set_node(pos, {name="default:sugarcane"})
+				 end
+			else
+			    return
+			end				
+	end,
+})
+--
+-- Papyrus and cactus growing
+--
+
+
+minetest.register_abm({
+	nodenames = {"default:cactus"},
+	neighbors = {"group:sand"},
+	interval = 50,
+	chance = 20,
+	action = function(pos, node)
+		pos.y = pos.y-1
+		local name = minetest.get_node(pos).name
+		if minetest.get_item_group(name, "sand") ~= 0 then
+			pos.y = pos.y+1
+			local height = 0
+			while minetest.get_node(pos).name == "default:cactus" and height < 4 do
+				height = height+1
+				pos.y = pos.y+1
+			end
+			if height < 3 then
+				if minetest.get_node(pos).name == "air" then
+					minetest.set_node(pos, {name="default:cactus"})
+				end
+			end
+		end
+	end,
+})
+
+
+minetest.register_abm({
+	nodenames = {"default:papyrus"},
+	neighbors = {"default:dirt", "default:dirt_with_grass"},
+	interval = 50,
+	chance = 20,
+	action = function(pos, node)
+		pos.y = pos.y-1
+		local name = minetest.get_node(pos).name
+		if name == "default:dirt" or name == "default:dirt_with_grass" then
+			if minetest.find_node_near(pos, 3, {"group:water"}) == nil then
+				return
+			end
+			pos.y = pos.y+1
+			local height = 0
+			while minetest.get_node(pos).name == "default:papyrus" and height < 4 do
+				height = height+1
+				pos.y = pos.y+1
+			end
+			if height < 4 then
+				if minetest.get_node(pos).name == "air" then
+					minetest.set_node(pos, {name="default:papyrus"})
+				end
+			end
+		end
+	end,
+})
+
+
+--
+-- dig upwards
+--
+
+function default.dig_up(pos, node, digger)
+	if digger == nil then return end
+	local np = {x = pos.x, y = pos.y + 1, z = pos.z}
+	local nn = minetest.get_node(np)
+	if nn.name == node.name then
+		minetest.node_dig(np, nn, digger)
+	end
+end
+
+
+--
+-- Leafdecay
+--
+
+
+-- To enable leaf decay for a node, add it to the "leafdecay" group.
+--
+-- The rating of the group determines how far from a node in the group "tree"
+-- the node can be without decaying.
+--
+-- If param2 of the node is ~= 0, the node will always be preserved. Thus, if
+-- the player places a node of that kind, you will want to set param2=1 or so.
+--
+-- If the node is in the leafdecay_drop group then the it will always be dropped
+-- as an item
+
+
+default.leafdecay_trunk_cache = {}
+default.leafdecay_enable_cache = true
+-- Spread the load of finding trunks
+default.leafdecay_trunk_find_allow_accumulator = 0
+
+
+minetest.register_globalstep(function(dtime)
+	local finds_per_second = 5000
+	default.leafdecay_trunk_find_allow_accumulator =
+			math.floor(dtime * finds_per_second)
+end)
+
+
+minetest.register_abm({
+	nodenames = {"group:leafdecay"},
+	neighbors = {"air", "group:liquid"},
+	-- A low interval and a high inverse chance spreads the load
+	interval = 2,
+	chance = 5,
+
+
+	action = function(p0, node, _, _)
+		--print("leafdecay ABM at "..p0.x..", "..p0.y..", "..p0.z..")")
+		local do_preserve = false
+		local d = minetest.registered_nodes[node.name].groups.leafdecay
+		if not d or d == 0 then
+			--print("not groups.leafdecay")
+			return
+		end
+		local n0 = minetest.get_node(p0)
+		if n0.param2 ~= 0 then
+			--print("param2 ~= 0")
+			return
+		end
+		local p0_hash = nil
+		if default.leafdecay_enable_cache then
+			p0_hash = minetest.hash_node_position(p0)
+			local trunkp = default.leafdecay_trunk_cache[p0_hash]
+			if trunkp then
+				local n = minetest.get_node(trunkp)
+				local reg = minetest.registered_nodes[n.name]
+				-- Assume ignore is a trunk, to make the thing work at the border of the active area
+				if n.name == "ignore" or (reg and reg.groups.tree and reg.groups.tree ~= 0) then
+					--print("cached trunk still exists")
+					return
+				end
+				--print("cached trunk is invalid")
+				-- Cache is invalid
+				table.remove(default.leafdecay_trunk_cache, p0_hash)
+			end
+		end
+		if default.leafdecay_trunk_find_allow_accumulator <= 0 then
+			return
+		end
+		default.leafdecay_trunk_find_allow_accumulator =
+				default.leafdecay_trunk_find_allow_accumulator - 1
+		-- Assume ignore is a trunk, to make the thing work at the border of the active area
+		local p1 = minetest.find_node_near(p0, d, {"ignore", "group:tree"})
+		if p1 then
+			do_preserve = true
+			if default.leafdecay_enable_cache then
+				--print("caching trunk")
+				-- Cache the trunk
+				default.leafdecay_trunk_cache[p0_hash] = p1
+			end
+		end
+		if not do_preserve then
+			-- Drop stuff other than the node itself
+			itemstacks = minetest.get_node_drops(n0.name)
+			for _, itemname in ipairs(itemstacks) do
+				if minetest.get_item_group(n0.name, "leafdecay_drop") ~= 0 or
+						itemname ~= n0.name then
+					local p_drop = {
+						x = p0.x - 0.5 + math.random(),
+						y = p0.y - 0.5 + math.random(),
+						z = p0.z - 0.5 + math.random(),
+					}
+					minetest.add_item(p_drop, itemname)
+				end
+			end
+			-- Remove node
+			minetest.remove_node(p0)
+			nodeupdate(p0)
+		end
+	end
+})

mods/default/furnace.lua

@@ -0,0 +1,289 @@
+
+--
+-- Formspecs
+--
+
+local function active_formspec(fuel_percent, item_percent)
+	local formspec = 
+		"size[8,8.5]"..
+		default.gui_bg..
+		"background[-0.5,-0.65;9,10.35;".."furnace.png".."]".. --default.gui_bg_img..
+		default.gui_slots..
+		"list[current_name;src;2.0,0.5;1,1;]"..
+		"list[current_name;fuel;2.0,2.5;1,1;]"..
+		"image[2.0,1.5;1,1;default_furnace_fire_bg.png^[lowpart:"..
+		(100-fuel_percent)..":default_furnace_fire_fg.png]"..
+		"image[3.0,1.5;1,1;gui_furnace_arrow_bg.png^[lowpart:"..
+		(item_percent)..":gui_furnace_arrow_fg.png^[transformR270]"..
+		"list[current_name;dst;4.0,0.96;2,2;]"..
+		"list[current_player;main;0,4.25;8,1;]"..
+		"list[current_player;main;0,5.5;8,3;8]"..
+		default.get_hotbar_bg(0, 4.25)
+	return formspec
+end
+
+local inactive_formspec =
+	"size[8,8.5]"..
+	default.gui_bg..
+	"background[-0.5,-0.65;9,10.35;".."furnace.png".."]".. --default.gui_bg_img..
+	default.gui_slots..
+	"list[current_name;src;2.0,0.5;1,1;]"..
+	"list[current_name;fuel;2.0,2.5;1,1;]"..
+	"image[2.0,1.5;1,1;default_furnace_fire_bg.png]"..
+	"image[3.0,1.5;1,1;gui_furnace_arrow_bg.png^[transformR270]"..
+	"list[current_name;dst;4.0,0.96;2,2;]"..
+	"list[current_player;main;0,4.25;8,1;]"..
+	"list[current_player;main;0,5.5;8,3;8]"..
+	default.get_hotbar_bg(0, 4.25)
+
+--
+-- Node callback functions that are the same for active and inactive furnace
+--
+
+local function can_dig(pos, player)
+	local meta = minetest.get_meta(pos);
+	local inv = meta:get_inventory()
+	return inv:is_empty("fuel") and inv:is_empty("dst") and inv:is_empty("src")
+end
+
+local function allow_metadata_inventory_put(pos, listname, index, stack, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return 0
+	end
+	local meta = minetest.get_meta(pos)
+	local inv = meta:get_inventory()
+	if listname == "fuel" then
+		if minetest.get_craft_result({method="fuel", width=1, items={stack}}).time ~= 0 then
+			if inv:is_empty("src") then
+				meta:set_string("infotext", "Furnace is empty")
+			end
+			return stack:get_count()
+		else
+			return 0
+		end
+	elseif listname == "src" then
+		return stack:get_count()
+	elseif listname == "dst" then
+		return 0
+	end
+end
+
+local function allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
+	local meta = minetest.get_meta(pos)
+	local inv = meta:get_inventory()
+	local stack = inv:get_stack(from_list, from_index)
+	return allow_metadata_inventory_put(pos, to_list, to_index, stack, player)
+end
+
+local function allow_metadata_inventory_take(pos, listname, index, stack, player)
+	if minetest.is_protected(pos, player:get_player_name()) then
+		return 0
+	end
+	return stack:get_count()
+end
+
+--
+-- Node definitions
+--
+
+minetest.register_node("default:furnace", {
+	description = "Furnace",
+	tiles = {
+		"default_furnace_top.png", "default_furnace_bottom.png",
+		"default_furnace_side.png", "default_furnace_side.png",
+		"default_furnace_side.png", "default_furnace_front.png"
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=2},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+	
+	can_dig = can_dig,
+	
+	allow_metadata_inventory_put = allow_metadata_inventory_put,
+	allow_metadata_inventory_move = allow_metadata_inventory_move,
+	allow_metadata_inventory_take = allow_metadata_inventory_take,
+})
+
+minetest.register_node("default:furnace_active", {
+	description = "Furnace",
+	tiles = {
+		"default_furnace_top.png", "default_furnace_bottom.png",
+		"default_furnace_side.png", "default_furnace_side.png",
+		"default_furnace_side.png",
+		{
+			image = "default_furnace_front_active.png",
+			backface_culling = false,
+			animation = {
+				type = "vertical_frames",
+				aspect_w = 16,
+				aspect_h = 16,
+				length = 1.5
+			},
+		}
+	},
+	paramtype2 = "facedir",
+	light_source = 8,
+	drop = "default:furnace",
+	groups = {cracky=2, not_in_creative_inventory=1},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+	
+	can_dig = can_dig,
+	
+	allow_metadata_inventory_put = allow_metadata_inventory_put,
+	allow_metadata_inventory_move = allow_metadata_inventory_move,
+	allow_metadata_inventory_take = allow_metadata_inventory_take,
+})
+
+--
+-- ABM
+--
+
+local function swap_node(pos, name)
+	local node = minetest.get_node(pos)
+	if node.name == name then
+		return
+	end
+	node.name = name
+	minetest.swap_node(pos, node)
+end
+
+minetest.register_abm({
+	nodenames = {"default:furnace", "default:furnace_active"},
+	interval = 1.0,
+	chance = 1,
+	action = function(pos, node, active_object_count, active_object_count_wider)
+		--
+		-- Inizialize metadata
+		--
+		local meta = minetest.get_meta(pos)
+		local fuel_time = meta:get_float("fuel_time")+1 or 0
+		local src_time = meta:get_float("src_time")+0.75 or 0
+		local fuel_totaltime = meta:get_float("fuel_totaltime") or 0
+		
+		--
+		-- Inizialize inventory
+		--
+		local inv = meta:get_inventory()
+		for listname, size in pairs({
+				src = 1,
+				fuel = 1,
+				dst = 4,
+		}) do
+			if inv:get_size(listname) ~= size then
+				inv:set_size(listname, size)
+			end
+		end
+		local srclist = inv:get_list("src")
+		local fuellist = inv:get_list("fuel")
+		local dstlist = inv:get_list("dst")
+		
+		--
+		-- Cooking
+		--
+		
+		-- Check if we have cookable content
+		local cooked, aftercooked = minetest.get_craft_result({method = "cooking", width = 1, items = srclist})
+		local cookable = true
+		
+		if cooked.time == 0 then
+			cookable = false
+		end
+		
+		-- Check if we have enough fuel to burn
+		if fuel_time < fuel_totaltime then
+			-- The furnace is currently active and has enough fuel
+			fuel_time = fuel_time + 1
+			
+			-- If there is a cookable item then check if it is ready yet
+			if cookable then
+				src_time = src_time + 1
+				if src_time >= cooked.time then
+					-- Place result in dst list if possible
+					if inv:room_for_item("dst", cooked.item) then
+						inv:add_item("dst", cooked.item)
+						inv:set_stack("src", 1, aftercooked.items[1])
+						src_time = 0
+					end
+				end
+			end
+		else
+			-- Furnace ran out of fuel
+			if cookable then
+				-- We need to get new fuel
+				local fuel, afterfuel = minetest.get_craft_result({method = "fuel", width = 1, items = fuellist})
+				
+				if fuel.time == 0 then
+					-- No valid fuel in fuel list
+					fuel_totaltime = 0
+					fuel_time = 0
+					src_time = 0
+				else
+					-- Take fuel from fuel list
+					inv:set_stack("fuel", 1, afterfuel.items[1])
+					
+					fuel_totaltime = fuel.time
+					fuel_time = 0
+					
+				end
+			else
+				-- We don't need to get new fuel since there is no cookable item
+				fuel_totaltime = 0
+				fuel_time = 0
+				src_time = 0
+			end
+		end
+		
+		--
+		-- Update formspec, infotext and node
+		--
+		local formspec = inactive_formspec
+		local item_state = ""
+		local item_percent = 0
+		if cookable then
+			item_percent =  math.floor(src_time / cooked.time * 100)
+			item_state = item_percent .. "%"
+		else
+			if srclist[1]:is_empty() then
+				item_state = "Empty"
+			else
+				item_state = "Not cookable"
+			end
+		end
+		
+		local fuel_state = "Empty"
+		local active = "inactive "
+		if fuel_time <= fuel_totaltime and fuel_totaltime ~= 0 then
+			active = "active "
+			local fuel_percent = math.floor(fuel_time / fuel_totaltime * 100)
+			fuel_state = fuel_percent .. "%"
+			formspec = active_formspec(fuel_percent, item_percent)
+			swap_node(pos, "default:furnace_active")
+			--sound (brandon reese (adventuretest))
+			if meta:get_int("sound_played") == nil or ( os.time() - meta:get_int("sound_played") ) >= 4 then
+				minetest.sound_play("default_furnace",{pos=pos})
+				meta:set_string("sound_played",os.time())
+			end
+		else
+			if not fuellist[1]:is_empty() then
+				fuel_state = "0%"
+			end
+			swap_node(pos, "default:furnace")
+		end
+		
+		local infotext =  "Furnace " .. active .. "(Item: " .. item_state .. "; Fuel: " .. fuel_state .. ")"
+		
+		--
+		-- Set meta values
+		--
+		-- local src_time = src_time + 1.75
+		meta:set_float("fuel_totaltime", fuel_totaltime)
+		meta:set_float("fuel_time", fuel_time)
+		meta:set_float("src_time", src_time)
+		meta:set_string("formspec", formspec)
+		meta:set_string("infotext", infotext)
+	end,
+})

mods/default/init.lua

@@ -0,0 +1,62 @@
+-- Minetest 0.4 mod: default
+-- See README.txt for licensing and other information.
+
+
+-- The API documentation in here was moved into doc/lua_api.txt
+
+
+WATER_ALPHA = 160
+WATER_VISC = 1
+LAVA_VISC = 7
+LIGHT_MAX = 14
+
+
+-- Definitions made by this mod that other mods can use too
+default = {}
+
+-- GUI related stuff
+default.gui_bg = "bgcolor[#080808BB;false]" 
+default.gui_bg_img = "background[5,5;1,1;inventory.png;true]"
+default.gui_slots = "listcolors[#000000;#C68D3C;#ffffff;#C68D3C;#000000]" -- 455757--4D6161 [#00000069;#5A5A5A;#141318;#30434C;#FFF]
+default.chestgui_bg_img = "background[5,5;1,1;chestui.png;true]"
+
+function default.get_hotbar_bg(x,y)
+	local out = ""
+	for i=0,7,1 do
+		out = out .."image["..x+i..","..y..";1,1;gui_hb_bg.png]"
+	end
+	return out
+end
+
+default.gui_survival_form = "size[8,8.5]"..
+			default.gui_bg..
+			default.gui_bg_img..
+			default.gui_slots..
+			"list[current_player;main;0,4.25;8,1;]"..
+			"list[current_player;main;0,5.5;8,3;8]"..
+			"list[current_player;craft;3,0.5;3,3;]"..
+			"list[current_player;craftpreview;7,1.5;1,1;]"..
+			"image[6,1.5;1,1;gui_furnace_arrow_bg.png^[transformR270]]"..
+			default.get_hotbar_bg(0,4.25)
+
+-- Load files
+dofile(minetest.get_modpath("default").."/functions.lua")
+dofile(minetest.get_modpath("default").."/nodes.lua")
+dofile(minetest.get_modpath("default").."/tools.lua")
+dofile(minetest.get_modpath("default").."/craftitems.lua")
+dofile(minetest.get_modpath("default").."/crafting.lua")
+dofile(minetest.get_modpath("default").."/mapgen.lua")
+dofile(minetest.get_modpath("default").."/player.lua")
+dofile(minetest.get_modpath("default").."/trees.lua")
+dofile(minetest.get_modpath("default").."/furnace.lua")
+dofile(minetest.get_modpath("default").."/prismafurnance.lua")
+
+-- 10 slot hotbar key 1 - 0 (for ppl w/o a mouseweel)
+hotbar_size = minetest.setting_get("hotbar_size") or 10
+
+minetest.register_on_joinplayer(function(player)
+	player:hud_set_hotbar_itemcount(hotbar_size)
+	minetest.after(0.5,function()
+		player:hud_set_hotbar_selected_image("gui_hotbar_selected.png")
+	end)
+end)

mods/default/mapgen.lua

@@ -0,0 +1,937 @@
+-- mods/default/mapgen.lua
+
+
+--
+-- Aliases for map generator outputs
+--
+
+
+minetest.register_alias("mapgen_stone", "default:stone")
+minetest.register_alias("mapgen_dirt", "default:sand")
+minetest.register_alias("mapgen_dirt_with_grass", "default:sand")
+minetest.register_alias("mapgen_sand", "default:sand")
+minetest.register_alias("mapgen_water_source", "default:lava_source")
+minetest.register_alias("mapgen_river_water_source", "default:lava_source")
+minetest.register_alias("mapgen_lava_source", "default:lava_source")
+minetest.register_alias("mapgen_gravel", "default:lava_source")
+minetest.register_alias("mapgen_desert_stone", "default:stone")
+minetest.register_alias("mapgen_desert_sand", "default:sand")
+minetest.register_alias("mapgen_dirt_with_snow", "default:sand")
+minetest.register_alias("mapgen_snowblock", "default:sand")
+minetest.register_alias("mapgen_snow", "default:sand")
+minetest.register_alias("mapgen_ice", "default:stone")
+minetest.register_alias("mapgen_sandstone", "default:tuff")
+
+-- Flora
+
+minetest.register_alias("mapgen_tree", "default:cobble")
+minetest.register_alias("mapgen_leaves", "default:cobble")
+minetest.register_alias("mapgen_apple", "default:cobble")
+minetest.register_alias("mapgen_jungletree", "default:cobble")
+minetest.register_alias("mapgen_jungleleaves", "default:cobble")
+minetest.register_alias("mapgen_junglegrass", "default:cobble")
+minetest.register_alias("mapgen_pine_tree", "default:cobble")
+minetest.register_alias("mapgen_pine_needles", "default:cobble")
+
+-- Dungeons
+
+minetest.register_alias("mapgen_cobble", "default:cobble")
+minetest.register_alias("mapgen_stair_cobble", "stairs:stair_cobble")
+minetest.register_alias("mapgen_mossycobble", "default:mossycobble")
+minetest.register_alias("mapgen_sandstonebrick", "default:sandstonebrick")
+minetest.register_alias("mapgen_stair_sandstonebrick", "stairs:stair_sandstonebrick")
+
+minetest.register_on_mapgen_init(function(mgparams)
+	minetest.set_mapgen_params({mgname="v6", mg_flags={"nodungeons", "notrees", "caves"}, mgv6_spflags={"mudflow", "nosnowbiomes", "nojungles"}, "water_level=-5"})
+end)
+
+--
+-- Ore generation
+--
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_emerald",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 1,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = 20,
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_emerald",
+	wherein        = "default:stone",
+	clust_scarcity =16*16*16,
+	clust_num_ores = 2,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -50,
+    flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_sapphire",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 1,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = -300,
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_sapphire",
+	wherein        = "default:stone",
+	clust_scarcity =16*16*16,
+	clust_num_ores = 2,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -550,
+    flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_diamond",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 1,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = -1200,
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_diamond",
+	wherein        = "default:stone",
+	clust_scarcity =16*16*16,
+	clust_num_ores = 2,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -5000,
+    flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_ruby",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 1,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = -900,
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_ruby",
+	wherein        = "default:stone",
+	clust_scarcity =16*16*16,
+	clust_num_ores = 2,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -3000,
+    flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_coal",
+	wherein        = "default:stone",
+	clust_scarcity = 8*8*8,
+	clust_num_ores = 8,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = 64,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_coal",
+	wherein        = "default:stone",
+	clust_scarcity = 12*12*12,
+	clust_num_ores = 16,
+	clust_size     = 6,
+	height_min     = -31000,
+	height_max     = 0,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_coal",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 27,
+	clust_size     = 6,
+	height_min     = -31000,
+	height_max     = -3000,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_iron",
+	wherein        = "default:stone",
+	clust_scarcity = 12*12*12,
+	clust_num_ores = 3,
+	clust_size     = 2,
+	height_min     = -25,
+	height_max     = -2,
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_iron",
+	wherein        = "default:stone",
+	clust_scarcity = 9*9*9,
+	clust_num_ores = 3,
+	clust_size     = 3,
+	height_min     = -63,
+	height_max     = -26,
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_iron",
+	wherein        = "default:stone",
+	clust_scarcity = 7*7*7,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -64,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_iron",
+	wherein        = "default:stone",
+	clust_scarcity = 24*24*24,
+	clust_num_ores = 27,
+	clust_size     = 6,
+	height_min     = -31000,
+	height_max     = -800,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_mese",
+	wherein        = "default:stone",
+	clust_scarcity = 18*18*18,
+	clust_num_ores = 2,
+	clust_size     = 2,
+	height_min     = -355,
+	height_max     = -204,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_mese",
+	wherein        = "default:stone",
+	clust_scarcity = 14*14*14,
+	clust_num_ores = 3,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = -356,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:mese",
+	wherein        = "default:stone",
+	clust_scarcity = 36*36*36,
+	clust_num_ores = 5,
+	clust_size     = 2,
+	height_min     = -31000,
+	height_max     = -5000,
+	flags          = "absheight",
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_gold",
+	wherein        = "default:stone",
+	clust_scarcity = 15*15*15,
+	clust_num_ores = 1,
+	clust_size     = 2,
+	height_min     = -666,
+	height_max     = -333,
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_gold",
+	wherein        = "default:stone",
+	clust_scarcity = 13*13*13,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -666,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_diamond",
+	wherein        = "default:stone",
+	clust_scarcity = 15*15*15,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -10000,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_emerald",
+	wherein        = "default:stone",
+	clust_scarcity = 15*15*15,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -10000,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_sapphire",
+	wherein        = "default:stone",
+	clust_scarcity = 15*15*15,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -10000,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_ruby",
+	wherein        = "default:stone",
+	clust_scarcity = 15*15*15,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -10000,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_copper",
+	wherein        = "default:stone",
+	clust_scarcity = 12*12*12,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -163,
+	height_max     = -116,
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_copper",
+	wherein        = "default:stone",
+	clust_scarcity = 9*9*9,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -164,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_copper",
+	wherein        = "default:stone",
+	clust_scarcity = 9*9*9,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -1900,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_tin",
+	wherein        = "default:stone",
+	clust_scarcity = 12*12*12,
+	clust_num_ores = 4,
+	clust_size     = 3,
+	height_min     = -163,
+	height_max     = -116,
+})
+
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_tin",
+	wherein        = "default:stone",
+	clust_scarcity = 9*9*9,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -164,
+	flags          = "absheight",
+})
+
+minetest.register_ore({
+	ore_type       = "scatter",
+	ore            = "default:stone_with_tin",
+	wherein        = "default:stone",
+	clust_scarcity = 9*9*9,
+	clust_num_ores = 5,
+	clust_size     = 3,
+	height_min     = -31000,
+	height_max     = -1900,
+	flags          = "absheight",
+})
+
+-- if minetest.setting_get("mg_name") == "indev" then
+	-- Floatlands and high mountains springs
+
+minetest.register_ore({
+		ore_type         = "blob",
+		ore              = "default:lava_source",
+		wherein          = {"default:stone"},
+		clust_scarcity   = 25* 25 * 25,
+		clust_size       = 5,
+		y_min            = -10,
+		y_max            = 31000,
+		noise_threshhold = 0.0,
+		noise_params     = {
+			offset = 0.5,
+			scale = 0.2,
+			spread = {x = 5, y = 5, z = 5},
+			seed = 666,
+			octaves = 1,
+			persist = 0.0
+		},
+	})
+
+
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:sand",
+		wherein        = "default:stone",
+		clust_scarcity = 20*20*20,
+		clust_num_ores = 5*5*3,
+		clust_size     = 5,
+		height_min     = -120,
+		height_max     = 31000,
+	})
+
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:tuff",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 25*25*25,
+		clust_num_ores = 10000,
+		clust_size     = 12,
+		height_min     = -100,
+		height_max     = 31000,
+	})
+
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:chondrit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 10*10*10,
+		clust_num_ores = 50,
+		clust_size     = 10,
+		height_min     = -149,
+		height_max     = 10,
+		flags          = "absheight",
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:chondrit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*20*20,
+		clust_num_ores = 550,
+		clust_size     = 10,
+		height_min     = -31000,
+		height_max     = -150,
+		flags          = "absheight",
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:chondrit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*20*20,
+		clust_num_ores = 650,
+		clust_size     = 10,
+		height_min     = -31000,
+		height_max     = -10000,
+		flags          = "absheight",
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:essexit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 10*10*10,
+		clust_num_ores = 50,
+		clust_size     = 5,
+		height_min     = -350,
+		height_max     = -300,
+	})
+
+minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:essexit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 10*10*10,
+		clust_num_ores = 500,
+		clust_size     = 10,
+		height_min     = -31000,
+		height_max     = -600,
+		flags          = "absheight",
+	})		
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:essexit",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*10*20,
+		clust_num_ores = 950,
+		clust_size     = 10,
+		height_min     = -31000,
+		height_max     = -10000,
+		flags          = "absheight",
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:gravel",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*5*20,
+		clust_num_ores = 150,
+		clust_size     = 10,
+		height_min     = -10,
+		height_max     = 0,
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:gravel",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*5*20,
+		clust_num_ores = 350,
+		clust_size     = 10,
+		height_min     = -70,
+		height_max     = -50,
+	})
+	
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:gravel",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 20*10*20,
+		clust_num_ores = 500,
+		clust_size     = 10,
+		height_min     = -140,
+		height_max     = -120,
+	})
+	
+	-- Underground springs
+	minetest.register_ore({
+		ore_type       = "scatter",
+		ore            = "default:water_source",
+		ore_param2     = 128,
+		wherein        = "default:stone",
+		clust_scarcity = 25*25*25,
+		clust_num_ores = 8,
+		clust_size     = 3,
+		height_min     = -10000,
+		height_max     = -10,
+	})
+
+	minetest.register_ore({
+		ore_type         = "blob",
+		ore              = "default:lava_source",
+		wherein          = {"default:stone"},
+		clust_scarcity   = 25* 25 * 25,
+		clust_size       = 10,
+		y_min            = -30000,
+		y_max            = -10,
+		noise_threshhold = 0.2,
+		noise_params     = {
+			offset = 0.5,
+			scale = 0.2,
+			spread = {x = 500, y = 500, z = 500},
+			seed = 666,
+			octaves = 1,
+			persist = 0.0
+		},
+	})
+	
+-- end
+
+
+
+
+
+function default.generate_ore(name, wherein, minp, maxp, seed, chunks_per_volume, chunk_size, ore_per_chunk, height_min, height_max)
+	minetest.log('action', "WARNING: default.generate_ore is deprecated")
+
+
+	if maxp.y < height_min or minp.y > height_max then
+		return
+	end
+	local y_min = math.max(minp.y, height_min)
+	local y_max = math.min(maxp.y, height_max)
+	if chunk_size >= y_max - y_min + 1 then
+		return
+	end
+	local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1)
+	local pr = PseudoRandom(seed)
+	local num_chunks = math.floor(chunks_per_volume * volume)
+	local inverse_chance = math.floor(chunk_size*chunk_size*chunk_size / ore_per_chunk)
+	--print("generate_ore num_chunks: "..dump(num_chunks))
+	for i=1,num_chunks do
+		local y0 = pr:next(y_min, y_max-chunk_size+1)
+		if y0 >= height_min and y0 <= height_max then
+			local x0 = pr:next(minp.x, maxp.x-chunk_size+1)
+			local z0 = pr:next(minp.z, maxp.z-chunk_size+1)
+			local p0 = {x=x0, y=y0, z=z0}
+			for x1=0,chunk_size-1 do
+			for y1=0,chunk_size-1 do
+			for z1=0,chunk_size-1 do
+				if pr:next(1,inverse_chance) == 1 then
+					local x2 = x0+x1
+					local y2 = y0+y1
+					local z2 = z0+z1
+					local p2 = {x=x2, y=y2, z=z2}
+					if minetest.get_node(p2).name == wherein then
+						minetest.set_node(p2, {name=name})
+					end
+				end
+			end
+			end
+			end
+		end
+	end
+	--print("generate_ore done")
+end
+
+--DECO
+
+minetest.register_decoration({
+		deco_type = "simple",
+		place_on = {"default:stone"},
+		sidelen = 16,
+		noise_params = {
+			offset = 0.5,
+			scale = 0.2,
+			spread = {x = 5, y = 5, z = 5},
+			seed = 333,
+			octaves = 1,
+			persist = 0.0
+		},
+		y_min = 1,
+		y_max = 100,
+		decoration = "default:stone",
+		height = 3,
+	    height_max = 4,
+	})
+
+minetest.register_decoration({
+		deco_type = "simple",
+		place_on = {"default:stone"},
+		sidelen = 16,
+		noise_params = {
+			offset = 0.5,
+			scale = 0.2,
+			spread = {x = 5, y = 5, z = 5},
+			seed = 555,
+			octaves = 1,
+			persist = 0.0
+		},
+		y_min = 1,
+		y_max = 100,
+		decoration = "default:sand",
+	})
+
+function default.make_papyrus(pos, size)
+	for y=0,size-1 do
+		local p = {x=pos.x, y=pos.y+y, z=pos.z}
+		local nn = minetest.get_node(p).name
+		if minetest.registered_nodes[nn] and
+			minetest.registered_nodes[nn].buildable_to then
+			minetest.set_node(p, {name="default:papyrus"})
+		else
+			return
+		end
+	end
+end
+
+
+function default.make_cactus(pos, size)
+	for y=0,size-1 do
+		local p = {x=pos.x, y=pos.y+y, z=pos.z}
+		local nn = minetest.get_node(p).name
+		if minetest.registered_nodes[nn] and
+			minetest.registered_nodes[nn].buildable_to then
+			minetest.set_node(p, {name="default:cactus"})
+		else
+			return
+		end
+	end
+end
+
+
+-- facedir: 0/1/2/3 (head node facedir value)
+-- length: length of rainbow tail
+function default.make_nyancat(pos, facedir, length)
+	local tailvec = {x=0, y=0, z=0}
+	if facedir == 0 then
+		tailvec.z = 1
+	elseif facedir == 1 then
+		tailvec.x = 1
+	elseif facedir == 2 then
+		tailvec.z = -1
+	elseif facedir == 3 then
+		tailvec.x = -1
+	else
+		--print("default.make_nyancat(): Invalid facedir: "+dump(facedir))
+		facedir = 0
+		tailvec.z = 1
+	end
+	local p = {x=pos.x, y=pos.y, z=pos.z}
+	minetest.set_node(p, {name="default:nyancat", param2=facedir})
+	for i=1,length do
+		p.x = p.x + tailvec.x
+		p.z = p.z + tailvec.z
+		minetest.set_node(p, {name="default:nyancat_rainbow", param2=facedir})
+	end
+end
+
+
+function generate_nyancats(seed, minp, maxp)
+	local height_min = -31000
+	local height_max = -32
+	if maxp.y < height_min or minp.y > height_max then
+		return
+	end
+	local y_min = math.max(minp.y, height_min)
+	local y_max = math.min(maxp.y, height_max)
+	local volume = (maxp.x-minp.x+1)*(y_max-y_min+1)*(maxp.z-minp.z+1)
+	local pr = PseudoRandom(seed + 9324342)
+	local max_num_nyancats = math.floor(volume / (16*16*16))
+	for i=1,max_num_nyancats do
+		if pr:next(0, 1000) == 0 then
+			local x0 = pr:next(minp.x, maxp.x)
+			local y0 = pr:next(minp.y, maxp.y)
+			local z0 = pr:next(minp.z, maxp.z)
+			local p0 = {x=x0, y=y0, z=z0}
+			default.make_nyancat(p0, pr:next(0,3), pr:next(3,15))
+		end
+	end
+end
+
+
+minetest.register_on_generated(function(minp, maxp, seed)
+	if maxp.y >= 2 and minp.y <= 0 then
+		-- Generate papyrus
+		local perlin1 = minetest.get_perlin(354, 3, 0.7, 100)
+		-- Assume X and Z lengths are equal
+		local divlen = 8
+		local divs = (maxp.x-minp.x)/divlen+1;
+		for divx=0,divs-1 do
+		for divz=0,divs-1 do
+			local x0 = minp.x + math.floor((divx+0)*divlen)
+			local z0 = minp.z + math.floor((divz+0)*divlen)
+			local x1 = minp.x + math.floor((divx+1)*divlen)
+			local z1 = minp.z + math.floor((divz+1)*divlen)
+			-- Determine papyrus amount from perlin noise
+			local papyrus_amount = math.floor(perlin1:get2d({x=x0, y=z0}) * 45 - 20)
+			-- Find random positions for papyrus based on this random
+			local pr = PseudoRandom(seed+1)
+			for i=0,papyrus_amount do
+				local x = pr:next(x0, x1)
+				local z = pr:next(z0, z1)
+				if minetest.get_node({x=x,y=1,z=z}).name == "default:dirt_with_grass" and
+						minetest.find_node_near({x=x,y=1,z=z}, 1, "default:water_source") then
+					default.make_papyrus({x=x,y=2,z=z}, pr:next(2, 4))
+				end
+			end
+		end
+		end
+		-- Generate cactuses
+		local perlin1 = minetest.get_perlin(230, 3, 0.6, 100)
+		-- Assume X and Z lengths are equal
+		local divlen = 16
+		local divs = (maxp.x-minp.x)/divlen+1;
+		for divx=0,divs-1 do
+		for divz=0,divs-1 do
+			local x0 = minp.x + math.floor((divx+0)*divlen)
+			local z0 = minp.z + math.floor((divz+0)*divlen)
+			local x1 = minp.x + math.floor((divx+1)*divlen)
+			local z1 = minp.z + math.floor((divz+1)*divlen)
+			-- Determine cactus amount from perlin noise
+			local cactus_amount = math.floor(perlin1:get2d({x=x0, y=z0}) * 6 - 3)
+			-- Find random positions for cactus based on this random
+			local pr = PseudoRandom(seed+1)
+			for i=0,cactus_amount do
+				local x = pr:next(x0, x1)
+				local z = pr:next(z0, z1)
+				-- Find ground level (0...15)
+				local ground_y = nil
+				for y=30,0,-1 do
+					if minetest.get_node({x=x,y=y,z=z}).name ~= "air" then
+						ground_y = y
+						break
+					end
+				end
+				-- If desert sand, make cactus
+				-- if ground_y and minetest.get_node({x=x,y=ground_y,z=z}).name == "default:desert_sand" then
+					-- default.make_cactus({x=x,y=ground_y+1,z=z}, pr:next(2, 3))
+				-- end
+			end
+		end
+		end
+		-- Generate grass
+		local perlin1 = minetest.get_perlin(329, 3, 0.6, 100)
+		-- Assume X and Z lengths are equal
+		local divlen = 16
+		local divs = (maxp.x-minp.x)/divlen+1;
+		for divx=0,divs-1 do
+		for divz=0,divs-1 do
+			local x0 = minp.x + math.floor((divx+0)*divlen)
+			local z0 = minp.z + math.floor((divz+0)*divlen)
+			local x1 = minp.x + math.floor((divx+1)*divlen)
+			local z1 = minp.z + math.floor((divz+1)*divlen)
+			-- Determine grass amount from perlin noise
+			local grass_amount = math.floor(perlin1:get2d({x=x0, y=z0}) ^ 3 * 9)
+			-- Find random positions for grass based on this random
+			local pr = PseudoRandom(seed+1)
+			for i=0,grass_amount do
+				local x = pr:next(x0, x1)
+				local z = pr:next(z0, z1)
+				-- Find ground level (0...15)
+				local ground_y = nil
+				for y=30,0,-1 do
+					if minetest.get_node({x=x,y=y,z=z}).name ~= "air" then
+						ground_y = y
+						break
+					end
+				end
+
+
+				if ground_y then
+					local p = {x=x,y=ground_y+1,z=z}
+					local nn = minetest.get_node(p).name
+					-- Check if the node can be replaced
+					if minetest.registered_nodes[nn] and
+						minetest.registered_nodes[nn].buildable_to then
+						nn = minetest.get_node({x=x,y=ground_y,z=z}).name
+						-- If desert sand, add dry shrub
+						if nn == "default:desert_sand" then
+							minetest.set_node(p,{name="default:dry_shrub"})
+
+
+						-- If dirt with grass, add grass
+						elseif nn == "default:dirt_with_grass" then
+							minetest.set_node(p,{name="default:grass_"..pr:next(1, 5)})
+						end
+					end
+				end
+
+
+			end
+		end
+		end
+	end
+
+
+	-- Generate nyan cats
+	generate_nyancats(seed, minp, maxp)
+end)
+
+minetest.register_on_generated(function(minp, maxp, seed)
+                     if maxp.y >= 4 and minp.y <= 0 then
+                                           local perlin1 = minetest.get_perlin(330, 3, 0.6, 100)
+		-- Assume X and Z lengths are equal
+		local divlen = 16
+		local divs = (maxp.x-minp.x)/divlen+1;
+		for divx=0,divs-1 do
+		for divz=0,divs-1 do
+			local x0 = minp.x + math.floor((divx+0)*divlen)
+			local z0 = minp.z + math.floor((divz+0)*divlen)
+			local x1 = minp.x + math.floor((divx+1)*divlen)
+			local z1 = minp.z + math.floor((divz+1)*divlen)
+			-- Determine dry_shrub amount from perlin noise
+			local dry_shrub_amount = math.floor(perlin1:get2d({x=x0, y=z0}) ^ 3 * 9)
+			-- Find random positions for dry_shrub based on this random
+			local pr = PseudoRandom(seed+2)
+			for i=0,dry_shrub_amount do
+				local x = pr:next(x0, x1)
+				local z = pr:next(z0, z1)
+				-- Find ground level (0...15)
+				local ground_y = nil
+				for y=40,0,-1 do
+					if minetest.get_node({x=x,y=y,z=z}).name ~= "air" then
+						ground_y = y
+						break
+					end
+				end
+
+
+				if ground_y then
+					local p = {x=x,y=ground_y+1,z=z}
+					local nn = minetest.get_node(p).name
+					-- Check if the node can be replaced
+					if minetest.registered_nodes[nn] and
+						minetest.registered_nodes[nn].buildable_to then
+						nn = minetest.get_node({x=x,y=ground_y,z=z}).name
+						if nn == "default:desert_sand" then
+							minetest.set_node(p,{name="default:dry_shrub"})
+						end
+					end
+				end
+
+
+			end
+		end
+                                           end
+                        end
+end)

mods/default/player.lua

@@ -0,0 +1,183 @@
+-- Minetest 0.4 mod: player
+-- See README.txt for licensing and other information.
+
+-- Player animation blending
+-- Note: This is currently broken due to a bug in Irrlicht, leave at 0
+local animation_blend = 0
+
+default.registered_player_models = { }
+
+-- Local for speed.
+local models = default.registered_player_models
+
+function default.player_register_model(name, def)
+	models[name] = def
+end
+
+-- Default player appearance
+default.player_register_model("character.b3d", {
+	animation_speed = 30,
+	textures = {"character.png", },
+	animations = {
+		-- Standard animations.
+		stand     = { x=  0, y= 79, },
+		lay       = { x=162, y=166, },
+		walk      = { x=168, y=187, },
+		mine      = { x=189, y=198, },
+		walk_mine = { x=200, y=219, },
+		-- Extra animations (not currently used by the game).
+		sit       = { x= 81, y=160, },
+	},
+})
+
+-- Player stats and animations
+local player_model = {}
+local player_textures = {}
+local player_anim = {}
+local player_sneak = {}
+default.player_attached = {}
+
+function default.player_get_animation(player)
+	local name = player:get_player_name()
+	return {
+		model = player_model[name],
+		textures = player_textures[name],
+		animation = player_anim[name],
+	}
+end
+
+-- Called when a player's appearance needs to be updated
+function default.player_set_model(player, model_name)
+	local name = player:get_player_name()
+	local model = models[model_name]
+	if model then
+		if player_model[name] == model_name then
+			return
+		end
+		player:set_properties({
+			mesh = model_name,
+			textures = player_textures[name] or model.textures,
+			visual = "mesh",
+			visual_size = model.visual_size or {x=1, y=1},
+		})
+		default.player_set_animation(player, "stand")
+	else
+		player:set_properties({
+			textures = { "player.png", "player_back.png", },
+			visual = "upright_sprite",
+		})
+	end
+	player_model[name] = model_name
+end
+
+function default.player_set_textures(player, textures)
+	local name = player:get_player_name()
+	player_textures[name] = textures
+	player:set_properties({textures = textures,})
+end
+
+function default.player_set_animation(player, anim_name, speed)
+	local name = player:get_player_name()
+	if player_anim[name] == anim_name then
+		return
+	end
+	local model = player_model[name] and models[player_model[name]]
+	if not (model and model.animations[anim_name]) then
+		return
+	end
+	local anim = model.animations[anim_name]
+	player_anim[name] = anim_name
+	player:set_animation(anim, speed or model.animation_speed, animation_blend)
+end
+
+-- Update appearance when the player joins
+minetest.register_on_joinplayer(function(player)
+	default.player_attached[player:get_player_name()] = false
+	default.player_set_model(player, "character.b3d")
+	player:set_local_animation({x=0, y=79}, {x=168, y=187}, {x=189, y=198}, {x=200, y=219}, 30)
+	
+	-- set GUI
+	if not minetest.setting_getbool("creative_mode") then
+		player:set_inventory_formspec(default.gui_survival_form)
+	end
+	player:hud_set_hotbar_image("gui_hotbar.png")
+	player:hud_set_hotbar_selected_image("gui_hotbar_selected.png")
+end)
+
+minetest.register_on_leaveplayer(function(player)
+	local name = player:get_player_name()
+	player_model[name] = nil
+	player_anim[name] = nil
+	player_textures[name] = nil
+end)
+
+-- Localize for better performance.
+local player_set_animation = default.player_set_animation
+local player_attached = default.player_attached
+
+-- Check each player and apply animations
+minetest.register_globalstep(function(dtime)
+	for _, player in pairs(minetest.get_connected_players()) do
+		local name = player:get_player_name()
+		local model_name = player_model[name]
+		local model = model_name and models[model_name]
+		
+			--[[ Skybox (original by paramat's moonrealm)
+		
+		local YMIN = -31000
+		local YMAX = 31000 
+		local pos = player:getpos()
+		if pos.y > YMIN and pos.y < YMAX then
+			local skytextures = {
+					"hadessky_posy.png",
+					"hadessky_negy.png",
+					"hadessky_posz.png",
+					"hadessky_negz.png",	
+					"hadessky_negx.png",
+					"hadessky_posx.png",
+				}
+				player:set_sky({r=0, g=0, b=0, a=0}, "skybox", skytextures)
+				player:override_day_night_ratio(5555)
+		else
+		        player:set_sky({}, "regular", {})
+		end
+		-- end Skybox
+		--]]
+	
+		
+		if model and not player_attached[name] then
+			local controls = player:get_player_control()
+			local walking = false
+			local animation_speed_mod = model.animation_speed or 30
+
+			-- Determine if the player is walking
+			if controls.up or controls.down or controls.left or controls.right then
+				walking = true
+			end
+
+			-- Determine if the player is sneaking, and reduce animation speed if so
+			if controls.sneak then
+				animation_speed_mod = animation_speed_mod / 2
+			end
+
+			-- Apply animations based on what the player is doing
+			if player:get_hp() == 0 then
+				player_set_animation(player, "lay")
+			elseif walking then
+				if player_sneak[name] ~= controls.sneak then
+					player_anim[name] = nil
+					player_sneak[name] = controls.sneak
+				end
+				if controls.LMB then
+					player_set_animation(player, "walk_mine", animation_speed_mod)
+				else
+					player_set_animation(player, "walk", animation_speed_mod)
+				end
+			elseif controls.LMB then
+				player_set_animation(player, "mine")
+			else
+				player_set_animation(player, "stand", animation_speed_mod)
+			end
+		end
+	end
+end)

mods/default/prismafurnance.lua

@@ -0,0 +1,312 @@
+Prismafurnance={}
+function default.get_pfurnace_active_formspec(pos, percent)
+	local formspec =
+		"size[8,9]"..
+		"image[2,2;1,1;default_pfurnace_fire_bg.png^[lowpart:"..
+		(100-percent)..":default_pfurnace_fire_fg.png]"..
+		"list[current_name;fuel;2,3;1,1;]"..
+		"list[current_name;src;2,1;1,1;]"..
+		"list[current_name;dst;5,1;2,2;]"..
+		"list[current_player;main;0,5;8,4;]"..
+		"background[-0.5,-0.65;9,10.35;".."pfurnace.png".."]"..
+	    "listcolors[#001100;#006600;#ffffff;#006600;#ffffff]"
+	return formspec
+end
+
+
+default.pfurnace_inactive_formspec =
+	"size[8,9]"..
+	"image[2,2;1,1;default_pfurnace_fire_bg.png]"..
+	"list[current_name;fuel;2,3;1,1;]"..
+	"list[current_name;src;2,1;1,1;]"..
+	"list[current_name;dst;5,1;2,2;]"..
+	"list[current_player;main;0,5;8,4;]"..
+	"background[-0.5,-0.65;9,10.35;".."pfurnace.png".."]"..
+	"listcolors[#001100;#006600;#ffffff;#006600;#ffffff]"
+
+
+minetest.register_node("default:pfurnace", {
+	description = "Prisma Furnace",
+	tiles = {"default_pfurnace_top.png", "default_pfurnace_bottom.png", "default_pfurnace_side.png",
+		"default_pfurnace_side.png", "default_pfurnace_side.png", "default_pfurnace_front.png"},
+	paramtype2 = "facedir",
+	groups = {cracky=2},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("formspec", default.pfurnace_inactive_formspec)
+		meta:set_string("infotext", "Prisma-Furnace")
+		local inv = meta:get_inventory()
+		inv:set_size("fuel", 1)
+		inv:set_size("src", 1)
+		inv:set_size("dst", 4)
+	end,
+	can_dig = function(pos,player)
+		local meta = minetest.get_meta(pos);
+		local inv = meta:get_inventory()
+		if not inv:is_empty("fuel") then
+			return false
+		elseif not inv:is_empty("dst") then
+			return false
+		elseif not inv:is_empty("src") then
+			return false
+		end
+		return true
+	end,
+	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		if listname == "fuel" then
+			if minetest.get_craft_result({method="fuel",width=1,items={stack}}).time ~= 0 then
+				if inv:is_empty("src") then
+					meta:set_string("infotext","Prisma-Furnace is empty")
+				end
+				return stack:get_count()
+			else
+				return 0
+			end
+		elseif listname == "src" then
+			return stack:get_count()
+		elseif listname == "dst" then
+			return 0
+		end
+	end,
+	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		local stack = inv:get_stack(from_list, from_index)
+		if to_list == "fuel" then
+			if minetest.get_craft_result({method="fuel",width=1,items={stack}}).time ~= 0 then
+				if inv:is_empty("src") then
+					meta:set_string("infotext","Prisma-Furnace is empty")
+				end
+				return count
+			else
+				return 0
+			end
+		elseif to_list == "src" then
+			return count
+		elseif to_list == "dst" then
+			return 0
+		end
+	end,
+})
+
+
+minetest.register_node("default:pfurnace_active", {
+	description = "Prisma Furnace",
+	tiles = {
+		"default_pfurnace_top.png",
+		"default_pfurnace_bottom.png",
+		"default_pfurnace_side.png",
+		"default_pfurnace_side.png",
+		"default_pfurnace_side.png",
+		{
+			image = "default_pfurnace_front_active.png",
+			backface_culling = false,
+			animation = {
+				type = "vertical_frames",
+				aspect_w = 16,
+				aspect_h = 16,
+				length = 1.5
+			},
+		}
+	},
+	paramtype2 = "facedir",
+	light_source = 8,
+	drop = "default:pfurnace",
+	groups = {cracky=2, not_in_creative_inventory=1,hot=1},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_stone_defaults(),
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("formspec", default.pfurnace_inactive_formspec)
+		meta:set_string("infotext", "Prisma-Furnace");
+		local inv = meta:get_inventory()
+		inv:set_size("fuel", 1)
+		inv:set_size("src", 1)
+		inv:set_size("dst", 4)
+	end,
+	can_dig = function(pos,player)
+		local meta = minetest.get_meta(pos);
+		local inv = meta:get_inventory()
+		if not inv:is_empty("fuel") then
+			return false
+		elseif not inv:is_empty("dst") then
+			return false
+		elseif not inv:is_empty("src") then
+			return false
+		end
+		return true
+	end,
+	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		if listname == "fuel" then
+			if minetest.get_craft_result({method="fuel",width=1,items={stack}}).time ~= 0 then
+				if inv:is_empty("src") then
+					meta:set_string("infotext","Prisma-Furnace is empty")
+				end
+				return stack:get_count()
+			else
+				return 0
+			end
+		elseif listname == "src" then
+			return stack:get_count()
+		elseif listname == "dst" then
+			return 0
+		end
+	end,
+	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		local stack = inv:get_stack(from_list, from_index)
+		if to_list == "fuel" then
+			if minetest.get_craft_result({method="fuel",width=1,items={stack}}).time ~= 0 then
+				if inv:is_empty("src") then
+					meta:set_string("infotext","Prisma-Furnace is empty")
+				end
+				return count
+			else
+				return 0
+			end
+		elseif to_list == "src" then
+			return count
+		elseif to_list == "dst" then
+			return 0
+		end
+	end,
+})
+
+
+local function swap_node(pos,name)
+	local node = minetest.get_node(pos)
+	if node.name == name then
+		return
+	end
+	node.name = name
+	minetest.swap_node(pos,node)
+end
+
+
+minetest.register_abm({
+	nodenames = {"default:pfurnace","default:pfurnace_active"},
+	interval = 1.0,
+	chance = 1,
+	action = function(pos, node, active_object_count, active_object_count_wider)
+		local meta = minetest.get_meta(pos)
+		for i, name in ipairs({
+				"fuel_totaltime",
+				"fuel_time",
+				"src_totaltime",
+				"src_time"
+		}) do
+			if meta:get_string(name) == "" then
+				meta:set_float(name, 0.0)
+			end
+		end
+
+
+		local inv = meta:get_inventory()
+
+
+		local srclist = inv:get_list("src")
+		local cooked = nil
+		local aftercooked
+
+
+		if srclist then
+			cooked, aftercooked = minetest.get_craft_result({method = "cooking", width = 1, items = srclist})
+		end
+
+
+		local was_active = false
+
+
+		if meta:get_float("fuel_time") < meta:get_float("fuel_totaltime") then
+			was_active = true
+			meta:set_float("fuel_time", meta:get_float("fuel_time") + 1)
+			meta:set_float("src_time", meta:get_float("src_time") + 4.25)
+			if cooked and cooked.item and meta:get_float("src_time") >= cooked.time then
+				-- check if there's room for output in "dst" list
+				if inv:room_for_item("dst",cooked.item) then
+					-- Put result in "dst" list
+					inv:add_item("dst", cooked.item)
+					-- take stuff from "src" list
+					inv:set_stack("src", 1, aftercooked.items[1])
+				else
+					--print("Could not insert '"..cooked.item:to_string().."'")
+				end
+				meta:set_string("src_time", 0)
+			end
+		end
+
+
+		if meta:get_float("fuel_time") < meta:get_float("fuel_totaltime") then
+			local percent = math.floor(meta:get_float("fuel_time") /
+					meta:get_float("fuel_totaltime") * 100)
+			meta:set_string("infotext","Prisma-Furnace active: "..percent.."%")
+			swap_node(pos,"default:pfurnace_active")
+			--sound (brandon reese (adventuretest))
+			if meta:get_int("sound_played") == nil or ( os.time() - meta:get_int("sound_played") ) >= 4 then
+				minetest.sound_play("default_furnace",{pos=pos})
+				meta:set_string("sound_played",os.time())
+			end
+			--endsound
+			meta:set_string("formspec",default.get_pfurnace_active_formspec(pos, percent))
+			return
+		end
+
+
+		local fuel = nil
+		local afterfuel
+		local cooked = nil
+		local fuellist = inv:get_list("fuel")
+		local srclist = inv:get_list("src")
+
+
+		if srclist then
+			cooked = minetest.get_craft_result({method = "cooking", width = 1, items = srclist})
+		end
+		if fuellist then
+			fuel, afterfuel = minetest.get_craft_result({method = "fuel", width = 1, items = fuellist})
+		end
+
+
+		if not fuel or fuel.time <= 0 then
+			meta:set_string("infotext","Prisma-Furnace out of fuel")
+			swap_node(pos,"default:pfurnace")
+			meta:set_string("formspec", default.pfurnace_inactive_formspec)
+			return
+		end
+
+
+		if cooked.item:is_empty() then
+			if was_active then
+				meta:set_string("infotext","Prisma-Furnace is empty")
+				swap_node(pos,"default:pfurnace")
+				meta:set_string("formspec", default.pfurnace_inactive_formspec)
+			end
+			return
+		end
+
+
+		meta:set_string("fuel_totaltime", fuel.time)
+		meta:set_string("fuel_time", 0)
+
+
+		inv:set_stack("fuel", 1, afterfuel.items[1])
+	end,
+})
+
+minetest.register_craft({
+	output = 'default:pfurnace',
+	recipe = {
+		{'default:obsidian', 'default:obsidian', 'default:obsidian'},
+		{'default:steel_ingot', 'travelnet:prismatic_gem', 'default:obsidian'},
+		{'default:obsidian', 'default:obsidian', 'default:obsidian'},
+	}
+})