J'ai du faire gourance !

Bonjour à tous

J'ai adapté un script pour Sam qui ne donne pas les résultats attendus.

D'abord, voila le script :

{#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 ;

Le résultat laisse à désirer car :

- quelques catégories ne sont jamais jouées

- des répétitions apparaissent dans les catégories

Si quelqu'un pouvait m'aider.... Ce serait très sympa

Bonnes fêtes de fin d'année à tous

Alain

Remplace smLRP par smRandom ;)

Cependant pour faire respecter les règles de rotation, je ne sait pas encore ce qu'il faut mettre, avis aux conaisseurs ^^

Tchaw ;)