Second Life Wiki - User contributions [en]

User:Clarknova Helvetic/Clone Primitive v2.0

2008-09-29T18:02:52Z

Clarknova Helvetic: /* BUGS */ recessive fexibility

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

[[User:Anylyn_Hax#SetPrimitiveParams-Example|This project by Anyln_Hax]] does something similar, but is human readable rather than compiler readable.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

=== '''Havok4''' ===

In Havok4 PRIM_CAST_SHADOWS seems depreciated. Neither llGet nor llSet consider it a valid flag.

=== '''UV Map Keys''' ===

It looks like llGet won't retrieve the key of a map you don't have perms for, even if you have full perms for the prim it's applied to. Trying it returns [[NULL_KEY]]. The same isn't true for normal textures.

=== '''Recessive Fexibility''' ===

Sometimes [[llGetPrimitiveParams|llGetPrimitiveParams()]] will find that a prim is flexible, even if isn't. When you clone, suddenly your object is all floppy.

If the prim was made flexible at one point, changed to a torus or tube, then changed back the flexibility becomes latent. [[PRIM_FLEXIBLE]] is still TRUE, but SL won't treat it as such.

Obviously there are two variables storing this param server-side. Both have to be TRUE for the prim to be flexible. The client editor and LsL will toggle them both, but changing the prim to a tube/torus only toggles one.

It's almost as if flexibility is a recessive trait :D

Thanks to [[User:Lac_Boram|Lac Boram]] for finding this one.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-09-28T22:17:16Z

Clarknova Helvetic: /* BUGS */ PRIM_FLEXIBLE and the prim previously known as "Torus"

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

[[User:Anylyn_Hax#SetPrimitiveParams-Example|This project by Anyln_Hax]] does something similar, but is human readable rather than compiler readable.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

=== '''Havok4''' ===

In Havok4 PRIM_CAST_SHADOWS seems depreciated. Neither llGet nor llSet consider it a valid flag.

=== '''UV Map Keys''' ===

It looks like llGet won't retrieve the key of a map you don't have perms for, even if you have full perms for the prim it's applied to. Trying it returns [[NULL_KEY]]. The same isn't true for normal textures.

=== '''PRIM_FLEXIBLE and the primitive previously known as "Torus"''' ===

Sometimes llGetPrimitiveParams() will find that a prim is flexible, even if it isn't in the client editor. When you clone, suddenly your object is all floppy.

This will happen if the prim was made flexible at one point, switched to a torus or tube, then switched back to a prim that supports flexibility. Since toroids and tubes can't be flexible they're simply not rendered Flexi. When you change them back to boxes PRIM_FLEXIBLE is still TRUE, but for some reason SL won't treat them as such.

This suggests that there are two variables storing this parameter server-side. Both have to be TRUE for the prim to be flexible. The client and LsL will toggle them both, but changing the prim to a tube or torus only toggles one.

It's almost as if flexibility is a recessive trait!
Thanks to [[User:Lac_Boram|Lac Boram]] for finding this one.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-28T23:07:16Z

Clarknova Helvetic: /* '''UV Map Keys'''' */ returns null_key instead

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

[[User:Anylyn_Hax#SetPrimitiveParams-Example|This project by Anyln_Hax]] does something similar, but is human readable rather than compiler readable.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

=== '''Havok4''' ===

In Havok4 PRIM_CAST_SHADOWS seems depreciated. Neither llGet nor llSet consider it a valid flag.

=== '''UV Map Keys''' ===

It looks like llGet won't retrieve the key of a map you don't have perms for, even if you have full perms for the prim it's applied to. Trying it returns [[NULL_KEY]]. The same isn't true for normal textures.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-28T22:58:19Z

Clarknova Helvetic: /* What's it for? */ link to User:Anylyn_Hax's project

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

[[User:Anylyn_Hax#SetPrimitiveParams-Example|This project by Anyln_Hax]] does something similar, but is human readable rather than compiler readable.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

=== '''Havok4''' ===

In Havok4 PRIM_CAST_SHADOWS seems depreciated. Neither llGet nor llSet consider it a valid flag.

=== '''UV Map Keys'''' ===

It looks like llGet can't retrieve the Sculpt Map key of a texture that you don't have perms for, even if you have full perms for the prim it's applied to. The same isn't true for normal textures.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-28T22:29:17Z

Clarknova Helvetic: /* BUGS */ H4 & Sculptie keys

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

=== '''Havok4''' ===

In Havok4 PRIM_CAST_SHADOWS seems depreciated. Neither llGet nor llSet consider it a valid flag.

=== '''UV Map Keys'''' ===

It looks like llGet can't retrieve the Sculpt Map key of a texture that you don't have perms for, even if you have full perms for the prim it's applied to. The same isn't true for normal textures.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic

2008-01-28T18:45:29Z

Clarknova Helvetic: /* Jiras I'm watching */

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripts & tools ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter: 
[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]] 
[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]] 
[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]] 
They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Gen Chan|Gen Chan]] is a snippet that allows for ''very'' private object-to-object communication.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] is a sweet little tool for setting sit targets; created by [[User:Clarknova Helvetic/Lex Neva|Lex Neva]] and upgraded to teleport-worthiness by moi.

== Jiras I'm watching ==

[http://jira.secondlife.com/browse/SVC-1243 Make prims at least 20m in H4]

[http://jira.secondlife.com/browse/SVC-1146 old Havok1 llSetPrimitiveParams workaround failing it in Havok4]

[http://jira.secondlife.com/browse/SVC-1307 PRIM_CAST_SHADOWS depreciated(?) in H4]

''[https://jira.secondlife.com/secure/IssueNavigator.jspa?reset=true&reporterSelect=specificuser&reporter=Clarknova+Helvetic All My Jiras]''

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic

2008-01-28T18:41:14Z

Clarknova Helvetic: /* Jiras I'm watching */

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripts & tools ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter: 
[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]] 
[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]] 
[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]] 
They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Gen Chan|Gen Chan]] is a snippet that allows for ''very'' private object-to-object communication.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] is a sweet little tool for setting sit targets; created by [[User:Clarknova Helvetic/Lex Neva|Lex Neva]] and upgraded to teleport-worthiness by moi.

== Jiras I'm watching ==

[http://jira.secondlife.com/browse/SVC-1243 Make prims at least 20m in H4]

[http://jira.secondlife.com/browse/SVC-1146 old Havok1 llSetPrimitiveParams workaround failing it in Havok4]

[http://jira.secondlife.com/browse/SVC-1307 PRIM_CAST_SHADOWS depreciated(?) in H4]

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic

2008-01-28T18:40:27Z

Clarknova Helvetic: /* Jiras worth voting for */ changed name, added two jiras

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripts & tools ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter: 
[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]] 
[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]] 
[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]] 
They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Gen Chan|Gen Chan]] is a snippet that allows for ''very'' private object-to-object communication.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] is a sweet little tool for setting sit targets; created by [[User:Clarknova Helvetic/Lex Neva|Lex Neva]] and upgraded to teleport-worthiness by moi.

== Jiras I'm watching ==

