/*Ce script affiche une texture au-dessus de la prim qui porte le script.
La texture est vue en permanence quelque soit l'angle.
Il s'agit en fait d'une particule, avec des paramètres particuliers

Si il y a plusieurs textures dans le contenu de la prim, elles sont affichées tour à tour.

Il n'y a pas de copyright ou de droits sur ce script (license MTI/X), il s'agit simplement d'une démonstration du système de particules.

Si ce script vous inspire, faites en une adaptation et surtout dotez-le d'un habillage digne d'une bonne enseigne publicitaire.

Garmin Kawaguichi
*/

float fDelay = 10.0; //temps d'affichage d'une photo

//2 paramètres pour déterminer la taille de l'affichage
float fLargeur = 1.50; //largeur d'une photo
float fHauteur = 1.00; //hauteur d'une photo

float fAltitude = 1.50; //la distance à laquelle flotte la photo

// au cas où il n'y aurait pas de photos dans le contenu
key kPhotoDefaut = "b330562f-59da-10df-fbc6-81fd2ba7b01e";

//\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
key kTexture; //texture en cours de projection
integer iTotalPhotos; //nombre de photos dans le contenu
integer iPntPhoto;  //pointeur de la photo courante

AffPhotoPartic()
{
    llParticleSystem([  PSYS_PART_FLAGS, 0, PSYS_SRC_PATTERN, 4,
           
            //l'image à afficher
            PSYS_SRC_TEXTURE, kTexture,  
            //pour teinter la textures, le cas échéant
            PSYS_PART_START_COLOR, <1.0,1.0,1.0>,
            PSYS_PART_END_COLOR, <1.0,1.0,1.0>,
           
            //Images semi-transparentes
            PSYS_PART_START_ALPHA, 0.50,
            PSYS_PART_END_ALPHA, 0.50,
           
            //Utilisation de la taille de l'image
            PSYS_PART_START_SCALE, ,
            PSYS_PART_END_SCALE, ,
           
            //Placement au-dessus du support ; attention la rotation de la prim
            //affecte la position de la texture
            PSYS_SRC_BURST_RADIUS, fAltitude,
           
    //\\\ Ne pas modifier
    PSYS_SRC_ACCEL, <0.0, 0.0, 0.0>,
    PSYS_SRC_BURST_PART_COUNT, 8,
    PSYS_SRC_BURST_RATE, 0.10,
    PSYS_SRC_BURST_SPEED_MIN, 0.0,
    PSYS_SRC_BURST_SPEED_MAX, 0.0,
    PSYS_PART_MAX_AGE, 1.0,
    PSYS_SRC_MAX_AGE, 0.0,
    PSYS_SRC_ANGLE_BEGIN, 0.0,
    PSYS_SRC_ANGLE_END, 0.0,
    PSYS_SRC_OMEGA, <0.0,0.0,0.0>]);
}

default
{
    state_entry()
    {
        //initialisation
        llParticleSystem([]);
        iTotalPhotos = llGetInventoryNumber(INVENTORY_TEXTURE);
        iPntPhoto = 0;
        //llOwnerSay("iTotalPhotos = " + (string)iTotalPhotos);
        llSetTimerEvent(fDelay);
    }
   
    timer()
    {
        llParticleSystem([]);
        llSleep(2.0);
        if(!iTotalPhotos)   //Pas de textures dans la prim
        {
            kTexture = kPhotoDefaut;
        }
        else
        {
            kTexture = llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, iPntPhoto));
            iPntPhoto++;
            if(iPntPhoto >= iTotalPhotos)iPntPhoto = 0;
            AffPhotoPartic();
        }
       
    }

    on_rez(integer iPNumb)
    {
        llResetScript();
    }
   
    changed(integer iChange)
    {
        if(iChange & CHANGED_INVENTORY)llResetScript();
    }
}