local reg_alias = ocutil.safe_register_alias
local reg_item  = ocutil.safe_register_item
local reg_node  = ocutil.safe_register_node
local reg_tool  = ocutil.safe_register_tool

local S = function (x) return x end
local neednode

local absorb = function(pos)
    local change = false
    -- Count number of absorbed river water vs other nodes
    -- to determine the wet sponge type.
    local river_water = 0
    local non_river_water = 0
    local p, n
    for i=-3,3 do
        for j=-3,3 do
            for k=-3,3 do
                p = {x=pos.x+i, y=pos.y+j, z=pos.z+k}
                n = minetest.get_node(p)
                if minetest.get_item_group(n.name, "water") ~= 0 then
                    minetest.add_node(p, {name="air"})
                    change = true
                    if n.name == "mclx_core:river_water_source" or n.name == "mclx_core:river_water_flowing" then
                        river_water = river_water + 1
                    else
                        non_river_water = non_river_water + 1
                    end
                end
            end
        end
    end
    -- The dominant water type wins. In case of a tie, normal water wins.
    -- This slight bias is intentional.
    local sponge_type
    if river_water > non_river_water then
        sponge_type = "coderblocks:sponge_wet_river_water"
    else
        sponge_type = "coderblocks:sponge_wet"
    end
    return change, sponge_type
end

neednode = "coderblocks:sponge"
--
reg_node (neednode, {
    description = S("Sponge"),
    _doc_items_longdesc = S("Sponges are blocks which remove water around them when they are placed or come in contact with water, turning it into a wet sponge."),
    drawtype = "normal",
    is_ground_content = false,
    tiles = {"mcl_sponges_sponge.png"},
    walkable = true,
    pointable = true,
    diggable = true,
    buildable_to = false,
    stack_max = 64,
    sounds = default.sound_dirt(),

    groups = {
        cracky=1, crumbly=3, handy=1, building_block=1,
        dig_immediate=2,
        oddly_breakable_by_hand=1
    } ,

    on_place = function(itemstack, placer, pointed_thing)
        local pn = placer:get_player_name()
        if pointed_thing.type ~= "node" then
            return itemstack
        end

        -- Use pointed node's on_rightclick function first, if present
        local node = minetest.get_node(pointed_thing.under)
        if placer and not placer:get_player_control().sneak then
            if minetest.registered_nodes[node.name] and minetest.registered_nodes[node.name].on_rightclick then
                return minetest.registered_nodes[node.name].on_rightclick(pointed_thing.under, node, placer, itemstack) or itemstack
            end
        end

        if minetest.is_protected(pointed_thing.above, pn) then
            return itemstack
        end

        local pos = pointed_thing.above
        local on_water = false
        if minetest.get_item_group(minetest.get_node(pos).name, "water") ~= 0 then
            on_water = true
        end
        local water_found = minetest.find_node_near(pos, 1, "group:water")
        if water_found ~= nil then
            on_water = true
        end
        if on_water then
            -- Absorb water
            -- FIXME: pos is not always the right placement position because of pointed_thing
            local absorbed, wet_sponge = absorb(pos)
            if absorbed then
                minetest.item_place_node(ItemStack(wet_sponge), placer, pointed_thing)
                if not minetest.settings:get_bool("creative_mode") then
                    itemstack:take_item()
                end
                return itemstack
            end
        end
        return minetest.item_place_node(itemstack, placer, pointed_thing)
    end,
})
reg_alias ("mcl_sponges:sponge", neednode)

neednode = "coderblocks:sponge_wet"
--
reg_node (neednode, {
    description = S("Waterlogged Sponge"),
    _doc_items_longdesc = S("A waterlogged sponge can be dried in the furnace to turn it into (dry) sponge. When there's an empty bucket in the fuel slot of a furnace, the water will pour into the bucket."),
    drawtype = "normal",
    is_ground_content = false,
    tiles = {"mcl_sponges_sponge_wet.png"},
    walkable = true,
    pointable = true,
    diggable = true,
    buildable_to = false,
    stack_max = 64,
    sounds = default.sound_dirt(),

    groups = {
        cracky=1, crumbly=3, handy=1, building_block=1,
        oddly_breakable_by_hand=1
    } ,
})
reg_alias ("mcl_sponges:sponge_wet", neednode)

minetest.register_craft ({
    type     = "cooking"                    ,
    output   = "coderblocks:sponge"         ,
    recipe   = "coderblocks:sponge_wet"     ,
    cooktime = 10                           ,
})

minetest.register_abm ({
    label     = "Sponge water absorption"   ,
    nodenames = { "coderblocks:sponge" }    ,
    neighbors = { "group:water" }           ,
    interval  = 2                           ,
    catch_up  = false                       ,
    chance    = 1                           ,

    action = function(pos)
        local absorbed, wet_sponge = absorb (pos)
        if absorbed then
            minetest.add_node(pos, {name = wet_sponge})
        end
    end,
})