-- ===================================================================

local cvt      = castle.cvt
local fcon     = castle.fcon
local S        = castle.S

local tapestry = {}

-- ===================================================================

tapestry.register_node = function (name, def)
    minetest.register_node (name, def)
    local adjname

       adjname =  name:gsub ("^castle:", "castle_tapestries:", 1)
    if adjname ~= name then
        fcon (adjname, name)
    end
end

-- ===================================================================

tapestry.register_node ("castle:tapestry_top", {
    drawtype = "nodebox",
    description = S("Tapestry Top"),
    tiles = { "default_wood.png" } ,
    sunlight_propagates = true,
    groups = {flammable=3,oddly_breakable_by_hand=3 } ,
    sounds = default.node_sound_defaults(),
    paramtype = "light",
    paramtype2 = "facedir",
    node_box = {
        type = "fixed",
        fixed = {
            {-0.6,-0.5,0.375,0.6,-0.375,0.5 } ,
         } ,
     } ,
    selection_box = {
        type = "fixed",
        fixed = {
            {-0.6,-0.5,0.375,0.6,-0.375,0.5 } ,
         } ,
     } ,
})

-- ===================================================================

minetest.register_craft({
    type = "shapeless",
    output = 'castle:tapestry_top',
    recipe = {'default:stick' } ,
})

-- ===================================================================

tapestry.colours = {
    "white",
    "grey",
    "black",
    "red",
    "yellow",
    "green",
    "cyan",
    "blue",
    "magenta",
    "orange",
    "violet",
    "dark_grey",
    "dark_green",
    "pink",
    "brown",
}

-- ===================================================================

-- Regular-length tapestry

tapestry.register_node ("castle:tapestry", {
    drawtype = "mesh",
    mesh = "castle_tapestry.obj",
    description = S("Tapestry"),
    tiles = { "castle_tapestry.png" } ,
    inventory_image = "castle_tapestry_inv.png",
    groups = {oddly_breakable_by_hand=3,flammable=3, ud_param2_colorable = 1 } ,
    sounds = default.node_sound_defaults(),
    paramtype = "light",
    paramtype2 = "colorwallmounted",
    palette = "unifieddyes_palette_colorwallmounted.png",
    selection_box = {
        type = "wallmounted",
        wall_side = {-0.5,-0.5,0.4375,0.5,1.5,0.5 } ,
     } ,
    after_place_node = unifieddyes.fix_rotation_nsew,
    after_dig_node = unifieddyes.after_dig_node,
    on_rotate = unifieddyes.fix_after_screwdriver_nsew
})

-- ===================================================================

-- Crafting from wool and a stick

minetest.register_craft({
    type = "shapeless",
    output = 'castle:tapestry',
    recipe = {'wool:white', 'default:stick' } ,
})

-- ===================================================================

-- Long tapestry

tapestry.register_node ("castle:tapestry_long", {
    drawtype = "mesh",
    mesh = "castle_tapestry_long.obj",
    description = S("Tapestry (Long)"),
    tiles = { "castle_tapestry.png" } ,
    inventory_image = "castle_tapestry_long_inv.png",
    groups = {oddly_breakable_by_hand=3,flammable=3, ud_param2_colorable = 1 } ,
    sounds = default.node_sound_defaults(),
    paramtype = "light",
    paramtype2 = "colorwallmounted",
    palette = "unifieddyes_palette_colorwallmounted.png",
    selection_box = {
        type = "wallmounted",
        wall_side = {-0.5,-0.5,0.4375,0.5,2.5,0.5 } ,
     } ,
    after_place_node = unifieddyes.fix_rotation_nsew,
    after_dig_node = unifieddyes.after_dig_node,
    on_rotate = unifieddyes.fix_after_screwdriver_nsew
})

-- Crafting from normal tapestry and wool

minetest.register_craft({
    type = "shapeless",
    output = 'castle:tapestry_long',
    recipe = {'wool:white', 'castle:tapestry' } ,
})

-- Very long tapestry

