SimpleMLPStylingScript

Ok, bit of old and ugly code here. Publishing anyways as example.

What it does. This is an MLP plugin that allows styling of objects. Textures, colors, shinyness. Those are usually enough for most furniture.

Per link, you must describe in the link properties if it is subject to a particular styling paramaters. Those are: Color1, Color2, Texture and Shiny. They are represent as :C+: :C2+: :T+: and :S+: So, a linked prim, like a cushion, that is subject to color and texture, would read: :C+:T+: Another linked prim, like a wooden base, would be subject to color2 (wood shades) and shininess. It's description would read :C2+:S+:

You can activate the plugin by sending commands via a linked message on channel 13335 Example entry in MLP or TMCP notecard: MENU Styling | OWNER LINKMSG Light Colors |1,-4,-13335,LightPalette LINKMSG Dark Colors |1,-4,-13335,Palette LINKMSG Adjust Color|1,-4,-13335,AdjustColor LINKMSG Fabric|1,-4,-13335,MenuTexture LINKMSG Wood Color |1,-4,-13335,WoodPalette //LINKMSG SomeTexture|0,-4,-13335,SetTexture:<uuid> //LINKMSG Color Menu|1,-4,-13335,MenuColor //LINKMSG Gray|0,-4,-13335,SetColor:<0.5,0.5,0.5> TOMENU Shadow LINKMSG Shiny Wood|0,-4,-13335,SetShiny:3 LINKMSG Satin Wood|0,-4,-13335,SetShiny:1 LINKMSG Pale Wood|0,-4,-13335,SetShiny:0 TOMENU Size BACK

MENU Shadow | ALL This example sets the root prim's alpha.. adjust link number to whatever the shadow texture was LINKMSG No Shadow|0,-4,-13335,SetAlpha:1:0 LINKMSG Light Shadow|0,-4,-13335,SetAlpha:1:0.5 LINKMSG Full Shadow|0,-4,-13335,SetAlpha:1:1.0 BACK

MENU Size | OWNER LINKMSG Grow|0,-4,-13335,ObjectGrow LINKMSG Shrink|0,-4,-13335,ObjectShrink BACK

The styling script is as follows, and again, sorry for bit messy code.. Publishing anyways, might post an update. <lsl> //THIS SCRIPT ASSUMES A FEW THINGS //* THAT ITS CALLED / INITIATED BY MLP or something else that invokes a linked message //That the root prim is colorable just like all childs //That the root prim needs no (re)texturing but all childs do. //Must customize this script for color palette, textures, and/or menu stuff you want in or out - no external configuration

//+BRIGHT CONTRAST+ +SATURATION //-BRIGHT CONTRAST- -SATURATION //+RED //+BLUE //+GREEN //-RED //-BLUE //-GREEN

//PALETTE

vector myColor; //reads root prim color on startup integer channel; integer handle;

list Palette=[ "BORDEAUX", "PINK", "AQUA",

               "TEAL", "SKY", "NAVY", 
               "OKER", "BROWN", "CREAM",
               "BLACK", "GREY", "DARKBROWN"];
               

list PaletteC=[ <0.35,0,0>, <1,0.5,0.5>, <0.3,1.0,0.8>,

               <0,0.35,0.6>, <0.7,0.75,1>, <0,0,0.35>,
               <0.61,0.6,0.12>, <0.3,0.2,0.05>, <1.0,1.0,0.9>,
               <0.01,0.01,0.05>, <0.35,0.35,0.35>, <0.12,0.08,0>];

list PaletteLight=["BLUE1", "BLUE2", "BLUE3",

               "PINK1", "PINK2", "PINK3", 
               "GREEN1", "GREEN2", "CREAM1",
               "WHITE", "GREY2", "AMBER" ];
               

list PaletteL=[ <0.8,0.8,1.0>, <0.9,0.9,1.0>, <0.7,0.8,1.0>,

               <1.0,0.7,0.7>, <1.0,0.8,0.8>, <1.0,0.9,0.9>,
               <0.7,1.0,0.7>, <0.82,1.0,0.8>, <1.0,0.960,0.879>,
               <1.0,1.0,1.0>, <0.75,0.75,0.75>, <1.0, 0.9, 0.6>];
               

