//i have this materialization script and i need help making so it does the opposite to make a de materialization effect

float time = 0.01;

default
{
    state_entry()
    {
        llSetLinkPrimitiveParams(LINK_SET,[PRIM_GLOW,ALL_SIDES,1.0]);
        llSetLinkAlpha(LINK_SET,0.0,ALL_SIDES);
        llSetTimerEvent(time);

    }

    on_rez(integer parameters)
    {
        llPlaySound("SmithLand",1);//to play the sound when object is rezzed


        llSetLinkPrimitiveParams(LINK_SET,[PRIM_GLOW,ALL_SIDES,1.0]);
        llSetLinkAlpha(LINK_SET,0.0,ALL_SIDES);
        llSetTimerEvent(time);

    }


    timer()
    {

        float alpha=llGetAlpha(0);

        list params = llGetPrimitiveParams([PRIM_GLOW,0]);
        float glow = llList2Float(params, 0);
        //This next line you can uncomment to use for testing purposes to view the alpha and glow values during each step.
        //llOwnerSay("Glow = " + (string)glow + "Alpha = " + (string)alpha);
        llSetLinkPrimitiveParams(LINK_SET,[PRIM_GLOW,ALL_SIDES,glow-0.045]);
        llSetLinkAlpha(LINK_SET,alpha + 0.05,ALL_SIDES);
        if (alpha >= 1.0)
        {
           llSetTimerEvent(0.0);
           llSetLinkPrimitiveParams(LINK_SET,[PRIM_GLOW,ALL_SIDES,0.0]);
           llSetLinkAlpha(LINK_SET,1.0,ALL_SIDES);
        }
    }


}