Uur pall

[woutshov]

goedemiddag,
Ik heb onderstaand pall gemaakt en werkt perfect.
Nu zou ik willen dat de anderstalige maar 2x per uur pakt, waar kan ik dat aangeven?
Ik denk bij deze regel maar weet niet wat er komt te staan ( Cat['anderstalig'].QueueBottom(smRandom, NoRules);)
En is het misschien ook mogelijk dat ik er inzet als het is zondag 2uur dan cat zondagshow?
mvg willeke

Code: Selecteer alles

PAL.Loop := True ;
    
    var Now_minutes : String ;
    var Jingle : Integer = 1 ;
    var Queue_Time, Total_ETA : Integer;

    Now_minutes := FormatDateTime('n', Now) ;
    Total_ETA := round(((Activeplayer.Duration - ActivePlayer.CurTime) + Queue.Duration) / 60000) ;

    Queue_Time := ((60 - Now_minutes) * 60000) ;
    
    if ((Now_minutes + Total_ETA) >= 60) then
    begin
        WriteLn('Queue goed gevuld');
    end
    else
    while ((Activeplayer.Duration - ActivePlayer.CurTime) + Queue.Duration) < Queue_Time do
        Begin
            Cat['Music (All)'].QueueBottom(smLRP, EnforceRules);
            Jingle := Jingle + 1;
       Cat['anderstalig'].QueueBottom(smRandom, NoRules);
            
            if (Jingle = 3) then
                begin
                    Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
                    Jingle := 0
                    end;
            if Queue.Duration > Queue_Time then
            begin
                Queue.AddFile('************************1 uur*************************',ipBottom);
            end;        
        end;
        
    PAL.WaitForTime(T['NEXT15']);

[Wout]

Nu zou ik willen dat de anderstalige maar 2x per uur pakt, waar kan ik dat aangeven?

Code: Selecteer alles

PAL.Loop := True ;

    var Now_minutes : String ;
    var Jingle : Integer = 0 ;
    var Anders : Integer = 0 ;    
    var Queue_Time, Total_ETA : Integer;

    Now_minutes := FormatDateTime('n', Now) ;
    Total_ETA := round(((Activeplayer.Duration - ActivePlayer.CurTime) + Queue.Duration) / 60000) ;

    Queue_Time := ((60 - Now_minutes) * 60000) ;

    if ((Now_minutes + Total_ETA) >= 60) then
        begin
            WriteLn('Queue goed gevuld');
        end
    else
    while ((Activeplayer.Duration - ActivePlayer.CurTime) + Queue.Duration) < Queue_Time do
    Begin
    
        Cat['Music (All)'].QueueBottom(smLRP, EnforceRules);
        
        if (Anders = 5) then
        begin
            Cat['anderstalig'].QueueBottom(smRandom, NoRules) ;
            Anders := 0 ;
        end ;
        
        if (Jingle = 3) then
        begin
            Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
            Jingle := 0
        end ;
        
        Jingle := Jingle + 1 ;
        Anders := Anders + 1 ;
        
        if Queue.Duration > Queue_Time then
        begin
            Queue.AddFile('************************1 uur*************************',ipBottom);
        end;
        
    end;
    
    PAL.WaitForTime(T['NEXT15']); 

En is het misschien ook mogelijk dat ik er inzet als het is zondag 2uur dan cat zondagshow?

Ja, dat is mogelijk alleen moet dan heel de PAL worden verbouwd.

[woutshov]

oke wout en dat is waarschijnlijk net zo 1 2 3 gedaan, wat kan ik dan het beste doen, heb jij een ideetje

[woutshov]

wout hij doet het perfect bedankt

[music4all]

Hallo mensen, ik ben hier nieuw ook vandaag, maar heeft even een reden....

Ik zoek een script die rondom een nummer kiest uit een map om het uur

wie kan mij hier bij helpen
[smilie=yahoo.gif]