[http://jira.secondlife.com/browse/SVC-1243 Make prims at least 20m in H4]

[http://jira.secondlife.com/browse/SVC-1146 H1 llSetPrimitiveParams failing it in H4]

[http://jira.secondlife.com/browse/SVC-1307 PRIM_CAST_SHADOWS depreciated(?) in H4]

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic/Gen Chan

2008-01-26T08:04:15Z

Clarknova Helvetic: article created

This '''genChan()''' function returns a large negative number based on a ''key'', a ''modifier'', and a ''pin''.

The number is within bounds for object-to-object chat channels, but out of range of the channel scanners currently on the market.

If the key, modifier and pin are the same, the channel will be uniform regardless of the script.

This isn't randomness, and it's not encryption, but it's simple and quick, and good enough to make reverse engineering of the system communications in real time super duper impractical.

<lsl>integer secret_channel;

// Where k is the owner's key, mod is either 2 or 3, and pin is a number between 1 & 500,000

integer genChannel(key k , integer mod, integer pin)
{
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
} </lsl>

You can define the channel in state_entry() thus:

<lsl>secret_channel = genChan(llGetOwner() , 2 , 12345); </lsl>

As long as the pin is secret your cooms will be too.

User:Clarknova Helvetic/Sit TP Positioner

2008-01-25T03:36:12Z

Clarknova Helvetic: updated to add sensor fallback

This set of scripts is for making perfect sit targets. It was first written by Lex Neva and heavily abused by me to adapt it for 300m sit-teleport support. You can use it for a sit target just 2cm away, or for from region corner to corner.

== Behavior ==

The sit target setter comes in two parts: the ''Helper'' object and the ''Setter'' script.

<ul>

<li> First you sit on the ''Helper''. If you have an animation to align, put the anim in the Helper before sitting. </li>

<li> After moving the Helper so your avatar is aligned and rotated properly, Put the ''Setter'' script into your chair or teleport object. </li>

<li> First the Setter broadcasts a region-wide message. When the Helper replies, it sets the target. The Helper also draws a line of particles to the chair. </li>

<li> If the Helper is too far away, the Setter warns you and tells you how many meters too far. </li>

<li> If the Helper doesn't reply, the Setter script tries to find it by sensor instead. This is useful if your teleport offset needs to be over no-script land. </li>

<li> If the Setter can't find the Helper at all, it tells you and gives you a list of possible reasons. </li>
</ul>

An unlimited number of builders can use their own copy simultaneously. They will never interfere.

There are two flavors of Setter script: ''touch_start'' and ''drag 'n drop''. The touch_start sets a new sit target each time the chair is touched. You must remove this script manually. The drag 'n drop Setter sets the sit target and then removes from object inventory.

== Helper script ==

Drop this script into a new box prim. It transforms the prim into the Helper.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Helper prim script

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/wiki/User:Clarknova_Helvetic/Sit_TP_Positioner

default {

on_rez(integer p) { llResetScript(); }

state_entry() {

// This ugly part turns our prim into a purple ball with the right name.
llSetPrimitiveParams([PRIM_TYPE,3,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.000000, 0.000000, 0.000000>,<0.000000, 1.000000, 0.000000> , PRIM_POINT_LIGHT,0,<1.000000, 1.000000, 1.000000>,1.000000,10.000000,0.750000 , PRIM_COLOR,0,<0.729412, 0.160784, 0.717647>,1.000000 , PRIM_BUMP_SHINY,0,1,0 ]);
llSetPrimitiveParams([PRIM_ROTATION,<0.000000, 0.000000, 0.000000, 1.000000> , PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 , PRIM_SIZE,<0.250000, 0.250000, 0.250000> ]);
// Ugly all done :)

llParticleSystem([]);
llSitTarget(<0,0,1>, ZERO_ROTATION);

llListen( -13374138 , "" , NULL_KEY , "Ping?");

}

listen(integer chan , string name , key id , string msg )
{

if (llList2Key(llGetObjectDetails(id,[OBJECT_OWNER]),0) == llGetOwner() )
{

////// Some neat particles to show the link line :)
//
// Calculate the lifespan of the particles so they don't move to fast
vector start_scale = <.2,.4,.0>; vector end_scale = <.25,.45,.0>;
float part_age = .3 * (llVecDist(llList2Vector(llGetObjectDetails(id,[OBJECT_POS]),0),llGetPos()));
if (part_age > 30.) {
vector mod = < 0., (part_age / 30.), 0.>; part_age = 30.; start_scale = start_scale + mod; end_scale = end_scale + mod; }
// Generate the particles
llParticleSystem([2,1.0,4,1.0,1,<0.847059, 0.301961, 0.835294>,3,<0.729412, 0.160784, 0.717647>,5,start_scale,6,end_scale,19,0.0,7,part_age,13,0.0,15,10,9,2,8,<75.0,0.0,0.0>,0,483,20,id]);

//// Pong!
llRegionSay(-13374137 , "Pong!" );
}
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
}</lsl>

Make sure you stick your animation in the helper prim before you sit.

== Target Setter (on touch) ==

Next drop this script into your chair or teleport pad or whatever. Then touch.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Sets on touch.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/wiki/User:Clarknova_Helvetic/Sit_TP_Positioner

key owner;

default
{

state_entry() { owner = llGetOwner(); }

touch_start(integer total_number) {

integer i;
for (i = 0 ; i < total_number ; ++i )
{
if (llDetectedKey(i) == llGetOwner())
{
llOwnerSay("Querying Sit Target Helper...");
llListen( -13374137 , "" , NULL_KEY , "Pong!");
llRegionSay(-13374138,"Ping?");
llSetTimerEvent( 10. );
}
}
}

listen(integer chan , string name , key id , string msg )
{

list details = llGetObjectDetails(id,[OBJECT_OWNER,OBJECT_POS,OBJECT_ROT]);

if ( llList2Key(details,0) == owner )
{

vector helper_pos = llList2Vector(details,1);
rotation helper_rot = llList2Rot(details,2);

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");

}

else
{

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}
llSetTimerEvent(0.);
}

}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() {
llOwnerSay("Query timed out. Now trying by sensor...");
llSensor("Sit Target/Teleport Helper",NULL_KEY,SCRIPTED,96,PI);
}
sensor(integer num) {

integer i;
for ( i = 0 ; i < num ; ++i)
{

if ( llList2Key(llGetObjectDetails(llDetectedKey(i),[OBJECT_OWNER]),0) == owner )
{
rotation helper_rot = llDetectedRot(i);
vector helper_pos = llDetectedPos(i);

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);

llOwnerSay("Sit target set by sensor. Helper's probbaly in a no-script parcel.\nllSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");
}
}
llSetTimerEvent(0.);

}
no_sensor() {
llOwnerSay("Can't find helper! Problem could be:\nA) Helper's in no-script parcel and further away than 96m\nB) Helper's in another sim\nC) Laaaaaaaaaaag!\n\tAnyway, try again!");

llSetTimerEvent(0.);
}
}</lsl>

Adjust and touch as many times as you need. Remember to remove the script when done.

== Target setter (drag 'n drop) ==

This script does the same as the one above. The difference is that once you drag the script in your chair it sets the target and deletes from prim inventory. Fire and forget.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Drag -n- drop version.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// Drag 'n drop adaptation also by CH. I like doing things this way :)
// https://wiki.secondlife.com/wiki/User:Clarknova_Helvetic/Sit_TP_Positioner

key owner;

default
{
state_entry() {
owner = llGetOwner();
llOwnerSay("Querying Sit Target Helper...");
llListen( -13374137 , "" , NULL_KEY , "Pong!");
llRegionSay(-13374138,"Ping?");
llSetTimerEvent( 10. );
}

listen(integer chan , string name , key id , string msg )
{

list details = llGetObjectDetails(id,[OBJECT_OWNER,OBJECT_POS,OBJECT_ROT]);

if ( llList2Key(details,0) == owner )
{

vector helper_pos = llList2Vector(details,1);
rotation helper_rot = llList2Rot(details,2);

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");
}

else {

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}

llRemoveInventory(llGetScriptName());
}
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() {
llOwnerSay("Query timed out. Now trying by sensor...");
llSensor("Sit Target/Teleport Helper",NULL_KEY,SCRIPTED,96,PI);
}
sensor(integer num) {

integer i;
for ( i = 0 ; i < num ; ++i)
{

if ( llList2Key(llGetObjectDetails(llDetectedKey(i),[OBJECT_OWNER]),0) == owner )
{
rotation helper_rot = llDetectedRot(i);
vector helper_pos = llDetectedPos(i);

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);

llOwnerSay("Sit target set by sensor. Helper's probbaly in a no-script parcel.\nllSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");
}
}
llRemoveInventory(llGetScriptName());

}
no_sensor() {
llOwnerSay("Can't find helper! Problem could be:\nA) Helper's in no-script parcel and further away than 96m\nB) Helper's in another sim\nC) Laaaaaaaaaaag!\n\tAnyway, try again!");

llRemoveInventory(llGetScriptName());
}
}</lsl>

User:Clarknova Helvetic

2008-01-24T08:49:11Z

Clarknova Helvetic: jiras worth voting for

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripts & tools ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter: 
[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]] 
[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]] 
[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]] 
They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Gen Chan|Gen Chan]] is a snippet that allows for ''very'' private object-to-object communication.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] is a sweet little tool for setting sit targets; created by [[User:Clarknova Helvetic/Lex Neva|Lex Neva]] and upgraded to teleport-worthiness by moi.

== Jiras worth voting for ==