list PaletteWood =[ "Cherry", "Oak", "Mahogany",

                   "Pine", "Ebony", "Maple",
                   "OldOak", "Rosewood", "Elm",
                   "Walnut", "DarkWalnut", "Onyx"];

list PaletteW=[ <0.6,0.28,0.18>, <0.62,0.41,0.21>, <0.26,0.08,0.05>,

               <0.76,0.53,0.19>, <0.12,0.11,0.11>, <0.77,0.45,0.26>,
               <0.59,0.4,0.24>, <0.3,0.15,0.15>, <0.4,0.25,0.2>,
               <0.5,0.40,0.28>, <0.29,0.14,0.05>, <0.22,0.19,0.14>];

list Textures = [

   "d14c73dd-9844-3fec-3405-c2cfa6cfae92",
   "29e827fe-6d57-e155-eaed-236a58b71244",
   //"1ae6c524-9a2e-b3a5-6349-4b99dfd861a3",
   //"06811c28-baae-68f8-18b6-38c7819f977f",
   "3486effe-7ab4-d955-6b4f-a85a3325a287",
   //"9e14c601-a7b0-e0e3-585d-a494c320fa87",
   //"80d859fb-dab4-9446-2d79-2d2a9693759d"
   "59d84d87-6ff5-a1b7-3f3b-d45c09ac05c1",
   "a523d079-6e2e-5832-8ac5-30b8c6092508",
   "feddf1ac-8176-11fe-0bc1-696544037253",
   "12d82751-1cd1-8f25-166c-5e2bcb2ed2d6",
   "24cf6699-b625-c06c-b2cd-984b28eb09e0",
   "7b71d0bc-d329-b94e-2fa8-0b584ca0e80c",
   "d598017c-0f6a-42ec-52f6-899be6e82878",
   "ddd57884-5a7b-f658-c8ab-d34df5d6d38e",
   "3fda0baa-d584-7d22-ed54-3943ef26c37f"    

];

list TextureNames = [

   "Stripes",
   "Ghecko",
   //"Bleached",
   //"Modern",
   "LineArt",
   //"Flowers",
   //"Victorian"
   "Leaves",
   "Old green",
   "Classic Leaves",
   "African",
   "Worn",
   "Abstract",
   "Elephant",
   "Wave",
   "Leather"
   ];

string colorStr() {

   return "\nCurrent: [ R="+(string)llRound(100*myColor.x)+"  G="+(string)llRound(100*myColor.y)+"  B="+(string)llRound(100*myColor.z)+" ]";  

}

menuPalette (key id) {

   llDialog (id, "Choose a color"+colorStr(), llListSort(Palette,1,TRUE), channel);
   setListen();

} menuPaletteL (key id) {

   llDialog (id, "Choose a color"+colorStr(), llListSort(PaletteLight,1,TRUE), channel);

} menuWoodPalette (key id) {

   llDialog (id, "Choose a color"+colorStr(), llListSort(PaletteWood,1,TRUE), channel);

}

menuAdjust (key id) {

   llDialog (id, "Adjust color\nHint: use HUE for small color shifts."+colorStr(),
       [
        "- SATURATION", "- HUE", "+ HUE",
        "+ SATURATION", "- BLUE", "+ BLUE",
        "- BRIGHT", "- GREEN", "+ GREEN",
       "+ BRIGHT", "- RED", "+ RED"
        ],
        channel);    

} menuColor(key id) {

   llDialog(id, "Option", ["Adjust", "Palette", "Palette Light"], channel);    

}

menuTexture(key id) {

   /*
   list l;
   integer i=llGetListLength(Textures);
   for (;i;i--) {
       l+="Fabric "+(string)i;   
   }
   llDialog (id, "Select fabric", l, channel);
   */
   llDialog (id, "Select fabric", llListSort(TextureNames,1,TRUE), channel);

}

