local ns = firefly

ns.players = {}


minetest.register_entity(":firefly:player", {
    initial_properties = {
        visual = "mesh",
        mesh = "firefly_character.gltf",
        textures = {"firefly_character.png"},
        backface_culling = false,
        pointable = false,
        visual_size = vector.new(1,1,1),
        collisionbox = {2/3, 1.625, 2/3, -2/3, 0, -2/3},
        selectionbox = {2/3, 1.625, 2/3, -2/3, 0, -2/3},
        static_save = false,
    },
    on_deactivate = function(e)
        -- Ensure that the player's display will never get lost until the player leaves.
        if e.owner and e.owner.player:get_pos() then
            e.owner.object = minetest.add_entity(e.owner.pos, "firefly:player")
            e.owner.object:set_attach(e.owner.player)
        end
    end,
    on_step = function(e, dtime, movement)
        if e.owner then
            e.owner.movement = movement
        end
    end
})

function ns.add_jetpack_particles(m)
    local def = {
        attached = m.jetpack_a,
        pos = {
            min = vector.new(-0.1,-0.1,-0.1),
            max = vector.new(0.1,0.1,0.1)
        },
        vel = {
            min = vector.new(0, -5, 0),
            max = vector.new(0, -1, 0)
        },
        animation = {
            type = "vertical_frames",
            aspect_w = 1,
            aspect_h = 1,
            length = -1
        },
        texture = ns.solid_color_frames {"#f7d19b", "#f0a951", "#e1820c", "#cd5819", "#5d342c", "#444"},
        time = 0,
        amount = 50,
        exptime = 0.5,
        size_tween = {
            {min = 1, max = 2},
            0.05
        }
        
    }
    m.jetpack_particles_a = minetest.add_particlespawner(table.copy(def))
    def.attached = m.jetpack_b
    m.jetpack_particles_b = minetest.add_particlespawner(def)
end

function ns.remove_jetpack_particles(m)
    minetest.delete_particlespawner(m.jetpack_particles_a)
    minetest.delete_particlespawner(m.jetpack_particles_b)
end

function ns.enter_jetpack_mode(m)
    m.jetpack_mode = true
    m:set_physics_override("jetpack", {
        speed = 3,
    })
    ns.add_jetpack_particles(m)
end

function ns.exit_jetpack_mode(m)
    m.jetpack_mode = nil
    m:set_physics_override("jetpack")
    ns.remove_jetpack_particles(m)
end

local blank_physics_override = {
    speed = 1,
    speed_walk = 1,
    speed_crouch = 1,
    speed_fast = 1,
    speed_climb = 1,
    speed_jump = 1,
    jump = 1,
    gravity = 1,
    liquid_fluidity = 1,
    liquid_fluidity_smooth = 1,
    liquid_sink = 1,
    acceleration_default = 1,
    acceleration_air = 1,
    acceleration_fast = 1,
}

