noita_entangled_worlds/quant.ew/files/system/player_sync.lua

local ctx = dofile_once("mods/quant.ew/files/core/ctx.lua")
local net = dofile_once("mods/quant.ew/files/core/net.lua")
local player_fns = dofile_once("mods/quant.ew/files/core/player_fns.lua")

local rpc = net.new_rpc_namespace()

local module = {}

function rpc.send_money_and_ingestion(money, ingestion_size)
    local entity = ctx.rpc_player_data.entity
    local wallet = EntityGetFirstComponentIncludingDisabled(entity, "WalletComponent")
    if wallet ~= nil then
        ComponentSetValue2(wallet, "money", money)
    end
    local ingestion = EntityGetFirstComponentIncludingDisabled(entity, "IngestionComponent")
    if ingestion ~= nil then
        ComponentSetValue2(ingestion, "ingestion_size", ingestion_size)
    end
end

local wait_on_send = 0

function rpc.request_items(peer_id)
    if ctx.my_id == peer_id
                and wait_on_send < GameGetFrameNum() then
        wait_on_send = GameGetFrameNum() + 240
        inventory_helper.has_inventory_changed(ctx.my_player)
        local inventory_state = player_fns.serialize_items(ctx.my_player)
        if inventory_state ~= nil then
            net.send_player_inventory(inventory_state)
        end
    end
end

local wait_on_requst = {}

function rpc.player_update(input_data, pos_data, phys_info, current_slot, team)
    local peer_id = ctx.rpc_peer_id

    if not player_fns.peer_has_player(peer_id) then
        player_fns.spawn_player_for(peer_id, pos_data.x, pos_data.y, team)
    end
    local player_data = player_fns.peer_get_player_data(peer_id)

    if team ~= nil and not GameHasFlagRun("ending_game_completed") and not EntityHasTag(player_data.entity, "polymorphed") and ctx.proxy_opt.friendly_fire_team ~= nil then
        local my_team = ctx.proxy_opt.friendly_fire_team - 1
        if my_team ~= -1 and team ~= -1 and (team == 0 or my_team == 0 or team ~= my_team) then
            GenomeSetHerdId(player_data.entity, "player_pvp")
        else
            GenomeSetHerdId(player_data.entity, "player")
        end
    end


    if input_data ~= nil then
        player_fns.deserialize_inputs(input_data, player_data)
    end
    if pos_data ~= nil then
        player_fns.deserialize_position(pos_data, phys_info, player_data)
    end
    if current_slot ~= nil then
        if not player_fns.set_current_slot(current_slot, player_data)
                and (wait_on_requst[player_data.peer_id] == nil or wait_on_requst[player_data.peer_id] < GameGetFrameNum()) then
            print("slot empty, requesting items")
            wait_on_requst[player_data.peer_id] = GameGetFrameNum() + 300
            rpc.request_items(player_data.peer_id)
        end
    end
end

function rpc.check_gamemode(gamemode)
    local mn = np.GetGameModeNr()
    local gm = np.GetGameModeName(mn)
    local not_fine = gamemode ~= gm

    if gm == "save_slots_enabler" or gamemode == "save_slots_enabler" then
        not_fine = not (gm == "" or gamemode == "")
        return
    end
    if not_fine then
        GamePrint("Player: " .. ctx.rpc_player_data.name .. ", is on a different gamemode number then you")
        GamePrint("his game mode: ".. gamemode)
        GamePrint("your game mode: ".. gm)
    end
end

function module.on_world_update()
    local input_data = player_fns.serialize_inputs(ctx.my_player)
    local pos_data, phys_info =  player_fns.serialize_position(ctx.my_player)
    local current_slot = player_fns.get_current_slot(ctx.my_player)
    if input_data ~= nil or pos_data ~= nil then
        local my_team
        if ctx.proxy_opt.friendly_fire and GameGetFrameNum() % 60 == 43 and ctx.proxy_opt.friendly_fire_team ~= nil then
            my_team = ctx.proxy_opt.friendly_fire_team - 1
        end

        rpc.player_update(input_data, pos_data, phys_info, current_slot, my_team)
        if GameGetFrameNum() % 120 == 0 then
            local n = np.GetGameModeNr()
            rpc.check_gamemode(np.GetGameModeName(n))
        end
    end

    if GameGetFrameNum() % 16 == 7 then
        local mx, my = GameGetCameraPos()
        for peer_id, player in pairs(ctx.players) do
            local ent = player.entity
            local children = EntityGetAllChildren(ent) or {}
            if ctx.my_id ~= peer_id then
                for _, child in ipairs(children) do
                    if EntityGetName(child) == "cursor" and ctx.proxy_opt.hide_cursors == true then
                        EntitySetComponentIsEnabled(child, EntityGetFirstComponent(child, "SpriteComponent"), false)
                    else
                        EntitySetComponentIsEnabled(child,
                            EntityGetFirstComponentIncludingDisabled(child, "SpriteComponent"), true)
                    end
                    if EntityGetName(child) == "notcursor" then
                        EntitySetComponentIsEnabled(child, EntityGetFirstComponentIncludingDisabled(child, "SpriteComponent"), true)
                    end
                end
            end
            local x, y = EntityGetTransform(ent)
            local notplayer = EntityHasTag(ent, "ew_notplayer")
                    and not ctx.proxy_opt.perma_death
            if notplayer and GameHasFlagRun("ending_game_completed") then
                goto continue
            end
            if x == nil or not EntityGetIsAlive(ent) or (not notplayer and EntityHasTag(ent, "polymorphed")) then
                goto continue
            end
            local dx, dy = x - mx, y - my
            local cape
            for _, child in ipairs(children) do
                if EntityGetName(child) == "cape" then
                    local cpe = EntityGetFirstComponentIncludingDisabled(child, "VerletPhysicsComponent")
                    local cx, cy = ComponentGetValue2(cpe, "m_position_previous")
                    local dcx, dcy = mx - cx, my - cy
                    if dcx * dcx + dcy * dcy > 350 * 350 then
                        EntityKill(child)
                    else
                        cape = child
                    end
                    break
                end
            end
            local light = EntityGetFirstComponentIncludingDisabled(ent, "LightComponent")
            if dx * dx + dy * dy > 350 * 350 then
                if cape ~= nil  then
                    EntityKill(cape)
                end
                if light ~= nil then
                    EntitySetComponentIsEnabled(ent, light, false)
                end
            else
                if light ~= nil then
                    EntitySetComponentIsEnabled(ent, light, true)
                end
                if cape == nil then
                    local player_cape_sprite_file
                    if notplayer then
                        player_cape_sprite_file = "mods/quant.ew/files/system/local_health/notplayer/notplayer_cape.xml"
                    else
                        player_cape_sprite_file = "mods/quant.ew/files/system/player/tmp/" .. peer_id .. "_cape.xml"
                    end
                    local cape2 = EntityLoad(player_cape_sprite_file, x, y)
                    EntityAddChild(ent, cape2)

                end
            end
            ::continue::
        end
    end

    if GameGetFrameNum() % 60 == 47 then
        local wallet = EntityGetFirstComponentIncludingDisabled(ctx.my_player.entity, "WalletComponent")
        local ingestion = EntityGetFirstComponentIncludingDisabled(ctx.my_player.entity, "IngestionComponent")
        if wallet ~= nil or ingestion ~= nil then
            rpc.send_money_and_ingestion(wallet and ComponentGetValue2(wallet, "money"),
                    ingestion and ComponentGetValue2(ingestion, "ingestion_size"))
        end
    end
end

return module