tapestry.register_node ("castle:tapestry_very_long", {
    drawtype = "mesh",
    mesh = "castle_tapestry_very_long.obj",
    description = S("Tapestry (Very Long)"),
    tiles = { "castle_tapestry.png" } ,
    inventory_image = "castle_tapestry_very_long_inv.png",
    groups = {oddly_breakable_by_hand=3,flammable=3, ud_param2_colorable = 1 } ,
    sounds = default.node_sound_defaults(),
    paramtype = "light",
    paramtype2 = "colorwallmounted",
    palette = "unifieddyes_palette_colorwallmounted.png",
    selection_box = {
        type = "wallmounted",
        wall_side = {-0.5,-0.5,0.4375,0.5,3.5,0.5 } ,
     } ,
    after_place_node = unifieddyes.fix_rotation_nsew,
    after_dig_node = unifieddyes.after_dig_node,
    on_rotate = unifieddyes.fix_after_screwdriver_nsew
})

-- Crafting from long tapestry and wool

minetest.register_craft({
    type = "shapeless",
    output = 'castle:tapestry_very_long',
    recipe = {'wool:white', 'castle:tapestry_long' } ,
})

-- Convert static tapestries to param2 color

local old_static_tapestries = {}

for _, color in ipairs (tapestry.colours) do
    table.insert (old_static_tapestries,
        "castle:tapestry_"           .. color)
    table.insert (old_static_tapestries,
        "castle:long_tapestry_"      .. color)
    table.insert (old_static_tapestries,
        "castle:very_long_tapestry_" .. color)
end

minetest.register_lbm ({
    name      = "castle:convert_tapestries"              ,
    label     = "Convert tapestries to use param2 color" ,
    nodenames = old_static_tapestries                    ,

    run_at_every_load = true ,

    action = function (pos, node)
        local oldname = node.name
        local color   = string.sub (oldname, string.find(oldname, "_", -12) + 1)

        if     color == "red" then
               color =  "medium_red"
        elseif color == "cyan" then
               color =  "medium_cyan"
        elseif color == "blue" then
               color =  "medium_blue"
        elseif color == "magenta" then
               color =   "medium_magenta"
        end

        local paletteidx, _ = unifieddyes.getpaletteidx("unifieddyes:"..color, "wallmounted")

        local old_fdir = math.floor(node.param2 % 32)
        local new_fdir = 3

        if old_fdir == 0 then
            new_fdir = 3
        elseif old_fdir == 1 then
            new_fdir = 4
        elseif old_fdir == 2 then
            new_fdir = 2
        elseif old_fdir == 3 then
            new_fdir = 5
        end

        local param2 = paletteidx + new_fdir
        local newname = "castle:tapestry"
        if string.find(oldname, ":long") then
            newname = "castle:tapestry_long"
        elseif string.find(oldname, ":very_long") then
            newname = "castle:tapestry_very_long"
        end

        minetest.set_node(pos, { name = newname, param2 = param2 })
        local meta = minetest.get_meta(pos)
        meta:set_string("dye", "unifieddyes:"..color)
    end
})

-- ===================================================================

-- 220903 RJK: Add support for old castle tapestry types.

tapestry.ocolours = {
    { "white"      , "White"      , "white"      } ,
    { "grey"       , "Grey"       , "grey"       } ,
    { "black"      , "Black"      , "black"      } ,
    { "red"        , "Red"        , "red"        } ,
    { "yellow"     , "Yellow"     , "yellow"     } ,
    { "green"      , "Green"      , "green"      } ,
    { "cyan"       , "Cyan"       , "cyan"       } ,
    { "blue"       , "Blue"       , "blue"       } ,
    { "magenta"    , "Magenta"    , "magenta"    } ,
    { "orange"     , "Orange"     , "orange"     } ,
    { "violet"     , "Violet"     , "violet"     } ,
    { "dark_grey"  , "Dark Grey"  , "dark_grey"  } ,
    { "dark_green" , "Dark Green" , "dark_green" } ,
    { "pink"       , "Pink"       , "pink"       } ,
    { "brown"      , "Brown"      , "brown"      } ,
}

