51

Re: Скрипты PAL для Sam Broadcaster

смертельный номер:

var mySong : TSongInfo;
//создаем переменную для обращение к деке
PAL.Loop := True;
//зацикливаем скрипт

if (deckA.Status=1) and (deckB.Status=1) then
//проверяем играет ли что нибудь в деках
    begin
     mySong := Cat['mp3'].ChooseSong(smRandom, noRules);
//присваеваем случайный трек из категории mp3 в нашу переменную
     deckA.QueueSong(mySong);
//запихиваем наш трек в деку
     deckA.Play;
//запускаем деку
     CAT['mp3'].QueueBottom(smLemmingLogic, NoRules);
//выбираем случайный трек из категории mp3 и кидаем в список следущих
    end;
-------------------------------
R244390603111<- пиво лить сюда

52

Re: Скрипты PAL для Sam Broadcaster

Неработает так. казалось бы простая задача а уже неделю не могу решить. Надо просто чтобы скрипт проверил ли Decka или DeckB и если не работает то включил бы ее. У меня песни загружаются из папки в Queue. Вот от туда и надо воспроизводить песни.

53

Re: Скрипты PAL для Sam Broadcaster

Приветствую всех! Такой нюанс интересует: как сделать так, чтобы SAM перед заггрузкой плейлиста в Queue предварительно очищал предыдущий список воспроизведения?

Радио "ХОЙ" - Музыка столицы рок-н-ролла

54

Re: Скрипты PAL для Sam Broadcaster

2 NeSH

Queue.Clear;

2 www
точней формируйте задачу.
вышеуказанный код проверяет статус дек, если они обе молчат. то происходит добавление и запуск на воспроизведение случайного трека из плейлиста ("MP3") и закидывает ещё один трек в queue
Как это может не работать?

-------------------------------
R244390603111<- пиво лить сюда

55

Re: Скрипты PAL для Sam Broadcaster

2 Klef, спасибо большое!

Радио "ХОЙ" - Музыка столицы рок-н-ролла

56

Re: Скрипты PAL для Sam Broadcaster

Ещё один вопросик по скриптам. Я правильно понимаю, что для перемешивания треков в Queue должна быть прописана строчка: Queue.Shuffle; ?

Радио "ХОЙ" - Музыка столицы рок-н-ролла

57

Re: Скрипты PAL для Sam Broadcaster

Да.

58

Re: Скрипты PAL для Sam Broadcaster

Подскажите, плиз, как сделать так, чтобы случайный файл из папки запускался, например, в 25 минут каждого часа?

Радио "ХОЙ" - Музыка столицы рок-н-ролла

59

Re: Скрипты PAL для Sam Broadcaster

Берите пал-скрипт для выпуска рандомного джингла каждые 5 минут (лежит на саундкодере), изменяйте папку (с Jingles на папку с музыкой) и время.

60

Re: Скрипты PAL для Sam Broadcaster

вопрос о палах.
Как засунуть в деку определенный трек (например зная путь его)

-------------------------------
R244390603111<- пиво лить сюда

61

Re: Скрипты PAL для Sam Broadcaster

Привет всем!
А может кто знает как определить с помощью скрипта продолжительность какого-то трека?

62

Re: Скрипты PAL для Sam Broadcaster

Zdravstvuite !

a kakoi skript podaidiot, chtob v kajdi krugli chas probivali chasi ?

Отредактировано kepu (07-10-2009 10:30:24)

63

Re: Скрипты PAL для Sam Broadcaster

Решил собрать все популярные скрипты в одном месте (часто ищут одно и то же):

Проигрывание трэка поверх звучащего:

var Song : TSongInfo;
var P : TPlayer;

PAL.Loop := True;  // скрипт будет выполнятся постоянно
PAL.WaitForTime('+00:10:00'); // задержка в 10 секунд