[http://jira.secondlife.com/browse/SVC-1243 Make prims at least 20m in H4]

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic/Sit TP Positioner

2008-01-24T07:35:22Z

Clarknova Helvetic: /* Target setter - drag 'n drop */ asdf

This set of scripts is for making perfect sit targets. It was first written by Lex Neva and heavily abused by me to adapt it for 300m sit-teleport support. You can use it for a sit target just 2cm away, or for from one region corner to the other.

== Helper script ==

To get started drop the following script into a new prim. It's your Helper prim. You sit on it and edit it to where you want your av to be.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Helper prim script

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= || < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default {

on_rez(integer p) { llResetScript(); }

state_entry() {

// This ugly part turns our prim into a purple ball.
llSetPrimitiveParams([PRIM_TYPE,3,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.000000, 0.000000, 0.000000>,<0.000000, 1.000000, 0.000000> , PRIM_POINT_LIGHT,0,<1.000000, 1.000000, 1.000000>,1.000000,10.000000,0.750000 , PRIM_COLOR,0,<0.729412, 0.160784, 0.717647>,1.000000 , PRIM_BUMP_SHINY,0,1,0 ]);
llSetPrimitiveParams([PRIM_ROTATION,<0.000000, 0.000000, 0.000000, 1.000000> , PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 , PRIM_SIZE,<0.250000, 0.250000, 0.250000> ]);
// Ugly all done :)

llParticleSystem([]);
llSitTarget(<0,0,1>, ZERO_ROTATION);
channel = genChannel(llGetOwner() , 2 , 300 );

llListen( channel , "" , NULL_KEY , "Where are you?");

}

listen(integer chan , string name , key id , string msg )
{

////// Some neat particles to show the link line :)
//
// Calculate the lifespan of the particles so they don't move to fast
vector start_scale = <.2,.4,.0>; vector end_scale = <.25,.45,.0>;
float part_age = .3 * (llVecDist(llList2Vector(llGetObjectDetails(id,[OBJECT_POS]),0),llGetPos()));
if (part_age > 30.) {
vector mod = < 0., (part_age / 30.), 0.>; part_age = 30.; start_scale = start_scale + mod; end_scale = end_scale + mod; }
// Generate the particles
llParticleSystem([2,1.0,4,1.0,1,<0.847059, 0.301961, 0.835294>,3,<0.729412, 0.160784, 0.717647>,5,start_scale,6,end_scale,19,0.0,7,part_age,13,0.0,15,10,9,2,8,<75.0,0.0,0.0>,0,483,20,id]);

//// Tell our object where we are
llRegionSay(channel , (string)llGetRot() + "@" + (string)llGetPos() );
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
}</lsl>

If you actually read that you'll see that you can also stick an animation in the helper prim and it'll play it while you sit.

== Target Setter (on touch) ==

Next drop this script into your chair or teleport pad or whatever. Then touch. It sets the sit target of the prim to be exactly where your av is sitting on the helper.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Sets on touch.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= 1 or < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default
{
touch_start(integer total_number) {

integer i;
for (i = 0 ; i < total_number ; ++i )
{
if (llDetectedKey(i) == llGetOwner())
{
llOwnerSay("Querying Sit Target Helper...");
channel = genChannel(llGetOwner() , 2 , 300 );
llListen( channel , "" , NULL_KEY , "");
llRegionSay(channel,"Where are you?");
llSetTimerEvent( 10. );
}
}
}

listen(integer chan , string name , key id , string msg )
{

integer at = llSubStringIndex( msg, "@" );

rotation helper_rot = (rotation)(llGetSubString(msg, 0, at - 1));
vector helper_pos = (vector)(llGetSubString(msg, at + 1,-1));

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");
}

else {

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}
llSetTimerEvent(0.);

}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() { llOwnerSay("Query timed out. You sure your Helper is in the same sim? \n Anyway, try again."); }
}</lsl>

If successful, particles will flow from your Helper to the chair prim. If your target is too far away, or not in the same region, you'll be warned instead.

Adjust and touch as many times as you need. Remember to remove the script when done.

== Target setter (drag 'n drop) ==

This script does the same thing as the one above. The difference is that once you drag the script in your chair it sets the target and deletes from prim inventory. Fire and forget.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Drag -n- drop version.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// Drag 'n drop adaptation also by CH. I like doing things this way :)
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= 1 or < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default
{
state_entry() {
llSitTarget(ZERO_VECTOR,ZERO_ROTATION);
llOwnerSay("Querying Sit Target Helper...");
channel = genChannel(llGetOwner() , 2 , 300 );
llListen( channel , "" , NULL_KEY , "");
llRegionSay(channel,"Where are you?");
llSetTimerEvent( 10. );
}

listen(integer chan , string name , key id , string msg )
{

integer at = llSubStringIndex( msg, "@" );

rotation helper_rot = (rotation)(llGetSubString(msg, 0, at - 1));
vector helper_pos = (vector)(llGetSubString(msg, at + 1,-1));

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");
}

else {

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}

llRemoveInventory(llGetScriptName());
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() { llOwnerSay("Query timed out. You sure your Helper is in the same sim? \n Anyway, try again."); llRemoveInventory(llGetScriptName()); }
}</lsl>

User:Clarknova Helvetic

2008-01-24T07:32:37Z

Clarknova Helvetic: /* Scripting Widgets */ now scripts&tools

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripts & tools ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter: 
[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]] 
[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]] 
[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]] 
They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Gen Chan|Gen Chan]] is a snippet that allows for ''very'' private object-to-object communication.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] is a sweet little tool for setting sit targets; created by [[User:Clarknova Helvetic/Lex Neva|Lex Neva]] and upgraded to teleport-worthiness by moi.

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic/Sit TP Positioner

2008-01-24T07:21:21Z

Clarknova Helvetic: article created

This set of scripts is for making perfect sit targets. It was first written by Lex Neva and heavily abused by me to adapt it for 300m sit-teleport support. You can use it for a sit target just 2cm away, or for from one region corner to the other.

== Helper script ==

To get started drop the following script into a new prim. It's your Helper prim. You sit on it and edit it to where you want your av to be.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Helper prim script

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= || < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default {

on_rez(integer p) { llResetScript(); }

state_entry() {

// This ugly part turns our prim into a purple ball.
llSetPrimitiveParams([PRIM_TYPE,3,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.000000, 0.000000, 0.000000>,<0.000000, 1.000000, 0.000000> , PRIM_POINT_LIGHT,0,<1.000000, 1.000000, 1.000000>,1.000000,10.000000,0.750000 , PRIM_COLOR,0,<0.729412, 0.160784, 0.717647>,1.000000 , PRIM_BUMP_SHINY,0,1,0 ]);
llSetPrimitiveParams([PRIM_ROTATION,<0.000000, 0.000000, 0.000000, 1.000000> , PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 , PRIM_SIZE,<0.250000, 0.250000, 0.250000> ]);
// Ugly all done :)

llParticleSystem([]);
llSitTarget(<0,0,1>, ZERO_ROTATION);
channel = genChannel(llGetOwner() , 2 , 300 );

llListen( channel , "" , NULL_KEY , "Where are you?");

}

listen(integer chan , string name , key id , string msg )
{

////// Some neat particles to show the link line :)
//
// Calculate the lifespan of the particles so they don't move to fast
vector start_scale = <.2,.4,.0>; vector end_scale = <.25,.45,.0>;
float part_age = .3 * (llVecDist(llList2Vector(llGetObjectDetails(id,[OBJECT_POS]),0),llGetPos()));
if (part_age > 30.) {
vector mod = < 0., (part_age / 30.), 0.>; part_age = 30.; start_scale = start_scale + mod; end_scale = end_scale + mod; }
// Generate the particles
llParticleSystem([2,1.0,4,1.0,1,<0.847059, 0.301961, 0.835294>,3,<0.729412, 0.160784, 0.717647>,5,start_scale,6,end_scale,19,0.0,7,part_age,13,0.0,15,10,9,2,8,<75.0,0.0,0.0>,0,483,20,id]);

//// Tell our object where we are
llRegionSay(channel , (string)llGetRot() + "@" + (string)llGetPos() );
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
}</lsl>

If you actually read that you'll see that you can also stick an animation in the helper prim and it'll play it while you sit.

== Target Setter (on touch) ==

Next drop this script into your chair or teleport pad or whatever. Then touch. It sets the sit target of the prim to be exactly where your av is sitting on the helper.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Sets on touch.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= 1 or < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default
{
touch_start(integer total_number) {

integer i;
for (i = 0 ; i < total_number ; ++i )
{
if (llDetectedKey(i) == llGetOwner())
{
llOwnerSay("Querying Sit Target Helper...");
channel = genChannel(llGetOwner() , 2 , 300 );
llListen( channel , "" , NULL_KEY , "");
llRegionSay(channel,"Where are you?");
llSetTimerEvent( 10. );
}
}
}

listen(integer chan , string name , key id , string msg )
{

integer at = llSubStringIndex( msg, "@" );

rotation helper_rot = (rotation)(llGetSubString(msg, 0, at - 1));
vector helper_pos = (vector)(llGetSubString(msg, at + 1,-1));

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");
}

else {

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}
llSetTimerEvent(0.);

}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() { llOwnerSay("Query timed out. You sure your Helper is in the same sim? \n Anyway, try again."); }
}</lsl>

If successful, particles will flow from your Helper to the chair prim. If your target is too far away, or not in the same region, you'll be warned instead.

Adjust and touch as many times as you need. Remember to remove the script when done.

== Target setter - drag 'n drop ==

This script does the same thing as the one above. The difference is that once you drag the script in your chair it sets the target and deletes from prim inventory. Fire 'n forget.

<lsl>// Sit target system by Lex Neva. Please distribute willy-nilly.
// http://forums.secondlife.com/showthread.php?t=153278&highlight=target

// Sit target setting script. Drag -n- drop version.

// Support for Teleport-range setting shoehorned in by Clarknova Helvetic
// Drag 'n drop adaptation also by CH. I like doing things this way :)
// https://wiki.secondlife.com/w/index.php?title=User:Clarknova_Helvetic/Sit_TP_Positioner&action=submit

// Generate a private chat channel based on key, JUSSSSSST in case
// two people are using a sit positioner in the same sim.
integer channel;
integer genChannel(key k , integer mod, integer pin)
{ // NOTE : mod must = 1 or 2 , pin must be >= 1 or < 500,000
float a = (float)("0x"+llGetSubString( (string)k, mod,-1));
integer b = llRound( llFabs(a) - a*2 + pin );
return b;
}

