I Need a Real Jingle Script?

[nasa01]

Hello guys;
I Need a Real Jingle Script?
How is real?
I want this is style Jingle Script
Demo Listen: http://www.hulkshare.com/wixc9274wvls

I did use this Jingle Script

Code: Selecteer alles

PAL.Loop:= True;

VAR Open :TSongInfo = CAT['Jingles (All)'].ChooseSong(smRandom,NoRules);

PAL.WaitForPlayCount(1);
    Aux1.QueueSong(Open);
    Aux1.Play; 

but I dont like and

I want this style "Song" after "jigle" after "Song" after "jingle" very simple for you this Script ı know

but jingle playing I want stop Deck A or DeckB
so it is work in the last two seconds my jingle
PLZ look my picture
I am waitng your help guys Thank you broadcasterforum.n

[drOhimself]

Hi Nasa01,

I probably understand what you want to achieve here.
You should be able to accomplish this with the built-in Cross-fading settings in SAM.
Have you tried this?
I agree, this will only work well, if your jingles are not very short, say about 3 - 4 seconds at least.
Otherwise the song playing in Deck A is not yet 'removed' from Deck A, and replaced by the new song, while your jingle is played in Deck B.

[nasa01]

I don't want my jingle at Deck A or Deck B

because EXAMPLE:

now playing: T-Pain - Booty Wurk (Deck A)

now playing: Jingle (Deck B)

This is "potjandikiedosie"

I want my jingle aux man understadn my examples?

[drOhimself]

Okay, I see your point.
And you are working with random jingles like in the script provided.
Let's see if someone if willing to come up with a script in that manner.

[Advil]

I hava a manier, but it's again with dek a or b, so i want also a script for that.


Ik vertaal even in het nederlands voor iedereen.
Deze meneer wil graag een PAL script ofzo waarmee hij jingles kan afspelen in aux. En dat er dus bijvoorbeeld dit komt dan:

Lied (dekA) lied(dekB) lied(dekA) Jingle(aux) en zo verder....

Zou iemand zo'n script hebben? >_<

alvast bedankt!

[damijanradio]

ik denk dat het allemaal te moeilijk is ...

[drOhimself]

De starter van dit topic nasa01 :
Laatst bezocht: 25 sep 2012 16:05

Dus ik zou niet echt veel moeite meer doen.....
Of je moet dit voor je zelf willen hebben....

[daanjo]

ff snel een reactie van mijn kant....niet verstandig om dit soort topics na een bepaalde tijd te verwijderen?

Omdat er ook geen oplossing is en het topic al redelijk oud topic is.

[drOhimself]

Dat is inderdaad de moeilijke/zware taak van een moderator !
Er zijn nog zoveel topics waar niet echt een duidelijk antwoord op is gegeven.
Bijna ondoenlijk om die dan allemaal te verwijderen.
Het kan zomaar zijn dat iemand er na 2 jaar opeens een oplossing voor heeft gevonden.
Dus laten we dit soort topic ook maar gewoon staan.

Wel is het raadzaam voor reactiegevers, om even te kijken wanneer de vrager het laatst online is geweest.
Dan kan je ook meteen zien hoe 'belangrijk' de vraag was.
Meestal gaan de vragenstellers na een week nog wel eens reklameren of er al iemand is die een antwoord heeft.

[staafmixer]

Ik heb ook zelf een Jingle Script gemaakt ik denk dat dat wel aardig in de richting komt.
Sam staat op AutoDJ , waarbij om de 6 tracks via Aux1 jingles worden afgespeeld over het einde van een track en begin van een track op DeckA en DeckB.

Het enige wat mij niet lukt is om de volume aanpassingen in mijn script 'Fadebaar' te krijgen.
Ik gebruik als DSP op de mixer Sound Sollution deze vangt de fixed volume aanpassingen redelijk goed op waardoor het niet opvalt.
Als iemand hier ook een oplossing voor heeft lees ik het graag.

Code: Selecteer alles

var Player,Idle : TPlayer;
var jinglePlayer : TPlayer = Aux1;
var volume : Integer;
var jingle :TSongInfo = CAT['Jingles (All)'].ChooseSong(smLRP,NoRules);

PAL.Loop:= True;

PAL.WaitForPlayCount(5);
PAL.WaitForTime (T['+00:00:10']);
jinglePlayer.QueueSong(jingle);

while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 8000) do;
begin
     PAL.LockExecution;
     DeckA.Volume := 125;
     DeckB.Volume := 125;
     Aux1.Play;
     PAL.UnlockExecution;
   while ((jinglePlayer.Duration - jinglePlayer.CurTime) > 2250) do;
   begin
        PAL.LockExecution;
        DeckA.Volume := 255;
        DeckB.Volume := 255;
        PAL.UnlockExecution;
   end ;
end ;

Groetjes,

[Wout]

Code: Selecteer alles

PAL.Loop := True ;
    
    //PAL.WaitForPlayCount(5) ;
    
    var JinglePlayer : TPlayer = Aux1 ;
    var Tijd : Integer ;
    var Jingle :TSongInfo = CAT['Jingles (All)'].ChooseSong(smRandom,NoRules) ;

    JinglePlayer.QueueSong(Jingle) ;
    Tijd := JinglePlayer.Duration/2 ;

    while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 8000) do ;
    begin
        PAL.LockExecution ;
            ActivePlayer.FadeToNextCustom(30, Tijd) ;
            Aux1.Play ;
        PAL.UnlockExecution ;
    end ;   

    PAL.WaitForTime (T['+00:00:10']) ;      

[oberon]

Heeft er iemand deze PAL van Wout al getest?

[BeatFlex010]

Heeft er iemand deze PAL van Wout al getest?

Zojuist gedaan en hij geeft Compiler Errors als ik hem start.

[Wout]

PAL werkt alleen vanaf versie 4.9.4 & hoger.