1 Тема от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Тема: Помогите с ПАЛ скриптом плей листа.

В общем вот скрипт.
var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;
PAL.WaitForQueue(1);

If (OldTime>T['13:59:10']) AND (OldTime<=T['23:59:10']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Tracks'].QueueBottom(smLemmingLogic, EnforceRules);
End;

If (OldTime>T['23:59:10']) AND (OldTime<=T['02:59:10']) Then
begin
PAL.WaitForPlayCount(1);
CAT['dram'].QueueBottom(smLemmingLogic, EnforceRules);
End;

If (OldTime>T['02:59:10']) AND (OldTime<=T['13:59:10']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Indie'].QueueBottom(smLemmingLogic, EnforceRules);
End;

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

2 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

Ну что ни кто не ответит в чём причина?

3 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop:=True;

If (OldTime>T['23:00:00']) AND (OldTime<=T['02:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['dram'].QueueBottom(smRandom, NoRules);
End;

If (OldTime>T['02:00:00']) AND (OldTime<=T['14:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Indie'].QueueBottom(smRandom, NoRules);
End;

If (OldTime>T['14:00:00']) AND (OldTime<=T['22:59:59']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Tracks'].QueueBottom(smRandom, NoRules);
End;

сделал так и всё заработало.

4 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

хел, срочно, поменял время и опять не работает.
var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop := True;
PAL.WaitForQueue(1);

If (OldTime>T['06:00:00']) AND (OldTime<=T['09:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['dram'].QueueBottom(smLemmingLogic, EnforceRules);
End;

If (OldTime>T['09:00:00']) AND (OldTime<=T['15:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Tracks'].QueueBottom(smLemmingLogic, EnforceRules);
End;

If (OldTime>T['15:00:00']) AND (OldTime<=T['05:59:59']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Indie'].QueueBottom(smLemmingLogic, EnforceRules);
End;

Добавлено спустя     1 минуту   37 секунд:
var P : TPlayer;
var OldTime : DateTime;

OldTime := Now;

PAL.Loop := True;
PAL.WaitForQueue(1);

If (OldTime>T['06:00:00']) AND (OldTime<=T['09:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['dram'].QueueBottom(smRandom, NoRules);
End;

If (OldTime>T['09:00:00']) AND (OldTime<=T['15:00:00']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Tracks'].QueueBottom(smRandom, NoRules);
End;

If (OldTime>T['15:00:00']) AND (OldTime<=T['05:59:59']) Then
begin
PAL.WaitForPlayCount(1);
CAT['Indie'].QueueBottom(smRandom, NoRules);
End;
так тоже не работает

5 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

может надо правила ротации настроить, ну помогите ктонибуть

6 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

С проблемой разобрался, просто скрипт не понимает время какое прошло и какое сейчас, поэтому надо было сделать так.
var P : TPlayer;
var OldTime: DateTime;

OldTime := Now;

PAL.Loop := True;
PAL.WaitForQueue(1);

if (OldTime>T ['06:00:00']) AND (OldTime<=T ['09:00:00']) Then
begin
CAT['dram'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

if (OldTime>T ['09:00:00']) AND (OldTime<=T ['15:00:00']) Then
begin
CAT['Tracks'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

if (OldTime>T ['15:00:00']) AND (OldTime<=T ['23:59:59']) Then
begin
CAT['Indie'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

if (OldTime>=T ['00:00:00']) AND (OldTime<=T ['06:00:00']) Then
begin
CAT['Indie'].QueueBottom(smRandom, NoRules);
PAL.WaitForPlayCount(1);
End;

Добавлено спустя     1 минуту   36 секунд:
в смысле скрипт считает время например 23:00:00 вчерашнего дня больше чем 05:00:00 сегодняшнего, вот тут и проблемы

7 Ответ от lyfm

  • lyfm
  • lyfm
  • Частый гость
  • Неактивен
  • Зарегистрирован: 24-08-2010
  • Сообщений: 117

Re: Помогите с ПАЛ скриптом плей листа.

Не юзер, а мечта админа. Сам спросил - сам ответил. Несколько раз.

_______________________________

«Liberty Radio» — Old School в режиме Online
www.LibertyRadio.ru | Группа Вконтакте

8 Ответ от Kuroi

  • Kuroi
  • Новенький
  • Неактивен
  • Зарегистрирован: 19-05-2011
  • Сообщений: 14

Re: Помогите с ПАЛ скриптом плей листа.

ну ответил, по тому, что у других могут возникнуть те же проблемы.