Beggar State

funtion Mod:onRender()
    for _, entity in pairs(Isaac.GetRoomEntities()) do
        if entity.Type == EntityType.ENTITY_SLOT and entity.Variant == 6 then -- 6 = shell game variant
            Isaac.RenderText(“Shell State: “ .. tostring(entity:ToNPC().State), 100, 50, 1,1,1,1)
        end
    end
end

Mod:AddCallback(ModCallbacks.MC_POST_RENDER, Mod.onRender)