Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Технологии вещания, софт, скрипты
7   •   Посмотреть все темы

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

 
1 ... 11 12 13 ... 26

888
Falcon @Falcon
radioplus пишет:

Есть скрипт, который постоянно выпускает джинглы:

PAL.Loop := True;
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:02:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);

Как его отключать в определённые часы? К примеру в воскресенье с 16:00:00 до 16:50:00 и в понедельник с 0:00:00 до 0:50:00, чтобы в это время он не втсавлял джинглы после каждого трека?
Спасибо!

Вот отличный пример на сайте сэма:
**********

0
43
_ @radioplus
Мне нужен скрипт, который будет выключать джинглы, а не включать в определённое время! То есть как сделать так, чтобы скрипт не выполнялся в определённый день и в определённое время, к примеру в воскресенье с 15:00 до 16:00? может так:
PAL.Loop := True;
var mytime : DateTime = now;
var I : Integer;
var start_time, end_time : DateTime;
end_time := date + EncodeTime(15,59,30,0);
start_time := date + EncodeTime(17,15,00,0);
if DayOfWeek(Now) = Sunday then
begin
if( mytime >= start_time) and (mytime <= end_time) Then
begin
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:03:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);
end;
end;


Так он не запускается пока не дождётся времени старта! Скорее всего как то иначе, только вот как?

0
888
Falcon @Falcon
if DayOfWeek(Now) != Sunday then
begin
if( mytime >= start_time) and (mytime <= end_time) Then
begin
PAL.WaitForPlayCount(1);
PAL.WaitForTime('+00:03:00');
CAT['Station IDs (All)'].QueueTop(smLRPA, NoRules);
end;
end;

0
43
_ @radioplus
и в чём разница? Это скрипт включения программы в определённое время. А мне нужен отключения работы скрипта в определённый день и время.

0
1572
KyPIIaToB @KyPIIaToB
radioplus пишет:

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

А я что тебе сказал? создаешь правило и все.

0
43
_ @radioplus
-

Отредактировано radioplus - 13.04.2022
0
6
Ëкарный @isaul
Друзья помогите!Я прочитал много тем но так и не нашел ответ!В общем что нужно прописать в PAL скрипте что бы песни играли не в случайном порядке (Random) а по порядку (1-20) выручайте!

