Titel van programma laten zien

[sandeland]

Hallo Sam gebruikers, ik heb een vraagje, is het mogelijk om bijvoorbeeld als er nummers worden gespeeld er als titel wordt doorgeven Non stop muziek of een andere tekst en als er dan een gepresenteerd live of geen live programma is er dan de tekst kan komen van dat programma zodat de luisteraars dit in winamp kunnen zien?

mvg joeri

[Patjuh]

bij je encoder gegevens staat een optie station name daar kun je dat misschien neerzetten

groetjes patrick

[Kees]

Dat is niet wat hij bedoelt.
Hij wil een wisselende tekst.
Dit is denk ik wel mogelijk maar kun je eens een paar programma voorbeelden met tijden opgeven.
Kan ik een voorbeeld PAL script proberen te maken waar je zelf op verder kan borduren.
Ook even opgeven hoeveel encoders je actief hebt staan.
Heb je n.l. meerdere actief moet ik weten via welke encoder(s) de tekst moet wisselen.
Dus encoder 1, 2, 3 enz.

[sandeland]

Ik heb 1 encoder draaien dat is een normale mp3 encoder

en heb dan mijn normale playlist die hij ieder uur vult + het nieuws , dat is dan de non stop
en dan heb ik een programma lopen, dat is de Feest top 20 die loopt op vrijdagmiddag van 13:00 tot 15:00 uur en ik heb een programma lopen dat is de Jukebox dat loopt op woensdagavond om 19:00 uur

mvg Joeri

[Kees]

Ik heb 1 encoder draaien dat is een normale mp3 encoder

en heb dan mijn normale playlist die hij ieder uur vult + het nieuws , dat is dan de non stop
en dan heb ik een programma lopen, dat is de Feest top 20 die loopt op vrijdagmiddag van 13:00 tot 15:00 uur en ik heb een programma lopen dat is de Jukebox dat loopt op woensdagavond om 19:00 uur

mvg Joeri

Heb je hiervoor een PAL script draaien ?
Zo ja, kun je die online zetten.

[Kees]

Hier komt ie dan !!!
Hij is getest en het werkt !
Veel plezier er mee !

Code: Selecteer alles

// PAL SCRIPT VOOR HET WIJZIGEN VAN TEKSTEN IN WINAMP BIJ HET WISSELLEN VAN EEN PROGRAMMA
// POWERED BIJ BROADCASTERFORUM.NL
// 21-02-2008

var Song : TSongInfo;
var myCurrentSong : TSongInfo;
PAL.Loop := True;
PAL.LockExecution;


// HIER DE TEKST VOOR DE FEEST TOP 20
While (DayOfWeek(Now) = Friday) and ((Now >= T['13:00:00'])) and (Now <= T['15:00:00']) do
begin
PAL.unLockExecution;
    myCurrentSong := ActivePlayer.GetSongInfo;
    Song := TSongInfo.Create;
Song['artist'] := myCurrentSong['artist']; Song['title']  := myCurrentSong['title']+' (Je luistert naar de Feest Top 20)';
    Encoders.SongChange(Song);
    Song.Free;
PAL.LockExecution;
end;

// HIER DE TEKST VOOR DE JUKEBOX
While (DayOfWeek(Now) = Wednesday) and ((Now >= T['19:00:00'])) and (Now <= T['20:00:00']) do
begin
    PAL.UnLockExecution;
    myCurrentSong := ActivePlayer.GetSongInfo;
    Song := TSongInfo.Create;
Song['artist'] := myCurrentSong['artist']; Song['title']  := myCurrentSong['title']+' (Je luistert naar de JukeBox)';
    Encoders.SongChange(Song);
    Song.Free;
PAL.LockExecution;
end;


PAL.UnLockExecution;


// HIER DE TEKST VOOR DE NON-STOP
// HIER HOEF JE GEEN TIJDEN BIJ TE ZETTEN
// SAM PAKT DEZE AUTOMATISCH ALS ER GEEN PROGRAMMA'S ZIJN
    myCurrentSong := ActivePlayer.GetSongInfo;
    Song := TSongInfo.Create;