scale(float s) {

   if (s<0.10)
       return;
   llSetScale(s*llGetScale());       
   if (llGetNumberOfPrims()>1) {
       integer i;
       for (i=2; i<=llGetNumberOfPrims(); i++) {
           list l=llGetLinkPrimitiveParams(i, [PRIM_POS_LOCAL, PRIM_SIZE]);
           //llOwnerSay ("PP:"+(string)l);
           vector newpos=s*(llList2Vector(l,0));   
           vector newscale=s*llList2Vector(l,1);   
           if (newscale==ZERO_VECTOR) //something went wrong
               return;            
           llSetLinkPrimitiveParamsFast (i, [PRIM_POS_LOCAL, newpos, PRIM_SIZE, newscale]);            
       }
   }    

}

setColor (vector c) {

   //check bounds
   if (c.x < 0) c.x=0;
   if (c.x > 1) c.x=1;   
   if (c.y < 0) c.y=0;
   if (c.y > 1) c.y=1;   
   if (c.z < 0) c.z=0;
   if (c.z > 1) c.z=1;   
   myColor=c;
   if (llGetNumberOfPrims()==1)
       llSetColor(myColor, ALL_SIDES);
   else {
       integer i;
       for (i=0; i<=llGetNumberOfPrims(); i++) { //root is 0 or 1, silly SL
           string d=llList2String(llGetLinkPrimitiveParams(i, [PRIM_DESC]),0);
           if (-1!=llSubStringIndex(d, ":C+:"))
               llSetLinkColor(i, myColor, ALL_SIDES);
       }
   }

}

setColor2 (vector c) {

   //check bounds
   if (c.x < 0) c.x=0;
   if (c.x > 1) c.x=1;   
   if (c.y < 0) c.y=0;
   if (c.y > 1) c.y=1;   
   if (c.z < 0) c.z=0;
   if (c.z > 1) c.z=1;   
   myColor=c;
   if (llGetNumberOfPrims()==1)
       llSetColor(myColor, ALL_SIDES);
   else {
       integer i;
       for (i=0; i<=llGetNumberOfPrims(); i++) { //root is 0 or 1, silly SL
           string d=llList2String(llGetLinkPrimitiveParams(i, [PRIM_DESC]),0);
           if (-1!=llSubStringIndex(d, ":C2+:"))
               llSetLinkColor(i, myColor, ALL_SIDES);
       }
   }

}

setTexture (string texture) {

   if (llGetNumberOfPrims()==1)
       llSetTexture(texture, ALL_SIDES);   
   else {
       integer i;
       for (i=0; i<=llGetNumberOfPrims(); i++) { //root is 0 or 1, silly SL
           string d=llList2String(llGetLinkPrimitiveParams(i, [PRIM_DESC]),0);
           if (-1!=llSubStringIndex(d, ":T+:"))
               llSetLinkTexture(i, texture, ALL_SIDES);
       }
   }

}

setShiny (integer s) {

       integer i;
       for (i=0; i<=llGetNumberOfPrims(); i++) { //root is 0 or 1, silly SL
           string d=llList2String(llGetLinkPrimitiveParams(i, [PRIM_DESC]),0);
           if (-1!=llSubStringIndex(d, ":S+:"))
               llSetLinkPrimitiveParams(i, [PRIM_BUMP_SHINY, ALL_SIDES,s, 
                   //existing bumpmap:
                   llList2Integer(llGetLinkPrimitiveParams(i, [PRIM_BUMP_SHINY, ALL_SIDES]),1)
               ]);
       }

}

setListen() {

   llListenControl (handle, TRUE);
   llSetTimerEvent (0.0);
   llSetTimerEvent (120.0);

}