default
{
state_entry() {
llSitTarget(ZERO_VECTOR,ZERO_ROTATION);
llOwnerSay("Querying Sit Target Helper...");
channel = genChannel(llGetOwner() , 2 , 300 );
llListen( channel , "" , NULL_KEY , "");
llRegionSay(channel,"Where are you?");
llSetTimerEvent( 10. );
}

listen(integer chan , string name , key id , string msg )
{

integer at = llSubStringIndex( msg, "@" );

rotation helper_rot = (rotation)(llGetSubString(msg, 0, at - 1));
vector helper_pos = (vector)(llGetSubString(msg, at + 1,-1));

vector my_pos = llGetPos();
rotation my_rot = llGetRot();

float distance = llVecDist(my_pos,helper_pos);

vector target_pos = ZERO_VECTOR;

if ( distance > 300.) {
llOwnerSay("Sit target is " + (string)(distance - 300.) + "m too far away! \n( if you lost your Helper it's at " + (string)helper_pos +" )");
}

else {

// calculate where the avatar actually is
vector avatar_pos = helper_pos + <0,0,1> * helper_rot; // due to helper's sit target
avatar_pos = avatar_pos - <0,0,0.186> + <0,0,0.4> * helper_rot; // correct for a bug in llSitTarget(), for helper sit target

target_pos = (avatar_pos - my_pos) / my_rot;
target_pos = target_pos + <0,0,0.186>/my_rot - <0,0,0.4>; // correct for the bug again, this time in my sit target
rotation target_rot = helper_rot / my_rot;

llSitTarget(target_pos, target_rot);
llOwnerSay("llSitTarget(" + (string)target_pos + ", " + (string)target_rot + ");");

}

llRemoveInventory(llGetScriptName());
}

changed(integer change) {
if (llAvatarOnSitTarget() != NULL_KEY)
llRequestPermissions(llAvatarOnSitTarget(), PERMISSION_TRIGGER_ANIMATION);
}

run_time_permissions(integer perm) {
string anim = llGetInventoryName(INVENTORY_ANIMATION, 0);
if (anim != "") {
llStopAnimation("sit");
llStopAnimation("sit_generic");
llStopAnimation("sit_female");
llStartAnimation(anim);
}
}
timer() { llOwnerSay("Query timed out. You sure your Helper is in the same sim? \n Anyway, try again."); llRemoveInventory(llGetScriptName()); }
}</lsl>

User:Clarknova Helvetic

2008-01-24T02:08:24Z

Clarknova Helvetic: threw in some bookmarks. furhter changes pending

If you were linked from the SL forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripting Widgets ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter. They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]]

[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]]

[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]]

This is a very sweet little tool for setting sit targets, created by ___ and upgraded to teleport-worthiness by moi.

[[User:Clarknova Helvetic/Sit TP Positioner|Sit TP Positioner]] <nowiki>[[ COMING SOON! ]]</nowiki>

== Interesting stuff ==

