cycle-profiles random

[mrfragger]

Rhese are color preset profiles for subtitles. Instead of just cycling through profiles you can add random to shuffle it. It makes sure not to show a repeat until it cycles through all of them. Also using os.clock ensures that it's truly random each time. Limit seems to be 98 items....not sure why. Use another lua script to randomly shuffle through all 569 LUTs.

F6 script-message cycle-profiles '260a' '260b' '261a' '261b' '262a' '262b' '263a' '263b' '264a' '264b' '265a' '265b' '266a' '266b' '267a' '267b' '268a' '268b' '269a' '269b' #! [Subtitle Colors] > [200a-269b presets] > Embossed [260-269b]
F7 script-message cycle-profiles random '211a' '214a' '218a' '222b' '227a' '229b' '237b' '246a' '248a' '257a' '259a' '260b' '267b' #! [Subtitle Colors] > [200a-269b presets] > Favorites 3

Ctrl+Alt+z script-message cycle-profiles random '00a' '00b' '01a' '01b' '02a' '02b' '03a' '03b' '04a' '04b' '05a' '05b' '06a' '06b' '07a' '07b' '08a' '08b' '09a' '09b' '10a' '10b' '11a' '11b' '12a' '12b' '13a' '13b' '14a' '14b' '15a' '15b' '16a' '16b' '17a' '17b' '18a' '18b' '19a' '19b' '20a' '20b' '21a' '21b' '22a' '22b' '23a' '23b' '24a' '24b' '25a' '25b' '26a' '26b' '27a' '27b' '28a' '28b' '29a' '29b' '30a' '30b' '31a' '31b' '32a' '32b' '33a' '33b' '34a' '34b' '35a' '35b' '36a' '36b' '37a' '37b' '38a' '38b' '39a' '39b' '40a' '40b' '41a' '41b' '42a' '42b' '43a' '43b' '44a' '44b' '45a' '45b' '46a' '46b' '47a' '47b' '48a' '48b' #! [Subtitle Colors] > [Random presets] > Random [00a-48b]

Also here is an example of cyclying LUTs
Alt+Meta+5 script-message cycle-profiles random 'pixlsus amstragram' 'pixlsus amstragram+' 'pixlsus autumn' 'pixlsus cinematic lady bird' 'pixlsus cinematic mexico' 'pixlsus dark blues in sunlight' 'pixlsus delicatessen' 'pixlsus expired 69' 'pixlsus faded print' 'pixlsus fadedlook' 'pixlsus hypressen' 'pixlsus magenta yellow' 'pixlsus metropolis' 'pixlsus modern film' 'pixlsus newspaper' 'pixlsus night spy' 'LUT NONE' #! [Video/Image] > [LUTs 3] > Pixlsus 1
Alt+Meta+6 script-message cycle-profiles random 'pixlsus progressen' 'pixlsus prussian blue' 'pixlsus seventies magazine' 'pixlsus street' 'pixlsus sweet bubblegum' 'pixlsus sweet gelatto' 'pixlsus taiga' 'pixlsus tarraco' 'pixlsus unknown' 'pixlsus uzbek bukhara' 'pixlsus uzbek marriage' 'pixlsus uzbek samarcande' 'pixlsus velvetia' 'pixlsus warm vintage' 'pixlsus whiter whites' 'LUT NONE' #! [Video/Image] > [LUTs 3] > Pixlsus 2

[mrfragger]

cycle-profile.lua modified to cycle profiles like normal (1st example) or randomly (2nd example)

Alt+Meta+5 script-message cycle-profiles 'pixlsus amstragram' 'pixlsus amstragram+' 'pixlsus autumn'

Alt+Meta+5 script-message cycle-profiles random 'pixlsus amstragram' 'pixlsus amstragram+' 'pixlsus autumn'

local o = {
    osd = true,
    prefer_description = true,
    osd_format_string = '%s',
    osd_empty_string = 'LUT none'
}

-- Seed the random number generator with a high-precision timestamp
math.randomseed(os.clock())

