User:Cow Taurog/Prim cloner
<lsl> /////////////////////////////////////////////////////////////////// // // CLONE PRIMITIVE v 2.31 // // // This script chats out lines of text that can be pasted back // into a blank script to clone the original prim. // // It also produces codeblocks optimized for automated transforms. // //
////////////////////////////////////////////////////////////////////
// // HOW TO USE // // // Drag 'n Drop this script into the prim you want to copy. // // It will output a complete script for replicating the object // in Owner-Only chat. Then it will delete itself. // // Copy and paste the chatted script into a *completly blank* // new script // // Then use the Search/Replace function under the Edit menu // to replace the "[HH:MM] :" line prefixes with a blank. // // Just hit the 'Replace All' button. // // It can take 2 minutes or more to print out, so you may have to // do this a few times. // // // The Primitve Paramaters will be chatted out in the oder that // they're featured on the offical Wiki: // // http://wiki.secondlife.com/wiki/LlGetPrimitiveParams //
///////////////////////////////////////////////////////////////////
// // WHY? // // Chances are you're not going to need an end-to-end // script to dupe your prim. Shift-drag copy is a lot easier. // // But if you're reading this you probably want some of the code, // so carve out what you need from the output. // // The output code is also commented where appropriate. If you want // To know more about what's going on, read the comments here and // check out the wiki. The wiki's good. // // Many advanced items on the grid transform from one object to // another. Builders have used scrips like this to generate the // code that goes into those products. // // Consider the use of both of llSetPrimitiveParams([]) and // llSetLinkPrimitiveParams([]). A multi-prim prim object can be // metamorphed with a single scipt. // // In my experience you can pack five complete primitive trans- // formations into one script before you run out of bytes. //
///////////////////////////////////////////////////////////////////
// // Released nder the terms of the // GNU General Public Liscence v3 // // This source code is free to use / modify / resell // with the following restrictions: // // If you include any portion of -this- script in a product you // distribute you must make the script fully mod/copy/trans for // the next user/owner. You must also liscence it under the GPL // and give attribution to the contributors. // // This does not extend to the code this script generates. That // is yours to liscense as you see fit. // // No warantee expressed or implied. // // For more info see http://www.gnu.org/copyleft/gpl.html //
///////////////////////////////////////////////////////////////////
// // Written by // Clarknova Helvetic [2008.01.04] // w/ thanks to Bopete Yossarian // ////////////////////////////////////////////////////////////////////
/// Global Functions & Vars to make life easier
float pause = .1 ; //// Change this to change the delay between each printed line.
//// The laggier the server the more delay you'll need to
//// prevent line mix-up.
// Object-Specific parameters 2 string string osp(integer p) {return llDumpList2String(llGetPrimitiveParams([p]),","); }
// Face-Specific parameters 2 string string fsp(integer p, integer f) { return llDumpList2String(llGetPrimitiveParams([p,f]),","); }
// Parameter prefixed and formatted for output string param(string p , integer q) { return p + "," + osp(q); }
// General owner chat w\ Sleep function to stop chat lag from screwing up the line order say(string c) { llSleep(pause); llOwnerSay(c); }
// Printing out next element to add to the parameter list sayn(string c) { say("\t" + c + " , "); }
// Printing out the last element to add to the parameter list saynd(string c) { say("\t" + c + "\n\n\t];"); }
// Print out the code to apply the parameters to the object define() { say("\tllSetPrimitiveParams(params);\n\tparams = [];"); }
default{
state_entry(){
say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n");
string object_name = llGetObjectName();
llSetObjectName("");
string object_desc = llGetObjectDesc();
say("\ndefault\n{\n\tstate_entry()\n\t{\n\tlist params;\n\t\n\n\t// If you are cutting code out to paste into custon functions\n\t// Define \"params\" as a global list and start cutting below this line.\n\n\tparams =");
list Param_Names = ["PRIM_TYPE",PRIM_TYPE,"PRIM_MATERIAL",PRIM_MATERIAL,"PRIM_PHYSICS",PRIM_PHYSICS,"PRIM_TEMP_ON_REZ",PRIM_TEMP_ON_REZ,"PRIM_PHANTOM",PRIM_PHANTOM,"PRIM_POSITION",PRIM_POSITION,"PRIM_ROTATION",PRIM_ROTATION,"PRIM_SIZE",PRIM_SIZE];
integer i; // You're going to see a lot of use, integer i!
integer length; // So are you, integer length!
length = (llGetListLength(Param_Names)); // I'm way lazy. Let's make LsL do basic math for us.
for ( i = 0 ; i < length ; i = i +2) // This is may answer to list strides. Take that!
{
if (i > length -3 ) // If we're at the last stride
{
saynd(param(llList2String(Param_Names,length -2), llList2Integer(Param_Names,length -1))) ; // Fecth the constants out of Param_Names.
i = length;
}
else if (i == 0) // PRIM_TYPE is a special case. But then what isn't?
{
// Checking if it's a sculptie in a rather extravagant way,
// but I also want to check my work.
integer j = llList2Integer(Param_Names,i+1); // What's the param we're checking?
list r = llGetPrimitiveParams([j]); // What are its values?
integer t = llList2Integer(r,0); // What's the first value?
if (t == 7) // if it's a sculptie
{
sayn("[\n\tPRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );
}
else sayn("[ \n \n \t" + param(llList2String(Param_Names,i), j));
}
else if (i < length -3 && i != length -6 ) sayn(param( llList2String(Param_Names,i), llList2Integer(Param_Names,i+1)) ) ;
else if (i < length -3 && i == length -6 )
{
say("\t// It's probably not a god idea to have your new prim jump to the old one\n\t// " + param( llList2String(Param_Names,i), llList2Integer(Param_Names,i+1)) + " ] + (params = []) +");
}
}
Param_Names = []; // Free up some memory
// I reallllly want our script to set all of the paramaters at once, with one llSetPrimitiveParams()
// call at the end of the script but we can't because of bugs in LsL.
//
// See https://jira.secondlife.com/browse/SVC-38 for more info. Please vote to fix it.\n\t
say("");
comment("Set all of the above paramaters as a group.");
define();
say("");
comment("We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others \n\t// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n\t// Please vote to fix it. \n");
//// Okay, now for the hard stuff: 4 out of 5 of the Face-Specific params, starting with the hardest:
//// PRIM_TEXTURE. Why is PRIM_TEXTURE a pain? Because llSetPrimitiveParams wants it in qoutes, but
//// llGetPrimitiveParams doesn't give it to us in quotes. It's a pickle.
////
//// The Face-Specific params each need thier own For loop because the number of faces is variable
//// from prim to prim. A simple sphere only has one. A tube can have up to 9.
integer sides = llGetNumberOfSides(); // So here we find out how many faces we've got
/// PRIM_TEXTURE ///
say( "\tparams = \n\t[ \n \n ");
for (i = 0 ; i < sides ; ++i)
{
list r =llGetPrimitiveParams([PRIM_TEXTURE,i]);
string s =
"\"" + llList2String(r,0) + "\"" // First element is the texture key.
+ ","
+ llList2String(r,1)
+ ","
+ llList2String(r,2)
+ ","
+ llList2String(r,3) ;
if (i < sides -1) s = s + " , " ;
else if (i == sides -1) s = s + "\n\n\t];";
say("\tPRIM_TEXTURE," + (string)i + "," + s );
// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";
}
define();
/// PRIM_COLOR ///
say( "\tparams = \n\t[ \n \n ");
for (i = 0 ; i < sides ; ++i)
{
if (i < sides -1 ) sayn("PRIM_COLOR," + (string)i + "," + fsp(PRIM_COLOR,i));
if (i == sides -1 ) saynd("PRIM_COLOR," + (string)i + "," + fsp(PRIM_COLOR,i));
}
define();
/// PRIM_BUMP_SHINY ///
say( "\tparams = \n\t[ \n \n ");
for (i = 0 ; i < sides ; ++i)
{
if (i < sides -1 ) sayn("PRIM_BUMP_SHINY," + (string)i + "," + fsp(PRIM_BUMP_SHINY,i) );
if (i == sides -1 ) saynd("PRIM_BUMP_SHINY," + (string)i + "," + fsp(PRIM_BUMP_SHINY,i));
}
define();
/// PRIM_FULLBRIGHT ///
say( "\tparams = \n\t[ \n \n ");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));
}
sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say("\t// PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say("\tPRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}
saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );
say("\tllSetPrimitiveParams(params);\tparams = [];"); // Print the final function call, braces & some blank lines
say("\n\n\t// If you were cut/pasting this code into a custom transform function\n\t// end your cut above this comment.\n\t// Otherwise ignore this.\n\n\tllSetObjectName(\"" + object_name + "\");\n");
say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n");
llSetObjectName(object_name); // Change our object's name back.
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>