Script fade to next track als track > 5:30

Borg · Ongelezen bericht door **Borg** » 06 apr 2021, 21:05

Vraag dit voor een vriend van mij.

In zijn playlist staan veel maxi single's die langer zijn dan b.v. 6 a 7 minuten, daarom zou hij graag een PAL script willen
die de track afbreekt en de volgende track in-start,

Ikzelf ben dus echt niet goed in PAL dus daarom de vraag of hier iemand bij zou kunnen helpen.
Op het spacial forum kreeg hij een voorbeeld, maar geen idee of dit werkt.

Code: Selecteer alles

PAL.Loop := True;

VAR Wait : Boolean = False;

IF ActivePlayer <> NIL THEN
  IF ActivePlayer.Duration > 270 THEN
    Wait := True;

WHILE Wait DO
BEGIN
  PAL.WaitForTime(270-ActivePlayer.CurTime);
  ActivePlayer.Next;
  Wait := False;
END;

Alvast dank, Jos

Borg · Ongelezen bericht door **Borg** » 08 apr 2021, 22:19

Denk dat ik ook maar niet meer kom

Wout · Ongelezen bericht door **Wout** » 10 apr 2021, 20:53

Code ziet er plausibel uit. Heeft Ron deze PAL al geprobeerd?

Borg · Ongelezen bericht door **Borg** » 11 apr 2021, 19:48

Ron had hem geprobeerd maar werkte niet..Heb vanmiddag mijn oude laptop uit de kast gehaald waar SAM op staat, testen op de Glazen Stad gaat natuurlijk niet. Na wat klooien met eerstgenoemde PAL ben ik gaan zoeken op het forum van Spacial met de zoekterm > ActivePlayer.CurTime

Dat bracht me bij een vergelijkbaar PAL script. Inmiddels werkt deze naar behoren, op het laatste even zitten stoeien omdat hij ineens niet meer werkte maar dat kwam omdat beide players ' geladen' waren met een track, dan werkt het niet.

In onderstaand PAL script 330000 milliseconde gebruik wat in SAM 5:30 seconden is.

Code: Selecteer alles

PAL.Loop := True;

IF (DeckA.Duration - DeckA.CurTime) >= (DeckB.Duration - DeckB.CurTime) THEN
  begin
  WriteStr(' DeckA Song Time: ');
  WriteLn (DeckA.Duration / 330000);
  WriteStr(' DeckA Current Time: ');
  WriteLn (DeckA.CurTime);
  if  (DeckA.CurTime) > 330000 Then
      ActivePlayer.FadeToNext;
  end
  
ELSE

  begin
  WriteStr(' DeckB Song Time: ');
  WriteLn (DeckB.Duration / 330000);
  WriteStr(' DeckB Current Time: ');
  WriteLn (DeckB.CurTime);
  if  (DeckB.CurTime) > 330000 Then
      ActivePlayer.FadeToNext;
  end;

Ron zou zeggen Tjuus

ronvdlans · Ongelezen bericht door **ronvdlans** » 12 apr 2021, 15:26

Helemaal HAPPY Macho , Maar een ietsie pietsie langere fade-out zou mooi zijn..TOP Bedankt vriend

BroadcasterForum Nederland

Script fade to next track als track > 5:30

Script fade to next track als track > 5:30

Re: Script fade to next track als track > 5:00

Re: Script fade to next track als track > 5:00

Re: Script fade to next track als track > 5:00

Re: Script fade to next track als track > 5:30