Skin applier

integer APPKEY = 987654321;
integer CH;
integer n;

integer Key2AppChan(key ID, integer App) {
    return 0x80000000 | ((integer)("0x"+(string)ID) ^ App);
}

string keyword="Applier";

key tex_head;
key tex_upper;
key tex_lower;

integer part(string texture, string test)
{
    integer index = llSubStringIndex(texture, llToLower(test));
    return index;
}

default
{
    state_entry()
    {
        CH = Key2AppChan(llGetOwner(), APPKEY);
    }

    touch_start(integer num)
    {
        integer num_tex = llGetInventoryNumber(INVENTORY_TEXTURE);
        llOwnerSay((string)num_tex+" textures found");

        for(n=0;n<num_tex;++n)
        {
            string tex_name = llToLower(llGetInventoryName(INVENTORY_TEXTURE, n));
            llOwnerSay("Texture #"+n+" = "+tex_name);

            if(part(tex_name, "head") > 0 ) {
                tex_head=llGetInventoryKey(tex_name);
            }
            if(part(tex_name, "face") > 0 )  {
                tex_head=llGetInventoryKey(tex_name);
            }
            if(part(tex_name, "upper") > 0 )  {
                tex_upper=llGetInventoryKey(tex_name);
            }

            if(part(tex_name, "lower") > 0 )  {
                tex_lower=llGetInventoryKey(tex_name);
            }
        }

        llSay(CH,keyword+"%head_" +tex_head);
        llSay(CH,keyword+"%upper_"+tex_upper);
        llSay(CH,keyword+"%lower_"+tex_lower);
    }
}