list sides=[4, 6, 8, 10, 77, 78];
vector pink=<1.000, 0.682, 0.855>;

recolour(vector colour)
{
    llSetLinkPrimitiveParams(LINK_SET,[PRIM_COLOR,-1,colour,1.0]);
    rewhiten();
}

rewhiten()
{
    integer i;
    for(i=0;i<=llGetListLength(sides);++i)
    {
        llSetLinkColor(llList2Integer(sides,i),pink,-1);
    }
}
default
{
    state_entry()
    {
        llListen(-3396,"","","");
    }
    listen(integer chan,string name,key id,string msg)
    {
        key test;
        vector temp;
        test=llList2Key(llGetObjectDetails(id,[OBJECT_OWNER]),0);
        if(test == llGetOwner())
        {
            temp=(vector)msg;
            recolour(temp);
        }
    }
}