[http://www.openlifegrid.com/ Run your own sim!]

[http://nicholaz-beresford.blogspot.com/ Nicholaz patched viewer]

[https://lists.secondlife.com/pipermail/secondlifescripters/2006-November/000180.html RSA in LsL]

[http://www.youtube.com/watch?v=Gy9hQDT6fhI ell oh ell]

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-16T01:25:05Z

Clarknova Helvetic: /* '''Attributes that won't copy''' */

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* Sit Targets
* For Sale flag and price
* Group/Owner/Creator info (duh)

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Jana Kamachi/RandomLinker

2008-01-12T00:22:47Z

Clarknova Helvetic: lsl markup instead of preformat tag

{{Jana}}
Great fun, but also very useful.

<lsl>default
{
timer()
{
llSetLinkPrimitiveParams(llGetNumberOfPrims(), [PRIM_POSITION,<llFrand(10),llFrand(10),llFrand(10)>,PRIM_ROTATION,<llFrand(15),llFrand(15),llFrand(15),llFrand(15)>]);
}

touch_start(integer total_number)
{
llSetTimerEvent(0.001);
}
state_entry()
{
llSitTarget(<0.1,0.1,0.1>,<0,0,0,0>);
}
}</lsl>

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-11T05:03:43Z

Clarknova Helvetic: /* The Script */ fixed escaped char leak

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* For Sale flag and price
* Group/Owner/Creator info (duh)

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-11T02:19:31Z

Clarknova Helvetic: left a tab-indent escaped

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

* Title your comments & announce changes with a <nowiki>{{message}}</nowiki> tag and put them in the comments section.

* Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== '''Comments''' ==

{{message}} Output code whitespace irregularities fixed and script name in comment header changed to "CLONE PRIMITIVE v 2.31". Migrating to main page. —[[User:Clarknova Helvetic|Clarknova Helvetic]] 19:04, 9 January 2008 (PST)

{{message}} previous whitespace fix left a tab-indent escaped, which made the "\t" leak intot he output code. fixed. migrated. —[[User:Clarknova Helvetic|Clarknova Helvetic]] 18:19, 10 January 2008 (PST)

== Beta Code ==
<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-10T03:10:36Z

Clarknova Helvetic: /* '''Attributes that won't copy''' */ + Particles

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* Particles
* For Sale flag and price
* Group/Owner/Creator info (duh)

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-10T03:06:31Z

Clarknova Helvetic: wiki markup is arcane :)

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

* Title your comments & announce changes with a <nowiki>{{message}}</nowiki> tag and put them in the comments section.

* Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== '''Comments''' ==

{{message}} Output code whitespace irregularities fixed and script name in comment header changed to "CLONE PRIMITIVE v 2.31". Migrating to main page. —[[User:Clarknova Helvetic|Clarknova Helvetic]] 19:04, 9 January 2008 (PST)

== Beta Code ==
<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-10T03:04:18Z

Clarknova Helvetic: /* '''Comments''' */

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

* Title your comments & announce changes with a <nowiki>{{message}}</nowiki> tag and put them in the comments section.

* Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== '''Comments''' ==

{{message}} Output code whitespace irregularities fixed and script name in comment header changed to "CLONE PRIMITIVE v 2.31". Migrating to main page. —[[User:Clarknova Helvetic|Clarknova Helvetic]] 19:04, 9 January 2008 (PST)

== Beta Code ==
<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-10T03:03:30Z

Clarknova Helvetic: /* BUGS */ uncopyable attributes

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

=== '''Code Block Limit''' ===

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after three or so iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

=== '''PRIM_TEXGEN''' ===

aka ''Planar Mapping'' flags are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

=== '''Attributes that won't copy''' ===

Some prim attributes are persistent independent of scripts, but cannot be set or read by ll*etPrimitiveParams([]).

* Right click default action
* Texture animations
* For Sale flag and price
* Group/Owner/Creator info (duh)

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-09T21:25:02Z

Clarknova Helvetic: whitespace irregularities fixed in v2.31

'''Clone Primitive v2.31''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

'''Code Block Limit'''

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after six or iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

'''PRIM_TEXGEN'''

aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-09T21:21:53Z

Clarknova Helvetic: whitespaces fixed. page slightly reformatted

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

* Title your comments & announce changes with a <nowiki>{{message}}</nowiki> tag and put them in the comments section.

* Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== '''Comments''' ==

{{message}} Output code whitespace irregularities fixed and script name in comment header changed to "CLONE PRIMITIVE v 2.31". Migrating to main page.

{{message}} Both fixed, migrating to main page.

== Beta Code ==
<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 = [];"); }

// Handle to insert comments
comment(string c) { say("\n\t// " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
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 =");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// 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();

comment("Note that you -cannot- define textures and colors in the same call!\n\t// If you're cutting out these params for your custom code watch out for this.\n");

/// 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));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n\t// Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n\t// The default value is 1 (distorted).\n\t// if you are metamorphing an object that already had planar mapping (rare)\n\t// uncomment those 0 lines.\n\t// This may not seem like much savings\n\t// but if your script is trying to metamorph between as many as five objects\n\t// those few bytes saved might come in handy at the end.\n\n\t// If your textures are coming out with the offsets all wrong, try uncommenting them.");
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," , ") + " , ");
}

/// The last paramater is Object-Specific

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"); // Make the target's name match this one
say("\n\tllSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n\tllRemoveInventory(llGetScriptName());\n\t}\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}</lsl>

User:Jana Kamachi/tut wprimz

2008-01-09T19:39:30Z

Clarknova Helvetic: added your <lsl> syntax tags, made the prim rescale and the script self-delete. Thanks for releasing this discovery. You pwn :)

First thing first, rez a prim.

Now, make a new script, and stick this in it:

<lsl>default
{
state_entry()
{
llSetPrimitiveParams([PRIM_TYPE,4, 0, <0.000000, 1.000000, 0.000000>, 0.000000, <0.000000, 0.000000, 0.000000>, <1.000000, 0.150000, 0.000000>, <0.000000, 0.000000, 0.000000>, <0.000000, 1.000000, 0.000000>, <0.000000, 0.000000, 0.000000>, 4.000000, 0.000000, 0.800000, PRIM_SIZE, <.5,1.,1.>]);
llRemoveInventory(llGetScriptName());
}
}</lsl>

Save and run the script. You now have your shape. Try positioning it on yourself, around your waist, and see the effects. If it doesn't seem to be working, you may just be off a bit.

User:Clarknova Helvetic

2008-01-08T22:40:57Z

Clarknova Helvetic: I can edit my page as much as I want!

User:Clarknova Helvetic/Clear Param Widgets

2008-01-08T22:09:52Z

Clarknova Helvetic: no sit target

'''These Scripts clear a single param. Drag 'n drop.'''

== '''Just Die''' ==
Sometimes a prim jest don't die natural.
<lsl>default
{
state_entry()
{
llDie();
}
}</lsl>

== '''Die in X Minutes''' ==
Enter minutes in whole numbers, then drop script into prim
<lsl>integer minutes = 20; // Change this to the number of minutes for the object to live.

default
{
state_entry() { llSetTimerEvent((float)minutes*60.); }
timer()
{
llInstantMessage(llGetOwner(),(string)llRound(minutes) + " minutes expired. " + llGetObjectName() + " deleted.");
llDie();
}
}</lsl>

== '''Clear Hover Text''' ==
<lsl>default
{
state_entry()
{
llSetText("",ZERO_VECTOR,0.);
llRemoveInventory(llGetScriptName());
}
}</lsl>

== '''Clear Particles''' ==
<lsl>default
{
state_entry()
{
llParticleSystem([]);
llRemoveInventory(llGetScriptName());
}
}</lsl>

== '''Stop Sound''' ==
<lsl>default
{
state_entry()
{
llStopSound();
llRemoveInventory(llGetScriptName());
}
}</lsl>

== No Sit Target ==
<lsl>default
{
state_entry()
{
llSitTarget(<0.,0.,0.>,ZERO_ROTATION);
llRemoveInventory(llGetScriptName());
}
}</lsl>

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T20:52:12Z

Clarknova Helvetic: Whoops! left in the output code too. Don't need that here.

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

Title your comments with a <nowiki> === </nowiki> '''Level 3 Headline''' <nowiki> === </nowiki> and put them in the comments section.

Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== Comments ==

=== A Sample Comment ===
Delete me!

== Beta Code ==
<lsl>
///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

User:Clarknova Helvetic/Clear Param Widgets

2008-01-08T20:44:58Z

Clarknova Helvetic: <lsl> tags

User:Clarknova Helvetic/Set Param Widgets

2008-01-08T20:37:09Z

Clarknova Helvetic: <lsl> tags added

'''These Scripts are for setting a quick param.'''

== '''Disposable Sit Target''' ==
Drag 'n drop to have something to sit on
<lsl>default
{
state_entry()
{
llSitTarget(<0,0,0.5>;
llRemoveInventory(llGetScriptName());
}
}</lsl>

== '''Set Texture By Key''' ==
Enter key and side number, then drop script into prim
<lsl>key texture = "" ;
integer face = ALL_SIDES; // or individual side number

// Use CTRL ALT SHIFT T to get the number of the face you've selected.
// Turn on admin options CTRL ALT V to get the key this way as well.

// Note that getting texure keys this way does not work in newer clients because
// fasion designers are the worthless dregs of human culture and will be
// shot dead in the former parking lots of thier studios which thier
// forced labor will have converted into civic gardens after the revolution.

default
{
state_entry()
{
llSetTexture(texture,face);
llRemoveInventory(llGetScriptName());
}
}</lsl>

== '''Set Hover Text''' ==
Enter text, color and alpha, then drop script into prim
<lsl>string text = "";
vector color = <1.,1.,1.>;
float alpha = 1.0;

default
{
state_entry()
{
llSetText(text,color,alpha);
llSetTimerEvent(5.*60);
}
touch_start(integer n)
{
llRemoveInventory(llGetScriptName());
}
timer() { llRemoveInventory(llGetScriptName()); }
}</lsl>

User:Clarknova Helvetic/Say This & That Widgets

2008-01-08T19:25:59Z

Clarknova Helvetic: blocks wrapped in <lsl> tags

== '''Say Own Pos''' ==

<lsl>
default
{
state_entry()
{
llInstantMessage(llGetOwner(), "my pos is " + (string)llGetPos());
llRemoveInventory(llGetScriptName());
}
}
</lsl>

== '''Say Own Rotation''' ==

<lsl>
default
{
state_entry()
{
llInstantMessage(llGetOwner(), "my rotation is " + (string)llGetRot());
llInstantMessage(llGetOwner(), "my rot euler is " + (string)llRot2Euler(llGetRot()));
llRemoveInventory(llGetScriptName());
}
}
</lsl>
== '''Say Link Number''' ==

<lsl>
default
{
state_entry()
{
// Link Order Number Constants:
// LINK_ALL_OTHERS == -2
// LINK_THIS == -4
// LINK_SET == -1
// LINK_THIS == -3
// Unlike many other LsL numbering schemes, link numbers start at 1, not 0. The link number is only 0 if there are no other links present, i.e. the object's a single prim.

llOwnerSay((string)llGetLinkNumber());
llRemoveInventory(llGetScriptName());
}
}
</lsl>

== '''Say Own Key ''' ==

<lsl>
default
{
state_entry()
{
llSay(0, "my key is " + (string)llGetKey());
llRemoveInventory("Say Own Key");
}
}
</lsl>

User talk:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T19:18:52Z

Clarknova Helvetic: page madezorz

Hi. There's no CVS or anything for this little project, so this is my attempt to deal with bug fixes and the like in a rational way.

Title your comments with a <nowiki> === </nowiki> '''Level 3 Headline''' <nowiki> === </nowiki> and put them in the comments section.

Make changes to the '''''Beta Code''''' block at the bottom of the page. That way we can track what lines have changed in the page history. Make sure to add your name to the comments :)
—[[User:Clarknova Helvetic|Clarknova Helvetic]] 11:18, 8 January 2008 (PST)

== Comments ==

=== A Sample Comment ===
Hi!

== Beta Code ==
<lsl>
///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}

</lsl>

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T19:04:11Z

Clarknova Helvetic: /* BUGS */ durdur

'''Clone Primitive v2.3''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<lsl> ///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

'''Code Block Limit'''

In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after six or iterations.

Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

'''PRIM_TEXGEN'''

aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wonky, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T19:01:08Z

Clarknova Helvetic: a little more bug data

'''Clone Primitive v2.3''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<lsl> ///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

If you find a bug, or want to make a change, please do so on the [[User talk:Clarknova Helvetic/Clone Primitive v2.0 | Discussion]] page.

'''Code Block Limit'''
In its current form this prim cycling script above can run stably with 10 complete output blocks, but 11 == Stack-Heap. Instead of crashing right away, it crashes after six or iterations. Can anyone tell me why? It compiles, it can go through more than three, the rules list is cleared at the end of each transformation. Less than 11 and it's stable.

llGetFreeMemeory() at each iteration shows no leak.

Any ideas?

(Yes, I know that if I change only the parameters relevant I could go through thirty objects or more. The script above is just to test overall efficiency of the output code.)

'''PRIM_TEXGEN'''
aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T12:21:06Z

Clarknova Helvetic: /* Tips & Ideas */ I guess i should actually mention that...

'''Clone Primitive v2.3''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<lsl> ///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' Comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' Supports sculpties.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

( In its current form this script can run with 9 complete output blocks, but 10 == stack/heap ).

== BUGS ==

PRIM_TEXGEN aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T09:34:20Z

Clarknova Helvetic: er, 9 !

'''Clone Primitive v2.3''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<lsl> ///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

( In its current form this script can run with 9 complete output blocks, but 10 == stack/heap ).

== BUGS ==

PRIM_TEXGEN aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T08:43:23Z

Clarknova Helvetic: I didn't know about the <lsl> tag! Sweet! (also v3 now supports sculpties)

'''Clone Primitive v2.3''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts using [[llSetPrimitiveParams|llSetPrimitiveParams([])]] and [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

<lsl> ///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.3
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 PRIM_TYPE,"+ (string)t + ",\""+ llList2String(r,1) + "\"," + llList2String(r,2) );

}
else sayn("[\n " + 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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
} </lsl>

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

<lsl>default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<84.270088, 36.444294, 231.487076> ] + (params = []) +
PRIM_ROTATION,<-0.363768, 0.720439, 0.134244, 0.574995> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}</lsl>

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

<lsl>shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}</lsl>

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

( In its current form this script can run with 8 complete output blocks, but 9 == stack/heap ).

== BUGS ==

PRIM_TEXGEN aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T04:54:50Z

Clarknova Helvetic: /* Tips & Ideas */ note about the pause variable added

'''Clone Primitive v2.2''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts scripts with [[llSetPrimitiveParams|llSetPrimitiveParams([])]] or [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.2
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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) { sayn("[\n " + param( llList2String(Param_Names,i), llList2Integer(Param_Names,i+1))); }
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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<80.725319, 41.797234, 233.014313> ] + (params = []) +
PRIM_ROTATION,<-0.378789, 0.297200, -0.082870, 0.872539> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Increase the ''pause'' variable at the top of the script and try again. If that fails reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

PRIM_TEXGEN aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-08T04:51:55Z

Clarknova Helvetic: update for v2.2. output code now much cleaner. planar mapping explained and commented

'''Clone Primitive v2.2''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts scripts with [[llSetPrimitiveParams|llSetPrimitiveParams([])]] or [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.2
//
//
// 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(" " + c + " , "); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + "\n ];"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say("\n // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{\n state_entry()\n {\n list params;\n \n\n // If you are cutting code out to paste into custon functions\n // Define \"params\" as a global list and start cutting below this line.\n\n params =\n");

// Add some comments to the script

// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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) { sayn("[\n " + param( llList2String(Param_Names,i), llList2Integer(Param_Names,i+1))); }
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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

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 // during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.\n // 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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =\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 ];";

say(" PRIM_TEXTURE," + (string)i + "," + s );

// Local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =\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( " params =\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( " params =\n [\n");
for (i = 0 ; i < sides ; ++i)
{
sayn("PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

sayn(param( "PRIM_FLEXIBLE",21));
sayn("// " + param( "PRIM_CAST_SHADOWS",24));

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN ///

// Planar mapping is for correcting the what circular surfaces do to textures
// The default value for all faces is 0 ( distored )
// So we will only uncomment lines that carry a value of 1 ( corrected )

// And we make a note of that in the output script here
comment("Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.\n // Most builds don't use it, so it's commented out to save bytes in auto-transform code.\n // The default value is 1 (distorted).\n // if you are metamorphing an object that already had planar mapping (rare)\n // uncomment those 0 lines.\n // This may not seem like much savings\n // but if your script is trying to metamorph between as many as five objects\n // those few bytes saved might come in handy at the end.\n\n // If your textures are coming out with the offsets all wrong, try uncommenting them.");
for (i = 0 ; i < sides ; ++i)
{
list r = llGetPrimitiveParams([PRIM_TEXGEN,i]);
if (llList2Integer(r,-1) == 0) say(" // PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
if (llList2Integer(r,-1) == 1) say(" PRIM_TEXGEN," + (string)i + "," + llDumpList2String(r," , ") + " , ");
}

/// The last paramater is Object-Specific

saynd("PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);\ params = [];"); // Print the final function call, braces & some blank lines

say("\n\n // If you were cut/pasting this code into a custom transform function\n // end your cut above this comment.\n // Otherwise ignore this.\n\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \"[HH:MM] :\" timestamp at the beginning of each line. Use Find/Replace :)"); // Remind us to remove prefixes.)
llRemoveInventory(llGetScriptName()); // Delete this script.
}
}

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

default
{
state_entry()
{
list params;

// If you are cutting code out to paste into custon functions
// Define "params" as a global list and start cutting below this line.

params =

[
PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ,
PRIM_MATERIAL,2 ,
PRIM_PHYSICS,0 ,
PRIM_TEMP_ON_REZ,0 ,
PRIM_PHANTOM,2 ,
// It's probably not a god idea to have your new prim jump to the old one
// PRIM_POSITION,<80.725319, 41.797234, 233.014313> ] + (params = []) +
PRIM_ROTATION,<-0.378789, 0.297200, -0.082870, 0.872539> ,
PRIM_SIZE,<1.072797, 1.206897, 1.072797>
];

// Set all of the above paramaters as a group.
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[

PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ,
PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000
];
llSetPrimitiveParams(params);
params = [];

// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[

PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ,
PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_BUMP_SHINY,0,3,0 ,
PRIM_BUMP_SHINY,1,3,0 ,
PRIM_BUMP_SHINY,2,3,0
];
llSetPrimitiveParams(params);
params = [];
params =
[

PRIM_FULLBRIGHT,0,1 ,
PRIM_FULLBRIGHT,1,1 ,
PRIM_FULLBRIGHT,2,1 ,
PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ,
// PRIM_CAST_SHADOWS,1 ,

// Planar mapping (PRIM_TEXGEN) is for correcting the what circular surfaces do to textures.
// Most builds don't use it, so it's commented out to save bytes in auto-transform code.
// The default value is 1 (distorted).
// if you are metamorphing an object that already had planar mapping (rare)
// uncomment those 0 lines.
// This may not seem like much savings
// but if your script is trying to metamorph between as many as five objects
// those few bytes saved might come in handy at the end.

// If your textures are coming out with the offsets all wrong, try uncommenting them.
// PRIM_TEXGEN,0,0 ,
// PRIM_TEXGEN,1,0 ,
// PRIM_TEXGEN,2,0 ,
PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000
];
llSetPrimitiveParams(params); params = [];

// If you were cut/pasting this code into a custom transform function
// end your cut above this comment.
// Otherwise ignore this.

llSetObjectName("Mobius Torus");

llSetObjectDesc("Mobius Torus");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

PRIM_TEXGEN aka ''Planar Mapping'' values are automatically commented out if they're at default (FALSE).

This is to save a little bytecode in case you're plugging a bunch of prim transforms into custom functions. Usually no one uses Planar Mapping (it corrects for the distortion of circular surfaces).

This isn't a bug, it's a feature, and it's commented on in both Clone Primitive and the output script.

If this makes your textures look like their offsets went wrong, uncomment the PRIM_TEXGEN lines and recompile.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Clear Param Widgets

2008-01-08T00:08:56Z

Clarknova Helvetic: /* '''Clear Hover Text''' */ wtf m8

'''These Scripts clear a single param. Drag 'n drop.'''

== '''Just Die''' ==
Sometimes a prim jest don't die natural.
default
{
state_entry()
{
llDie();
}
}

== '''Die in X Minutes''' ==
Enter minutes in whole numbers, then drop script into prim
integer minutes = 20; // Change this to the number of minutes for the object to live.

default
{
state_entry() { llSetTimerEvent((float)minutes*60.); }
timer()
{
llInstantMessage(llGetOwner(),(string)llRound(minutes) + " minutes expired. " + llGetObjectName() + " deleted.");
llDie();
}

}

== '''Clear Hover Text''' ==
default
{
state_entry()
{
llSetText("",ZERO_VECTOR,0.);
llRemoveInventory(llGetScriptName());
}
}

== '''Clear Particles''' ==
default
{
state_entry()
{
llParticleSystem([]);
llRemoveInventory(llGetScriptName());
}
}

== '''Stop Sound''' ==
default
{
state_entry()
{
llStopSound();
llRemoveInventory(llGetScriptName());
}
}

User:Clarknova Helvetic/Clear Param Widgets

2008-01-08T00:08:06Z

Clarknova Helvetic: content added

User:Clarknova Helvetic/Set Param Widgets

2008-01-07T23:59:50Z

Clarknova Helvetic: only setting properties now. clearing properties scripts have thier own page

'''These Scripts are for setting a quick param.'''

== '''Disposable Sit Target''' ==
Drag 'n drop to have something to sit on
default
{
state_entry()
{
llSitTarget(<0,0,0.5>;
llRemoveInventory(llGetScriptName());
}
}
== '''Set Texture By Key''' ==
Enter key and side number, then drop script into prim
key texture = "" ;
integer face = ALL_SIDES; // or individual side number

// Use CTRL ALT SHIFT T to get the number of the face you've selected.
// Turn on admin options CTRL ALT V to get the key this way as well.
// Note that getting texure keys this way does not work in newer clients because
// fasion designers are the worthless dregs of human culture and will be
// shot dead in the former parking lots of thier studios which thier
// forced labor will have converted into civic gardens after the revolution.

default
{
state_entry()
{
llSetTexture(texture,face);
llRemoveInventory(llGetScriptName());
}
}

== '''Set Hover Text''' ==
Enter text, color and alpha, then drop script into prim
string text = "";
vector color = <1.,1.,1.>;
float alpha = 1.0;
default
{
state_entry()
{
llSetText(text,color,alpha);
llSetTimerEvent(5.*60);
}
touch_start(integer n)
{
llRemoveInventory(llGetScriptName());
}
timer() { llRemoveInventory(llGetScriptName()); }
}

User:Clarknova Helvetic

2008-01-07T22:00:14Z

Clarknova Helvetic: /* Scripting Widgets */

If you were linked from the forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive v2.0]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripting Widgets ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter. They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That]]

