{#0# Boucle qui reprend au début lorsque le script arrive à la fin}
PAL.Loop := True ;

{#1# Insertion de chansons dans la file d'attente depuis plusieurs catégories}
CAT['francais'].QueueBottom(smLemmingLogic,EnforceRules) ;
CAT['italien'].QueueBottom(smLRP,EnforceRules) ;
CAT['actus'].QueueBottom(smLRP,EnforceRules) ;
CAT['promo'].QueueBottom(smLRP,EnforceRules) ;
CAT['africa'].QueueBottom(smLRP,EnforceRules) ;
CAT['anglais'].QueueBottom(smLRP,EnforceRules) ;
CAT['francais'].QueueBottom(smLRP,EnforceRules) ;
CAT['francais'].QueueBottom(smLRP,EnforceRules) ;
CAT['promo'].QueueBottom(smLRP,EnforceRules) ;

{#2# Pause le temps que quelques chansons soient jouées pour éviter de surcharger la file d'attente}
repeat
PAL.WaitForPlayCount(1) ;
until Queue.Count <3 ;