local tnt_tables = {["bettertnt:tnt1"] = {r=6},
					["bettertnt:tnt2"] = {r=1},
					["bettertnt:tnt3"] = {r=2},
					["bettertnt:tnt4"] = {r=4},
					["bettertnt:tnt5"] = {r=6},
					["bettertnt:tnt6"] = {r=8},
					["bettertnt:tnt7"] = {r=10},
					["bettertnt:tnt8"] = {r=12},
					["bettertnt:tnt9"] = {r=14},
					["bettertnt:tnt10"] = {r=16},
					["bettertnt:tnt11"] = {r=18}}

tnt = {}
tnt.force = {
	["default:brick"] = 4,
	["default:cobble"] = 4,
	["default:stonebrick"] = 4,
	["default:desert_stonebrick"] = 4,
	["default:gravel"] = 1,
	["default:sand"] = 1,
	["default:desert_sand"] = 1,
	["default:clay"] = 1,
	["default:dirt"] = 1,
	["default:dirt_with_grass"] = 1,
	["default:dirt_with_grass_footsteps"] = 1,
	["default:dirt_with_snow"] = 1,
	["default:wood"] = 2,
	["default:tree"] = 3,
	["default:stone"] = 3,
	["default:sandstone"] = 3,
	["default:sandstonebrick"] = 3,
	["default:desert_stone"] = 3,
	
	["default:stone_with_coal"] = 4,
	["default:stone_with_iron"] = 4,
	["default:stone_with_copper"] = 4,
	["default:stone_with_gold"] = 4,
	
	["default:stone_with_mese"] = 6,
	["default:mese"] = 10,
	["default:stone_with_diamond"] = 6,
	
	["default:torch"] = 1,
	
	
	["default:steelblock"] = 30,
	["default:obsidian"] = 30,
}
tnt.accl = {
	["default:steelblock"] = true,
	["default:obsidian"] = true,
}


local function drop_item(pos, nodename, player, count)
        local drop = minetest.get_node_drops(nodename)

        for _,item in ipairs(drop) do
                if type(item) == "string" then
                	item = ItemStack(item)
                end
                for i=1,item:get_count() do
            		item:set_count(item:get_count() * count)
                    local obj = minetest.add_item(pos, item)
                    if obj == nil then
                            return
                    end
                    obj:get_luaentity().collect = true
                    obj:setacceleration({x=0, y=-10, z=0})
                    obj:setvelocity({x=math.random(0,6)-3, y=10, z=math.random(0,6)-3})
                end
        end
        
        
end

local function is_tnt(name)
	if tnt_tables[name]~=nil then return true end
	return false
end

local function destroy(pos, player, ents)
	local nodename = minetest.get_node(pos).name
	--local p_pos = area:index(pos.x, pos.y, pos.z)
	--if nodes[p_pos] ~= tnt_c_air then
	if nodename~="air" then
		if tnt_tables[nodename]==nil then
			ents[nodename] = (ents[nodename] or 0) + 1
		end
		if minetest.registered_nodes[nodename].groups.flammable ~= nil then
			minetest.set_node(pos, {name = "fire:basic_flame"})
			return
		end
		minetest.remove_node(pos)
	end
end

local function combine_texture(texture_size, frame_count, texture, ani_texture)
        local l = frame_count
        local px = 0
        local combine_textures = ":0,"..px.."="..texture
        while l ~= 0 do
                combine_textures = combine_textures..":0,"..px.."="..texture
                px = px+texture_size
                l = l-1
        end
        return ani_texture.."^[combine:"..texture_size.."x"..texture_size*frame_count..":"..combine_textures.."^"..ani_texture
end

local animated_tnt_texture = combine_texture(16, 4, "default_tnt_top.png", "bettertnt_top_burning_animated.png")
	
tnt_c_tnt = {}
tnt_c_tnt_burning = {}
tnt_types_int = {}

