Remove textures from an object's ivnentory

RemoveAllTextures.lsl

CleanTextures()
{
    integer iMax = llGetInventoryNumber( INVENTORY_TEXTURE );
    integer i;

    for ( i = ( iMax - 1 ); i >= 0; i-- )
    {
        llRemoveInventory( llGetInventoryName( INVENTORY_TEXTURE, i ) );
    }
}

default
{
    state_entry()
    {
        CleanTextures();
        llRemoveInventory( llGetScriptName() );
    }
}