local mp = require 'mp'
local msg = require 'mp.msg'
local opts = require 'mp.options'

opts.read_options(o, 'cycle_profiles')

local profile_map = {}
local iterators = {}
local current_profiles = {}  -- Track current profile for each key

-- Fisher-Yates shuffle algorithm
local function shuffle(t)
    local n = #t
    for i = n - 1, 1, -1 do
        local j = math.random(i + 1)
        t[i], t[j] = t[j], t[i]
    end
    return t
end

local function setup_profile_list()
    local profile_list = mp.get_property_native('profile-list', {})

    for _, profile in ipairs(profile_list) do
        profile_map[profile.name] = profile
    end
end

local function main(osd, ...)
    local args = {...}
    local key = table.concat(args, ';')
    local is_random = false

    -- Check for 'random' flag
    if args[1] == 'random' then
        is_random = true
        table.remove(args, 1)
    end

    -- Debug output to verify args
    msg.verbose('Processing profiles:', table.concat(args, ', '))

    if is_random then
        -- Shuffle the profiles
        shuffle(args)
        local current_profile = current_profiles[key] or nil

        -- Filter out the current profile to avoid immediate repetition
        local filtered = {}
        for _, profile in ipairs(args) do
            if profile ~= current_profile then
                table.insert(filtered, profile)
            end
        end

        -- If all are same as current, allow wrapping
        if #filtered == 0 then
            filtered = args
        end

        -- Select a random profile from filtered list
        local new_profile = filtered[math.random(#filtered)]
        local prev_profile = current_profile or args[1]

        -- Restore previous profile if needed
        if prev_profile ~= '' and profile_map[prev_profile] and profile_map[prev_profile]['profile-restore'] then
            msg.info('restoring profile', prev_profile)
            mp.commandv('apply-profile', prev_profile, 'restore')
        end

        -- Apply new profile
        if new_profile ~= '' then
            msg.info('applying profile', new_profile)
            mp.commandv('apply-profile', new_profile)
            current_profiles[key] = new_profile
        end

        -- Handle OSD
        if new_profile == '' then
            if osd then mp.osd_message(o.osd_empty_string) end
        else
            local desc = o.prefer_description and profile_map[new_profile]['profile-desc'] or new_profile
            if osd then mp.osd_message(o.osd_format_string:format(desc)) end
        end
    else
        -- Normal cycling logic
        local profiles = args
        local prev_iterator = iterators[key]

        if iterators[key] == nil then
            msg.debug('unknown cycle, creating iterator')
            iterators[key] = 1
        else
            iterators[key] = iterators[key] + 1
            if iterators[key] > #profiles then iterators[key] = 1 end
        end

        local prev_profile = profiles[prev_iterator]
        local new_profile = profiles[iterators[key]]

        -- Restore previous profile if needed
        if prev_iterator and profile_map[prev_profile] and profile_map[prev_profile]['profile-restore'] then
            msg.info('restoring profile', prev_profile)
            mp.commandv('apply-profile', prev_profile, 'restore')
        end

        -- Abort if new profile is empty
        if new_profile == '' then
            if osd then mp.osd_message(o.osd_empty_string) end
            return
        end

        -- Abort if new profile is unknown
        if not profile_map[new_profile] then
            msg.error('tried to enable unknown profile "'..new_profile..'"')
            mp.osd_message('unknown profile: '..new_profile)
            return
        end

        -- Apply new profile
        msg.info('applying profile', new_profile)
        mp.commandv('apply-profile', new_profile)
        current_profiles[key] = new_profile

        -- Handle OSD
        local desc = o.prefer_description and profile_map[new_profile]['profile-desc'] or new_profile
        if osd then mp.osd_message(o.osd_format_string:format(desc)) end
    end
end

setup_profile_list()
mp.register_script_message('cycle-profiles', function(...) main(o.osd, ...) end)
mp.register_script_message('cycle-profiles/osd', function(...) main(true, ...) end)
mp.register_script_message('cycle-profiles/no_osd', function(...) main(false, ...) end)