for name,data in pairs(tnt_tables) do
	
	tnt_types_int[#tnt_types_int] = name

	minetest.register_node(name, {
		description = "TNT ("..name..")",
		tiles = {"default_tnt_top.png", "default_tnt_bottom.png", "default_tnt_side.png"},
		groups = {dig_immediate=2, mesecon=2},
		sounds = default.node_sound_wood_defaults(),
		
		on_punch = function(pos, node, puncher)
			if puncher:get_wielded_item():get_name() == "default:torch" then
				if minetest.is_protected(pos, puncher:get_player_name()) then
					print(puncher:get_player_name() .. " tried to light TNT at " .. minetest.pos_to_string(pos))
					minetest.record_protection_violation(pos, puncher:get_player_name())
					return
				end
				minetest.sound_play("bettertnt_ignite", {pos=pos})
				boom(pos, 4, puncher)
				minetest.set_node(pos, {name=name.."_burning"})
			end
		end,
		
		mesecons = {
			effector = {
				action_on = function(pos, node)
					boom(pos, 0)
				end
			},
		},
	})
	
	minetest.register_node(name.."_burning", {
	        tiles = {{name=animated_tnt_texture, animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=1}},
	        "default_tnt_bottom.png", "default_tnt_side.png"},
	        light_source = 5,
	        drop = "",
	        sounds = default.node_sound_wood_defaults(),
	})
	
	local prev = "bettertnt:tnt"..tonumber(strs:rem_from_start(name, "bettertnt:tnt"))-1
	if prev=="bettertnt:tnt0" then prev="" end
	--print(name .. " is made from " .. prev)
	
	minetest.register_craft({
		output = name,
		recipe = {
			{"",					"bettertnt:gunpowder",			""						},
			{"bettertnt:gunpowder",	prev,							"bettertnt:gunpowder"	},
			{"",					"bettertnt:gunpowder",			""						}
		}
	})
	
	tnt_c_tnt[#tnt_c_tnt + 1] = minetest.get_content_id(name)
	tnt_c_tnt_burning[#tnt_c_tnt_burning + 1] = minetest.get_content_id(name.."_burning")

end


local function get_tnt_random(pos)
        return PseudoRandom(math.abs(pos.x+pos.y*3+pos.z*5)+15)
end





function boom(pos, time, player)
	local id = minetest.get_node(pos).name
	boom_id(pos, time, player, id)
end

function boom_id(pos, time, player, id)
	minetest.after(time, function(pos)
		
		local tnt_range = tnt_tables[id].r * 6
	
		local t1 = os.clock()
		pr = get_tnt_random(pos)
		minetest.sound_play("bettertnt_explode", {pos=pos, gain=1.5, max_hear_distance=tnt_range*64})
		
		minetest.remove_node(pos)
		
--		local manip = minetest.get_voxel_manip()
--		local width = tnt_range
--		local emerged_pos1, emerged_pos2 = manip:read_from_map({x=pos.x-width, y=pos.y-width, z=pos.z-width},
--		{x=pos.x+width, y=pos.y+width, z=pos.z+width})
--		area = VoxelArea:new{MinEdge=emerged_pos1, MaxEdge=emerged_pos2}
--		nodes = manip:get_data()
--		
--		local p_pos = area:index(pos.x, pos.y, pos.z)
--		nodes[p_pos] = tnt_c_air
		minetest.add_particle(pos, {x=0,y=0,z=0}, {x=0,y=0,z=0}, 0.5, 16, false, "bettertnt_boom.png")
		--minetest.set_node(pos, {name="tnt:boom"})
		
		local objects = minetest.get_objects_inside_radius(pos, tnt_range/2)
		for _,obj in ipairs(objects) do
			if obj:is_player() or (obj:get_luaentity() and obj:get_luaentity().name ~= "__builtin:item") then
				local obj_p = obj:getpos()
				local vec = {x=obj_p.x-pos.x, y=obj_p.y-pos.y, z=obj_p.z-pos.z}
				local dist = (vec.x^2+vec.y^2+vec.z^2)^0.5
				local damage = 0
				if dist < tnt_range/3.0 then damage = tnt_range end
				obj:punch(obj, 1.0, {
					full_punch_interval=1.0,
					damage_groups={fleshy=damage},
				}, vec)
			end
		end
		
		local ents = {}
		local storedPoses = {}
		
		if id~="bettertnt:tnt1" then
			for dx=-tnt_range,tnt_range do
				for dz=-tnt_range,tnt_range do
					for dy=-tnt_range,tnt_range do
						--local p = {x=pos.x+dx, y=pos.y+dy, z=pos.z+dz}
						----------------------------------------
						local dist = (dx^2) + (dy^2) + (dz^2)
						dist = dist^(1/2.0)
						if dist < tnt_range and dist + 1 >= tnt_range and dist~=0 then
							local dir = {x=dx, y=dy, z=dz}
							--local totalnum = math.abs(dir.x)+math.abs(dir.y)+math.abs(dir.z)
							--dir = vector.normalize(dir)--vector.divide(dir, vector.new(totalnum, totalnum, totalnum))
							dir.x = dir.x / dist
							dir.y = dir.y / dist
							dir.z = dir.z / dist
							--local p = {x=pos.x, y=pos.y, z=pos.z} -- {x=0,y=0,z=0}--
							local blast = tnt_range / 3
							for i=1, dist do
	--							i = i - 0.5
								local pp = {x=dir.x*i, y=dir.y*i, z=dir.z*i}
								local p  = vector.add(pp, pos)
								p.x = math.floor(p.x)
								p.y = math.floor(p.y)
								p.z = math.floor(p.z)
								for i=1, #storedPoses do
									if p.x==storedPoses[i].x and p.y==storedPoses[i].y and p.z==storedPoses[i].z then
										--print("p: "..dump(p) .. " storedPoses: "..dump(storedPoses[i]))
										p = nil
										break
									end
								end
								
								if p==nil then break end
								--local p = {x=pos.x+dx, y=pos.y+dy, z=pos.z+dz}
								--vector.add(p, dir)
								----------------------------------------
	--							local p_node = area:index(p.x, p.y, p.z)
	--							local d_p_node = nodes[p_node]
								local node = minetest.get_node(p)
								-------------------------------------------------------------
								blast = blast - (tnt.force[node.name] or 3)
								if tnt.accl[node.name]==true then
									storedPoses[#storedPoses + 1] = {x=p.x, y=p.y, z=p.z}
									local stored = minetest.get_meta(p):get_int("blast") or 0
									blast = blast + stored
								end
								if blast <= 0 then
									if tnt.accl[node.name]==true then
										minetest.get_meta(p):set_int("blast", tnt.force[node.name] + blast)
									end
									break
								end
								-------------------------------------------------------------
			--					if d_p_node == tnt_c_tnt
			--							or d_p_node == tnt_c_tnt_burning then
								if is_tnt(node.name)==true then
									--nodes[p_node] = tnt_c_tnt
									minetest.remove_node(p)
									boom_id(p, 0.5, player, node.name) -- was {x=p.x, y=p.y, z=p.z}
								elseif not ( d_p_node == tnt_c_fire
										or string.find(node.name, "default:water_")
										or string.find(node.name, "default:lava_")) then
									--if math.abs(dx)<tnt_range and math.abs(dy)<tnt_range and math.abs(dz)<tnt_range then
									destroy(p, player, ents)
									--elseif pr:next(1,5) <= 4 then
									--	destroy(p, player, ents)
									--end
								end
							end
						--------------------------------------------
						end
						--------------------------------------------
					end
				end
				
			end
			
			for name, val in pairs(ents) do
				drop_item(pos, name, player, val)
			end
		end
		
		minetest.add_particlespawner(
			tnt_range * 100, --amount
			1, --time
			{x=pos.x-(tnt_range / 2), y=pos.y-(tnt_range / 2), z=pos.z-(tnt_range / 2)}, --minpos
			{x=pos.x+(tnt_range / 2), y=pos.y+(tnt_range / 2), z=pos.z+(tnt_range / 2)}, --maxpos
			{x=-0, y=-0, z=-0}, --minvel
			{x=0, y=0, z=0}, --maxvel
			{x=-0.5,y=5,z=-0.5}, --minacc
			{x=0.5,y=5,z=0.5}, --maxacc
			0.1, --minexptime
			1, --maxexptime
			8, --minsize
			15, --maxsize
			true, --collisiondetection
			"bettertnt_smoke.png" --texture
		)
		print(string.format("[tnt] exploded in: %.2fs", os.clock() - t1))
	end, pos)
end



---------------------  GUNPOWDER  -------------------


function burn(pos, player)
        local nodename = minetest.get_node(pos).name
        if  strs:starts(nodename, "bettertnt:tnt") then
                minetest.sound_play("bettertnt_ignite", {pos=pos})
                boom(pos, 1, player)
                minetest.set_node(pos, {name=minetest.get_node(pos).name.."_burning"})
                return
        end
        if nodename ~= "bettertnt:gunpowder" then
                return
        end
        minetest.sound_play("bettertnt_gunpowder_burning", {pos=pos, gain=2})
        minetest.set_node(pos, {name="bettertnt:gunpowder_burning"})
        
        minetest.after(1, function(pos)
                if minetest.get_node(pos).name ~= "bettertnt:gunpowder_burning" then
                        return
                end
                minetest.after(0.5, function(pos)
                        minetest.remove_node(pos)
                end, {x=pos.x, y=pos.y, z=pos.z})
                for dx=-1,1 do
                        for dz=-1,1 do
                                for dy=-1,1 do
                                        pos.x = pos.x+dx
                                        pos.y = pos.y+dy
                                        pos.z = pos.z+dz
                                        
                                        if not (math.abs(dx) == 1 and math.abs(dz) == 1) then
                                                if dy == 0 then
                                                        burn({x=pos.x, y=pos.y, z=pos.z}, player)
                                                else
                                                        if math.abs(dx) == 1 or math.abs(dz) == 1 then
                                                                burn({x=pos.x, y=pos.y, z=pos.z}, player)
                                                        end
                                                end
                                        end
                                        
                                        pos.x = pos.x-dx
                                        pos.y = pos.y-dy
                                        pos.z = pos.z-dz
                                end
                        end
                end
        end, pos)
end


minetest.register_node("bettertnt:gunpowder", {
        description = "Gun Powder",
        drawtype = "raillike",
        paramtype = "light",
        sunlight_propagates = true,
        walkable = false,
        tiles = {"bettertnt_gunpowder.png",},
        inventory_image = "bettertnt_gunpowder_inventory.png",
        wield_image = "bettertnt_gunpowder_inventory.png",
        selection_box = {
                type = "fixed",
                fixed = {-1/2, -1/2, -1/2, 1/2, -1/2+1/16, 1/2},
        },
        groups = {dig_immediate=2,attached_node=1},
        sounds = default.node_sound_leaves_defaults(),
        
        on_punch = function(pos, node, puncher)
                if puncher:get_wielded_item():get_name() == "default:torch" then
                        burn(pos, puncher)
                end
        end,
})

minetest.register_node("bettertnt:gunpowder_burning", {
        drawtype = "raillike",
        paramtype = "light",
        sunlight_propagates = true,
        walkable = false,
        light_source = 5,
        tiles = {{name="bettertnt_gunpowder_burning_animated.png", animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=1}}},
        selection_box = {
                type = "fixed",
                fixed = {-1/2, -1/2, -1/2, 1/2, -1/2+1/16, 1/2},
        },
        drop = "",
        groups = {dig_immediate=2,attached_node=1},
        sounds = default.node_sound_leaves_defaults(),
})

local tnt_plus_gunpowder = {"bettertnt:gunpowder"}
for name,data in pairs(tnt_tables) do
	tnt_plus_gunpowder[#tnt_plus_gunpowder+1] = name
end


minetest.register_abm({
        nodenames = tnt_plus_gunpowder,
        neighbors = {"fire:basic_flame"},
        interval = 2,
        chance = 10,
        action = function(pos, node)
                if tnt_tables[node.name]~=nil then
                        boom({x=pos.x, y=pos.y, z=pos.z}, 0)
                else
                        burn(pos)
                end
        end
})

minetest.register_craft({
        output = "bettertnt:gunpowder",
        type = "shapeless",
        recipe = {"default:coal_lump", "default:gravel"}
})


tnt_c_air = minetest.get_content_id("air")
tnt_c_fire = minetest.get_content_id("fire:basic_flame")