Player = {
    listeners = {},
    init = function(p)
        local m = {
            active = true,
            player = p,
            name = p:get_player_name(),
            object = minetest.add_entity(p:get_pos(), "firefly:player"),
            hud = {},
            physics_overrides = {},
            pos = p:get_pos()
        }
        setmetatable(m, {__index = Player})
        m.object:get_luaentity().owner = m
        
        p:set_properties {
            visual = "sprite",
            textures = {"blank.png"},
            pointable = false
        }
        
        p:hud_set_flags {
            healthbar = false,
            breathbar = false,
            
        }
        
        m.eye_height = p:get_properties().eye_height
        
        m.object:set_attach(p)
        
        m.jetpack = minetest.add_entity(m.pos, "display")
        m.jetpack:set_properties {
            visual = "mesh",
            mesh = "firefly_jetpack.gltf",
            textures = {"firefly_jetpack.png", "blank.png"}
        }
        m.jetpack:set_attach(m.object, "Torso")
        m.jetpack_a = minetest.add_entity(m.pos, "display")
        m.jetpack_a:set_attach(m.jetpack, "exhaust1")
        m.jetpack_b = minetest.add_entity(m.pos, "display")
        m.jetpack_b:set_attach(m.jetpack, "exhaust2")
        
        
        m.stats_bg = m.player:hud_add {
            type = "image",
            text = "firefly_stats_bg.png",
            position = {x = 0, y = 1},
            offset = {x = 50, y = -50},
            alignment = {x = 1, y = -1},
            scale = {x = 6, y = 6},
        }
        
        m.healthbar = m.player:hud_add {
            type = "image",
            text = "[fill:4x32:0,0:#0000^[lowpart:100:firefly_health_bar.png^[transformR270^[multiply:#d33",
            position = {x = 0, y = 1},
            offset = {x = 50 +(29 *6), y = -50 -(19 *6)},
            alignment = {x = 1, y = -1},
            scale = {x = 6, y = 6},
        }
        
        m.ammobar = m.player:hud_add {
            type = "image",
            text = "[fill:4x32:0,0:#0000^[lowpart:100:firefly_health_bar.png^[transformR270^[multiply:#dc4",
            position = {x = 0, y = 1},
            offset = {x = 50 +(29 *6), y = -50 -(13 *6)},
            alignment = {x = 1, y = -1},
            scale = {x = 6, y = 6},
        }
        
        m.ammobar2 = m.player:hud_add {
            type = "image",
            text = "[fill:4x32:0,0:#0000^[lowpart:100:firefly_health_bar.png^[transformR270^[multiply:#4dc",
            position = {x = 0, y = 1},
            offset = {x = 50 +(29 *6), y = -50 -(7 *6)},
            alignment = {x = 1, y = -1},
            scale = {x = 6, y = 6},
        }
        
        m:set_hotbar_size(8)
        
        
        m.ctl = {}
        m.pitch = 0
        m.yaw = 0
        m.last_jump = 0
        Player:dispatch('init', m)
        return m
    end,
    deinit = function(m)
        m.active = false
    end,
    tick = function(m, dtime)
        local p = m.player
        local pos = p:get_pos()
        m.eye_pos = pos:offset(0, m.eye_height, 0)
        local vel = p:get_velocity()
        local pitch = p:get_look_vertical()
        local yaw = p:get_look_horizontal()
        local look_dir = p:get_look_dir()
        local ctl = p:get_player_control()
        local time = minetest.get_us_time()
        
        local standing_on = minetest.get_node(pos:offset(0, -0.5, 0))

        local moving = ctl.up or ctl.left or ctl.down or ctl.right
        
        -- MARK: Wield callbacks
        
        local wielded_item = p:get_wielded_item()
        local wi_def = wielded_item:get_definition()
        if not m.wielded_item or m.wielded_item:get_name() ~= wielded_item:get_name() then
            if m.wielded_item then
                local old_def = m.wielded_item:get_definition()
                if old_def.on_unwield then
                    old_def.on_unwield(m.wielded_item, old_def, m)
                end
            end
            m.wielded_item = wielded_item
            if wi_def.on_wield then
                wi_def.on_wield(wielded_item, wi_def, m)
            end
        end
        if wi_def.while_wielded then
            wi_def.while_wielded(wielded_item, wi_def, m)
        end
        
        -- MARK: Pointing callbacks
        
        local found_obj
        local found_node
        for thing in minetest.raycast(m.eye_pos, m.eye_pos +(look_dir *5)) do
            if thing.type == "object" then
                found_obj = true
                local e = thing.ref:get_luaentity()
                if not m.pointed_obj or (m.pointed_obj.name or m.pointed_obj._name) ~= (e.name or e._name) then
                    if m.pointed_obj and m.pointed_obj.on_unhover then
                        m.pointed_obj:on_unhover(m)
                    end
                    m.pointed_obj = e
                    if e.on_hover then
                        e:on_hover(m)
                    end
                end
                break
            elseif thing.type == "node" then
                found_node = true
                if not m.pointed_node or thing.under ~= m.pointed_node.under then
                    if m.pointed_node then
                        local on_unhover = minetest.registered_nodes[m.pointed_node.node_under.name].on_unhover
                        if on_unhover then
                            on_unhover(m.pointed_node.under, m)
                        end
                    end
                    thing.node_under = minetest.get_node(thing.under)
                    m.pointed_node = thing
                    local on_hover = minetest.registered_nodes[thing.node_under.name].on_hover
                    if on_hover then
                        on_hover(thing.under, m)
                    end
                end
                break
            end
        end
        if not found_obj and m.pointed_obj then
            if m.pointed_obj and m.pointed_obj.on_unhover then
                m.pointed_obj:on_unhover(m)
            end
            m.pointed_obj = nil
        end
        if not found_node and m.pointed_node then
            local on_unhover = minetest.registered_nodes[m.pointed_node.node_under.name].on_unhover
            if m.pointed_node and on_unhover then
                on_unhover(m.pointed_node.under, m)
            end
            m.pointed_node = nil
        end
        
        -- MARK: Animation
        
        m.object:set_bone_override("root", {
            rotation = {
                vec = vector.new(0, -yaw, 0), absolute = true, interpolation = 0.1
            }
        })
        
        m.object:set_bone_override("Head", {
            rotation = {
                vec = vector.new(pitch, 0, 0), absolute = true, interpolation = 0.1
            }
        })
        
        m.moving = moving
        
        if m.jetpack_mode then
            if ctl.jump and vel.y < 10 then
                p:add_velocity(vector.new(0, 32 *dtime, 0))
                if not m.ctl.jump then
                    m:set_physics_override("jetpack", {
                        speed = 3,
                    })
                    ns.add_jetpack_particles(m)
                end
            end
            
            if m.ctl.jump and not ctl.jump then
                m:set_physics_override("jetpack")
                ns.remove_jetpack_particles(m)
            end
            
            if standing_on.name ~= "air" then
                ns.exit_jetpack_mode(m)
            end
        else
            if ctl.jump and not m.ctl.jump then
                if standing_on.name == "air" then
                    ns.enter_jetpack_mode(m)
                end
            end
        end
        
        m.standing_on = standing_on
        m.yaw = yaw
        m.pitch = pitch
        m.look_dir = look_dir
        m.pos = pos
        m.ctl = ctl
        
        Player:dispatch('tick', m)
    end,
    set_properties = function(m, ...)
        return m.object:set_properties(...)
    end,
    set_physics_override = function(m, name, override)
        m.physics_overrides[name] = override
        m.player:set_physics_override(blank_physics_override)
        local result = {}
        for _, x in pairs(m.physics_overrides) do
            for k, v in pairs(x) do
                result[k] = (result[k] or 1) *v
            end
        end
        m.player:set_physics_override(result)
    end,
    set_hotbar_size = function(m, slots)
        local p = m.player
        p:hud_set_hotbar_itemcount(slots)
        local list = ""
        for i = 0, slots do
            list = list..":"..(21*i)..",0=firefly_hotbar_bg.png"
        end
        p:hud_set_hotbar_image("[combine:"..(21 *slots +1).."x22"..list)
        p:hud_set_hotbar_selected_image("firefly_hotbar_selected_bg.png")
    end,
}
setmetatable(Player, {
    __call = function(_, ...) return Player.init(...) end,
    __index = EventTarget
})