0
57
LAZAR @LAZ2735
Нашёл скрипт времени с новостями (или тем что вам захочется)
  1. var strFile, strPath : String;
  2. var P,F : Tplayer;
  4. strPath := 'd:\RADIO\Clock\';
  6. PAL.Loop:=True;
  7. PAL.WaitForTime('XX:59:50');
  8. PAL.LockExecution;
  9. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
  10. Case strFile Of
  11. 'd:\RADIO\Clock\07-00.mp3' : Begin
  12. If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Monday) then
  13. Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
  14. Else
  15. Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
  16. Queue.AddFile(strFile, ipTop);
  17. Aux1.QueueSong(Queue.NextInQueue);
  18. If DeckA.Status = psPlaying then
  19. Begin
  20. DeckB.QueueSong(Queue.NextInQueue);
  21. DeckA.FadeToPause;
  22. F := DeckA;
  23. P := DeckB;
  24. Aux1.FadeToPlay;
  25. End
  26. Else
  27. Begin
  28. DeckA.QueueSong(Queue.NextInQueue);
  29. DeckB.FadeToPause;
  30. F := DeckB;
  31. P := DeckA;
  32. Aux1.FadeToPlay;
  33. End;
  35. End;
  36. 'd:\RADIO\Clock\08-00.mp3' : Begin
  37. If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Monday) then
  38. Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
  39. Else
  40. Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
  41. Queue.AddFile(strFile, ipTop);
  42. Aux1.QueueSong(Queue.NextInQueue);
  43. If DeckA.Status = psPlaying then
  44. Begin
  45. DeckB.QueueSong(Queue.NextInQueue);
  46. DeckA.FadeToPause;
  47. F := DeckA;
  48. P := DeckB;
  49. Aux1.FadeToPlay;
  50. End
  51. Else
  52. Begin
  53. DeckA.QueueSong(Queue.NextInQueue);
  54. DeckB.FadeToPause;
  55. F := DeckB;
  56. P := DeckA;
  57. Aux1.FadeToPlay;
  58. End;
  60. End;
  61. 'd:\RADIO\Clock\09-00.mp3' : Begin
  62. Queue.AddFile('d:\RADIO\news\гороскоп.mp3', ipTop);
  63. Queue.AddFile(strFile, ipTop);
  64. Aux1.QueueSong(Queue.NextInQueue);
  65. If DeckA.Status = psPlaying then
  66. Begin
  67. DeckB.QueueSong(Queue.NextInQueue);
  68. DeckA.FadeToPause;
  69. F := DeckA;
  70. P := DeckB;
  71. Aux1.FadeToPlay;
  72. End
  73. Else
  74. Begin
  75. DeckA.QueueSong(Queue.NextInQueue);
  76. DeckB.FadeToPause;
  77. F := DeckB;
  78. P := DeckA;
  79. Aux1.FadeToPlay;
  80. End;
  82. End;
  83. 'd:\RADIO\Clock\11-00.mp3' : Begin
  84. Queue.AddFile('d:\RADIO\news\гороскоп.mp3', ipTop);
  85. Queue.AddFile(strFile, ipTop);
  86. Aux1.QueueSong(Queue.NextInQueue);
  87. If DeckA.Status = psPlaying then
  88. Begin
  89. DeckB.QueueSong(Queue.NextInQueue);
  90. DeckA.FadeToPause;
  91. F := DeckA;
  92. P := DeckB;
  93. Aux1.FadeToPlay;
  94. End
  95. Else
  96. Begin
  97. DeckA.QueueSong(Queue.NextInQueue);
  98. DeckB.FadeToPause;
  99. F := DeckB;
  100. P := DeckA;
  101. Aux1.FadeToPlay;
  102. End;
  104. End;
  105. 'd:\RADIO\Clock\12-00.mp3' : Begin
  106. Queue.AddFile('d:\RADIO\news\новость 12.mp3', ipTop);
  107. Queue.AddFile(strFile, ipTop);
  108. Aux1.QueueSong(Queue.NextInQueue);
  109. If DeckA.Status = psPlaying then
  110. Begin
  111. DeckB.QueueSong(Queue.NextInQueue);
  112. DeckA.FadeToPause;
  113. F := DeckA;
  114. P := DeckB;
  115. Aux1.FadeToPlay;
  116. End
  117. Else
  118. Begin
  119. DeckA.QueueSong(Queue.NextInQueue);
  120. DeckB.FadeToPause;
  121. F := DeckB;
  122. P := DeckA;
  123. Aux1.FadeToPlay;
  124. End;
  126. End;
  127. 'd:\RADIO\Clock\13-00.mp3' : Begin
  128. Queue.AddFile('d:\RADIO\news\новость 12.mp3', ipTop);
  129. Queue.AddFile(strFile, ipTop);
  130. Aux1.QueueSong(Queue.NextInQueue);
  131. If DeckA.Status = psPlaying then
  132. Begin
  133. DeckB.QueueSong(Queue.NextInQueue);
  134. DeckA.FadeToPause;
  135. F := DeckA;
  136. P := DeckB;
  137. Aux1.FadeToPlay;
  138. End
  139. Else
  140. Begin
  141. DeckA.QueueSong(Queue.NextInQueue);
  142. DeckB.FadeToPause;
  143. F := DeckB;
  144. P := DeckA;
  145. Aux1.FadeToPlay;
  146. End;
  148. End;
  149. 'd:\RADIO\Clock\15-00.mp3' : Begin
  150. Queue.AddFile('d:\RADIO\news\новость 15.mp3', ipTop);
  151. Queue.AddFile(strFile, ipTop);
  152. Aux1.QueueSong(Queue.NextInQueue);
  153. If DeckA.Status = psPlaying then
  154. Begin
  155. DeckB.QueueSong(Queue.NextInQueue);
  156. DeckA.FadeToPause;
  157. F := DeckA;
  158. P := DeckB;
  159. Aux1.FadeToPlay;
  160. End
  161. Else
  162. Begin
  163. DeckA.QueueSong(Queue.NextInQueue);
  164. DeckB.FadeToPause;
  165. F := DeckB;
  166. P := DeckA;
  167. Aux1.FadeToPlay;
  168. End;
  170. End;
  171. 'd:\RADIO\Clock\16-00.mp3' : Begin
  172. Queue.AddFile('d:\RADIO\news\новость 15.mp3', ipTop);
  173. Queue.AddFile(strFile, ipTop);
  174. Aux1.QueueSong(Queue.NextInQueue);
  175. If DeckA.Status = psPlaying then
  176. Begin
  177. DeckB.QueueSong(Queue.NextInQueue);
  178. DeckA.FadeToPause;
  179. F := DeckA;
  180. P := DeckB;
  181. Aux1.FadeToPlay;
  182. End
  183. Else
  184. Begin
  185. DeckA.QueueSong(Queue.NextInQueue);
  186. DeckB.FadeToPause;
  187. F := DeckB;
  188. P := DeckA;
  189. Aux1.FadeToPlay;
  190. End;
  192. End;
  193. 'd:\RADIO\Clock\18-00.mp3' : Begin
  194. Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop);
  195. Queue.AddFile(strFile, ipTop);
  196. Aux1.QueueSong(Queue.NextInQueue);
  197. If DeckA.Status = psPlaying then
  198. Begin
  199. DeckB.QueueSong(Queue.NextInQueue);
  200. DeckA.FadeToPause;
  201. F := DeckA;
  202. P := DeckB;
  203. Aux1.FadeToPlay;
  204. End
  205. Else
  206. Begin
  207. DeckA.QueueSong(Queue.NextInQueue);
  208. DeckB.FadeToPause;
  209. F := DeckB;
  210. P := DeckA;
  211. Aux1.FadeToPlay;
  212. End;
  214. End;
  215. 'd:\RADIO\Clock\19-00.mp3' : Begin
  216. If (DayOfWeek(Now) <> Sunday) AND (DayOfWeek(Now) <> Saturday) then
  217. Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop);
  218. Queue.AddFile(strFile, ipTop);
  219. Aux1.QueueSong(Queue.NextInQueue);
  220. If DeckA.Status = psPlaying then
  221. Begin
  222. DeckB.QueueSong(Queue.NextInQueue);
  223. DeckA.FadeToPause;
  224. F := DeckA;
  225. P := DeckB;
  226. Aux1.FadeToPlay;
  227. End
  228. Else
  229. Begin
  230. DeckA.QueueSong(Queue.NextInQueue);
  231. DeckB.FadeToPause;
  232. F := DeckB;
  233. P := DeckA;
  234. Aux1.FadeToPlay;
  235. End;
  237. End;
  238. 'd:\RADIO\Clock\20-00.mp3' : Begin
  239. If (DayOfWeek(Now) = Sunday) Or (DayOfWeek(Now) = Saturday) then
  240. Queue.AddFile('d:\RADIO\news\новость 18.mp3', ipTop)
  241. Else
  242. Queue.AddFile('d:\RADIO\news\новость 20.mp3', ipTop);
  243. Queue.AddFile(strFile, ipTop);
  244. Aux1.QueueSong(Queue.NextInQueue);
  245. If DeckA.Status = psPlaying then
  246. Begin
  247. DeckB.QueueSong(Queue.NextInQueue);
  248. DeckA.FadeToPause;
  249. F := DeckA;
  250. P := DeckB;
  251. Aux1.FadeToPlay;
  252. End
  253. Else
  254. Begin
  255. DeckA.QueueSong(Queue.NextInQueue);
  256. DeckB.FadeToPause;
  257. F := DeckB;
  258. P := DeckA;
  259. Aux1.FadeToPlay;
  260. End;
  262. End;
  263. Else
  264. Begin
  265. Queue.AddFile(strFile, ipTop);
  266. If DeckA.Status = psPlaying then
  267. Begin
  268. Aux1.QueueSong(Queue.NextInQueue);
  269. DeckA.FadeToPause;
  270. P := DeckA;
  271. F := DeckB;
  272. Aux1.FadeToPlay;
  273. End
  274. Else
  275. Begin
  276. Aux1.QueueSong(Queue.NextInQueue);
  277. DeckB.FadeToPause;
  278. P := DeckB;
  279. F := DeckA;
  280. Aux1.FadeToPlay;
  281. End;
  282. End;
  283. End;
  284. PAL.UnlockExecution;
  285. PAL.WaitForTime('+00:00:09');
  286. P.FadeToPlay;
  287. If P.Status <> psPlaying then F.Play
  288. Else F.QueueSong(Queue.NextInQueue);