P := SoundFX; // через что играть
if P <> nil then
begin
Song := CAT['Каталог'].ChooseSong(1,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;

Проигрывание трэка через 5 песен:

PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков //выбераем случайный трек из "Каталог" и ставим его вверх очереди
CAT['Каталог'].QueueTop(smRandom, NoRules);

Проигрывание трэка через определённое время:

var Song : TSongInfo;

PAL.Loop := True; //скрипт будет выполнятся постоянно(многократно)
PAL.WaitForTime('+00:30:00'); //ставим задержку на 30 минут
Song := CAT['Каталог'].ChooseSong(smRandom,NoRules); //выбираем трек наугад
//добавляем его в начало очереди
Queue.Add(song,ipTop);

Запуск файла каждый час (отбивка времени):

var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;

strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов

PAL.Loop := True;

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3

P := Aux1;
if P <> nil then
begin

    Queue.AddFile(strJingle, ipTop);
    Queue.AddFile(strFile, ipTop);



P := ActivePlayer;
if P <> nil then P.FadeToNext;


end;

Отредактировано lespaul43 (08-10-2009 12:33:42)

как мало полезных вредных привычек
Рок, альтернатива, метал, ска, панк: Red-Radio [Station] www.red-radio.ru

64

Re: Скрипты PAL для Sam Broadcaster

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

65

Re: Скрипты PAL для Sam Broadcaster

Здравствуйте. Подскажите пож-ста,- как заставить работать  Event Scheduler. Задача в следующем. В начале каждого часа ежедневно новости, в середине часа реклама. В упор не хочет запускать указанный файл. PAL скриптом не очень мне удобно. Хотелось что-бы  Event Scheduler заработал. Спасибо

Отредактировано IgorKrivich (27-10-2009 16:24:15)

66

Re: Скрипты PAL для Sam Broadcaster

IgorKrivich пишет:

Здравствуйте. Подскажите пож-ста,- как заставить работать  Event Scheduler. Задача в следующем. В начале каждого часа ежедневно новости, в середине часа реклама. В упор не хочет запускать указанный файл. PAL скриптом не очень мне удобно. Хотелось что-бы  Event Scheduler заработал. Спасибо

Разобрался сам

67

Re: Скрипты PAL для Sam Broadcaster

Привет. У меня такой вопрос. Можно ли с помощью такого скрипта (или как либо иначе) создать статистику песен. Тобишь что-то в стиле топ 10

http://radioheart.ru/banners/radioheart_400x40_banner.jpg
RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

68

Re: Скрипты PAL для Sam Broadcaster

Всем привет ! подскажите как сохранить название трека в текстовый файл  и при каждой смене трека происходила перезапись этого файла .

69

Re: Скрипты PAL для Sam Broadcaster

Приветствую! У меня такой вопрос. Есть сценарий:

{# Add files to queue script #}
Queue.Clear;
Queue.AddList('E:\Musik\Playlist\Основной.M3U',ipTop);
Queue.Shuffle;
deckA.Play;

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

Радио "ХОЙ" - Музыка столицы рок-н-ролла

70

Re: Скрипты PAL для Sam Broadcaster

Дека А скорей всего пустая.
рекомендую
ActivePlayer.FadeToNext;

-------------------------------
R244390603111<- пиво лить сюда

71

Re: Скрипты PAL для Sam Broadcaster

СПАСИТЕ... Кто нибуть может подсказать скрипт, который при откритии СЭМа будет запускать все енкодеры сразу?????

72

Re: Скрипты PAL для Sam Broadcaster

галочка в свойствах энкодера.
там же ставишколичество секунд, через который стартует энкодер

-------------------------------
R244390603111<- пиво лить сюда

73

Re: Скрипты PAL для Sam Broadcaster

Klef   СПАСИБО ОГРОМНОЕ

74

Re: Скрипты PAL для Sam Broadcaster

var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;

If (OldTime>=T['19:00:00']) AND (OldTime<=T['22:30:00']) Then
begin
CAT['Tusovka3'].QueueTop(smRandom, NoRules);
PAL.WaitForPlayCount(5);
End;

что надо изменить чтобы файл шел прямиком на свободную деку, минуя корзину?

75

Re: Скрипты PAL для Sam Broadcaster

Приветствую всех!!!! Нужна помощь, т.к. я в .pal скриптах совсем не понимаю!!! Суть такова: есть встроенный СЭМовский скрипт, который выводит нужную инфу из txt файла, чередуя ее с исполнителем и названием текущего трека, нужно сделать так чтоб инфа чередовалась не с title, а с названием станции. Помогите организовать, вот сам скрипт:

{ CONFIGURATION }
{==================================================}
const bannertext_file = 'C:\Program Files\SpacialAudio\SAMBC\PAL\BannerText.txt';
const change_interval = '+00:00:15';
{==================================================}


{ IMPLEMENTATION }
{--------------------------------------------------}
var CurSong : TSongInfo;
var UpdSong : TSongInfo;
var Banners : TStringList;
var Toggle  : Boolean = True;
var LinePos : Integer = 0;

{Set this script to restart itself}
PAL.Loop := True;

{ Create some objects that we will need}
UpdSong := TSongInfo.Create;
Banners := TStringList.Create;

{ Load banner lines into stringlist object }
if FileExists(bannertext_file) then
 Banners.LoadFromFile(bannertext_file)
else
 WriteLn('Banner source file does not exist!');
 
LinePos := 0;
while (LinePos<Banners.Count) do
begin
  {Wait for specified time}
  PAL.WaitForTime(change_interval);
  
  {Retrieve the current banner line and assign it to song object}
  UpdSong['title'] := Banners[LinePos];
  
  {Tell encoders to update song information:
    When Toggle is True, we use the normal song information from
    the active player - otherwise we use our banner song object
  }
  Toggle := not Toggle;
  if Toggle then
   begin
    CurSong := ActivePlayer.GetSongInfo;
     Encoders.SongChange(CurSong);
    CurSong.Free;
   end
  else
    Encoders.SongChange(UpdSong);

  {Move to the next line in the banner file before we continue}
  LinePos := LinePos + 1;
end;

{Destroy objects once we no longer need them}
Banners.Free;
UpdSong.Free;

Буду благодарен за помощь smile