// d'après une question de Lyamme Jewell dans le groupe C&S
// Je cherche un script qui effacerait toutes les textures en double dans le contenu de l'objet

// Avec l'aide de Lalwende Leakey qui a remis les choses à l'endroit!!!

list lListUUID; //liste de toutes les clés des textures
list lTextEffac; //liste des noms de texture à enlever
integer iNumbTextures; //Nombre de textures au démarrage du script
integer iNumbEffac; //Nombre de textures à effacer
integer iMemoLibre; //taille mémoire libre au départ
integer i; integer j; integer k;// itérateurs pour boucles et listes

default
{
state_entry()
{
llSay(0, "/me est prêt ; toucher l'objet pour commencer le contrôle");
}

touch_start(integer total_number)
{
iNumbTextures = llGetInventoryNumber(INVENTORY_TEXTURE); // on compte les textures
iNumbEffac = 0; //initialisation du compteur de textures effacées
llSay(0, "Début des opérations de comparaison, veuillez patienter! Il y a " + (string)iNumbTextures + " texture(s)dans la prim");
//Remplissage de la liste des textures
for(i = iNumbTextures - 1; i >= 1; i--) //i fait l'itération dans les textures du contenu de la fin vers le début plus exactement vers la 2ème texture puisque la 1ère texture ne peut être comparée à aucune autre
{
for(j = i - 1; j >= 0; j--) //j fait l'itération dans les textures du contenu de la texture qui précède i vers le début
{
if(
llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, j))
==
llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, i))
) //on compare les clés des 2 textures
{
//llOwnerSay((string)i + " (" + llGetInventoryName(INVENTORY_TEXTURE, j) + ") = " + (string)j + " (" + llGetInventoryName(INVENTORY_TEXTURE, j) + ")");
llRemoveInventory(llGetInventoryName(INVENTORY_TEXTURE, i)); //on supprime la texture pointée par i dans le contenu
iNumbEffac++; //incrémzentation du compteur des effacés
j = -1; //Comme i n'est plus consistant on interrompt la boucle de J
}
}
}

//Le balayage du contenu est fait
if(iNumbEffac) // y at'il eu des supprimés?
{ //oui
if(iNumbEffac == 1)llSay(0, "/me a effacé " + (string)iNumbEffac + " texture.");
else llSay(0, "/me a effacé " + (string)iNumbEffac + " textures.");;
}
else //la liste est vide ! rien à effacer
{
llSay(0, "/me n'a trouvé aucune texture à effacer");
}
}
}