0
332
Игорь @JamStyle
LAZ2735 пишет:

Нашёл скрипт времени с новостями (или тем что вам захочется)


Спасибо за скрипт,давно искал...:)

0
7094
Dim @Render
Может подскажет кто, как реализовать подобное для Sound FX?
Перед проигрыванием Sound FX - убавление громкости играющей деки, после проигранного Sound FX, возвращение громкости обратно. Пытался вставить из **********, работает только изначальное снижение громкости, но как только запускается наложение Sound FX (код ниже), то громкость резко возвращается на исходную,
То есть по сути, не выходит нормально сделать тайм ожидания, для возвращения громкости.
Исходное
  1. var Song : TSongInfo;
  2. var P : TPlayer;
  3. PAL.Loop := True;
  4. PAL.WaitForTime('+00:05:00');
  5. P := SoundFX;
  6. if P <> nil then
  7. begin
  8. Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
  9. if Song <> nil then
  10. begin
  11. P.QueueSong(Song); //
  12. P.Play;
  13. end;
  14. end;


То, что пытался сляпать (ибо не варю пока в pal)
  1. var Song : TSongInfo;
  2. var P : TPlayer;
  3. var i : integer;
  4. PAL.Loop := True;
  5. i := ActivePlayer.GetVolume;
  6. PAL.WaitForTime('+00:05:00');
  7. ActivePlayer.Volume := i - 40;
  8. ActivePlayer.Volume := i - 80;
  9. ActivePlayer.Volume := i - 120;
  10. ActivePlayer.Volume := i - 160;
  11. P := SoundFX;
  12. if P <> nil then
  13. begin
  14. Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
  15. if Song <> nil then
  16. begin
  17. PAL.WaitForTime('+00:00:10');
  18. ActivePlayer.Volume := i - 160;
  19. ActivePlayer.Volume := i - 120;
  20. ActivePlayer.Volume := i - 80;
  21. ActivePlayer.Volume := i - 40;
  22. ActivePlayer.Volume := i;
  23. P.QueueSong(Song);
  24. P.Play;
  25. end;
  26. end;

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