for _, row in ipairs (tapestry.ocolours) do
    local name = row[1]
    local desc = row[2]
    local craft_color_group = row[3]

    -- Node Definition
    ocutil.safe_register_node ("castle:tapestry_"..name, {
        drawtype = "nodebox",
        description = desc.." Tapestry",
        tiles = { "wool_"..name..".png" } ,

        groups = { oddly_breakable_by_hand=3,flammable=3,
not_in_creative_inventory=1 } ,

        sounds = default.node_sound_defaults(),
        paramtype = "light",
        paramtype2 = "facedir",
        node_box = {
            type = "fixed",
            fixed = {
                {-0.312500,-0.500000,0.437500,-0.187500,-0.375000,0.500000 } ,
                {0.187500,-0.500000,0.437500,0.312500,-0.375000,0.500000 } ,
                {-0.375000,-0.375000,0.437500,-0.125000,-0.250000,0.500000 } ,
                {0.125000,-0.375000,0.437500,0.375000,-0.250000,0.500000 } ,
                {-0.437500,-0.250000,0.437500,-0.062500,-0.125000,0.500000 } ,
                {0.062500,-0.250000,0.437500,0.437500,-0.125000,0.500000 } ,
                {-0.500000,-0.125000,0.437500,0.000000,0.000000,0.500000 } ,
                {0.000000,-0.125000,0.437500,0.500000,0.000000,0.500000 } ,
                {-0.500000,0.000000,0.437500,0.500000,1.500000,0.500000 } ,
             } ,
         } ,

        selection_box = {
            type = "fixed",
            fixed = {
                {-0.500000,-0.500000,0.437500,0.500000,1.500000,0.500000 } ,
             } ,
         } ,
    })
end

for _, row in ipairs (tapestry.ocolours) do
    local name = row[1]
    local desc = row[2]
    local craft_color_group = row[3]

    -- Node Definition
    ocutil.safe_register_node ("castle:long_tapestry_"..name, {
        drawtype = "nodebox",
        description = desc.." Tapestry (Long)",
        tiles = { "wool_"..name..".png" } ,

        groups = { oddly_breakable_by_hand=3,flammable=3,
not_in_creative_inventory=1 } ,

        sounds = default.node_sound_defaults(),
        paramtype = "light",
        paramtype2 = "facedir",
        node_box = {
            type = "fixed",
            fixed = {
                {-0.312500,-0.500000,0.437500,-0.187500,-0.375000,0.500000 } ,
                {0.187500,-0.500000,0.437500,0.312500,-0.375000,0.500000 } ,
                {-0.375000,-0.375000,0.437500,-0.125000,-0.250000,0.500000 } ,
                {0.125000,-0.375000,0.437500,0.375000,-0.250000,0.500000 } ,
                {-0.437500,-0.250000,0.437500,-0.062500,-0.125000,0.500000 } ,
                {0.062500,-0.250000,0.437500,0.437500,-0.125000,0.500000 } ,
                {-0.500000,-0.125000,0.437500,0.000000,0.000000,0.500000 } ,
                {0.000000,-0.125000,0.437500,0.500000,0.000000,0.500000 } ,
                {-0.500000,0.000000,0.437500,0.500000,2.500000,0.500000 } ,
             } ,
         } ,

        selection_box = {
            type = "fixed",
            fixed = {
                {-0.500000,-0.500000,0.437500,0.500000,2.500000,0.500000 } ,
             } ,
         } ,
    })
end

for _, row in ipairs (tapestry.ocolours) do
    local name = row[1]
    local desc = row[2]
    local craft_color_group = row[3]

    -- Node Definition
    ocutil.safe_register_node ("castle:very_long_tapestry_"..name, {
        drawtype = "nodebox",
        description = desc.." Tapestry (Very Long)",
        tiles = { "wool_"..name..".png" } ,

        groups = { oddly_breakable_by_hand=3,flammable=3,
not_in_creative_inventory=1 } ,

        sounds = default.node_sound_defaults(),
        paramtype = "light",
        paramtype2 = "facedir",
        node_box = {
            type = "fixed",
            fixed = {
                {-0.312500,-0.500000,0.437500,-0.187500,-0.375000,0.500000 } ,
                {0.187500,-0.500000,0.437500,0.312500,-0.375000,0.500000 } ,
                {-0.375000,-0.375000,0.437500,-0.125000,-0.250000,0.500000 } ,
                {0.125000,-0.375000,0.437500,0.375000,-0.250000,0.500000 } ,
                {-0.437500,-0.250000,0.437500,-0.062500,-0.125000,0.500000 } ,
                {0.062500,-0.250000,0.437500,0.437500,-0.125000,0.500000 } ,
                {-0.500000,-0.125000,0.437500,0.000000,0.000000,0.500000 } ,
                {0.000000,-0.125000,0.437500,0.500000,0.000000,0.500000 } ,
                {-0.500000,0.000000,0.437500,0.500000,3.500000,0.500000 } ,
             } ,
         } ,

        selection_box = {
            type = "fixed",
            fixed = {
                {-0.500000,-0.500000,0.437500,0.500000,3.500000,0.500000 } ,
             } ,
         } ,
    })
end

-- ===================================================================
-- End of file.