Song['artist'] := myCurrentSong['artist']; Song['title']  := myCurrentSong['title']+' (Non-Stop Muziek)';
    Encoders.SongChange(Song);
    Song.Free;

[FataMorgana]

Kees, dit idee trekt me ook wel aan alleen moet ik elke week ook anders instellen.
Klopt het dan dat ik in

While (DayOfWeek(Now)

de tekst 'now' moet veranderen in 01, 02, 03, 04 of 05?
Of werkt dit niet of anders?

[Kees]

Kees, dit idee trekt me ook wel aan alleen moet ik elke week ook anders instellen.
Klopt het dan dat ik in

While (DayOfWeek(Now)

de tekst 'now' moet veranderen in 01, 02, 03, 04 of 05?
Of werkt dit niet of anders?

Bedoel je daarmee het weeknummer ?

[FataMorgana]

Ja.
Bij mij herhalen de programma's zich niet elke week maar elke maand op vaste (maand-) weeknummers.
Dus op de 1e vrijdag van de maand oldies,
de 2e vrijdag hollands, etc.

(Nu nog wel want ik ben van plan hier weer af te stappen maar goed... )

[Kees]

Ik vrees,John, dat dit op weeknummer niet gaat lukken.
Wel op datum (zelfs jaar) maar ik weet niet of je hier iets aan hebt.

[FataMorgana]

Ok, maakt niet uit, laat ik wel alleen de verzamelnaam zien.
Gaat toch veranderen binnenkort denk ik.

[sandeland]

zet je deze PAL script buiten je eigenpall scipt erbij dus als er bijvoorbeeld om 1 uur een palscript start die het nieuws laat beginnen en de playlist vult , dat je dan de andere ook laat starten dezelfde tijd of moet je de pall script in de andere erbij plaatsen?

mvg joeri

[Kees]

Zet je eigen PAL script eens online.
Kan ik eens kijken of ik ze kan samenvoegen.

[sandeland]

dit is mijn pall script voor de non stop:

Queue.Clear;
Queue.AddFile('C:\Users\Fujitsu Siemens\Documents\Uurjingles\nieuws1uur.mp3',ipBottom);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Users\Fujitsu Siemens\Documents\Nieuws\nieuws.mp3',ipBottom);
Cat['uuropeners'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);

en dit is mijn pall script voor de feesttop 20 :

Queue.Clear;
Queue.AddFile('C:\Users\Fujitsu Siemens\Documents\Uurjingles\nieuws1uur.mp3',ipBottom);
ActivePlayer.FadeToNext;
Queue.AddFile('C:\Users\Fujitsu Siemens\Documents\Nieuws\nieuws.mp3',ipBottom);
Cat['uuropeners'].QueueBottom(smRandom, NoRules);
Queue.AddFile('C:\Users\Fujitsu Siemens\Documents\Programma\Feesttop20 - UUR1.mp3',ipBottom);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['totaal'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);

mvg joeri

[Kees]

Ik ga er vanuit dat je deze met de ES laat starten.
Ik zal hem helemaal herschrijven zodat hij niet met de ES start.
Even geduld dus.
Kan ik op mijn gemak :smt024 !

[sandeland]

ja klopt , ik start ieder uur een nieuwe pall met de es dit omdat ik tijdaankondigingen heb voor het nieuws.

mvg joeri

[Kees]

Vandaar die nieuws1uur.mp3.
Zijn dat gewoon 12 jingles ?
Kan ik een heel leuk PAL script voor je bouwen.
Een soort gelijk script loopt met succes bij SLOG FM.

[sandeland]

ja klopt helemaal, zo wordt ieder uur netjes de tijd aangeduid

[Kees]

Ik ga er over :smt017.
Het wordt wel even flink :smt024.
Ik ga er dus eerst even een nachtje over :sleep: :smt015.
Als ik dat niet op tijd doe, ga ik gekke :headbash: dingen doen !
Ik :mod: wel als het zover is.

[sandeland]

is er mischien iemand die een antwoord weet op mijn vraag, of mischien al een passend pall scripje heeft lopen