Скрипты PAL для Sam Broadcaster (Страница 16 из 21)

Добрый день. Ребят, перечитал всю ветку, но не увидел нужного мне вопроса.. Подскажи pal или может как -то в настройках замутить что-бы заказанная песня на веб морде добавлялась не в конец списка, а в начало. Благодарю заранее.

пишет Render:

Может подскажет кто, как реализовать подобное для Sound FX?
Перед проигрыванием Sound FX - убавление громкости играющей деки, после проигранного Sound FX, возвращение громкости обратно. Пытался вставить из этого примера, работает только изначальное снижение громкости, но как только запускается наложение Sound FX (код ниже), то громкость резко возвращается на исходную,
То есть по сути, не выходит нормально сделать тайм ожидания, для возвращения громкости.
Исходное

var Song : TSongInfo;
var P : TPlayer;
PAL.Loop := True; 
PAL.WaitForTime('+00:05:00');
P := SoundFX;
if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;

То, что пытался сляпать (ибо не варю пока в pal)

var Song : TSongInfo;
var P : TPlayer;
var i : integer;
PAL.Loop := True; 
i := ActivePlayer.GetVolume;
PAL.WaitForTime('+00:05:00'); 
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 160;
P := SoundFX;
if P <> nil then
begin
Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
PAL.WaitForTime('+00:00:10');
ActivePlayer.Volume := i - 160;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;
P.QueueSong(Song);
P.Play;
end;
end;

Как и куда только не вставлял PAL.WaitForTime с возвратом громкости, но результата не удалось получить. Как только стартует наложение Sound FX, громкость просто резко возвращается.
Помогите подправить в работоспособный вариант... (может уже было решение где-то этой проблемы, не удалось найти)

___________________________________________

Render: вот, что мне удалось
я немного изменил скрипт и использую для включения Scheduler (Планировщик) любое время запуска или день недели и так далее...

var Song : TSongInfo;
var P : TPlayer;
var i : integer;

i := ActivePlayer.GetVolume;

ActivePlayer.Volume := 227; // приглушаем уровень громкости играющего трека
ActivePlayer.Volume := 199;
P := Aux1; // через что играть
if P <> nil then
begin
Song := Cat['radio-jingle'].ChooseSong(1,NoRules);
if Song <> nil then
begin
Aux1.QueueSong(Song);
Aux1.Play;
End;
End;
PAL.WaitForTime('+00:00:05'); // время ожидания к возрату увеличения громкости
ActivePlayer.Volume := 227;
ActivePlayer.Volume := 255;

время ожидания меняем на нужную длину вашего джингла
возможно кому то пригодится, удачи!

Отредактировано wisher (28-06-2023 12:06:33)

Всем привет. Подскажите пожалуйста, никак не могу скрипт допилить.
Задумка такая: одна из дэк фейдится в паузу или стоп при наступлении 20:00 и в Aux1 играет заготовка. А когда трек в Aux1 кончается нужно чтоб в любой из дэк начала играть музыка из Queue.

var Song : TSongInfo;
var P : TPlayer;
P := Aux1;
PAL.WaitForTime('20:00:00');
ActivePlayer.FadeToPause;
if P <> nil then
begin
  Song := CAT['20'].ChooseSong(1,NoRules);
  P.QueueSong(Song);
  P.Play;
end;

DeckA.Eject;
DeckB.Eject;

if Aux1.Status = 1 then
begin

Отредактировано Zidane Tribal (07-10-2014 21:09:59)

пишет Zidane Tribal:

Всем привет. Подскажите пожалуйста, никак не могу скрипт допилить.
Задумка такая: одна из дэк фейдится в паузу или стоп при наступлении 20:00 и в Aux1 играет заготовка. А когда трек в Aux1 кончается нужно чтоб в любой из дэк начала играть музыка из Queue.

var Song : TSongInfo;
var P : TPlayer;
P := Aux1;
PAL.WaitForTime('20:00:00');
ActivePlayer.FadeToPause;
if P <> nil then
begin
  Song := CAT['20'].ChooseSong(1,NoRules);
  P.QueueSong(Song);
  P.Play;
end;