0
410
Евгений @Drakkar
JamStyle пишет:

LAZ2735 пишет:

Нашёл скрипт времени с новостями (или тем что вам захочется)


Спасибо за скрипт,давно искал...:)

Опишите пожалуйста подробнее, что это за СКРИПТ ВРЕМЕНИ С НОВОСТЯМИ? Как он применяется и для чего он нужен.

0
7094
Dim @Render
**********. Помогите, ребятушки.

0
1572
KyPIIaToB @KyPIIaToB
Render пишет:

**********. Помогите, ребятушки.

Для тех кто в танке, громкость для активного плеера ActivePlayer.Volume и не каким макаром не влияет на SoundFX
Соответственно меняй ActivePlayer на SoundFX, хоть немного думай.

Отредактировано KyPIIaToB - 10.02.2012
0
7094
Dim @Render
KyPIIaToB пишет:

Render пишет:

**********. Помогите, ребятушки.

Для тех кто в танке, громкость для активного плеера ActivePlayer.Volume и не каким макаром не влияет на SoundFX
Соответственно меняй ActivePlayer на SoundFX, хоть немного думай.

Видимо не совсем правильно объяснил, мне и не нужно влиять на громкость SoundFX.
Нужно всего лишь перед запуском звука из SoundFX, снижать громкость ActivePlayer, во время выполнения SoundFX (наложения), громкость ActivePlayer - всё так же должна оставаться на сниженном уровне, то есть некий timewait, пока проигрывается звук SoundFX и затем после окончания некого timwait равного к примеру 5 секундам, возвращение громкости ActivePlayer в предыдущее положение.
Повторюсь, начало - работает, как нужно. То есть громкость снижается на ActivePlayer перед запуском SoundFX, но вот дальше...
Как только стартует наложение звука, громкость резко возвращается назад и как сделать, чтобы даже во время наложения, бегунок громкости на ActivePlayer оставался на том же месте и ждал своего "прихода", мне не известно.

