local minetest = core

local game = (function()
    if minetest.get_modpath("rgt_player") or minetest.get_modpath("artifact_player") then
        return "rgt"
    else
        return "mtg"
    end
end)()

local disguises = {}

local function box_to_points(box)
    return vector.sort(vector.new(box[1], box[2], box[3]), vector.new(box[4], box[5], box[6]))
end

local function get_disguise_transform(props, base_scale)
    local min, max = box_to_points(props.selectionbox)
    if max.x -min.x < 0.02 then
        print(max.x -min.x)
        min, max = box_to_points(props.collisionbox)
        if max.x -min.x < 0.02 then
            min = vector.new(-0.5, -0.5, -0.5)
            max = vector.new(0.5, 0.5, 0.5)
        end
    end
    max = max *8
    min = min *8
    local scale = base_scale *math.min((max.x -min.x) /6, (max.y -min.y) /6)
    return vector.new(min.x +(max.x -min.x) /2, max.y *base_scale.y -(1 *scale.y), max.z *base_scale.z +(1 *scale.z)), scale
end

local add_entity = minetest.add_entity

minetest.register_entity(":disguises:disguise", {
    initial_properties = {
        visual = "mesh",
        mesh = "disguises.gltf",
        textures = {"disguises.png"},
        pointable = false,
        static_save = false
    },
    on_activate = function(e, data)
        
    end,
    get_staticdata = function(e)
        return minetest.serialize{player = e.player}
    end,
    on_deactivate = function(e, force)
        if e.player and not force then
            local player = e.player
            minetest.after(0, function()
                local p = minetest.get_player_by_name(player)
                if p then
                    local disguise = add_entity(p:get_pos(), "disguises:disguise")
                    disguise:get_luaentity():attach_to(p)
                    disguises[p:get_player_name()] = disguise
                end
            end)
        end
    end,
    attach_to = function(e, obj)
        if not obj then return e.object:remove() end
        e.obj = obj
        if minetest.is_player(obj) then
            e.player = obj:get_player_name()
            if game == "rgt" or game == "mtg" then
                e.object:set_attach(obj, "Head", vector.new(0, 1, -2.25), vector.new(0, 180, 0))
            else
                e:attach_to_obj(obj)
            end
        else
            e:attach_to_obj(obj)
        end
    end,
    attach_to_obj = function(e, obj)
        local le = obj:get_luaentity()
        local props = obj:get_properties()
        local size = props.visual_size:apply(function(a) return a == 0 and a or 1 /a end)
        local pos, scale = get_disguise_transform(props, size)
        e.object:set_properties {
            visual_size = scale
        }
        if not le then return end
        local on_deactivate = le.on_deactivate
        le.on_deactivate = function(...)
            e.object:remove()
            if on_deactivate then on_deactivate(...) end
        end
        e.object:set_attach(obj, nil, pos)
    end
})

minetest.add_entity = function(pos, name, data)
    local out = add_entity(pos, name, data)
    local disguise = add_entity(pos, "disguises:disguise")
    disguise:get_luaentity():attach_to(out)
    return out
end

minetest.register_on_joinplayer(function(p)
    minetest.after(0, function()
        local disguise = add_entity(p:get_pos(), "disguises:disguise")
        disguise:get_luaentity():attach_to(p)
        disguises[p:get_player_name()] = disguise
    end)
end)

minetest.register_on_leaveplayer(function(p)
    disguises[p:get_player_name()]:remove()
    disguises[p:get_player_name()] = nil
end)

minetest.register_on_mods_loaded(function()
    for name, def in pairs(minetest.registered_entities) do
        if name ~= "disguises:disguise" then
            local on_activate = def.on_activate
            def.on_activate = function(e, ...)
                if on_activate then on_activate(e, ...) end
                minetest.after(0, function()
                    local disguise = add_entity(e.object:get_pos() or vector.zero(), "disguises:disguise")
                    disguise:get_luaentity():attach_to(e.object)
                end)
            end
        end
    end
end)