// This script gives you the texture UUID of each faces of a prim or mesh then deletes itself

default
{
    state_entry()
    {
        integer i = 0;
        integer max = llGetNumberOfSides();
        while(i < max)
        {
            llOwnerSay("Face " + (string)i + " texture is: " + (string)llGetTexture(i));
            ++i;
        }
        llRemoveInventory(llGetScriptName());
    }
}