Если совсем на простом языке, то:
Играет трек.
В какой-то момент, громкость трека уменьшается где-то на 50%
Сверху накладывается какой-то звуковой эффект (причём громкость трека всё так же 50%)
По окончании наложения, возврат громкости трека на предыдущее значение.

Фуф. Вроде так :|

0
888
Falcon @Falcon
if Song <> nil then
begin
P.QueueSong(Song);
P.Play;
PAL.WaitForTime('+00:00:10');
ActivePlayer.Volume := i - 160;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;
end;

0
7094
Dim @Render
Falcon, спасибо, но немного не то, так тоже пробывал уже.
KyPIIaToB, тоже спасибо за направление почти на путь истинный.
В итоге удалось достичь результата таким безобразием. Может кому-то пригодится.
  1. var Song : TSongInfo;
  2. var P : TPlayer;
  3. var i : integer;
  4. PAL.Loop := True;
  5. i := ActivePlayer.GetVolume;
  6. PAL.Loop := True;
  7. PAL.WaitForTime('+00:05:59');
  8. ActivePlayer.Volume := i - 20;
  9. ActivePlayer.Volume := i - 40;
  10. ActivePlayer.Volume := i - 60;
  11. ActivePlayer.Volume := i - 70;
  12. P := SoundFX;
  13. if P <> nil then
  14. begin
  15. Song := CAT['Sound FX (All)'].ChooseSong(smRandom,NoRules);
  16. if Song <> nil then
  17. begin
  18. P.QueueSong(Song); //
  19. P.Play;
  20. end;
  21. end;
  22. PAL.WaitForTime('+00:00:05');
  23. ActivePlayer.Volume := i

0
1572
KyPIIaToB @KyPIIaToB
Обнаружил прикольный скрипт, который озвучивает название трека с помощью ranslate.google.com
Видео примера можно глянуть тут **********

Создаем категорию nu , туда помещаем c:\test\nu.mp3
Ну это как пример конечно же

  1. PAL.Loop := True ;
  3. var verzoek, song : TSongInfo;
  4. var map, almost, ready : string ;
  6. Song := ActivePlayer.GetSongInfo;
  8. if (Song['songtype'] = 'J') then
  9. begin
  10. PAL.WaitForTime('+00:00:10');
  11. end
  12. else
  13. Song.Free;
  14. Song := ActivePlayer.GetSongInfo;
  16. map := 'c:\test\nu.mp3' ;
  17. verzoek := CAT['nu'].ChooseSong(smRandom, NoRules) ;
  19. almost := 'Now Playing.'+Song['artist']+'. with.'+Song['title']+'.' ;
  20. ready := URLEncode(almost) ;
  22. WebToFile(map,'http://translate.google.com/translate_tts?tl=en&q='+ready) ;
  24. Aux2.QueueSong(verzoek);
  25. Aux2.Play;
  27. PAL.WaitForPlayCount(1) ;


Источник **********

0
2
aeroman @aeroman
Я совсем новичок в етом деле так что прошу строго не судить. Скажите как PAL скриптом сохранить в файл содержимое Queue???
И просветите меня, есть ли какая-нибуть документация по PAL скриптам???

0
6245
0
2
aeroman @aeroman
tarasian666 пишет:

**********

Спасибо.
А по русски нет ничего подобного??

0





Согласие на обработку данных на нашем сайте

Продолжая просматривать страницу, вы соглашаетесь с использованием файлов «Cookie» и с Политикой конфиденциальности «Privacy».
Наверху или внизу страницы вы можете изменить валюту и язык по умолчанию. Английская версия сайта ещё находится в доработке и доступна не полностью.