[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]]

[[User:Clarknova Helvetic/Clear Param Widgets|Clear Param Widgets]]

User:Clarknova Helvetic/Set Param Widgets

2008-01-07T21:58:56Z

Clarknova Helvetic: Removing all content from page

User:Clarknova Helvetic/Clone Primitive v2.0

2008-01-07T20:25:44Z

Clarknova Helvetic: bugs

'''Clone Primitive v2.0''' is a Total, End-2-End virtual object replication solution for the simulated cyberspace known to its tecnocrati "netziens" as ''Second Life''.

Shoot me.

[[Image:Script_Cloned_Strip.jpg|thumb||right|250px|Cloned by script]]

== How to Use ==

Drop this script into a prim and it spits out a complete script in owner chat.

Paste that script into a completely blank script, strip out the Timestamps with find/replace, and drop that into any other prim. Viola! You have a copy of the first prim.

Both scripts self-delete from object inventory after doing their thing.

== What's it for? ==

Why would you need this? You don't. Maybe. It does essentially the same thing as shift-copy, which most people learn on their third day.

However, it does one nice thing, which is to print out all your primitive params in a format that's easy to plug into other scripts scripts with [[llSetPrimitiveParams|llSetPrimitiveParams([])]] or [[llSetLinkPrimitiveParams|llSetLinkPrimitiveParams([])]] transformation functions.

