Smooth fading of a linked set using one script.

Wrote a small code snippet i use to fade in and out the text display on the Rox Media Center.

It basiclly fades out or in a set nr of linked prims using one script.

Learnt alot from this forum so i figured id share it with ya all. And hopefully someone can improve it even more.

float alpha;
float fadespeed = 0.02; //This sets the speed of the fading in and out effect.

integer visible = FALSE;
integer links = 10; //Change this to how many linked objects you have.
integer linknr;


fadeout()
{
    if (visible == TRUE)
    {
        alpha = llGetAlpha(1)*10;
        do
        {   
            ++alpha;
                do
                    llSetLinkAlpha(linknr,alpha/10,ALL_SIDES);
                while((++linknr)<links);
            linknr = 0;
            llSleep(fadespeed);
        }
        while((integer)alpha<10);
        visible = FALSE;
    }
}
fadein()
{
    if (visible == FALSE)
    {
        alpha = llGetAlpha(1)*10;
        do
        {   
            --alpha;
                do
                   llSetLinkAlpha(linknr,alpha/10,ALL_SIDES);
                while((++linknr)<links);
            linknr = 0;        
            llSleep(fadespeed);
        }
        while(alpha>0);
        visible = TRUE;
    }
}

default
{
    state_entry()
    {
    }
     link_message(integer sender, integer num, string str, key id)
    {
        if (str == "show")
        {
            fadeout();

        }
        if (str == "hide")
        {
            fadein();
        }
    }
}