ANTI-NL script

[drOhimself]

Het komt wel eens voor dat je bepaalde genres juist NIET wilt afspelen.
Bijvoorbeeld als je een hekel hebt aan Nederlandstalige muziek (of Duits, of noem-maar-op).
Je hebt jouw muziek verzameling goed op orde, dat wil zeggen, je hebt bij al jouw nummers het 'genre' goed ingevuld.
Indien jouw SAM automatisch de queue vult, kan het makkelijk gebeuren dat er een nummer tussen komt, die toevallig het 'verkeerde' genre heeft.

Nog voordat dit nummer afgespeelt wordt, wordt het ong. 10 seconden voor de start in de 2e player gezet.
Dat is de 'QueuedPalyer'. Daar kunnen we op testen met het volgende scriptje :

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
var Done : Boolean = False;
var Song : TSongInfo;
While not Done do
	begin
		if QueuedPlayer <> nil then
		begin
			Done := True;
			Song := QueuedPlayer.GetSongInfo;
			if 	( Song['genre'] = 'Nederlands' ) or
				( Song['genre'] = 'nederlands' ) or 
				( Song['genre'] = 'Hollands' ) or 
				( Song['genre'] = 'Dutch' ) or 
				( Song['genre'] = 'Feest muziek' ) or 
				( Song['genre'] = 'Duits' ) or
				( Song['genre'] = 'Nederlandstalig' )
			then QueuedPlayer.Eject;
		end; //case
	end;
 drOhimself for BroadcasterForum 2017-07-16

Uiteraard kun je dit voor allerlei andere genres gebruiken.
Je kunt het ook aanpassen indien je tijdens bepaalde uren van de dag er gebruik van wilt maken.

[GerberaRadio]

Hoi Hoi, Heb je ook een script die je in je schedule kan plaatsen? Zodat je op bepaalde tijdstippen genre's wel tussen door komen?
Alvast bedankt voor de hulp!

[drOhimself]

Geen idee of dit ook werkt in je Schedule.
Je zou dat gewoon kunnen proberen.

[GerberaRadio]

Maar dat script werkt niet in de schedule! Dus hoe past je dit aan?

[GerberaRadio]

Ik probeerde een beetje aan het script te sleutelen, maar ik kom er niet uit! Ik wil deze werkend hebben om 18:58 en om 23:58 kan de genre's weer gedraaid worden! Graag uitleg of script ervoor? Alvast bedankt voor de hulp!

Dé de Haas (GerberaRadio)

[GerberaRadio]

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
PAL.WaitForTime(T['18:58:00']);
var Done : Boolean = False;
var Song : TSongInfo;
While not Done do
   begin

      if QueuedPlayer <> nil then
      begin
         Done := True;
         Song := QueuedPlayer.GetSongInfo;
         if    ( Song['genre'] = 'Nederlands' ) or
            ( Song['genre'] = 'nederlands' ) or 
            ( Song['genre'] = 'Hollands' ) or 
            ( Song['genre'] = 'Feest muziek' ) or
            ( Song['genre'] = 'Duits' ) or
            ( Song['genre'] = 'Nederlandstalig' )   or
            ( Song['genre'] = 'Dutch' )   or
            ( Song['genre'] = 'Palingsound' )  or
            ( Song['genre'] = 'Evergreens' )

         then QueuedPlayer.Eject;
      end; //case
      end;
PAL.WaitForTime(T['23:58:00']);

[GerberaRadio]

Ik weet niet of dit werkt, laat mij even weten ik test zelf ook!

[DjEricDaCosta]

Leuk idee en zeer handig om een Genre uit te sluiten Thanks

[GerberaRadio]

Erg handig, maar met die tijden werkt het niet echt! Bij dat laatste regel blijft hij hangen! Dus dat heb ik al getest! Hoe zorg ik voor dat de anti Nederlands script werkt zonder dat ik handmatig hoef te starten en te stoppen!

[DjEricDaCosta]

Erg handig, maar met die tijden werkt het niet echt! Bij dat laatste regel blijft hij hangen! Dus dat heb ik al getest! Hoe zorg ik voor dat de anti Nederlands script werkt zonder dat ik handmatig hoef te starten en te stoppen!

Misschien // voor de laatste regel in het script plaatsen?

// drOhimself for BroadcasterForum 2017-07-16

[GerberaRadio]

Het is de bedoeling dat er geen Nederlands of dutch etc tussen 18:58 en 06:58! Maar ik test dit scripje hij blijft op 23:58 hangen waar door het script niet werkt!

[drOhimself]

Zou zoiets misschien werken voor je ?

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
var Done : Boolean = False;
var Song : TSongInfo;
while DayOfWeek(Now) = Monday and ((Now >= T['18:58:']) and (Now <= T['23:58:00'])) do
		begin
			While not Done do
				begin
					if QueuedPlayer <> nil then
						begin
							Done := True;
							Song := QueuedPlayer.GetSongInfo;
							if	( Song['genre'] = 'Nederlands' ) or
								( Song['genre'] = 'nederlands' ) or 
								( Song['genre'] = 'Hollands' ) or 
								( Song['genre'] = 'Feest muziek' ) or
								( Song['genre'] = 'Duits' ) or
								( Song['genre'] = 'Nederlandstalig' )   or
								( Song['genre'] = 'Dutch' )   or
								( Song['genre'] = 'Palingsound' )  or
								( Song['genre'] = 'Evergreens' )
							then QueuedPlayer.Eject;
						end; //case
				end;
		end;

[GerberaRadio]

Dank je wel man! Helemaal top!

Dé de Haas

[drOhimself]

Als het werkt, is het mooi.
Als je het BEGRIJPT, is het natuurlijk nog mooier!


Verzonden vanaf mijn iPhone met Tapatalk