DeckA.Eject;
DeckB.Eject;

if Aux1.Status = 1 then
begin

Zidane Tribal можешь описать более подробно, что точно необходимо выполнить...
стоп играющего трека или пауза или просто фейдинг
в этой теме есть много готовых скриптов и очень похожий на твой
и что ты хочешь фейдить, сколько времени в минутах или секундах будет идти трек через Aux1
опиши пожалуйста более подробно, я постараюсь помочь

Который выше скрипт  с уменьшением громкости тебе не подходит?
Там можно уменьшить звук играющего трека до минимума, а в это время будет играть через  Aux1  то что тебе необходимо
Затем выставить задержку времени на то которое тебе нужно и снова увеличить громкость
Или тебе нужно чтоб совершенно другой трек начал воспроизведение?

пишет wisher:

Zidane Tribal попробуй этот скрипт
Возможно это то что тебе необходимо

var Song : TSongInfo;
var P : TPlayer;
var i : integer;

ActivePlayer.FadeToPause; // Перевод текущего трека в режим пауза

P := Aux1; // через что играть
if P <> nil then
begin
Song := Cat['20'].ChooseSong(1,NoRules);
begin
Aux1.QueueSong(Song);
Aux1.Play;
End;
End;

DeckA.Eject; // Очистка DeckA от текущего трека
DeckB.Eject; // Очистка DeckB от текущего трека

PAL.WaitForTime('+00:00:30'); // время ожидания 30 сек

IdlePlayer.Next; // Вставка очередного трека в ожидании в свободный плеер

DeckA.Play; // Начало воспроизведения через DeckA или
DeckB.Play; // Начало воспроизведения через DeckB

Время ожидания измени на желаемое
Да, Zidane Tribal не забудь скрипт запускать через планировщик
Удачи!!!

Нет, мне не нужно чтоб на фоне Aux1 что-то играло, а после Aux1 нужно чтоб в деке А или В начал играть с начала (в смысле начала трека) трек  из списка Queue.
Нет, это мне придется каждый раз выставлять время в ручную, причем надо будет его сначала точно выверить опытным путем иначе будет каша

Немного подумав... после утренней чашечки кофе, у меня появилась идея как тебе помочь.
Тебе нужно создать два скрипта и поставить их на включение через планировщик в одно время.
Допустим первый: будет фейдить чтоб запустить точно по времени треки из какой то категории или плейлист,
а второй: будет играть через Aux1 какой то фон, джингл или ещё чего то...
Затем только нужно будет настроить второй, точно плюс или минус по времени чтоб правильно налаживался на играющий трек и всё!
Думаю эта идея реально будет работать!!!

Уррааа!! Допилил)) Теперь все как мне надо) Может кому пригодится)

//Скрипт для остановки воспроизведения в деках и запуска в Aux1, например, заранее записанной рубрики.
//Скрипт ставим в Scheduler на более раннее время чем указанное время срабатывания скрипта.
//by Zidane Tribal
//14.10.2014

var Song : TSongInfo;
var P : TPlayer;
PAL.WaitForTime('9:40:00'); //время в которое сработает скрипт
ActivePlayer.FadeToPause; //фейдим активную деку в паузу. Можно прописать FadeToStop.

P := Aux1; //через что будет играть трек
if P <> nil then
begin
Song := Cat['20'].ChooseSong(1,NoRules); //выбираем категорию где лежит наш трек
begin
Aux1.QueueSong(Song); //вставляем трек
Aux1.Play;            //проигрываем
End;
End;

DeckA.Eject;      //очищаем деки А
DeckB.Eject;      //и В


var Waiting : Boolean = True;
while ((Aux1.Duration-Aux1.CurTime)>4500) do    //выставляем через какое время до окончания трека скрипт продолжит работу
begin
 Waiting := False;
end;


IdlePlayer.Next;     //вставляем трек из Queue в одну из дек
DeckA.FadeToPlay;    //запуск с фейдером
DeckB.FadeToPlay;    //запуск с фейдером

пишет wisher:

Я вот думаю что эту строчку можно просто удалить, она не столь важна

PAL.WaitForTime('9:40:00'); //время в которое сработает скрипт

