Jingle script over AUX1

[drOhimself]

Guys,

Kijk even naar onderstaand probeersel om een jingle over AUX1 te laten lopen.
Loopt nog niet helemaal zoals ik wil.
Graag jullie op/aanmerkingen.

Code: Selecteer alles

{**
*   Play Jingle via AUX1
*   script by drOhimself for SAM BroadCaster Forum
*   v4 2012/09/26
*	ATTENTION	: DJ Mode needs to be MANUAL DJ
*				: Be sure to change CAT['JINGLETEST'] into your own CAT with jingles.
*}
// PAL.LockExecution;
PAL.loop := true;

Var Done : Boolean = False;
Aux1.QueueSong(CAT['JINGLETEST'].ChooseSong(smRandom,NoRules));
    while not done do
		begin
			if((ActivePlayer.CurTime>0) AND (ActivePlayer.CurTime<4000)) then
			begin
				Aux1.Play;
				if((Aux1.CurTime>0) AND (Aux1.CurTime<2000)) then
				begin
					ActivePlayer.FadeToNext;
					Done := True;
				end;
			end;
		end;
// PAL.UnLockExecution;

[Wout]

Dus tussen de normale plaat naar plaat dan over de fade de jingle over de aux?

Morgen me scherm weer terug dan kan ik mee proberen.

[drOhimself]

Helemaal goed Wout !
Plaat 1 (laatste 2 à 4 seconden) -> Jingle via AUX1 -> Plaat 2 start op in laatste 2 seconden van jingle

[Wout]

Zit net te denken op me werk.

Code: Selecteer alles

while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 2000) do;

[Wout]

Code: Selecteer alles

Aux1.QueueSong(CAT['Begin'].ChooseSong(smRandom,NoRules));

while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 20000) do;
begin
    Aux1.Play ;
    ActivePlayer.Eject ;    
    while ((Aux1.Duration - Aux1.CurTime) > 20000) do;
    begin
        ActivePlayer.Play ;
    end ;
End ;


 

edit- werkt toch niet lekker

[drOhimself]

Idd, loopt nog niet helemaal goed....jammer dat er geen commando : ActivePlayer.Pause ; bestaat...
Let even op de getallen Wout, zet hem op 3.000, dan is de overloop al wat beter.

Code: Selecteer alles

PAL.loop := true;
    Aux1.QueueSong(CAT['JINGLETEST'].ChooseSong(smRandom,NoRules));

    while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 3000) do;
    begin
        Aux1.Play ;
        ActivePlayer.Eject ;    
        while ((Aux1.Duration - Aux1.CurTime) > 3000) do;
        begin
            ActivePlayer.FadeToNext ;
        end ;
    End ;

[Wout]

Code: Selecteer alles

ActivePlayer.Pause 

bestaat toch wel?

Alleen bij een te lange jingle begint de 'Auto Recovery' ook al in te grijpen.

drO, waar is deze jingle-script voor nodig?
Wil je korte jingle`s dan over de Aux laten spelen, (daar waar we het over hebben gehad bij de BBQ) en de langere gewoon via de Deck A/B?

[drOhimself]

Idd Wout, korte jingles (0 - 4sec) over de AUX en langere (>4sec) over DECK A/B.
Dat zou het mooiste zijn.
Korte jingles zorgen voor een probleem bij de overgang naar een volgende nummer, omdat het lopende nummer dan nog net in de fade-out kan zitten.

[Wout]

Oke, da`s duidelijk.

Dan is het makkelijker om eerst via SQL in de Queue als eerste te kijken of er een songtype S inzit bij de volgende plaat.
Vanuit daar kijken of dat de duration >= 4 seconden, als dat waar is dan laden in Aux anders doe niks.

-edit, kleine voorzetje

Code: Selecteer alles

var Q : TDataSet;

Q := Query('SELECT songtype, duration FROM queuelist, songlist WHERE queuelist.songID = songlist.ID AND songtype = :type',['S'],True);

//Q.First;
if not Q.EOF then
WriteLn('geen result')
else
begin
WriteLn('result');
WriteLn(Q['duration']);
end;
Q.Free;

[drOhimself]

Type J zal het wel zijn dan.......

PAL.Loop:=True;
toegevoegd.
Maar PAL blijft alleen 'geen result' geven...
(In mijn queue staan 4 nummers)

[Wout]

J klopt wel, maar dan moet de not weer weg.

Code: Selecteer alles

var Q : TDataSet;

Q := Query('SELECT songtype, duration FROM queuelist, songlist WHERE queuelist.songID = songlist.ID AND songtype = :type LIMIT 1',['J'],True);

if Q.EOF then
WriteLn('geen result')
else
begin
WriteLn('result');
WriteLn(Q['duration']);
end;
Q.Free;

[drOhimself]

HHmm...vreemd.
Ik had het eerste script ( 'S' en NOT erin), met 1 jingle + 4 songs in de queue.... maar alleen 'geen result'....

[Wout]

En de jingle`s zitten al in je queue of ze worden via een PAL in gezet?

[drOhimself]

Had ik even handmatig in de queue gezet.
Ik zal e.e.a. nogmaals doen, na een restart van SAM.
Wil nog wel eens anders lopen, na een restart....

[drOhimself]

Helaas.....
Ook alle jingles hebben J als type.

[Wout]

klopt, je gebruikt nog de oude PAL, met de not erin.
viewtopic.php?f=204&p=30769#p30762

[drOhimself]

Wout, heb nu de laatste aangepaste draaien.
Daar gaat het goed, krijg een duration waarde te zien.
Morgen maar effe verder fröbelen...

[solutions]

Kan dit misschien bijdragen aan hetgeen ik zoek in http://www.broadcasterforum.nl/viewtopi ... 230&t=1538 ?


[smilie=blush2.gif]

[solutions]

Wout, heb nu de laatste aangepaste draaien.
Daar gaat het goed, krijg een duration waarde te zien.
Morgen maar effe verder fröbelen...

Eigenlijk best gemeen.. iemand lekker maken en dan vervolgens niet het resultaat posten

Maar euhm bestaat er daadwerkelijk een (goed) script waarbij aux 1 als jingle deck functioneert op een wijze zoals deck a en b doen?

[drOhimself]

Eigenlijk best gemeen.. iemand lekker maken en dan vervolgens niet het resultaat posten

Maar euhm bestaat er daadwerkelijk een (goed) script waarbij aux 1 als jingle deck functioneert op een wijze zoals deck a en b doen?

Ben ik wel met je eens.....veel dingen in het leven waar ik mee zou zijn begonnen, maar nooit heb afgemaakt.....sorry !
Kom er helaas door tijdgebrek (lees=andere keuzes) niet meer aan toe.
Hopelijk kan iemand dit nog verder uitzoeken.