--[[

k-smallblocks is a Minetest mod that adds smaller blocks to minetest aswell as its own node placement prediction/system
Copyright (C) 2019 Kurtzmusch

This library 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.

This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

--]]

-- bitmaps are a binary representation of which of the 8 divisions of each node are filled by the material
-- origin bitmaps are the ones that can be rotated to make any other of the 255 possibilities
-- many bitmaps can be mapped to a single origin_bitmap, and each origin is a node registration
-- the origin bitmaps are generated by generate_origin_bitmaps.lua
-- 22 bitmaps will be generated and 22 nodes for each material will be registered

-- the mod creates bitmaps when placing nodes over other nodes of the same material,
-- then finds the correct node name and facedir using the maps int_facedir_map and int_name_map 

-- all 'unnamed nodes' will be called "<number>_<material>" 
-- 'named nodes' are the ones craftable and have a distinc name like "stair_<material>"
-- example of named node "stair_stonebrick"
-- exmaple of unnamed node "127_stonebrick"
-- named nodes apear in the creative inventory and can be crafted
-- unnamed nodes will not drop themselves when dug, but will drop the equivalent amount in smallblock_<material>
-- example: when a cobble inner stair is dug, it will drop 7 smallblock_cobble

-- inner and outer stairs are not craftable, but easily buildable
-- the mod doesnt work with screwdriver, the idea is that you never need to rotate anything because you can manually
-- dig a smallblock out of a node and replace it in other place in that node. textures always lign up aswell

-- definitions of named nodes will contain a recipe, logic for correct orientation when placed and dug

modpath = minetest.get_modpath("k_smallblocks")
smallblocks = {}

smallblocks.int_facedir_map = { [255]=0 } -- maps an int that represents a bitmap to a facedir 
smallblocks.int_name_map = { [255]="" } -- maps an int that represents a bitmap to a name. many ints can map to a single name. a name is a string of the interger that represents the bitmap
smallblocks.name_int_map = {} -- inverse of the above map, might be usefull in the future
-- definitions of named (and craftable) nodes
smallblock = {}
halfslab = {}
slab = {}
stair = {}
common = {} -- common for all nodes

common.on_right_click = function( position, node, clicker, itemstack, pointed_thing )
	-- find world coordinates for smallblock removal 
	local camera_position = clicker:get_pos()
	camera_position.y = camera_position.y + clicker:get_properties().eye_height

	local raycaster = Raycast(
		camera_position,
		vector.add( camera_position, vector.multiply(clicker:get_look_dir(), 5) ),
		false, false
	)
	local intersected_thing = raycaster:next()
	if( intersected_thing == nil ) then return end
	--pushes the intersection inside the face to resolve ambiguity and get a rogh position in the world
	local small_normal = vector.divide( intersected_thing.intersection_normal, 4 )
	minetest.chat_send_all( small_normal.x .." ".. small_normal.y .." ".. small_normal.z )
	small_normal = vector.multiply( small_normal, -1 ) -- reverse vector so it points inside the face
	minetest.chat_send_all( small_normal.x .." ".. small_normal.y .." ".. small_normal.z )
	local world_rough_position = vector.add( small_normal, intersected_thing.intersection_point )
	
	local target_node_position = {
		x = math.floor(world_rough_position.x+0.5),
		y = math.floor(world_rough_position.y+0.5),
		z = math.floor(world_rough_position.z+0.5),
	}
	local point_within_node = util.worldPoint_to_nodePoint( world_rough_position )
	local bitmap = util.nodePoint_to_bitmap( point_within_node ) -- bitmap representing the smallblock to be removed

	local underscore_index
	local targetNode_fullName = minetest.get_node( target_node_position ).name
	underscore_index = string.find( targetNode_fullName, "_", 3 )
	local targetNode_materialName = string.sub( targetNode_fullName, underscore_index+1 )
	minetest.log( "warning", targetNode_fullName )
	minetest.log( "warning", targetNode_materialName )

	
	local targetNode_bitmapName = string.sub( targetNode_fullName, 0, underscore_index-1 )
	local colon_index = string.find( targetNode_fullName, ":" )
	targetNode_bitmapName = string.sub( targetNode_bitmapName, colon_index+1 )
	if( targetNode_bitmapName == "smallblock" ) then targetNode_bitmapName = "1" end
	minetest.chat_send_all( targetNode_bitmapName )
	-- find bitmap from name and facedir
	local bitmap_list = {} -- list of bitmaps that are a rotation of targetNode bitmapName
	local index = 1
	for key_bitmap_as_int, val_bitmap_name in pairs(smallblocks.int_name_map) do
		if( val_bitmap_name == targetNode_bitmapName ) then
			bitmap_list[index] = key_bitmap_as_int -- grabing keys that map to the target node name
			index = index + 1
			minetest.chat_send_all( key_bitmap_as_int ) 
		end
	end
	local targetNode_bitmap
	-- find the bitmap that corresponds to the targetNode facedir
	for i=1, index-1 do
		if( smallblocks.int_facedir_map[bitmap_list[i]] == minetest.get_node( target_node_position ).param2 ) then
			targetNode_bitmap = bitmap_list[i]
			minetest.chat_send_all( "TN bitmap: " .. targetNode_bitmap )
		end
	end
	if( targetNode_bitmap ~= nil ) then --this should always happen
		--targetNode_bitmap = util.integer_to_bitmap( targetNode_bitmap )
		local tnb = util.integer_to_bitmap( targetNode_bitmap )
		minetest.log( "none", "oring "..targetNode_bitmap .. " with ".. util.bitmap_to_integer( bitmap ) )
		local finalBitmap = util.xor_bitmap( tnb, bitmap )
		if( util.bitmap_to_integer( finalBitmap ) == 0 ) then
			minetest.remove_node( target_node_position )
			return	
		end
		minetest.log("none", "result " .. util.bitmap_to_integer( finalBitmap ) )
		local finalNode_name = smallblocks.int_name_map[util.bitmap_to_integer( finalBitmap )]
		if( finalNode_name == "1" ) then
			finalNode_name = "smallblock"
		end
		local finalNode_facedir = smallblocks.int_facedir_map[util.bitmap_to_integer( finalBitmap )]
		local finalNode = { name="k_smallblocks:"..finalNode_name.."_"..targetNode_materialName, param2=finalNode_facedir }
		minetest.swap_node( target_node_position, finalNode )
		minetest.chat_send_all( "materials match" )
	end
	