I'm sure people like [[Cubey Terra|Cubey]] and Horizons have scripts like these that spit out parameter codeblocks for use in their morphing rezzer gizmos.

== The Script ==

I'm including the script with its huge comment header. Below that a sample output script.

///////////////////////////////////////////////////////////////////
//
// END - TO - END PRIM CLONER v 2.1
//
//
// This script chats out lines of text that can be pasted back
// into a blank script to clone the original prim.
//
//
////////////////////////////////////////////////////////////////////
//
// 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([]). An entire 30 prim object can be
// metamorphed with a single scipt.
//
//
///////////////////////////////////////////////////////////////////
//
// 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

// 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(1.); llOwnerSay(c); }

// Printing out next element to add to the parameter list
sayn(string c) { say(" " + c + " ] + (params = []) +"); }

// Printing out the last element to add to the parameter list
saynd(string c) { say(" " + c + " ] ;"); }

// Print out the code to apply the parameters to the object
define() { say(" llSetPrimitiveParams(params);\n params = [];"); }

// Handle to insert comments
comment(string c) { say(" // " + c ); }

/// On with the show...

default
{
state_entry()
{

say("COPY/PASTE THE CODE BELOW INTO A *BLANK* SCRIPT TO CLONE THIS PRIM: \n\n"); // Announce what we're doing

// We're going to change the object's name to a null string to make the output easier to read.
string object_name = llGetObjectName(); // Store the object's name so we can set it back when done
llSetObjectName("");

// Guess we should transfer the description too
string object_desc = llGetObjectDesc();

// Print the script header up to state_entry
say("\ndefault\n{ state_entry()\n {\n list params;\n params =\n");

// Add some comments to the script
comment("Be aware that the \" + (params = []) + \" bit is a funny little hack that makes lists ");
comment("concatenate faster, and has nothing to do with the Paramaters themselves.");
say("\n");
// [12:56] Tali Rosca: It uses the C-style thing about an assignment also being an expression with a value.
// [12:56] Tali Rosca: Why it actually saves memory still baffles my mind, though.

// list of the the first: paramater constants as strings, then thier integer value.
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];

// ASIDE:
// Prim params are of two types: Object-Specific and Face-Specific.
//
// I'd Like to group them together according to type, but LsL doesn't
// nor does wiki.secondlife, and I am sworn to complete my destiny...
//
// This is probably for historical reasons (the param order, not my
// ultimate destiny).

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 )
{
saynd(param(llList2String(Param_Names,length -2), llList2Integer(Param_Names,length -1))) ; // It don't get any lazier, folks.
i = length;
}
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(" // It's probably not a god idea to have your new prim jump to the old one\n // " + 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.

say("");

comment("Set all of the above paramaters in a chunk 'o junk");
define();

say("");
comment("We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others");
comment("during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.");
comment("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

comment("This prim has " + (string)sides + " faces.\n"); // Don't care enough to correct for the singular :)

/// PRIM_TEXTURE ///

say( " params =");
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 + " + (params = []) + ";
if (i == sides -1) s = s + " ;";

say(" [ PRIM_TEXTURE," + (string)i + "," + s );

// They say local variables aren't cleared when we leave thier scope. Can you believe that crap?
r = []; s = "";

}

define();

comment("Note that you -cannot- define textures and colors in the same call!\n // If you're cutting out these params for your custom code watch out for this.\n");

/// PRIM_COLOR ///
say( " params =");
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( " params =");
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( " params =");

for (i = 0 ; i < sides ; ++i)
{
sayn("[ PRIM_FULLBRIGHT," + (string)i + "," + fsp(PRIM_FULLBRIGHT,i));

}

//// Now back to an Object-Specific paramaters : Flexible & Shadows
//// Remember that I'm going in this screwy order so that our
//// Code matches the table on http://wiki.secondlife.com/wiki/LlSetPrimitiveParams

Param_Names = ["PRIM_FLEXIBLE",21,"PRIM_CAST_SHADOWS",24];

length = (llGetListLength(Param_Names));

for ( i = 0 ; i < length ; i = i +2)
{
sayn(param( llList2String(Param_Names,i), llList2Integer(Param_Names,i+1)) );
if (i > length -3 ) i = length;
}

//// Now for one more Face-Specific paramater

/// PRIM_TEXGEN /// Planar mapping? I don't even know what that is!

for (i = 0 ; i < sides ; ++i)
{
sayn("[ PRIM_TEXGEN," + (string)i + "," + fsp(PRIM_TEXGEN,i) );

}

/// The last paramater is Object-Specific

saynd("[ PRIM_POINT_LIGHT," + osp(PRIM_POINT_LIGHT) );

say(" llSetPrimitiveParams(params);"); // Print the final function call, braces & some blank lines

say("\n llSetObjectName(\"" + object_name + "\");\n"); // Make the target's name match this one
say("\n llSetObjectDesc(\"" + object_name + "\");\n"); // Make the target's desc match this one

comment("This next line deletes the script. Comment it out if you want the script to persist");

say("\n llRemoveInventory(llGetScriptName());\n }\n}\n\n\n"); // Remove the cloning script when done

llSetObjectName(object_name); // Change our object's name back.

say("Don't forget to remove the \" [HH:MM] :\" prefix at the beginning of each line. Use Find/replace. :)"); // Remind us to remove prefixes.

llRemoveInventory(llGetScriptName()); // Delete this script.
}
}

Well thet shoor is a lotta code! Most of it whitespace and comments.

== Sample Output ==

Here's an example of the output. This will make a shiny, metallic mobius strip.

default
{ state_entry()
{
list params;
params =

// Be aware that the " + (params = []) + " bit is a funny little hack that makes lists
// concatenate faster, and has nothing to do with the Paramaters themselves.

[ PRIM_TYPE,4,0,<0.000000, 1.000000, 0.000000>,0.000000,<0.500000, -0.500000, 0.000000>,<0.250000, 0.050000, 0.000000>,<0.000000, -0.100000, 0.000000>,<0.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,1.000000,0.000000,0.000000 ] + (params = []) +
[ PRIM_MATERIAL,2 ] + (params = []) +
[ PRIM_PHYSICS,0 ] + (params = []) +
[ PRIM_TEMP_ON_REZ,0 ] + (params = []) +
[ PRIM_PHANTOM,1 ] + (params = []) +
// It's probably not a god idea to have your new prim jump to the old one
// [ PRIM_POSITION,<92.500000, 46.000000, 122.952721> ] + (params = []) +
[ PRIM_ROTATION,<-0.069309, -0.703702, 0.069309, 0.703702> ] + (params = []) +
[ PRIM_SIZE,<1.555556, 1.750001, 1.555556> ] ;

// Set all of the above paramaters in a chunk 'o junk
llSetPrimitiveParams(params);
params = [];

// We are breaking the llSetPtimitiveParam([]) calls into blocks, because some params are incompatible with others
// during the same call. This is an LsL bug. See https://jira.secondlife.com/browse/SVC-38 for more info.
// Please vote to fix it.

// This prim has 3 faces.

params =
[ PRIM_TEXTURE,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ] + (params = []) +
[ PRIM_TEXTURE,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ] + (params = []) +
[ PRIM_TEXTURE,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.000000, 1.000000, 0.000000>,<0.000000, 0.000000, 0.000000>,0.000000 ] ;
llSetPrimitiveParams(params);
params = [];
// Note that you -cannot- define textures and colors in the same call!
// If you're cutting out these params for your custom code watch out for this.

params =
[ PRIM_COLOR,0,<0.054902, 0.654902, 0.062745>,1.000000 ] + (params = []) +
[ PRIM_COLOR,1,<0.054902, 0.654902, 0.062745>,1.000000 ] + (params = []) +
[ PRIM_COLOR,2,<0.054902, 0.654902, 0.062745>,1.000000 ] ;
llSetPrimitiveParams(params);
params = [];
params =
[ PRIM_BUMP_SHINY,0,3,0 ] + (params = []) +
[ PRIM_BUMP_SHINY,1,3,0 ] + (params = []) +
[ PRIM_BUMP_SHINY,2,3,0 ] ;
llSetPrimitiveParams(params);
params = [];
params =

[ PRIM_FULLBRIGHT,0,1 ] + (params = []) +
[ PRIM_FULLBRIGHT,1,1 ] + (params = []) +
[ PRIM_FULLBRIGHT,2,1 ] + (params = []) +
[ PRIM_FLEXIBLE,0,2,0.300000,2.000000,0.000000,1.000000,<0.000000, 0.000000, 0.000000> ] + (params = []) +
[ PRIM_CAST_SHADOWS,0 ] + (params = []) +
[ PRIM_TEXGEN,0,0 ] + (params = []) +
[ PRIM_TEXGEN,1,0 ] + (params = []) +
[ PRIM_TEXGEN,2,0 ] + (params = []) +
[ PRIM_POINT_LIGHT,1,<1.000000, 1.000000, 1.000000>,0.200000,20.000000,0.000000 ] ;
llSetPrimitiveParams(params);

llSetObjectName("Mobius Torus");
llSetObjectName("test object");

// This next line deletes the script. Comment it out if you want the script to persist

llRemoveInventory(llGetScriptName());
}
}

