minetest_bitumen/init.lua

local modpath = minetest.get_modpath("bitumen")

bitumen = {}

-- coal = 38
-- crude 44
bitumen.energy_density = {
	tar = 20,
	heavy_oil = 25,
	light_oil = 30,
	diesel = 36,
	kerosene = 38,
	gasoline = 34,
	mineral_spirits = 42,
	lpg = 45,

	["bitumen:tar"] = 20,
	["bitumen:heavy_oil"] = 25,
	["bitumen:light_oil"] = 30,
	["bitumen:diesel"] = 36,
	["bitumen:kerosene"] = 38,
	["bitumen:gasoline"] = 34,
	["bitumen:mineral_spirits"] = 42,
	["bitumen:lpg"] = 45,
}


-- a coal lump burns for 40 seconds
-- a bitumen:heat burns for 10 seconds
-- multiply the energy density by this factor to find the number of bitumen:heats
bitumen.coal_equivalency = .1

bitumen.fluid_to_heat = function(fluid, amount)
	local d = bitumen.energy_density[fluid]
	if d == nil then
		return 0
	end
	
	return bitumen.coal_equivalency * d * amount
end



local function vmin(a, b)
	return {
		x = math.min(a.x, b.x), 
		y = math.min(a.y, b.y), 
		z = math.min(a.z, b.z), 
	}
end
local function vmax(a, b)
	return {
		x = math.max(a.x, b.x), 
		y = math.max(a.y, b.y), 
		z = math.max(a.z, b.z), 
	}
end

bitumen.check_foundation = function(p1, p2, accept)
	local low = vmin(p1, p2)
	local high = vmax(p1, p2)
	
	--print(dump(low) .. "\n" .. dump(high))
	for x = low.x, high.x do 
	for y = low.y, high.y do 
	for z = low.z, high.z do 
		local n = minetest.get_node({x=x, y=y, z=z})
		if accept[n.name] == nil then
			return false
		end
	end
	end
	end
	
	return true
end





-- first initialize the internal APIs
dofile(modpath.."/craftitems.lua")
dofile(modpath.."/magic_nodes.lua")
dofile(modpath.."/blueprints.lua")
dofile(modpath.."/pipes.lua")
dofile(modpath.."/burner.lua")
-- dofile(modpath.."/pipeline.lua")

-- next core nodes
dofile(modpath.."/fluids.lua")
dofile(modpath.."/spills.lua")
dofile(modpath.."/concrete.lua")
dofile(modpath.."/vapors.lua")


-- now the kitchen sink
dofile(modpath.."/barrel.lua")
dofile(modpath.."/heater.lua")
dofile(modpath.."/pump.lua")
dofile(modpath.."/oilshale.lua")
dofile(modpath.."/wells.lua")
dofile(modpath.."/cylinder_tank.lua")
dofile(modpath.."/sphere_tank.lua")
dofile(modpath.."/refinery.lua")
dofile(modpath.."/lights.lua")
dofile(modpath.."/rock_crusher.lua")



-----------------------------------
--                               --
-- * * * * * LOOK HERE * * * * * --
--                               --
-----------------------------------
-- where players should look for information
dofile(modpath.."/crafts.lua")
dofile(modpath.."/ore_gen.lua")







-- completely unrelated experiments:

minetest.register_node("bitumen:glass", {
	description = "Glass",
	drawtype = "glasslike_framed_optional",
	tiles = {"default_glass.png", "default_glass_detail.png"},
	special_tiles = {"default_stone.png"},
	paramtype = "light",
	paramtype2 = "glasslikeliquidlevel",
	--param2 = 30;
	sunlight_propagates = true,
	use_texture_alpha = true,
	is_ground_content = false,
	groups = {cracky = 3, oddly_breakable_by_hand = 3},
	sounds = default.node_sound_glass_defaults(),
	on_construct = function(pos) 
		--local n = minetest.get_node(pos)
		--n.param2 = 32
		--minetest.set_node_level(pos, 32)
		--minetest.swap_node(pos, {name = "bitumen:glass", param2 = 120})
	end,
})







-- igore this; test for structure algorithm

local support = {}