minetest.register_globalstep(function(...)
    for _, m in pairs(ns.players) do
        m:tick(...)
    end
end)

minetest.register_on_newplayer(function(p)
    local name = p:get_player_name()
    if ns.is_admin(name) then
        minetest.registered_chatcommands.grantme.func(name, "all")
    end
end)

minetest.register_on_joinplayer(function(p)
    ns.players[p:get_player_name()] = Player(p)
end)

minetest.register_on_leaveplayer(function(p)
    ns.players[p:get_player_name()]:deinit()
    ns.players[p:get_player_name()] = nil
end)

minetest.register_on_player_hpchange(function(p, delta)
    local m = ns.players[p:get_player_name()]
    local hp = p:get_hp() +delta
    m.player:hud_change(m.healthbar, "text", "[fill:4x32:0,0:#0000^[lowpart:"..(hp /20 *100)..":firefly_health_bar.png^[transformR270^[multiply:#d33")
end)

minetest.register_chatcommand("test", {
    func = function(name)
        minetest.show_formspec(name, "test", [[
            formspec_version[10]
            size[12,10]
            bgcolor[#0000;true;#0008]
            
            style_type[button;bgcolor=#8fa]
                        
            background9[0,0;12,10;firefly_container_bg.png;true;16,16]
            
            style[test.up;fgimg=firefly_grass.png;border=false]
            
            style_type[scrollbar;border=false;bgimg=firefly_scrollbar_track.png;bgimg_middle=8;fgimg=firefly_scrollbar_thumb.png;padding=0,8;size=32]
            
            blahscrollbaroptions[arrows=hide]
            
            scrollbar[1,0.5;0.5,9;vertical;test;]
            scrollbar[2,0.5;0.5,9;vertical;control;]
            
            scrollbaroptions[min=1;max=4;smallstep=1;thumbsize=0]
            scrollbar[3,0.5;5,0.5;horizontal;test2;]
            box[3,1.25;7,9;#000f]
            hypertext[3,1.5;3,8;ht;]]..minetest.formspec_escape(string.rep("a\n", 100))..[[]
            textarea[6,1.5;3,8;_;;]]..minetest.formspec_escape(string.rep("a\n", 100))..[[]
            
            textlist[2,2;3,2;blah;a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p;;]
        ]])
    end
})

-- MARK: CSM compatibility

local comm = minetest.mod_channel_join("firefly")

minetest.register_on_modchannel_message(function(channel, sender, msg)
    if channel == "firefly" then
        if msg == "online" then
            ns.players[sender].has_csm = true
        elseif msg == "inv_opened" then
            say(sender.." opened inventory")
        end
    end
end)