[[Image:MegaMobius_004.jpg|thumb||right|250px|Heavens to Betsy!]]

See? Simple to deal with. Comment out what you don't want, restructure, etc. I use this script mainly for finding the horizontal texture offset on face 666 of my tortured tube dong.

Easy peasy to read, too.

== Tips & Ideas ==

'''Warning:''' Bad chat lag will sometimes re-order your code for you. Reduce your draw distance, move to a different sim and wait for SL to stop sucking.

'''Tip:''' comment out the PRIM_SIZE in the output script and drop it in a megaprim after you've built your scale model.

'''Tip:''' One neat thing you can do is have your prim cycle between objects. Just take the entire codeblock in state_entry() and stick it in a custom function thus:

shape_1()
{
// Clone Prim codeblock
}
shape_2()
{
// Clone Prim codeblock
}
shape_3()
{
// Clone Prim codeblock
}
shape_4()
{
// Clone Prim codeblock
}

default
{
on_rez(integer p) { llResetScript(); }
state_entry()
{
do
{
shape_1();
llSleep(10.);

shape_2();
llSleep(10.);

shape_3();
llSleep(10.);

shape_4();
llSleep(10.);

}while (1);
}
}

All sorts of possibilities, really. I recommend coffee, sleep deprivation and imagination.

== BUGS ==

* Code output is byte heavy, reducing number of complete transforms that can be packed into another script.

** ''+ (params = []) +'' could be replaced with a simple comma in most cases.

** There should be a Lite version that does not print the less important params like PRIM_TEXGEN and PRIM_CAST_SHADOWS. Or comments them out.

* Code spacing is not exactly standardized. Find/Replace of certain generic strings has to be repeated several times.

== License ==

In my comment header here , and in copies I give out in-world, I declare this script copyrighted under the [http://www.gnu.org/licenses/licenses.html| GPL v3].

Linden Labs declares everything on their Wiki released under the [http://creativecommons.org/licenses/by-sa/2.5/| CC Attribution-Share Alike 2.5].

Both amount to the same thing: if you use redistribute my code in any form, those scripts must be full perms, and my name and the name of everyone that touched them must be prominently commented.

Period. I am Fascist about this.

Code output by the script is of course yours, and you can do anything you want with that, but ''this'' script must remain Open Source. You can even copy/paste it into your own script item and sell it on SLX, but you have to include the license information and my name, and everyone will laugh at you and your customers will know you ripped them off you big jerk. :D

Also I'm selling it as well, for anyone silly enough to spend $L20, so I'm way ahead of and undercutting you.

User:Clarknova Helvetic/Set Param Widgets

2008-01-07T01:01:43Z

Clarknova Helvetic: a bit moar

'''These Scripts are for setting a quick param or doing something else to a prim.'''

== '''Just Die''' ==

Sometimes a prim jest don't die natural.
default
{
state_entry()
{
llDie();
}
}

== '''Die in X Minutes''' ==

integer minutes = 20; // Change this to the number of minutes for the object to live.

default
{
state_entry() { llSetTimerEvent((float)minutes*60.); }
timer()
{
llInstantMessage(llGetOwner(),(string)llRound(minutes) + " minutes expired. " + llGetObjectName() + " deleted.");
llDie();
}

}

== '''Disposable Sit Target''' ==

default
{
state_entry()
{
llSitTarget(<0,0,0.5>;
llRemoveInventory(llGetScriptName());
}
}

== '''Set Hover Text''' ==
Change variables to suit and save. Script removes on next touch or in 5 minutes, whichever first.
string text = "";
vector color = <1.,1.,1.>;
float alpha = 1.0;
default
{
state_entry()
{
llSetText(text,color,alpha);
llSetTimerEvent(5.*60);
}
touch_start(integer n)
{
llRemoveInventory(llGetScriptName());
}
timer() { llRemoveInventory(llGetScriptName()); }
}

== '''Halt Rotation''' ==

default
{
state_entry()
{
llTargetOmega(ZERO_VECTOR, 0, 0);
llRemoveInventory(llGetScriptName());
}
}

== '''Clear Particles''' ==

default
{
state_entry()
{
llParticleSystem([]);
llRemoveInventory(llGetScriptName());
}
}

User:Clarknova Helvetic/Set Param Widgets

2008-01-07T00:38:19Z

Clarknova Helvetic: 2 moar

'''These Scripts are for setting a quick param or doing something else to a prim.'''

== '''Just Die''' ==

Sometimes a prim jest don't die natural.
default
{
state_entry()
{
llDie();
}
}

== '''Die in X Minutes''' ==

integer minutes = 20; // Change this to the number of minutes for the object to live.

default
{
state_entry() { llSetTimerEvent((float)minutes*60.); }
timer()
{
llInstantMessage(llGetOwner(),(string)llRound(minutes) + " minutes expired. " + llGetObjectName() + " deleted.");
llDie();
}

}

== '''Disposable Sit Target''' ==

default
{
state_entry()
{
llSitTarget(<0,0,0.5>;
llRemoveInventory(llGetScriptName());
}
}

== '''Set Hover Text''' ==

string text = "";
vector color = <1.,1.,1.>;
float alpha = 1.0;
default
{
state_entry()
{
llSetText(text,color,alpha);
llRemoveInventory(llGetScriptName());
}
}

== '''Halt Rotation''' ==

default
{
state_entry()
{
llTargetOmega(ZERO_VECTOR, 0, 0);
llRemoveInventory(llGetScriptName());
}
}

== '''Clear Particles''' ==

default
{
state_entry()
{
llParticleSystem([]);
llRemoveInventory(llGetScriptName());
}
}

User:Clarknova Helvetic/Set Param Widgets

2008-01-07T00:27:34Z

Clarknova Helvetic: /* '''Die in X Minutes''' */ had it set to on_rez rather than state entry.

These Scripts are for setting a quick param or doing something else to a prim.

== '''Just Die''' ==

Sometimes a body jest don't die natural.
default
{
state_entry()
{
llDie();
}
}

== '''Die in X Minutes''' ==

integer minutes = 20; // Change this to the number of minutes for the object to live.

default
{
state_entry() { llSetTimerEvent((float)minutes*60.); }
timer()
{
llInstantMessage(llGetOwner(),(string)llRound(minutes) + " minutes expired. " + llGetObjectName() + " deleted.");
llDie();
}

}

== '''Disposable Sit Target''' ==

default
{
state_entry()
{
llSitTarget(<0,0,0.5>;
llRemoveInventory(llGetScriptName());
}
}

== '''Set Hover Text''' ==

string text = "";
vector color = <1.,1.,1.>;
float alpha = 1.0;
default
{
state_entry()
{
llSetText(text,color,alpha);
llRemoveInventory(llGetScriptName());
}
}

User:Clarknova Helvetic

2008-01-06T23:49:55Z

Clarknova Helvetic: pic. stuff.

If you were linked from the forums you're probably looking for [[User:Clarknova Helvetic/Clone Primitive v2.0|Clone Primitive v2.0]].

== About Moi ==

[[Image:Snapshot Tornado.jpg|thumb|right|256px| Someone's got to clean up around here.]]

I like to script and build and also ponies.

Three days younger than [[User:Arcadia Asylum|Arcadia Asylum]].

Started SL on 2006/23/10. Soon stopped because I couldn't stand client crashes. Came back a year later when I had a decent video card and found that everyone I'd met.. this is their job now.

I make and sell gidgets [http://slexchange.com/modules.php?name=Marketplace&MerchantID=91584| on SLX] and [http://slurl.com/secondlife/Valis/85/37/232| in-world]. About half are freebies.

One of my most popular items was my first real project: The Builder's Sky Platform. There are about 2500 users with one in their inventory. One of the features I would change now is that it drops a half-kilometer halo of particles when the user falls off. I'm really surprised no one (+1) has ever complained.

Personally, I'd hang me for it.

If you care you can usually find me at [http://slurl.com/secondlife/Combat%20(sandbox)%20Rausch/177/159/24| The Rausch], or at [http://slurl.com/secondlife/Valis/85/37/232| My Shop] in Valis.

== Scripting Widgets ==

I drag 'n drop these scripts into objects when I need to know something about them, or to set a quick parameter. They do their job then delete from object inventory.

[[User:Clarknova Helvetic/Say This & That Widgets|Say This & That Widgets]]

[[User:Clarknova Helvetic/Set Param Widgets|Set Param Widgets]]