end

smallblock.on_use = function( itemstack, user, pointed_thing )
	-- find world coordinates for smallblock placement
	local camera_position = user:get_pos()
	camera_position.y = camera_position.y + user:get_properties().eye_height

	local raycaster = Raycast(
		camera_position,
		vector.add( camera_position, vector.multiply(user:get_look_dir(), 5) ),
		false, false
	)
	local intersected_thing = raycaster:next()
	if( intersected_thing == nil ) then return end

	--pushes the intersection away from the face to resolve ambiguity and get a rogh position in the world
	local small_normal = vector.divide( intersected_thing.intersection_normal, 4 )
	local world_rough_position = vector.add( small_normal, intersected_thing.intersection_point )
	
	local target_node_position = {
		x = math.floor(world_rough_position.x+0.5),
		y = math.floor(world_rough_position.y+0.5),
		z = math.floor(world_rough_position.z+0.5),
	}
	local point_within_node = util.worldPoint_to_nodePoint( world_rough_position )
	minetest.chat_send_all( "x: "..point_within_node.x )
	minetest.chat_send_all( "y: "..point_within_node.y )
	minetest.chat_send_all( "z: "..point_within_node.z )
	local bitmap = util.nodePoint_to_bitmap( point_within_node )
	minetest.log("warning", "placing at" .. util.bitmap_to_integer( bitmap ) )
	if( minetest.get_node( target_node_position ).name == "air" ) then
			minetest.log( smallblocks.int_name_map[util.bitmap_to_integer(bitmap)] )
			local bitmap_string = ""
			for i = 0, 7, 1 do
				bitmap_string = bitmap_string .. bitmap[i]
			end
			minetest.log( bitmap_string )
		minetest.set_node( target_node_position, {
			name="k_smallblocks:smallblock_stonebrick",
			param2=smallblocks.int_facedir_map[util.bitmap_to_integer(bitmap)]
		} )
	else
		local underscore_index
		local wieldedNode_fullName = itemstack:get_name()
		underscore_index = string.find( wieldedNode_fullName, "_", 3 )
		local wieldedNode_materialName = string.sub( wieldedNode_fullName, underscore_index+1 )
		local targetNode_fullName = minetest.get_node( target_node_position ).name
		underscore_index = string.find( targetNode_fullName, "_", 3 )
		local targetNode_materialName = string.sub( targetNode_fullName, underscore_index+1 )
		
		if( targetNode_materialName == wieldedNode_materialName ) then
			local targetNode_bitmapName = string.sub( targetNode_fullName, 0, underscore_index-1 )
			local colon_index = string.find( targetNode_fullName, ":" )
			targetNode_bitmapName = string.sub( targetNode_bitmapName, colon_index+1 )
			if( targetNode_bitmapName == "smallblock" ) then targetNode_bitmapName = "1" end
			minetest.chat_send_all( targetNode_bitmapName )
			-- find bitmap from name and facedir
			local bitmap_list = {} -- list of bitmaps that are a rotation of targetNode bitmapName
			local index = 1
			for key_bitmap_as_int, val_bitmap_name in pairs(smallblocks.int_name_map) do
				if( val_bitmap_name == targetNode_bitmapName ) then
					bitmap_list[index] = key_bitmap_as_int -- grabing keys that map to the target node name
					index = index + 1
					minetest.chat_send_all( key_bitmap_as_int ) 
				end
			end
			local targetNode_bitmap
			-- find the bitmap that corresponds to the targetNode facedir
			for i=1, index-1 do
				if( smallblocks.int_facedir_map[bitmap_list[i]] == minetest.get_node( target_node_position ).param2 ) then
					targetNode_bitmap = bitmap_list[i]
					minetest.chat_send_all( "TN bitmap: " .. targetNode_bitmap )
				end
			end
			if( targetNode_bitmap ~= nil ) then --this should always happen
				--targetNode_bitmap = util.integer_to_bitmap( targetNode_bitmap )
				local tnb = util.integer_to_bitmap( targetNode_bitmap )
				minetest.log( "none", "oring "..targetNode_bitmap .. " with ".. util.bitmap_to_integer( bitmap ) )
				local finalBitmap = util.or_bitmap( tnb, bitmap )
				minetest.log("none", "result " .. util.bitmap_to_integer( finalBitmap ) )
				local finalNode_name = smallblocks.int_name_map[util.bitmap_to_integer( finalBitmap )]
				local finalNode_facedir = smallblocks.int_facedir_map[util.bitmap_to_integer( finalBitmap )]
				local finalNode = { name="k_smallblocks:"..finalNode_name.."_"..targetNode_materialName, param2=finalNode_facedir }
				minetest.swap_node( target_node_position, finalNode )
				minetest.chat_send_all( "materials match" )
			end
		end
	end
