commit d054a4e58a7f1d5a7f34a7caa1ea473dfa8a6350
Author: PilzAdam <pilzadam@minetest.net>
Date:   Mon Apr 29 20:33:09 2013 +0200

    Initial commit

diff --git a/README.txt b/README.txt
new file mode 100644
index 0000000..24f5a77
--- /dev/null
+++ b/README.txt
@@ -0,0 +1,17 @@
+Minetest 0.4 mod: nether
+========================
+
+License of source code:
+-----------------------
+Copyright (C) 2013 PilzAdam
+
+This program is free software. It comes without any warranty, to
+the extent permitted by applicable law. You can redistribute it
+and/or modify it under the terms of the Do What The Fuck You Want
+To Public License, Version 2, as published by Sam Hocevar. See
+http://sam.zoy.org/wtfpl/COPYING for more details.
+
+License of media (textures and sounds)
+--------------------------------------
+Attribution-ShareAlike 3.0 Unported (CC BY-SA 3.0)
+http://creativecommons.org/licenses/by-sa/3.0/
diff --git a/depends.txt b/depends.txt
new file mode 100644
index 0000000..4ad96d5
--- /dev/null
+++ b/depends.txt
@@ -0,0 +1 @@
+default
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..e903cd3
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,379 @@
+-- Minetest 0.4 Mod: Nether
+
+local NETHER_DEPTH = -5000
+
+minetest.register_node("nether:portal", {
+	description = "Nether Portal",
+	tiles = {
+		"nether_transparent.png",
+		"nether_transparent.png",
+		"nether_transparent.png",
+		"nether_transparent.png",
+		{
+			name = "nether_portal.png",
+			animation = {
+				type = "vertical_frames",
+				aspect_w = 16,
+				aspect_h = 16,
+				length = 0.5,
+			},
+		},
+		{
+			name = "nether_portal.png",
+			animation = {
+				type = "vertical_frames",
+				aspect_w = 16,
+				aspect_h = 16,
+				length = 0.5,
+			},
+		},
+	},
+	drawtype = "nodebox",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	sunlight_propagates = true,
+	use_texture_alpha = true,
+	walkable = false,
+	digable = false,
+	pointable = false,
+	buildable_to = false,
+	light_source = 5,
+	post_effect_color = {a=180, r=128, g=0, b=128},
+	alpha = 192,
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.5, -0.5, -0.1,  0.5, 0.5, 0.1},
+		},
+	},
+	groups = {not_in_creative_inventory=1}
+})
+
+local function build_portal(pos, target)
+	local p = {x=pos.x-1, y=pos.y-1, z=pos.z}
+	local p1 = {x=pos.x-1, y=pos.y-1, z=pos.z}
+	local p2 = {x=p1.x+3, y=p1.y+4, z=p1.z}
+	for i=1,4 do
+		minetest.env:set_node(p, {name="default:obsidian"})
+		p.y = p.y+1
+	end
+	for i=1,3 do
+		minetest.env:set_node(p, {name="default:obsidian"})
+		p.x = p.x+1
+	end
+	for i=1,4 do
+		minetest.env:set_node(p, {name="default:obsidian"})
+		p.y = p.y-1
+	end
+	for i=1,3 do
+		minetest.env:set_node(p, {name="default:obsidian"})
+		p.x = p.x-1
+	end
+	for x=p1.x,p2.x do
+	for y=p1.y,p2.y do
+		p = {x=x, y=y, z=p1.z}
+		if not (x == p1.x or x == p2.x or y==p1.y or y==p2.y) then
+			minetest.env:set_node(p, {name="nether:portal", param2=0})
+		end
+		local meta = minetest.env:get_meta(p)
+		meta:set_string("p1", minetest.pos_to_string(p1))
+		meta:set_string("p2", minetest.pos_to_string(p2))
+		meta:set_string("target", minetest.pos_to_string(target))
+		
+		if y ~= p1.y then
+			for z=-2,2 do
+				if z ~= 0 then
+					p.z = p.z+z
+					if minetest.registered_nodes[minetest.env:get_node(p).name].is_ground_content then
+						minetest.env:remove_node(p)
+					end
+					p.z = p.z-z
+				end
+			end
+		end
+		
+	end
+	end
+end
+
+minetest.register_abm({
+	nodenames = {"nether:portal"},
+	interval = 1,
+	chance = 2,
+	action = function(pos, node)
+		minetest.add_particlespawner(
+			32, --amount
+			4, --time
+			{x=pos.x-0.25, y=pos.y-0.25, z=pos.z-0.25}, --minpos
+			{x=pos.x+0.25, y=pos.y+0.25, z=pos.z+0.25}, --maxpos
+			{x=-0.8, y=-0.8, z=-0.8}, --minvel
+			{x=0.8, y=0.8, z=0.8}, --maxvel
+			{x=0,y=0,z=0}, --minacc
+			{x=0,y=0,z=0}, --maxacc
+			0.5, --minexptime
+			1, --maxexptime
+			1, --minsize
+			2, --maxsize
+			false, --collisiondetection
+			"nether_particle.png" --texture
+		)
+		for _,obj in ipairs(minetest.env:get_objects_inside_radius(pos, 1)) do
+			if obj:is_player() then
+				local meta = minetest.env:get_meta(pos)
+				local target = minetest.string_to_pos(meta:get_string("target"))
+				if target then
+					minetest.after(3, function(obj, pos, target)
+						local objpos = obj:getpos()
+						objpos.y = objpos.y+0.1 -- Fix some glitches at -8000
+						if minetest.env:get_node(objpos).name ~= "nether:portal" then
+							return
+						end
+						
+						obj:setpos(target)
+						
+						local function check_and_build_portal(pos, target)
+							local n = minetest.env:get_node_or_nil(target)
+							if n and n.name ~= "nether:portal" then
+								build_portal(target, pos)
+								minetest.after(2, check_and_build_portal, pos, target)
+							elseif not n then
+								minetest.after(1, check_and_build_portal, pos, target)
+							end
+						end
+						
+						minetest.after(1, check_and_build_portal, pos, target)
+						
+					end, obj, pos, target)
+				end
+			end
+		end
+	end,
+})
+
+local function move_check(p1, max, dir)
+	local p = {x=p1.x, y=p1.y, z=p1.z}
+	local d = math.abs(max-p1[dir]) / (max-p1[dir])
+	while p[dir] ~= max do
+		p[dir] = p[dir] + d
+		if minetest.env:get_node(p).name ~= "default:obsidian" then
+			return false
+		end
+	end
+	return true
+end
+
+local function check_portal(p1, p2)
+	if p1.x ~= p2.x then
+		if not move_check(p1, p2.x, "x") then
+			return false
+		end
+		if not move_check(p2, p1.x, "x") then
+			return false
+		end
+	elseif p1.z ~= p2.z then
+		if not move_check(p1, p2.z, "z") then
+			return false
+		end
+		if not move_check(p2, p1.z, "z") then
+			return false
+		end
+	else
+		return false
+	end
+	
+	if not move_check(p1, p2.y, "y") then
+		return false
+	end
+	if not move_check(p2, p1.y, "y") then
+		return false
+	end
+	
+	return true
+end
+
+local function is_portal(pos)
+	for d=-3,3 do
+		for y=-4,4 do
+			local px = {x=pos.x+d, y=pos.y+y, z=pos.z}
+			local pz = {x=pos.x, y=pos.y+y, z=pos.z+d}
+			if check_portal(px, {x=px.x+3, y=px.y+4, z=px.z}) then
+				return px, {x=px.x+3, y=px.y+4, z=px.z}
+			end
+			if check_portal(pz, {x=pz.x, y=pz.y+4, z=pz.z+3}) then
+				return pz, {x=pz.x, y=pz.y+4, z=pz.z+3}
+			end
+		end
+	end
+end
+
+local function make_portal(pos)
+	local p1, p2 = is_portal(pos)
+	if not p1 or not p2 then
+		return false
+	end
+	
+	for d=1,2 do
+	for y=p1.y+1,p2.y-1 do
+		local p
+		if p1.z == p2.z then
+			p = {x=p1.x+d, y=y, z=p1.z}
+		else
+			p = {x=p1.x, y=y, z=p1.z+d}
+		end
+		if minetest.env:get_node(p).name ~= "air" then
+			return false
+		end
+	end
+	end
+	
+	local param2
+	if p1.z == p2.z then param2 = 0 else param2 = 1 end
+	
+	local target = {x=p1.x, y=p1.y, z=p1.z}
+	target.x = target.x + 1
+	if target.y < NETHER_DEPTH then
+		target.y = math.random(-50, 20)
+	else
+		target.y = NETHER_DEPTH - math.random(500, 1500)
+	end
+	
+	for d=0,3 do
+	for y=p1.y,p2.y do
+		local p = {}
+		if param2 == 0 then p = {x=p1.x+d, y=y, z=p1.z} else p = {x=p1.x, y=y, z=p1.z+d} end
+		if minetest.env:get_node(p).name == "air" then
+			minetest.env:set_node(p, {name="nether:portal", param2=param2})
+		end
+		local meta = minetest.env:get_meta(p)
+		meta:set_string("p1", minetest.pos_to_string(p1))
+		meta:set_string("p2", minetest.pos_to_string(p2))
+		meta:set_string("target", minetest.pos_to_string(target))
+	end
+	end
+	return true
+end
+
+minetest.register_node(":default:obsidian", {
+	description = "Obsidian",
+	tiles = {"default_obsidian.png"},
+	is_ground_content = true,
+	sounds = default.node_sound_stone_defaults(),
+	groups = {cracky=1,level=2},
+	
+	on_destruct = function(pos)
+		local meta = minetest.env:get_meta(pos)
+		local p1 = minetest.string_to_pos(meta:get_string("p1"))
+		local p2 = minetest.string_to_pos(meta:get_string("p2"))
+		local target = minetest.string_to_pos(meta:get_string("target"))
+		if not p1 or not p2 then
+			return
+		end
+		for x=p1.x,p2.x do
+		for y=p1.y,p2.y do
+		for z=p1.z,p2.z do
+			local nn = minetest.env:get_node({x=x,y=y,z=z}).name
+			if nn == "default:obsidian" or nn == "nether:portal" then
+				if nn == "nether:portal" then
+					minetest.env:remove_node({x=x,y=y,z=z})
+				end
+				local m = minetest.env:get_meta({x=x,y=y,z=z})
+				m:set_string("p1", "")
+				m:set_string("p2", "")
+				m:set_string("target", "")
+			end
+		end
+		end
+		end
+		meta = minetest.env:get_meta(target)
+		if not meta then
+			return
+		end
+		p1 = minetest.string_to_pos(meta:get_string("p1"))
+		p2 = minetest.string_to_pos(meta:get_string("p2"))
+		if not p1 or not p2 then
+			return
+		end
+		for x=p1.x,p2.x do
+		for y=p1.y,p2.y do
+		for z=p1.z,p2.z do
+			local nn = minetest.env:get_node({x=x,y=y,z=z}).name
+			if nn == "default:obsidian" or nn == "nether:portal" then
+				if nn == "nether:portal" then
+					minetest.env:remove_node({x=x,y=y,z=z})
+				end
+				local m = minetest.env:get_meta({x=x,y=y,z=z})
+				m:set_string("p1", "")
+				m:set_string("p2", "")
+				m:set_string("target", "")
+			end
+		end
+		end
+		end
+	end,
+})
+
+minetest.register_craftitem(":default:mese_crystal_fragment", {
+	description = "Mese Crystal Fragment",
+	inventory_image = "default_mese_crystal_fragment.png",
+	on_place = function(stack,_, pt)
+		if pt.under and minetest.env:get_node(pt.under).name == "default:obsidian" then
+			local done = make_portal(pt.under)
+			if done and not minetest.setting_getbool("creative_mode") then
+				stack:take_item()
+			end
+		end
+		return stack
+	end,
+})
+
+minetest.register_node("nether:netherrack", {
+	description = "Netherrack",
+	tiles = {"nether_netherrack.png"},
+	is_ground_content = true,
+	groups = {cracky=3,level=2},
+	sounds = default.node_sound_stone_defaults(),
+})
+
+minetest.register_node("nether:nethersand", {
+	description = "Nethersand",
+	tiles = {"nether_nethersand.png"},
+	is_ground_content = true,
+	groups = {crumbly=3,level=2,falling_node=1},
+	sounds = default.node_sound_dirt_defaults({
+		footstep = {name="default_gravel_footstep", gain=0.45},
+	}),
+})
+
+minetest.register_node("nether:glowstone", {
+	description = "Glowstone",
+	tiles = {"nether_glowstone.png"},
+	is_ground_content = true,
+	light_source = 13,
+	groups = {cracky=3,oddly_breakable_by_hand=3},
+	sounds = default.node_sound_glass_defaults(),
+})
+
+local function replace(old, new)
+	for i=1,6 do
+		minetest.register_ore({
+			ore_type       = "scatter",
+			ore            = new,
+			wherein        = old,
+			clust_scarcity = 1,
+			clust_num_ores = 1,
+			clust_size     = 1,
+			height_min     = -31000,
+			height_max     = NETHER_DEPTH,
+		})
+	end
+end
+
+replace("default:stone", "nether:netherrack")
+replace("default:stone_with_coal", "nether:netherrack")
+replace("default:stone_with_iron", "nether:netherrack")
+replace("default:stone_with_copper", "nether:nethersand")
+replace("default:stone_with_mese", "default:lava_source")
+replace("default:stone_with_gold", "nether:glowstone")
+replace("default:stone_with_diamond", "default:lava_source")
+replace("default:gravel", "nether:nethersand")
+replace("default:dirt", "nether:nethersand")
diff --git a/textures/nether_glowstone.png b/textures/nether_glowstone.png
new file mode 100644
index 0000000..9016eac
Binary files /dev/null and b/textures/nether_glowstone.png differ
diff --git a/textures/nether_netherrack.png b/textures/nether_netherrack.png
new file mode 100644
index 0000000..e1c4e13
Binary files /dev/null and b/textures/nether_netherrack.png differ
diff --git a/textures/nether_nethersand.png b/textures/nether_nethersand.png
new file mode 100644
index 0000000..8ec343d
Binary files /dev/null and b/textures/nether_nethersand.png differ
diff --git a/textures/nether_particle.png b/textures/nether_particle.png
new file mode 100644
index 0000000..56a5b78
Binary files /dev/null and b/textures/nether_particle.png differ
diff --git a/textures/nether_portal.png b/textures/nether_portal.png
new file mode 100644
index 0000000..824d652
Binary files /dev/null and b/textures/nether_portal.png differ
diff --git a/textures/nether_transparent.png b/textures/nether_transparent.png
new file mode 100644
index 0000000..4883728
Binary files /dev/null and b/textures/nether_transparent.png differ