minetest.register_abm({
	nodenames = {"bitumen:glass"},
	interval = 1,
	chance = 1,
	action = function(pos)
-- 		minetest.set_node_level(pos, 30)
		local sides = {}
		local on = minetest.get_node(pos)
		
		local npos = {
			{x=pos.x+1, y=pos.y, z=pos.z},
			{x=pos.x-1, y=pos.y, z=pos.z},
			{x=pos.x, y=pos.y, z=pos.z+1},
			{x=pos.x, y=pos.y, z=pos.z-1},
		}

		pos.y = pos.y - 1
		local ym = minetest.get_node(pos)
		local sb = support[minetest.hash_node_position(pos)]
		pos.y = pos.y + 1
		
		
		local hash = minetest.hash_node_position(pos)
		
		if ym.name == "air" then
			local nb = {}
-- 			print("air below")
			
			for _,p in ipairs(npos) do
				local n = minetest.get_node(p)
				nb[n.name] = (nb[n.name] or 0) + 1
			end
			
			if (nb["air"] or 0) == 4 then
				support[hash] = nil
				minetest.spawn_falling_node(pos, on)
				return
			end
			
			if (nb["bitumen:glass"] or 0) > 0 then
				for _,p in ipairs(npos) do
					local s = support[minetest.hash_node_position(p)]
					if s ~= nil then
						print("found support: " .. s)
						support[hash] = math.min(support[hash] or 999, s + 1)
					end
				end
			end
			
			if support[hash] == nil or support[hash] > 4 then
				support[hash] = nil
				minetest.spawn_falling_node(pos, on)
				return
			end
			
		else 
			--print("setting support to 0")
			support[hash] = sb or 0
		end
		
		--minetest.swap_node(pos, {name = "bitumen:glass", param2 = math.random(255)})
	end
})









local function get_chest_formspec(pos)
	local spos = pos.x .. "," .. pos.y .. "," .. pos.z
	local formspec =
		"size[14,12]" ..
		default.gui_bg ..
		default.gui_bg_img ..
		default.gui_slots ..
		"list[nodemeta:" .. spos .. ";main;0,0.3;14,7;]" ..
		"list[current_player;main;3,7.85;8,1;]" ..
		"list[current_player;main;3,9.08;8,3;8]" ..
		"listring[nodemeta:" .. spos .. ";main]" ..
		"listring[current_player;main]" ..
		default.get_hotbar_bg(3,7.85)
	return formspec
end



minetest.register_node("bitumen:large_chest", {
	description = "Large Chest",
	drawtype = "nodebox",
	tiles = {"default_chest_side.png"},
	is_ground_content = false,
	groups = {cracky = 2, oddly_breakable_by_hand = 3},
	sounds = default.node_sound_glass_defaults(),
	on_construct = function(pos) 
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		
		inv:set_size("main", 14*7 )
		meta:set_string("formspec", get_chest_formspec(pos))
	end,
	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos);
		local inv = meta:get_inventory()
		return inv:is_empty("main") and
				default.can_interact_with_node(player, pos)
	end,
	on_metadata_inventory_put = function(pos, listname, index, stack, player)
		
		local name = stack:get_name() 
		
		local meta = minetest.get_meta(pos)
		local minv = meta:get_inventory()
		local pinv = player:get_inventory()
		local sz = pinv:get_size("main")
		
		for i = 1,sz do
			local s = pinv:get_stack("main", i)
			if s and s:get_name() == name then
			
				local lo = minv:add_item("main", s)
				if lo and lo:get_count() > 0 then
					pinv:set_stack("main", i, lo)
					break
				else
					pinv:set_stack("main", i, nil)
				end
			
			end
		end
	end,
	
	on_metadata_inventory_take = function(pos, listname, index, stack, player)
		
		local name = stack:get_name() 
		
		local meta = minetest.get_meta(pos)
		local minv = meta:get_inventory()
		local pinv = player:get_inventory()
		local sz = minv:get_size("main")
		
		for i = 1,sz do
			local s = minv:get_stack("main", i)
			if s and s:get_name() == name then
			
				local lo = pinv:add_item("main", s)
				if lo and lo:get_count() > 0 then
					minv:set_stack("main", i, lo)
					break
				else
					minv:set_stack("main", i, nil)
				end
			
			end
		end
		
	end,
})



minetest.register_craft({
	output = 'bitumen:large_chest',
	recipe = {
		{'group:wood', 'group:wood', 'group:wood'},
		{'group:wood', 'default:chest', 'group:wood'},
		{'group:wood', 'group:wood', 'group:wood'},
	}
})