end
				
dofile(modpath .. "/util.lua")
test_bitmap = util.integer_to_bitmap( 182 )
test_int = util.bitmap_to_integer( test_bitmap )
minetest.log("warning", test_int )
for i = 0, 7, 1 do
minetest.log("warning", test_bitmap[i] )
end
dofile(modpath .. "/generate_shapes.lua")
dofile(modpath .. "/generate_nodeboxes.lua")
dofile(modpath .. "/generate_map.lua") -- maps int to shape, facedir

smallblocks.name_int_map = util.table_invert( smallblocks.int_name_map )
	
for k,v in pairs(origin_bitmaps) do
	minetest.log("error", " ".. v)
end

for k, v in pairs(smallblocks.origin_bitmaps) do 
	local shape_int = v 
	local shape_nb = smallblocks.nodeboxes[k]
	if( v == 1 ) then
		minetest.register_node("k_smallblocks:smallblock_stonebrick",
			{
				description = "Stone Brick Smallblock",
				paramtype = "light",
				paramtype2 = "facedir",
				drawtype = "nodebox",
				tiles = { {name="default_stone_brick.png", align_style="world"} },
				groups = { cracky=2 },
				sunlight_propagates = true,
				node_box = {
					type = "fixed",
					fixed = shape_nb
				},
				on_use = smallblock.on_use,
				on_rightclick =  common.on_right_click, 
				on_place = function( itemstack, placer, pointed_thing )
					if( string.sub(minetest.get_node( pointed_thing.under ).name, 1, 13 ) == "k_smallblocks" ) then
						minetest.chat_send_all( "on_place" .. pointed_thing.under.x .. " "..
						pointed_thing.under.y.." ".. pointed_thing.under.z )
						minetest.item_place( itemstack, placer, pointed_thing, 0)
						-- doesnt actually place any item, but calls target node on_rightclick if its defined
					end
				end 
			}
		)
	else
		minetest.register_node("k_smallblocks:"..shape_int.."_".."stonebrick",
			{
				description = "Stone Brick",
				paramtype = "light",
				paramtype2 = "facedir",
				drawtype = "nodebox",
				tiles = { {name="default_stone_brick.png", align_style="world"} },
				is_ground_content = false,
				groups = { cracky=2},
				sunlight_propagates = true,
				node_box = {
					type = "fixed",
					fixed = shape_nb 
				},
				on_place = function() end,
				on_rightclick = common.on_right_click

			}
		)
	end
end