В планировщике запуск скрипта можно отрегулировать с точностью до секунд

Нужна, ибо пока скрипт добавится, пока запустится проходит время, а в моем случае он уже подготовленный и по наступлению указанного времени срабатывает за доли секунды

Отредактировано Zidane Tribal (14-10-2014 15:02:12)

Универсальный автоматический скрипт-сценарий с голосом ведущего в начале передачи и перед завершением с накладкой на текущий трек, очисткой плейлистов до и после передачи, отключением скрипта после выполнения всей работы и всё это 4 в 1, время работы всего скрипта 1 час (что очень удобно для тех у кого слабенький компьютер, дабы не перегружать процессор ...) Можно использовать для программы "Час Зарубежной Музыки", "Альтернативного Рока", и так далее ... В планировщике можно установить запуск в любой день недели или к примеру дважды в субботу и воскресенье ...

Пример скрипта: Запуск в 10 часов утра

// Запуск этого сценария через планировщик (Event Scheduler) в 9:59:12

var P : TPlayer;
var Song : TSongInfo;

var OldTime : DateTime;
OldTime := Now;
PAL.Loop:=True; // Запуск выполнения работы скрипта

if (now >= T['09:59:16']) and (now <= T['09:59:30']) then // Время работы первого сценария 14 сек
 begin
        Queue.Clear; // Очистка плейлиста от треков
        Cat['english'].QueueBottom(smMRPA, EnforceRules); // Ставим 3 трека в плейлист из текущей категории
        Cat['english'].QueueBottom(smMRP, EnforceRules);
        Cat['english'].QueueBottom(smLemmingLogic, EnforceRules);
        Queue.AddFile('C:\voice-show\start-english.mp3',ipTop); // (Фоновый джингл) Голос ведущего о начале передачи (ТОП 20+, Алтернатива ...)

PAL.WaitForTime(T['+00:00:20']); // Задержка 20 сек. от повторного срабатывания
End;

if (now >= T['09:59:26']) and (now <= T['10:50:26']) then // Время работы второго сценария 51 мин
 begin
         Cat['english'].QueueBottom(smLemmingLogic, EnforceRules); // Добавление 1 трека из категории, можно изменить на (smMRPA, EnforceRules)

PAL.WaitForPlayCount(1); // Повторный запуск через 1 трек
End;

if (now >= T['10:58:16']) and (now <= T['10:58:30']) then // Время работы третьего сценария 14 сек
  begin
         P := Aux1; // через что играть (Эффект налаживания на играющий трек)
         if P <> nil then
          begin
         Song := Cat['end-english'].ChooseSong(1,NoRules); // (Чистый джингл без фона) Голос ведущего о завершении текущей передачи
         if Song <> nil then
          begin
         Aux1.QueueSong(Song);
         Aux1.Play;
         End;
         End;

PAL.WaitForTime(T['+00:00:20']); // Задержка 20 сек. от повторного срабатывания
End;

if (now >= T['10:59:16']) and (now <= T['10:59:30']) then // Время работы поледнего сценария 14 сек
 begin
        Queue.Clear; // Очистка плейлиста от оставшихся треков
        Cat['russian'].QueueBottom(smMRPA, EnforceRules); // Ставим 2 трека в плейлист из другой категории
        Cat['russian'].QueueBottom(smMRP, EnforceRules);

PAL.Loop:=False; // Завершение работы всего скрипта в режим стоп
End;

// После выполнения всех пунктов сценария, скрипт завершает свою работу

Время запуска скрипта возможно придётся изменить на желаемое ...
В дополнение: (для тех кто использует скрипт часовой отбивки, очень важно, чтоб этот скрипт запускался на несколько секунд раньше иначе будут сбои. Придётся просто немного протестировать и всё будет ОК)

Может кому пригодиться! Удачи!

Отредактировано wisher (02-11-2014 10:22:27)

Радио 1068.wos.lv было создано мной в июле 2013 года при определенных обстоятельствах.
Каких?
Мне просто понравились записи с этой Станции.

улыбнуло откровение от чувака ...

Отредактировано VapSite (31-10-2014 19:42:48)