//funky color conv, tx Sally! vector RGB2HSV( vector rgb ) {

   float R = rgb.x;
   if (R<0)        // catch malformed input
       R=0;
   else if (R>1)
       R=1;
   float G = rgb.y;
   if (G<0)        // catch malformed input
       G=0;
   else if (G>1)
       G=1;
   float B = rgb.z;
   if (B<0)        // catch malformed input
       B=0;
   else if (B>1)
       B=1;

   float H;
   float S;
   float V;

   list rgbList = [R, G, B]; // list used to get min and max

   float min;
   float max;
   float achromatic;  // =1 if R=G=B
   float delta;

   vector hsv;  // the return HSV vector

   min = llListStatistics(LIST_STAT_MIN, rgbList); //MIN of ( R, G, B );
   max = llListStatistics(LIST_STAT_MAX, rgbList); //MAX of ( R, G, B );
   if (R==G && G==B)
       achromatic = 1;  // it is a shade of grey, white or black
   else
       achromatic = 0;

   V = max;                    // V = brightness Value form 0 to 1
   delta = max - min;

   if( max != 0 )
       S = delta / max;        // S = saturation from 0 to 1
   else {
       // R = G = B = 0        // S = 0, V = 0, H = 0
       S = 0;                  
       V = 0;                  
       H = 0;

       hsv.x = H;
       hsv.y = S;
       hsv.z = V;
       return hsv;             //H = S = V = 0
   }

   if (achromatic == 1)
       H = 0;
   else if( R == max )
       H = 0 + ( G - B ) / delta;    // between red & yellow
   else if( G == max )
       H = 2 + ( B - R ) / delta;    // between yellow & cyan
   else
       H = 4 + ( R - G ) / delta;    // between cyan & red


   H *= 60;                          // H is traditionally a figure between 0 and 360 degrees
   if( H < 0 )
       H += 360;

   hsv.x = H;
   hsv.y = S;
   hsv.z = V;
   return hsv;

}

vector HSV2RGB( vector hsv ) {

   integer i;

    float H = hsv.x;
    while (H<0)        // catch malformed H input
       H+=360;
    while (H>=360)
       H-=360;
    float S = hsv.y;
    if (S<0)        // catch malformed S input
   S=0;
    else if (S>1)
   S=1;
    float V = hsv.z;
    if (V<0)        // catch malformed V input
   V=0;
    else if (V>1)
   V=1;

   float R;
   float G;
   float B;

   float f;         // variables for calculating base color mixing around the "spectrum circle"
   float p;
   float q;
   float t;

   vector rgb;

   if( S == 0 ) {  // achromatic (grey) simply set R,G, & B = Value
       R = V;
       G = V;
       B = V;

       rgb.x = R;
       rgb.y = G;
       rgb.z = B;
       return rgb;
   }

   H /= 60;              // Hue factored into range 0 to 5
   i = llFloor( H );      // integer floor of Hue
   f = H - i;            // factorial part of H

   p = V * ( 1 - S );
   q = V * ( 1 - S * f );
   t = V * ( 1 - S * ( 1 - f ) );

   if (i==0){
       R = V;
       G = t;
       B = p;
   } else if (i==1){
       R = q;
       G = V;
       B = p;
   } else if (i==2){
       R = p;
       G = V;
       B = t;
   } else if (i==3){
       R = p;
       G = q;
       B = V;
   } else if (i==4){
       R = t;
       G = p;
       B = V;
   } else {       
       R = V;
       G = p;
       B = q;
   }

   rgb.x = R;
   rgb.y = G;
   rgb.z = B;

   return rgb;

}

