disable-source.lua

obs           = obslua
gs            = nil
hide_delay    = 100
hide_sources = {}

function script_properties()
    local props = obs.obs_properties_create()
    obs.obs_properties_add_editable_list(props, "sources", "Scenes and Groups",obs.OBS_EDITABLE_LIST_TYPE_STRINGS,nil,nil)
    obs.obs_properties_add_int(props, "hide_delay", "Hide delay (ms)", 0, 10000, 1000)
	return props
end

function script_description()
	return "hide sources visible in a scene"
end

function item_visible(calldata)
    local item = obs.calldata_sceneitem(calldata,"item")
    local scene = obs.obs_sceneitem_get_scene(item)
    local sceneitems = obs.obs_scene_enum_items(scene)
    local found = false
    for i, sceneitem in ipairs(sceneitems) do
        if obs.obs_sceneitem_visible(sceneitem) then
            if hide_delay > 0 then
                table.insert(hide_sources,{sceneitem,hide_delay})
            else
                obs.obs_sceneitem_set_visible(sceneitem, false)
            end
        end
    end
    obs.sceneitem_list_release(sceneitems)
end

function script_update(settings)
    hide_delay = obs.obs_data_get_int(settings,"hide_delay")
    local sourceNames =  obs.obs_data_get_array(settings, "sources");
    local count = obs.obs_data_array_count(sourceNames);
    for i = 0,count do 
        local item = obs.obs_data_array_item(sourceNames, i);
        local sourceName = obs.obs_data_get_string(item, "value");
        local source = obs.obs_get_source_by_name(sourceName)
        if source ~= nil then
            local sh = obs.obs_source_get_signal_handler(source);
            obs.signal_handler_disconnect(sh,"item_visible",item_visible)
            obs.signal_handler_connect(sh,"item_visible",item_visible)
            obs.obs_source_release(source)
        end
    end
end

function script_defaults(settings)

end

function script_save(settings)

end

function loaded(cd)
    if gs == nil then
        return
    end
    local source = obs.calldata_source(cd, "source")
    local sn = obs.obs_source_get_name(source)

    local sourceNames =  obs.obs_data_get_array(gs, "sources");
    local count = obs.obs_data_array_count(sourceNames);
    for i = 0,count do 
        local item = obs.obs_data_array_item(sourceNames, i);
        local sourceName = obs.obs_data_get_string(item, "value");
        if sn == sourceName then
            local sh = obs.obs_source_get_signal_handler(source);
            obs.signal_handler_disconnect(sh,"item_visible",item_visible)
            obs.signal_handler_connect(sh,"item_visible",item_visible)
        end
    end
    obs.obs_data_array_release(sourceNames)

end

function script_load(settings)
    gs = settings
    hide_delay = obs.obs_data_get_int(settings,"hide_delay") 
    local sh = obs.obs_get_signal_handler()
    obs.signal_handler_connect(sh, "source_load", loaded)
end

function script_unload()

end


function script_tick(seconds)
    local i=1
    while i <= #hide_sources do
        --obs.script_log(obs.LOG_WARNING, hide_sources[i][2])
        hide_sources[i][2] = hide_sources[i][2] - seconds * 1000
        if hide_sources[i][2] <= 0 then
            obs.obs_sceneitem_set_visible(hide_sources[i][1], false)
            table.remove(hide_sources, i)
        else
            i = i + 1
        end
    end
end