message = TEXTURE,2,1,xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx

    listen( integer channel, string name, key id, string message )
    {
        my_list = llParseString2List(message,[","],[""]);

        if (llList2String(my_list,0) == "TEXTURE")
        {
            llSay(0, message);
            llSetLinkPrimitiveParams( llList2Integer(my_list,1), [
            PRIM_TEXTURE,  llList2Integer(my_list,2), llList2Key(my_list,3), <1.0, 1.0, 0.0>, ZERO_VECTOR, 0.0]);
        }
	}