default {

   state_entry()
   {
       myColor = llGetColor(ALL_SIDES);
       integer i;
       for (i=0; i<=llGetNumberOfPrims(); i++) { //root is 0 or 1, silly SL
           string d=llList2String(llGetLinkPrimitiveParams(i, [PRIM_DESC]),0);
           if (-1!=llSubStringIndex(d, ":C+:")) {
               myColor=llList2Vector(llGetLinkPrimitiveParams(i, [PRIM_COLOR, ALL_SIDES]),0);
           }
       }
       
       
       //llOwnerSay("Color: "+(string)myColor);
       channel=10000+llRound(llFrand(320932));
       handle=llListen(channel, "", "", "");
       llListenControl(handle, FALSE);
   }
   
   on_rez(integer n) {
       llResetScript();   
   }

   link_message(integer ch, integer n, string data, key id) {
       if (n==-13335) {
           //hack.. just don't flood this please (...)
           //but we try to get this menu on top of MLP menu
           //llSleep (1.0);
           
           list l=llParseString2List(data, [":"], []);
           string d=llList2String(l,0);
           string p=llList2String(l,1);
           //interesting, styling command
           setListen();
           if (d=="MenuColor")
               menuColor(id);
           else if (d=="MenuTexture")
               menuTexture(id);
           else if (d=="ObjectGrow")
               scale(1.05);
           else if (d=="ObjectShrink")
               scale(1.0/1.05);
           else if (d=="Palette")
               menuPalette(id);
           else if (d=="LightPalette")
               menuPaletteL(id);    
           else if (d=="WoodPalette")
               menuWoodPalette(id);    
           else if (d=="AdjustColor")
               menuAdjust(id);
           else if (d=="SetTexture") {
               //we really need a texture handle that'd perfectly fit
               setTexture(p);   
           } else if (d=="SetColor") {
               setColor ((vector)p);   
           } else if (d=="SetColor2") {
               setColor2 ((vector)p);   
           } else if (d=="SetAlpha") {
               llSetLinkAlpha((integer)p, (float)llList2String(l, 2), ALL_SIDES);   
           } else if (d=="SetShiny") {
               setShiny((integer)p);   
           } else if (d=="Shiny") {
               llSetLinkPrimitiveParams((integer)p, [PRIM_BUMP_SHINY, ALL_SIDES,(integer)llList2String(l,2), 
                   //existing bumpmap:
                   llList2Integer(llGetLinkPrimitiveParams((integer)p, [PRIM_BUMP_SHINY, ALL_SIDES]),1)
               ]);
           } else if (d=="Link___") {
               //template for any value on any link..
               llSetLinkPrimitiveParamsFast((integer)p, [(integer)llList2String(l,2), (float)llList2String(l,3)]);
           }
           
       }   
   }
   
   listen (integer ch, string n, key id, string d) {
       
       //only listen to agents
       if (llGetAgentSize(id)); else return; 
       
       //user still active; assume no other spam on this channel        
       setListen();
       
       if (d=="<<BACK")
           menuColor(id);
       else if (d=="Adjust")
           menuAdjust(id);
       else if (d=="Palette")
           menuPalette(id);
       else if (d=="Palette Light")
           menuPaletteL(id);
       else {
           integer i=llListFindList(Palette+PaletteLight, [d]);
           if (i>=0) {
               //set color to palette entry
               setColor(llList2Vector(PaletteC+PaletteL, i));
               if (-1!=llListFindList(Palette, [d]))
                   menuPalette(id);
               else
                   menuPaletteL(id);
               return;    
           }
           i=llListFindList(PaletteWood, [d]);
           if (i>=0) {
               //set color to palette entry
               setColor2(llList2Vector(PaletteW, i));
               menuWoodPalette(id);
               return;    
           }
           
                 
           list m=llParseString2List(d, [" "], []);
           string o=llList2String(m,0);
           string p=llList2String(m,1);
           
           if ((o=="-") || (o=="+")) {
               float f=-1.0;
               if (o=="+")
                   f=1.0;
               if (p=="BRIGHT")
                   setColor(0.05*f*<1,1,1> + myColor);
               else if (p=="SATURATION")
                   //setColor(myColor + 0.05*f*(myColor-<0.55,0.55,0.55>));
                   setColor (HSV2RGB(<0,0.075*f,0>+RGB2HSV(myColor)));
               else if (p=="RED")
                   setColor(f*<0.05,0,0> + myColor);
               else if (p=="GREEN")
                   setColor(f*<0,0.05,0> + myColor);
               else if (p=="BLUE")
                   setColor(f*<0,0,0.05> + myColor);
               else if (p=="HUE")
                   setColor (HSV2RGB(<15.0*f,0,0>+RGB2HSV(myColor)));
               menuAdjust(id);
               return;
           }
           /*
           if (o=="Fabric") {
               setTexture(llList2String(Textures, (integer)p-1));
               menuTexture(id);
           }
           */
           i=llListFindList(TextureNames, [d]);
           if (i>=0) {
               setTexture (llList2String(Textures, i));
               menuTexture(id);   
           }
           
       }
   }
   
   timer() {
       llSetTimerEvent(0.0);
       llListenControl (handle, FALSE);   
   }

}

</lsl>

Happy scripting.