https://wiki.secondlife.com/w/api.php?action=feedcontributions&feedformat=atom&user=Christy+Mansbridge
Second Life Wiki - User contributions [en]
2026-07-26T18:37:58Z
User contributions
MediaWiki 1.42.1
https://wiki.secondlife.com/w/index.php?title=Resizer_multi-prims&diff=1088123
Resizer multi-prims
2010-11-02T21:50:54Z
<p>Christy Mansbridge: Bypass a bug on opensim, no move larger than 10m</p>
<hr />
<div>{{LSL Header}}<br />
<br />
All description in first comments of the script.<br />
Maybe my English is not so good (I'm French). Hope anyone will understand.<br />
<br />
Update on october 11th, 2010<br />
Autodetect official LL grids or opensim<br />
<br />
Resizer<br />
<lsl><br />
/* =================================================================================== */<br />
/* */<br />
/* Resizer v1.5 */<br />
/* */<br />
/* License : */<br />
/* Français */<br />
/* OpenSource. Licence GPL 2 et plus. */<br />
/* Modification, Copie et Transfert autorisés */<br />
/* Sous condition de laisser le script en full perm (Modify / Copy / Transfer) */<br />
/* */<br />
/* English */<br />
/* OpenSource. License GPL 2 and later. */<br />
/* Modify, Copy and Transfer allowed if this script stay full perm */<br />
/* */<br />
/* Auteurs : Christy Mansbridge / Mingyar Ishtari, le 02 octobre 2010 */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : Christy Mansbridge */<br />
/* Date : 11 octobre 2010 */<br />
/* Detail : Auto detection opensim/LL grids (version 1.4) */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : Christy Mansbridge */<br />
/* Date : 30 octobre 2010 */<br />
/* Detail : Limitation déplacement limité à 10m sur opensim (version 1.5) */<br />
/* */<br />
/* Author : */<br />
/* Date : */<br />
/* Detail : */<br />
/* */<br />
/* Usage : */<br />
/* Français */<br />
/* À placer dans le prim root (prim coutouré en jaune à l'édition) */<br />
/* Cliquer l'objet pour obtention du menu bleu. */<br />
/* Usage restreint au seul propriétaire. */<br />
/* */<br />
/* English */<br />
/* Place the script in the root prim of the build. */<br />
/* Click the object to get the blue menu. */<br />
/* Usage restricted to the owner. */<br />
/* */<br />
/* Fonctions : */<br />
/* Français */<br />
/* 1) Script de redimensionnement d'un objet multi-prims respectant les */<br />
/* proportions, en taille et en position, de chaque prim. */<br />
/* */<br />
/* 2) Lag minimal puisqu'un seul script par objet (1 à 256 prims) */<br />
/* Possibilité offerte de supprimer le script. */<br />
/* */<br />
/* 3) Communication avec d'autres objets pour synchroniser le redimensionnement */<br />
/* Pour permettre cette communication, plusieurs critères douvent être remplis*/<br />
/* a) L'objet doit être porté ainsi que celui/ceux à synchroniser */<br />
/* b) Les objets doivent porter le même nom, à l'exception de la partie */<br />
/* finale séparée du reste par un espace. */<br />
/* Exemple : Chaussure rouge gauche et Chaussure rouge droite */<br />
/* */<br />
/* 4) Garantie de la conservation de l'intégrité de l'objet. */<br />
/* a) Si un agrandissement entraine une destruction du build, */<br />
/* Retour automatique à la taille avant agrandissement. */<br />
/* */<br />
/* b) Si l'objet contient au moins un huge prim le script reste inactif. */<br />
/* Cette sécurité résevée à la grille officielle SecondLife peut être */<br />
/* désactivée pour opensim en passant à TRUE l'affectation de la variable */<br />
/* globale iAllowResizeHugePrims. */<br />
/* */<br />
/* 5) Prise en compte automatique des changements de liens (ajout/suppresion de */<br />
/* prims ou redimensionnement manuel) */<br />
/* */<br />
/* 6) 18 choix de redimensionnement prédéfinis en pourcentages : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 choix extrèmes : Dimensionnement Minimal, Maximal et par Défaut. */<br />
/* La dimension par défaut est celle à l'initialisation du script ou */<br />
/* celle affectée par le menu [Set default]. */<br />
/* */<br />
/* 8) Détermination de la taille maximale avant déformation de la construction */<br />
/* Pour trouver la taille maximale possible, procéder ainsi : */<br />
/* Effectuer des agrandissements à +200% jusqu'à refus de dimensionnement */<br />
/* Répéter l'opération avec les pourcentages inférieurs, +100% puis +75% */<br />
/* puis 50% ... jusqu'à répétition de l'opétation à +1%. */<br />
/* Après un refus de redimensionnement à +1% le script connait la vraie */<br />
/* taille maximale. */<br />
/* */<br />
/* English */<br />
/* 1) Script to resize a multi prims object with conservation of its integrity */<br />
/* (size and relative position of each prim). */<br />
/* */<br />
/* 2) Less lag : only 1 script for an object (1 to 256 prims) */<br />
/* Possibility to remove the script by the menu. */<br />
/* */<br />
/* 3) Communication with other objects to synchronize resize */<br />
/* To allow communication, objects have to comply with few criteria : */<br />
/* a) The object has to be worn, objects to synchronize too. */<br />
/* b) Objects have to have same name except last part separated by space */<br />
/* Example : Excelsior shoes Left and Excelsior shoes Right */<br />
/* */<br />
/* 4) Integrity waranty. */<br />
/* a) If after increasing size the build is broken, automatic go back to */<br />
/* previous good size. */<br />
/* */<br />
/* b) If, at least, one huge prim is in the build, the script is inactive. */<br />
/* This security is only for official grid SecondLife and may be bypassed */<br />
/* for opensim, affecting TRUE to the iAllowResizeHugePrims global variable*/<br />
/* */<br />
/* 5) Automatic detection of manual scale change and link changes */<br />
/* */<br />
/* 6) 18 predefined resize choice in percentage : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 other choices : Resize to Minimum, Maximum or Default size. */<br />
/* The default size is the size at initialisation of the script or the size */<br />
/* affected by the blue menu [Set default]. */<br />
/* */<br />
/* 8) How to find the real maximum size ? */<br />
/* To find the real value : */<br />
/* Make an increase size by +200% until the script says it fails. */<br />
/* Then, repeat this method with +100%, then after with +75% ... */<br />
/* After the last increase with +1% the real maximum size is found and */<br />
/* stored by the script. */<br />
/* */<br />
/* =================================================================================== */<br />
<br />
integer iAllowResizeHugePrims = -1; // You can force to FALSE on official SecondLife grids and TRUE on opensim<br />
integer iNumberOfPrims;<br />
integer iFirst;<br />
integer iLast;<br />
integer iBcl;<br />
integer iIdx;<br />
integer iDeb;<br />
integer iFin;<br />
integer iSens;<br />
float fTmp;<br />
vector vSize;<br />
vector vPos;<br />
float fMin;<br />
float fMax;<br />
float fFactor;<br />
float fDefault;<br />
integer iCanalComm = -8547548;<br />
integer iCanalMenu;<br />
integer iEcouteMenu;<br />
integer iMenuOn;<br />
integer iCurrentMenu;<br />
string sPctM1 = "1";<br />
string sPctM2 = "2";<br />
string sPctM3 = "5";<br />
string sPctP1 = "1";<br />
string sPctP2 = "2";<br />
string sPctP3 = "5";<br />
string sPct;<br />
integer iNbPasses;<br />
integer iHugeUsed;<br />
float fLimiteMax;<br />
integer iNoMoreMax;<br />
vector vPos1;<br />
integer iError;<br />
list lSortPrims;<br />
list lSizes;<br />
list lPos;<br />
list lElem;<br />
list lName;<br />
<br />
// Hack to increase speed of the script (Mono)<br />
Booster()<br />
{<br />
for( iBcl = 0; iBcl < 5000; iBcl++ );<br />
}<br />
<br />
// Function to get size and/or relative position of the current prim<br />
GetSizePos()<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ) * fFactor;<br />
<br />
if( iBcl == iFirst )<br />
{<br />
if( llGetAttached() )<br />
// Root prim and object attached to the avatar, position is local<br />
vPos = llGetLocalPos();<br />
else<br />
// Root prim and object not attached, position is absolute position<br />
vPos = llGetRootPosition();<br />
}<br />
else<br />
// Child prim, position is relative to the root prim<br />
vPos = ( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation() ) * fFactor;<br />
}<br />
<br />
// Function to control if current prim has expected size and relative position<br />
ControlSizePos( vector vRefSize, vector vRefPos )<br />
{<br />
if( llVecDist( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ), vRefSize ) > 0.001 )<br />
iError = TRUE;<br />
else if( iBcl != iFirst )<br />
{<br />
if( llVecDist( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation(),<br />
vRefPos ) > 0.001 )<br />
iError = TRUE;<br />
}<br />
}<br />
<br />
// Function to test resize validity of the current prim, if resize is over stored maximum size<br />
integer TestError()<br />
{<br />
if( fMax > fLimiteMax )<br />
ControlSizePos( vSize, vPos );<br />
<br />
return( iError );<br />
}<br />
<br />
// Function to control build integrity after resize<br />
ControlBuild( integer iBoost )<br />
{<br />
if( iBoost )<br />
Booster();<br />
<br />
// No individual error found<br />
// Control of all the build prim after prim<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
ControlSizePos( llList2Vector( lSizes, iIdx ) * fFactor, llList2Vector( lPos, iIdx ) * fFactor );<br />
<br />
if( iError )<br />
{<br />
if( iBoost )<br />
iIdx = iFin - iSens;<br />
return;<br />
}<br />
}<br />
}<br />
<br />
// Function to resize (only the size) each prim of the build<br />
ChangeSize( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
if( iCorrect )<br />
vPos /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to adapt relative position of each prim of the build<br />
ChangePos( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
if( ( iBcl = llList2Integer( lSortPrims, iIdx ) ) != iFirst )<br />
{<br />
GetSizePos();<br />
vPos1 = vPos / fFactor;<br />
<br />
if( iCorrect )<br />
vSize /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos ] );<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos ] );<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and adapt relative position of each prim of the build<br />
ChangeSizePos()<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize, PRIM_POSITION, vPos ] );<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos ] );<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and position each prim to the previous stored good sizes and relative positions after an error<br />
GoBackToGoodSize()<br />
{<br />
llOwnerSay( "Error, back to previous good size..." );<br />
<br />
sPct = "aborted";<br />
<br />
if( llRound( fFactor * 100.0 ) == 101 )<br />
iNoMoreMax = TRUE;<br />
<br />
fMin /= fFactor;<br />
fMax /= fFactor;<br />
iFin = iDeb - iSens;<br />
iDeb = iIdx;<br />
iSens *= -1;<br />
fFactor = 1.0;<br />
iNbPasses = 3;<br />
<br />
if( iNoMoreMax )<br />
fLimiteMax = fMax;<br />
<br />
do<br />
{<br />
Booster();<br />
iError = FALSE;<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
lElem = [ PRIM_SIZE, llList2Vector( lSizes, iIdx ) ];<br />
<br />
if( iBcl != iFirst )<br />
{<br />
vPos = llList2Vector( lPos, iIdx );<br />
<br />
lElem += [ PRIM_POSITION, vPos ];<br />
}<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
}<br />
<br />
ControlBuild( FALSE );<br />
}<br />
while( iError && --iNbPasses );<br />
<br />
if( iError )<br />
llOwnerSay( "Sorry, the build is broken and can't be repaired." );<br />
}<br />
<br />
// Function to store size and relative positions of each prim after a successfull resizing<br />
SaveSizePos()<br />
{<br />
Booster();<br />
<br />
fFactor = 1.0;<br />
lSizes = [];<br />
lPos = [];<br />
<br />
for( iIdx = 0; iIdx != iNumberOfPrims; iIdx++ )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
lSizes += [ vSize ];<br />
lPos += [ vPos ];<br />
}<br />
}<br />
<br />
// Function to resize the build<br />
Resize( integer iMess )<br />
{<br />
// Apply factor of resizing to the min and max size found in the build<br />
fMin *= fFactor;<br />
fMax *= fFactor;<br />
<br />
sPct = "done";<br />
<br />
if( fFactor < 1.0 )<br />
{<br />
// If resize is to decrease the size, we start whith the most distant prims from the root<br />
iDeb = llGetListLength( lSortPrims ) - 1;<br />
iFin = -1;<br />
iSens = -1;<br />
}<br />
else<br />
{<br />
// If resize is to increase the size, we start whith the closer prims from the root<br />
iDeb = 0;<br />
iFin = llGetListLength( lSortPrims );<br />
iSens = 1;<br />
}<br />
<br />
iError = FALSE;<br />
<br />
if( fFactor < 0.5 )<br />
// if decrease is more than a factor 2, we start by changing only relative positions<br />
ChangePos( FALSE );<br />
else if( fFactor > 2.0 )<br />
// if increase is more than a factor 2, we start by changing only sizes<br />
ChangeSize( FALSE );<br />
else<br />
// if factor is less or equal than 2, resize is both size and position<br />
ChangeSizePos();<br />
<br />
if( ! iError )<br />
{<br />
if( fFactor < 0.5 )<br />
// Changing positions is successfull, we change positions<br />
ChangeSize( TRUE );<br />
else if( fFactor > 2.0 )<br />
// Changing sizes is successfull, we change sizes<br />
ChangePos( TRUE );<br />
}<br />
<br />
if( ! iError )<br />
ControlBuild( TRUE );<br />
<br />
if( iError )<br />
// Restore the last good size after error<br />
GoBackToGoodSize();<br />
else<br />
{<br />
// Save the sizes and relative positions of each prim<br />
SaveSizePos();<br />
if( fMax == 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iNoMoreMax = TRUE;<br />
fLimiteMax = fMax;<br />
}<br />
}<br />
<br />
if( fMax > fLimiteMax )<br />
// New max size found<br />
fLimiteMax = fMax;<br />
<br />
// Start countdown for CHANGED_SCALE event<br />
llResetTime();<br />
<br />
if( iMess )<br />
{<br />
// Inform user the resize is finished and call back the menu<br />
llOwnerSay( "Resize " + sPct + "." );<br />
Menu();<br />
}<br />
}<br />
<br />
AlreadyAt( integer iMess, string sMess )<br />
{<br />
if( iMess )<br />
{<br />
llOwnerSay( "Already at " + sMess + " size." );<br />
Menu();<br />
}<br />
}<br />
<br />
// Function to resize to the minimum size<br />
MinimumSize( integer iMess )<br />
{<br />
if( ( fFactor = 0.01 / fMin ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Minimum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "minimum" );<br />
}<br />
<br />
// Function to resize to the maximum size<br />
MaximumSize( integer iMess )<br />
{<br />
if( ( fFactor = fLimiteMax / fMax ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Maximum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "maximum" );<br />
}<br />
<br />
// Function to resize to the default size<br />
DefaultSize( integer iMess )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
<br />
if( ( fFactor = fDefault / vSize.x ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Default size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "default" );<br />
}<br />
<br />
// Close the menu<br />
FinMenu( integer iAlert )<br />
{<br />
iMenuOn = FALSE;<br />
llSetTimerEvent( 0.0 );<br />
llListenRemove( iEcouteMenu );<br />
if( iAlert )<br />
llOwnerSay( "Menu timeout." );<br />
}<br />
<br />
// Main menu<br />
Menu()<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"Resizer action :\n" +<br />
"Quit : Leave this menu.\n" +<br />
"Options : Current size becomes default.\n" +<br />
">> : Next set of percentages.\n" +<br />
"Min : Resize to minimum size.\n" +<br />
"Default : Return to initial size.\n" +<br />
"Max : Resize to maximum size.",<br />
[ "Quit", "Options", ">>",<br />
"-" + sPctM1 + "%", "Min", "+" + sPctP1 + "%",<br />
"-" + sPctM2 + "%", "Default", "+" + sPctP2 + "%",<br />
"-" + sPctM3 + "%", "Max", "+" + sPctP3 + "%" ],<br />
iCanalMenu );<br />
}<br />
<br />
// Function to return min or max element of vSize vector<br />
float MinMaxVal( integer iOperation )<br />
{<br />
return( llListStatistics( iOperation, [ vSize.x, vSize.y, vSize.z ] ) );<br />
}<br />
<br />
// Initialisation of the script<br />
init()<br />
{<br />
Booster();<br />
<br />
iNumberOfPrims = llGetNumberOfPrims();<br />
iFirst = (integer)( iNumberOfPrims > 1 );<br />
iLast = iNumberOfPrims - (integer)( iNumberOfPrims == 1 );<br />
<br />
llOwnerSay( "Searching min/max prim size..." );<br />
<br />
fMin = 10.0;<br />
fMax = 0.01;<br />
fFactor = 1.0;<br />
for( iBcl = iFirst; ( fMax <= 10.0 || iAllowResizeHugePrims ) && iBcl <= iLast; iBcl++ )<br />
{<br />
GetSizePos();<br />
<br />
if( iBcl == iFirst )<br />
{<br />
fDefault = vSize.x;<br />
lElem = [ 0.0, iFirst ];<br />
}<br />
else<br />
lElem += [ llVecDist( ZERO_VECTOR, vPos ), iBcl ];<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MIN );<br />
if( fTmp < fMin )<br />
fMin = fTmp;<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MAX );<br />
if( fTmp > fMax )<br />
fMax = fTmp;<br />
}<br />
<br />
if( fMax > 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iHugeUsed = TRUE;<br />
llOwnerSay( "Script not active, object uses huge prim." );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Size range : " + (string)fMin + " -> " + (string)fMax );<br />
<br />
iNoMoreMax = FALSE;<br />
iHugeUsed = FALSE;<br />
<br />
llOwnerSay( "Sorting prims..." );<br />
<br />
lElem = llListSort( lElem, 2, TRUE );<br />
<br />
lSortPrims = [];<br />
for( iBcl = 1; iBcl < llGetListLength( lElem ); iBcl += 2 )<br />
lSortPrims += [ llList2Integer( lElem, iBcl ) ];<br />
<br />
llOwnerSay( (string)iNumberOfPrims + " prim" + llList2String( [ "", "s" ], (integer)(iNumberOfPrims > 1) ) + " sorted." );<br />
<br />
fLimiteMax = llListStatistics( LIST_STAT_MAX, [ 10.0, fMax ] );<br />
<br />
llOwnerSay( "Storing size/pos of each prim..." );<br />
<br />
SaveSizePos();<br />
}<br />
<br />
llOwnerSay( "Init. complete." );<br />
}<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
if( iAllowResizeHugePrims < 0 )<br />
iAllowResizeHugePrims = (integer)( llSubStringIndex( llGetSimulatorHostname(), ".lindenlab.com" ) < 0 );<br />
<br />
init();<br />
llListen( iCanalComm, "", NULL_KEY, "" );<br />
}<br />
<br />
changed( integer iChange )<br />
{<br />
if( ( iChange & CHANGED_LINK ) ||<br />
( ( iChange & CHANGED_SCALE ) &&<br />
llGetTime() > 5.0 / llList2Float( [ llGetRegionTimeDilation(), 0.01 ],<br />
(integer)( llGetRegionTimeDilation() < 0.01 ) ) ) )<br />
init();<br />
}<br />
<br />
listen( integer iChannel, string sName, key kId, string sMess )<br />
{<br />
if( iChannel == iCanalMenu )<br />
{<br />
llSetTimerEvent( 0.0 );<br />
<br />
if( sMess == ">>" )<br />
{<br />
if( (++iCurrentMenu) == 3 )<br />
iCurrentMenu = 0;<br />
<br />
if( ! iCurrentMenu )<br />
{<br />
sPctM1 = "1";<br />
sPctM2 = "2";<br />
sPctM3 = "5";<br />
sPctP1 = "1";<br />
sPctP2 = "2";<br />
sPctP3 = "5";<br />
}<br />
else if( iCurrentMenu == 1 )<br />
{<br />
sPctM1 = "10";<br />
sPctM2 = "25";<br />
sPctM3 = "50";<br />
sPctP1 = "10";<br />
sPctP2 = "25";<br />
sPctP3 = "50";<br />
}<br />
else<br />
{<br />
sPctM1 = "75";<br />
sPctM2 = "85";<br />
sPctM3 = "95";<br />
sPctP1 = "75";<br />
sPctP2 = "100";<br />
sPctP3 = "200";<br />
}<br />
<br />
Menu();<br />
}<br />
else if( sMess == "Options" || sMess == " " )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nResizer options :\n \n" +<br />
"Quit : Leave this menu.\n" +<br />
"BACK : To main menu.\n" +<br />
"Set default : Current size is default.\n" +<br />
"Remove : Remove the script.",<br />
[ "Quit", " ", "BACK",<br />
"Set default", " ", "Remove" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "BACK" )<br />
Menu();<br />
else if( sMess == "Set default" )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
fDefault = vSize.x;<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Default|" + (string)fDefault );<br />
<br />
llOwnerSay( "This size is now the default size." );<br />
Menu();<br />
}<br />
else if( sMess == "Remove" )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nSure to remove the script from this object ?",<br />
[ "Yes", "No" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "Default" )<br />
DefaultSize( TRUE );<br />
else if( sMess == "Min" )<br />
MinimumSize( TRUE );<br />
else if( sMess == "Max" )<br />
MaximumSize( TRUE );<br />
else if( ( iBcl = llListFindList( [ "+", "-" ], [ llGetSubString( sMess, 0, 0 ) ] ) ) >= 0 )<br />
{<br />
fFactor = 1.0 + (float)llGetSubString( sMess, 0, -2 ) / 100.0;<br />
fTmp = llList2Float( [ llList2Float( [ 10.0, 10000.0 ], iAllowResizeHugePrims ), fLimiteMax ], iNoMoreMax );<br />
<br />
if( fMin * fFactor < 0.01 )<br />
fFactor = 0.01 / fMin;<br />
else if( fMax * fFactor > fTmp )<br />
fFactor = fTmp / fMax;<br />
<br />
if( fMin * fFactor >= 0.01 && fMax * fFactor <= fTmp && llRound( fFactor * 100.0 ) != 100 )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 ) + "%";<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( llList2String( [ "Increas", "Reduc" ], iBcl ) + "ing size : " +<br />
sPct + llList2String( [ " (" + sMess + " asked)", "" ], (integer)(sMess == sPct) ) + "..." );<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Factor|" + (string)fFactor );<br />
<br />
Resize( TRUE );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Out of size range." );<br />
Menu();<br />
}<br />
}<br />
else<br />
{<br />
FinMenu( FALSE );<br />
<br />
if( sMess == "Yes" )<br />
{<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Remove" );<br />
llRemoveInventory( llGetScriptName() );<br />
}<br />
}<br />
}<br />
else if( llGetAttached() && sName != llGetObjectName() )<br />
{<br />
lElem = llParseString2List( sName, [ " " ], [ "" ] );<br />
if( llGetListLength( lElem ) < 2 )<br />
return;<br />
lName = llParseString2List( llGetObjectName(), [ " " ], [ "" ] );<br />
if( llGetListLength( lName ) < 2 )<br />
return;<br />
<br />
if( llDumpList2String( llList2List( lElem, 0, -2 ), " " ) !=<br />
llDumpList2String( llList2List( lName, 0, -2 ), " " ) )<br />
return;<br />
<br />
lElem = llParseString2List( sMess, [ "|" ], [ "" ] );<br />
<br />
if( llList2String( lElem, 0 ) == (string)llGetOwner() )<br />
{<br />
if( llList2String( lElem, 1 ) == "Remove" )<br />
llRemoveInventory( llGetScriptName() );<br />
else if( llList2String( lElem, 1 ) == "Factor" )<br />
{<br />
fFactor = llList2Float( lElem, 2 );<br />
Resize( FALSE );<br />
<br />
llResetTime();<br />
}<br />
else if( llList2String( lElem, 1 ) == "Min" )<br />
MinimumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Max" )<br />
MaximumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Default" )<br />
{<br />
if( llGetListLength( lElem ) == 2 )<br />
DefaultSize( FALSE );<br />
else<br />
fDefault = llList2Float( lElem, 2 );<br />
}<br />
}<br />
}<br />
}<br />
<br />
timer()<br />
{<br />
FinMenu( TRUE );<br />
}<br />
<br />
touch_start( integer iNum )<br />
{<br />
if( llDetectedKey( 0 ) == llGetOwner() && ! iMenuOn && ! iHugeUsed )<br />
{<br />
//llOwnerSay( (string)llGetFreeMemory() );<br />
iMenuOn = TRUE;<br />
iCanalMenu = iCanalComm - 10 - (integer)llFrand( 124578 );<br />
iEcouteMenu = llListen( iCanalMenu, "", llGetOwner(), "" );<br />
Menu();<br />
}<br />
}<br />
}<br />
</lsl></div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Resizer_multi-prims&diff=1064482
Resizer multi-prims
2010-10-17T01:51:44Z
<p>Christy Mansbridge: Little change to allow compile on opensim</p>
<hr />
<div>{{LSL Header}}<br />
<br />
All description in first comments of the script.<br />
Maybe my English is not so good (I'm French). Hope anyone will understand.<br />
<br />
Update on october 11th, 2010<br />
Autodetect official LL grids or opensim<br />
<br />
Resizer<br />
<lsl><br />
/* =================================================================================== */<br />
/* */<br />
/* Resizer v1.4 */<br />
/* */<br />
/* License : */<br />
/* Français */<br />
/* OpenSource. Licence GPL 2 et plus. */<br />
/* Modification, Copie et Transfert autorisés */<br />
/* Sous condition de laisser le script en full perm (Modify / Copy / Transfer) */<br />
/* */<br />
/* English */<br />
/* OpenSource. License GPL 2 and later. */<br />
/* Modify, Copy and Transfer allowed if this script stay full perm */<br />
/* */<br />
/* Auteurs : Christy Mansbridge / Mingyar Ishtari, le 02 octobre 2010 */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : Christy Mansbridge */<br />
/* Date : 11 octobre 2010 */<br />
/* Detail : Auto detection opensim/LL grids (version 1.4) */<br />
/* */<br />
/* Author : */<br />
/* Date : */<br />
/* Detail : */<br />
/* */<br />
/* Usage : */<br />
/* Français */<br />
/* À placer dans le prim root (prim coutouré en jaune à l'édition) */<br />
/* Cliquer l'objet pour obtention du menu bleu. */<br />
/* Usage restreint au seul propriétaire. */<br />
/* */<br />
/* English */<br />
/* Place the script in the root prim of the build. */<br />
/* Click the object to get the blue menu. */<br />
/* Usage restricted to the owner. */<br />
/* */<br />
/* Fonctions : */<br />
/* Français */<br />
/* 1) Script de redimensionnement d'un objet multi-prims respectant les */<br />
/* proportions, en taille et en position, de chaque prim. */<br />
/* */<br />
/* 2) Lag minimal puisqu'un seul script par objet (1 à 256 prims) */<br />
/* Possibilité offerte de supprimer le script. */<br />
/* */<br />
/* 3) Communication avec d'autres objets pour synchroniser le redimensionnement */<br />
/* Pour permettre cette communication, plusieurs critères douvent être remplis*/<br />
/* a) L'objet doit être porté ainsi que celui/ceux à synchroniser */<br />
/* b) Les objets doivent porter le même nom, à l'exception de la partie */<br />
/* finale séparée du reste par un espace. */<br />
/* Exemple : Chaussure rouge gauche et Chaussure rouge droite */<br />
/* */<br />
/* 4) Garantie de la conservation de l'intégrité de l'objet. */<br />
/* a) Si un agrandissement entraine une destruction du build, */<br />
/* Retour automatique à la taille avant agrandissement. */<br />
/* */<br />
/* b) Si l'objet contient au moins un huge prim le script reste inactif. */<br />
/* Cette sécurité résevée à la grille officielle SecondLife peut être */<br />
/* désactivée pour opensim en passant à TRUE l'affectation de la variable */<br />
/* globale iAllowResizeHugePrims. */<br />
/* */<br />
/* 5) Prise en compte automatique des changements de liens (ajout/suppresion de */<br />
/* prims ou redimensionnement manuel) */<br />
/* */<br />
/* 6) 18 choix de redimensionnement prédéfinis en pourcentages : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 choix extrèmes : Dimensionnement Minimal, Maximal et par Défaut. */<br />
/* La dimension par défaut est celle à l'initialisation du script ou */<br />
/* celle affectée par le menu [Set default]. */<br />
/* */<br />
/* 8) Détermination de la taille maximale avant déformation de la construction */<br />
/* Pour trouver la taille maximale possible, procéder ainsi : */<br />
/* Effectuer des agrandissements à +200% jusqu'à refus de dimensionnement */<br />
/* Répéter l'opération avec les pourcentages inférieurs, +100% puis +75% */<br />
/* puis 50% ... jusqu'à répétition de l'opétation à +1%. */<br />
/* Après un refus de redimensionnement à +1% le script connait la vraie */<br />
/* taille maximale. */<br />
/* */<br />
/* English */<br />
/* 1) Script to resize a multi prims object with conservation of its integrity */<br />
/* (size and relative position of each prim). */<br />
/* */<br />
/* 2) Less lag : only 1 script for an object (1 to 256 prims) */<br />
/* Possibility to remove the script by the menu. */<br />
/* */<br />
/* 3) Communication with other objects to synchronize resize */<br />
/* To allow communication, objects have to comply with few criteria : */<br />
/* a) The object has to be worn, objects to synchronize too. */<br />
/* b) Objects have to have same name except last part separated by space */<br />
/* Example : Excelsior shoes Left and Excelsior shoes Right */<br />
/* */<br />
/* 4) Integrity waranty. */<br />
/* a) If after increasing size the build is broken, automatic go back to */<br />
/* previous good size. */<br />
/* */<br />
/* b) If, at least, one huge prim is in the build, the script is inactive. */<br />
/* This security is only for official grid SecondLife and may be bypassed */<br />
/* for opensim, affecting TRUE to the iAllowResizeHugePrims global variable*/<br />
/* */<br />
/* 5) Automatic detection of manual scale change and link changes */<br />
/* */<br />
/* 6) 18 predefined resize choice in percentage : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 other choices : Resize to Minimum, Maximum or Default size. */<br />
/* The default size is the size at initialisation of the script or the size */<br />
/* affected by the blue menu [Set default]. */<br />
/* */<br />
/* 8) How to find the real maximum size ? */<br />
/* To find the real value : */<br />
/* Make an increase size by +200% until the script says it fails. */<br />
/* Then, repeat this method with +100%, then after with +75% ... */<br />
/* After the last increase with +1% the real maximum size is found and */<br />
/* stored by the script. */<br />
/* */<br />
/* =================================================================================== */<br />
<br />
integer iAllowResizeHugePrims = -1; // You can force to FALSE on official SecondLife grids and TRUE on opensim<br />
integer iNumberOfPrims;<br />
integer iFirst;<br />
integer iLast;<br />
integer iBcl;<br />
integer iIdx;<br />
integer iDeb;<br />
integer iFin;<br />
integer iSens;<br />
float fTmp;<br />
vector vSize;<br />
vector vPos;<br />
float fMin;<br />
float fMax;<br />
float fFactor;<br />
float fDefault;<br />
integer iCanalComm = -8547548;<br />
integer iCanalMenu;<br />
integer iEcouteMenu;<br />
integer iMenuOn;<br />
integer iCurrentMenu;<br />
string sPctM1 = "1";<br />
string sPctM2 = "2";<br />
string sPctM3 = "5";<br />
string sPctP1 = "1";<br />
string sPctP2 = "2";<br />
string sPctP3 = "5";<br />
string sPct;<br />
integer iNbPasses;<br />
integer iHugeUsed;<br />
float fLimiteMax;<br />
integer iNoMoreMax;<br />
vector vPos1;<br />
integer iError;<br />
list lSortPrims;<br />
list lSizes;<br />
list lPos;<br />
list lElem;<br />
list lName;<br />
<br />
// Hack to increase speed of the script (Mono)<br />
Booster()<br />
{<br />
for( iBcl = 0; iBcl < 5000; iBcl++ );<br />
}<br />
<br />
// Function to get size and/or relative position of the current prim<br />
GetSizePos()<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ) * fFactor;<br />
<br />
if( iBcl == iFirst )<br />
{<br />
if( llGetAttached() )<br />
// Root prim and object attached to the avatar, position is local<br />
vPos = llGetLocalPos();<br />
else<br />
// Root prim and object not attached, position is absolute position<br />
vPos = llGetRootPosition();<br />
}<br />
else<br />
// Child prim, position is relative to the root prim<br />
vPos = ( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation() ) * fFactor;<br />
}<br />
<br />
// Function to control if current prim has expected size and relative position<br />
ControlSizePos( vector vRefSize, vector vRefPos )<br />
{<br />
if( llVecDist( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ), vRefSize ) > 0.001 )<br />
iError = TRUE;<br />
else if( iBcl != iFirst )<br />
{<br />
if( llVecDist( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation(),<br />
vRefPos ) > 0.001 )<br />
iError = TRUE;<br />
}<br />
}<br />
<br />
// Function to test resize validity of the current prim, if resize is over stored maximum size<br />
integer TestError()<br />
{<br />
if( fMax > fLimiteMax )<br />
ControlSizePos( vSize, vPos );<br />
<br />
return( iError );<br />
}<br />
<br />
// Function to control build integrity after resize<br />
ControlBuild( integer iBoost )<br />
{<br />
if( iBoost )<br />
Booster();<br />
<br />
// No individual error found<br />
// Control of all the build prim after prim<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
ControlSizePos( llList2Vector( lSizes, iIdx ) * fFactor, llList2Vector( lPos, iIdx ) * fFactor );<br />
<br />
if( iError )<br />
{<br />
if( iBoost )<br />
iIdx = iFin - iSens;<br />
return;<br />
}<br />
}<br />
}<br />
<br />
// Function to resize (only the size) each prim of the build<br />
ChangeSize( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
if( iCorrect )<br />
vPos /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to adapt relative position of each prim of the build<br />
ChangePos( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
if( ( iBcl = llList2Integer( lSortPrims, iIdx ) ) != iFirst )<br />
{<br />
GetSizePos();<br />
vPos1 = vPos / fFactor;<br />
<br />
if( iCorrect )<br />
vSize /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and adapt relative position of each prim of the build<br />
ChangeSizePos()<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and position each prim to the previous stored good sizes and relative positions after an error<br />
GoBackToGoodSize()<br />
{<br />
llOwnerSay( "Error, back to previous good size..." );<br />
<br />
sPct = "aborted";<br />
<br />
if( llRound( fFactor * 100.0 ) == 101 )<br />
iNoMoreMax = TRUE;<br />
<br />
fMin /= fFactor;<br />
fMax /= fFactor;<br />
iFin = iDeb - iSens;<br />
iDeb = iIdx;<br />
iSens *= -1;<br />
fFactor = 1.0;<br />
iNbPasses = 3;<br />
<br />
if( iNoMoreMax )<br />
fLimiteMax = fMax;<br />
<br />
do<br />
{<br />
Booster();<br />
iError = FALSE;<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
lElem = [ PRIM_SIZE, llList2Vector( lSizes, iIdx ) ];<br />
<br />
if( iBcl != iFirst )<br />
{<br />
vPos = llList2Vector( lPos, iIdx );<br />
<br />
lElem += [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ];<br />
}<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
}<br />
<br />
ControlBuild( FALSE );<br />
}<br />
while( iError && --iNbPasses );<br />
<br />
if( iError )<br />
llOwnerSay( "Sorry, the build is broken and can't be repaired." );<br />
}<br />
<br />
// Function to store size and relative positions of each prim after a successfull resizing<br />
SaveSizePos()<br />
{<br />
Booster();<br />
<br />
fFactor = 1.0;<br />
lSizes = [];<br />
lPos = [];<br />
<br />
for( iIdx = 0; iIdx != iNumberOfPrims; iIdx++ )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
lSizes += [ vSize ];<br />
lPos += [ vPos ];<br />
}<br />
}<br />
<br />
// Function to resize the build<br />
Resize( integer iMess )<br />
{<br />
// Apply factor of resizing to the min and max size found in the build<br />
fMin *= fFactor;<br />
fMax *= fFactor;<br />
<br />
sPct = "done";<br />
<br />
if( fFactor < 1.0 )<br />
{<br />
// If resize is to decrease the size, we start whith the most distant prims from the root<br />
iDeb = llGetListLength( lSortPrims ) - 1;<br />
iFin = -1;<br />
iSens = -1;<br />
}<br />
else<br />
{<br />
// If resize is to increase the size, we start whith the closer prims from the root<br />
iDeb = 0;<br />
iFin = llGetListLength( lSortPrims );<br />
iSens = 1;<br />
}<br />
<br />
iError = FALSE;<br />
<br />
if( fFactor < 0.5 )<br />
// if decrease is more than a factor 2, we start by changing only relative positions<br />
ChangePos( FALSE );<br />
else if( fFactor > 2.0 )<br />
// if increase is more than a factor 2, we start by changing only sizes<br />
ChangeSize( FALSE );<br />
else<br />
// if factor is less or equal than 2, resize is both size and position<br />
ChangeSizePos();<br />
<br />
if( ! iError )<br />
{<br />
if( fFactor < 0.5 )<br />
// Changing positions is successfull, we change positions<br />
ChangeSize( TRUE );<br />
else if( fFactor > 2.0 )<br />
// Changing sizes is successfull, we change sizes<br />
ChangePos( TRUE );<br />
}<br />
<br />
if( ! iError )<br />
ControlBuild( TRUE );<br />
<br />
if( iError )<br />
// Restore the last good size after error<br />
GoBackToGoodSize();<br />
else<br />
{<br />
// Save the sizes and relative positions of each prim<br />
SaveSizePos();<br />
if( fMax == 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iNoMoreMax = TRUE;<br />
fLimiteMax = fMax;<br />
}<br />
}<br />
<br />
if( fMax > fLimiteMax )<br />
// New max size found<br />
fLimiteMax = fMax;<br />
<br />
// Start countdown for CHANGED_SCALE event<br />
llResetTime();<br />
<br />
if( iMess )<br />
{<br />
// Inform user the resize is finished and call back the menu<br />
llOwnerSay( "Resize " + sPct + "." );<br />
Menu();<br />
}<br />
}<br />
<br />
AlreadyAt( integer iMess, string sMess )<br />
{<br />
if( iMess )<br />
{<br />
llOwnerSay( "Already at " + sMess + " size." );<br />
Menu();<br />
}<br />
}<br />
<br />
// Function to resize to the minimum size<br />
MinimumSize( integer iMess )<br />
{<br />
if( ( fFactor = 0.01 / fMin ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Minimum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "minimum" );<br />
}<br />
<br />
// Function to resize to the maximum size<br />
MaximumSize( integer iMess )<br />
{<br />
if( ( fFactor = fLimiteMax / fMax ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Maximum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "maximum" );<br />
}<br />
<br />
// Function to resize to the default size<br />
DefaultSize( integer iMess )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
<br />
if( ( fFactor = fDefault / vSize.x ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Default size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "default" );<br />
}<br />
<br />
// Close the menu<br />
FinMenu( integer iAlert )<br />
{<br />
iMenuOn = FALSE;<br />
llSetTimerEvent( 0.0 );<br />
llListenRemove( iEcouteMenu );<br />
if( iAlert )<br />
llOwnerSay( "Menu timeout." );<br />
}<br />
<br />
// Main menu<br />
Menu()<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"Resizer action :\n" +<br />
"Quit : Leave this menu.\n" +<br />
"Options : Current size becomes default.\n" +<br />
">> : Next set of percentages.\n" +<br />
"Min : Resize to minimum size.\n" +<br />
"Default : Return to initial size.\n" +<br />
"Max : Resize to maximum size.",<br />
[ "Quit", "Options", ">>",<br />
"-" + sPctM1 + "%", "Min", "+" + sPctP1 + "%",<br />
"-" + sPctM2 + "%", "Default", "+" + sPctP2 + "%",<br />
"-" + sPctM3 + "%", "Max", "+" + sPctP3 + "%" ],<br />
iCanalMenu );<br />
}<br />
<br />
// Function to return min or max element of vSize vector<br />
float MinMaxVal( integer iOperation )<br />
{<br />
return( llListStatistics( iOperation, [ vSize.x, vSize.y, vSize.z ] ) );<br />
}<br />
<br />
// Initialisation of the script<br />
init()<br />
{<br />
Booster();<br />
<br />
iNumberOfPrims = llGetNumberOfPrims();<br />
iFirst = (integer)( iNumberOfPrims > 1 );<br />
iLast = iNumberOfPrims - (integer)( iNumberOfPrims == 1 );<br />
<br />
llOwnerSay( "Searching min/max prim size..." );<br />
<br />
fMin = 10.0;<br />
fMax = 0.01;<br />
fFactor = 1.0;<br />
for( iBcl = iFirst; ( fMax <= 10.0 || iAllowResizeHugePrims ) && iBcl <= iLast; iBcl++ )<br />
{<br />
GetSizePos();<br />
<br />
if( iBcl == iFirst )<br />
{<br />
fDefault = vSize.x;<br />
lElem = [ 0.0, iFirst ];<br />
}<br />
else<br />
lElem += [ llVecDist( ZERO_VECTOR, vPos ), iBcl ];<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MIN );<br />
if( fTmp < fMin )<br />
fMin = fTmp;<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MAX );<br />
if( fTmp > fMax )<br />
fMax = fTmp;<br />
}<br />
<br />
if( fMax > 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iHugeUsed = TRUE;<br />
llOwnerSay( "Script not active, object uses huge prim." );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Size range : " + (string)fMin + " -> " + (string)fMax );<br />
<br />
iNoMoreMax = FALSE;<br />
iHugeUsed = FALSE;<br />
<br />
llOwnerSay( "Sorting prims..." );<br />
<br />
lElem = llListSort( lElem, 2, TRUE );<br />
<br />
lSortPrims = [];<br />
for( iBcl = 1; iBcl < llGetListLength( lElem ); iBcl += 2 )<br />
lSortPrims += [ llList2Integer( lElem, iBcl ) ];<br />
<br />
llOwnerSay( (string)iNumberOfPrims + " prim" + llList2String( [ "", "s" ], (integer)(iNumberOfPrims > 1) ) + " sorted." );<br />
<br />
fLimiteMax = llListStatistics( LIST_STAT_MAX, [ 10.0, fMax ] );<br />
<br />
llOwnerSay( "Storing size/pos of each prim..." );<br />
<br />
SaveSizePos();<br />
}<br />
<br />
llOwnerSay( "Init. complete." );<br />
}<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
if( iAllowResizeHugePrims < 0 )<br />
iAllowResizeHugePrims = (integer)( llSubStringIndex( llGetSimulatorHostname(), ".lindenlab.com" ) < 0 );<br />
<br />
init();<br />
llListen( iCanalComm, "", NULL_KEY, "" );<br />
}<br />
<br />
changed( integer iChange )<br />
{<br />
if( ( iChange & CHANGED_LINK ) ||<br />
( ( iChange & CHANGED_SCALE ) &&<br />
llGetTime() > 5.0 / llList2Float( [ llGetRegionTimeDilation(), 0.01 ],<br />
(integer)( llGetRegionTimeDilation() < 0.01 ) ) ) )<br />
init();<br />
}<br />
<br />
listen( integer iChannel, string sName, key kId, string sMess )<br />
{<br />
if( iChannel == iCanalMenu )<br />
{<br />
llSetTimerEvent( 0.0 );<br />
<br />
if( sMess == ">>" )<br />
{<br />
if( (++iCurrentMenu) == 3 )<br />
iCurrentMenu = 0;<br />
<br />
if( ! iCurrentMenu )<br />
{<br />
sPctM1 = "1";<br />
sPctM2 = "2";<br />
sPctM3 = "5";<br />
sPctP1 = "1";<br />
sPctP2 = "2";<br />
sPctP3 = "5";<br />
}<br />
else if( iCurrentMenu == 1 )<br />
{<br />
sPctM1 = "10";<br />
sPctM2 = "25";<br />
sPctM3 = "50";<br />
sPctP1 = "10";<br />
sPctP2 = "25";<br />
sPctP3 = "50";<br />
}<br />
else<br />
{<br />
sPctM1 = "75";<br />
sPctM2 = "85";<br />
sPctM3 = "95";<br />
sPctP1 = "75";<br />
sPctP2 = "100";<br />
sPctP3 = "200";<br />
}<br />
<br />
Menu();<br />
}<br />
else if( sMess == "Options" || sMess == " " )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nResizer options :\n \n" +<br />
"Quit : Leave this menu.\n" +<br />
"BACK : To main menu.\n" +<br />
"Set default : Current size is default.\n" +<br />
"Remove : Remove the script.",<br />
[ "Quit", " ", "BACK",<br />
"Set default", " ", "Remove" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "BACK" )<br />
Menu();<br />
else if( sMess == "Set default" )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
fDefault = vSize.x;<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Default|" + (string)fDefault );<br />
<br />
llOwnerSay( "This size is now the default size." );<br />
Menu();<br />
}<br />
else if( sMess == "Remove" )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nSure to remove the script from this object ?",<br />
[ "Yes", "No" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "Default" )<br />
DefaultSize( TRUE );<br />
else if( sMess == "Min" )<br />
MinimumSize( TRUE );<br />
else if( sMess == "Max" )<br />
MaximumSize( TRUE );<br />
else if( ( iBcl = llListFindList( [ "+", "-" ], [ llGetSubString( sMess, 0, 0 ) ] ) ) >= 0 )<br />
{<br />
fFactor = 1.0 + (float)llGetSubString( sMess, 0, -2 ) / 100.0;<br />
fTmp = llList2Float( [ llList2Float( [ 10.0, 10000.0 ], iAllowResizeHugePrims ), fLimiteMax ], iNoMoreMax );<br />
<br />
if( fMin * fFactor < 0.01 )<br />
fFactor = 0.01 / fMin;<br />
else if( fMax * fFactor > fTmp )<br />
fFactor = fTmp / fMax;<br />
<br />
if( fMin * fFactor >= 0.01 && fMax * fFactor <= fTmp && llRound( fFactor * 100.0 ) != 100 )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 ) + "%";<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( llList2String( [ "Increas", "Reduc" ], iBcl ) + "ing size : " +<br />
sPct + llList2String( [ " (" + sMess + " asked)", "" ], (integer)(sMess == sPct) ) + "..." );<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Factor|" + (string)fFactor );<br />
<br />
Resize( TRUE );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Out of size range." );<br />
Menu();<br />
}<br />
}<br />
else<br />
{<br />
FinMenu( FALSE );<br />
<br />
if( sMess == "Yes" )<br />
{<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Remove" );<br />
llRemoveInventory( llGetScriptName() );<br />
}<br />
}<br />
}<br />
else if( llGetAttached() && sName != llGetObjectName() )<br />
{<br />
lElem = llParseString2List( sName, [ " " ], [ "" ] );<br />
if( llGetListLength( lElem ) < 2 )<br />
return;<br />
lName = llParseString2List( llGetObjectName(), [ " " ], [ "" ] );<br />
if( llGetListLength( lName ) < 2 )<br />
return;<br />
<br />
if( llDumpList2String( llList2List( lElem, 0, -2 ), " " ) !=<br />
llDumpList2String( llList2List( lName, 0, -2 ), " " ) )<br />
return;<br />
<br />
lElem = llParseString2List( sMess, [ "|" ], [ "" ] );<br />
<br />
if( llList2String( lElem, 0 ) == (string)llGetOwner() )<br />
{<br />
if( llList2String( lElem, 1 ) == "Remove" )<br />
llRemoveInventory( llGetScriptName() );<br />
else if( llList2String( lElem, 1 ) == "Factor" )<br />
{<br />
fFactor = llList2Float( lElem, 2 );<br />
Resize( FALSE );<br />
<br />
llResetTime();<br />
}<br />
else if( llList2String( lElem, 1 ) == "Min" )<br />
MinimumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Max" )<br />
MaximumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Default" )<br />
{<br />
if( llGetListLength( lElem ) == 2 )<br />
DefaultSize( FALSE );<br />
else<br />
fDefault = llList2Float( lElem, 2 );<br />
}<br />
}<br />
}<br />
}<br />
<br />
timer()<br />
{<br />
FinMenu( TRUE );<br />
}<br />
<br />
touch_start( integer iNum )<br />
{<br />
if( llDetectedKey( 0 ) == llGetOwner() && ! iMenuOn && ! iHugeUsed )<br />
{<br />
//llOwnerSay( (string)llGetFreeMemory() );<br />
iMenuOn = TRUE;<br />
iCanalMenu = iCanalComm - 10 - (integer)llFrand( 124578 );<br />
iEcouteMenu = llListen( iCanalMenu, "", llGetOwner(), "" );<br />
Menu();<br />
}<br />
}<br />
}<br />
</lsl></div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Resizer_multi-prims&diff=1058552
Resizer multi-prims
2010-10-11T19:16:45Z
<p>Christy Mansbridge: New version 1.4, autodetect LL grids or opensim</p>
<hr />
<div>{{LSL Header}}<br />
<br />
All description in first comments of the script.<br />
Maybe my English is not so good (I'm French). Hope anyone will understand.<br />
<br />
Update on october 11th, 2010<br />
Autodetect official LL grids or opensim<br />
<br />
Resizer<br />
<lsl><br />
/* =================================================================================== */<br />
/* */<br />
/* Resizer v1.4 */<br />
/* */<br />
/* License : */<br />
/* Français */<br />
/* OpenSource. Licence GPL 2 et plus. */<br />
/* Modification, Copie et Transfert autorisés */<br />
/* Sous condition de laisser le script en full perm (Modify / Copy / Transfer) */<br />
/* */<br />
/* English */<br />
/* OpenSource. License GPL 2 and later. */<br />
/* Modify, Copy and Transfer allowed if this script stay full perm */<br />
/* */<br />
/* Auteurs : Christy Mansbridge / Mingyar Ishtari, le 02 octobre 2010 */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : Christy Mansbridge */<br />
/* Date : 11 octobre 2010 */<br />
/* Detail : Auto detection opensim/LL grids (version 1.4) */<br />
/* */<br />
/* Author : */<br />
/* Date : */<br />
/* Detail : */<br />
/* */<br />
/* Usage : */<br />
/* Français */<br />
/* À placer dans le prim root (prim coutouré en jaune à l'édition) */<br />
/* Cliquer l'objet pour obtention du menu bleu. */<br />
/* Usage restreint au seul propriétaire. */<br />
/* */<br />
/* English */<br />
/* Place the script in the root prim of the build. */<br />
/* Click the object to get the blue menu. */<br />
/* Usage restricted to the owner. */<br />
/* */<br />
/* Fonctions : */<br />
/* Français */<br />
/* 1) Script de redimensionnement d'un objet multi-prims respectant les */<br />
/* proportions, en taille et en position, de chaque prim. */<br />
/* */<br />
/* 2) Lag minimal puisqu'un seul script par objet (1 à 256 prims) */<br />
/* Possibilité offerte de supprimer le script. */<br />
/* */<br />
/* 3) Communication avec d'autres objets pour synchroniser le redimensionnement */<br />
/* Pour permettre cette communication, plusieurs critères douvent être remplis*/<br />
/* a) L'objet doit être porté ainsi que celui/ceux à synchroniser */<br />
/* b) Les objets doivent porter le même nom, à l'exception de la partie */<br />
/* finale séparée du reste par un espace. */<br />
/* Exemple : Chaussure rouge gauche et Chaussure rouge droite */<br />
/* */<br />
/* 4) Garantie de la conservation de l'intégrité de l'objet. */<br />
/* a) Si un agrandissement entraine une destruction du build, */<br />
/* Retour automatique à la taille avant agrandissement. */<br />
/* */<br />
/* b) Si l'objet contient au moins un huge prim le script reste inactif. */<br />
/* Cette sécurité résevée à la grille officielle SecondLife peut être */<br />
/* désactivée pour opensim en passant à TRUE l'affectation de la variable */<br />
/* globale iAllowResizeHugePrims. */<br />
/* */<br />
/* 5) Prise en compte automatique des changements de liens (ajout/suppresion de */<br />
/* prims ou redimensionnement manuel) */<br />
/* */<br />
/* 6) 18 choix de redimensionnement prédéfinis en pourcentages : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 choix extrèmes : Dimensionnement Minimal, Maximal et par Défaut. */<br />
/* La dimension par défaut est celle à l'initialisation du script ou */<br />
/* celle affectée par le menu [Set default]. */<br />
/* */<br />
/* 8) Détermination de la taille maximale avant déformation de la construction */<br />
/* Pour trouver la taille maximale possible, procéder ainsi : */<br />
/* Effectuer des agrandissements à +200% jusqu'à refus de dimensionnement */<br />
/* Répéter l'opération avec les pourcentages inférieurs, +100% puis +75% */<br />
/* puis 50% ... jusqu'à répétition de l'opétation à +1%. */<br />
/* Après un refus de redimensionnement à +1% le script connait la vraie */<br />
/* taille maximale. */<br />
/* */<br />
/* English */<br />
/* 1) Script to resize a multi prims object with conservation of its integrity */<br />
/* (size and relative position of each prim). */<br />
/* */<br />
/* 2) Less lag : only 1 script for an object (1 to 256 prims) */<br />
/* Possibility to remove the script by the menu. */<br />
/* */<br />
/* 3) Communication with other objects to synchronize resize */<br />
/* To allow communication, objects have to comply with few criteria : */<br />
/* a) The object has to be worn, objects to synchronize too. */<br />
/* b) Objects have to have same name except last part separated by space */<br />
/* Example : Excelsior shoes Left and Excelsior shoes Right */<br />
/* */<br />
/* 4) Integrity waranty. */<br />
/* a) If after increasing size the build is broken, automatic go back to */<br />
/* previous good size. */<br />
/* */<br />
/* b) If, at least, one huge prim is in the build, the script is inactive. */<br />
/* This security is only for official grid SecondLife and may be bypassed */<br />
/* for opensim, affecting TRUE to the iAllowResizeHugePrims global variable*/<br />
/* */<br />
/* 5) Automatic detection of manual scale change and link changes */<br />
/* */<br />
/* 6) 18 predefined resize choice in percentage : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 other choices : Resize to Minimum, Maximum or Default size. */<br />
/* The default size is the size at initialisation of the script or the size */<br />
/* affected by the blue menu [Set default]. */<br />
/* */<br />
/* 8) How to find the real maximum size ? */<br />
/* To find the real value : */<br />
/* Make an increase size by +200% until the script says it fails. */<br />
/* Then, repeat this method with +100%, then after with +75% ... */<br />
/* After the last increase with +1% the real maximum size is found and */<br />
/* stored by the script. */<br />
/* */<br />
/* =================================================================================== */<br />
<br />
integer iAllowResizeHugePrims = -1; // You can force to FALSE on official SecondLife grids and TRUE on opensim<br />
integer iNumberOfPrims;<br />
integer iFirst;<br />
integer iLast;<br />
integer iBcl;<br />
integer iIdx;<br />
integer iDeb;<br />
integer iFin;<br />
integer iSens;<br />
float fTmp;<br />
vector vSize;<br />
vector vPos;<br />
float fMin;<br />
float fMax;<br />
float fFactor;<br />
float fDefault;<br />
integer iCanalComm = -8547548;<br />
integer iCanalMenu;<br />
integer iEcouteMenu;<br />
integer iMenuOn;<br />
integer iCurrentMenu;<br />
string sPctM1 = "1";<br />
string sPctM2 = "2";<br />
string sPctM3 = "5";<br />
string sPctP1 = "1";<br />
string sPctP2 = "2";<br />
string sPctP3 = "5";<br />
string sPct;<br />
integer iNbPasses;<br />
integer iHugeUsed;<br />
float fLimiteMax;<br />
integer iNoMoreMax;<br />
vector vPos1;<br />
integer iError;<br />
list lSortPrims;<br />
list lSizes;<br />
list lPos;<br />
list lElem;<br />
list lName;<br />
<br />
// Hack to increase speed of the script (Mono)<br />
Booster()<br />
{<br />
for( iBcl = 0; iBcl < 5000; iBcl++ );<br />
}<br />
<br />
// Function to get size and/or relative position of the current prim<br />
GetSizePos()<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ) * fFactor;<br />
<br />
if( iBcl == iFirst )<br />
{<br />
if( llGetAttached() )<br />
// Root prim and object attached to the avatar, position is local<br />
vPos = llGetLocalPos();<br />
else<br />
// Root prim and object not attached, position is absolute position<br />
vPos = llGetRootPosition();<br />
}<br />
else<br />
// Child prim, position is relative to the root prim<br />
vPos = ( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation() ) * fFactor;<br />
}<br />
<br />
// Function to control if current prim has expected size and relative position<br />
ControlSizePos( vector vRefSize, vector vRefPos )<br />
{<br />
if( llVecDist( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ), vRefSize ) > 0.001 )<br />
iError = TRUE;<br />
else if( iBcl != iFirst )<br />
{<br />
if( llVecDist( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation(),<br />
vRefPos ) > 0.001 )<br />
iError = TRUE;<br />
}<br />
}<br />
<br />
// Function to test resize validity of the current prim, if resize is over stored maximum size<br />
integer TestError()<br />
{<br />
if( fMax > fLimiteMax )<br />
ControlSizePos( vSize, vPos );<br />
<br />
return( iError );<br />
}<br />
<br />
// Function to control build integrity after resize<br />
ControlBuild( integer iBoost )<br />
{<br />
if( iBoost )<br />
Booster();<br />
<br />
// No individual error found<br />
// Control of all the build prim after prim<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
ControlSizePos( llList2Vector( lSizes, iIdx ) * fFactor, llList2Vector( lPos, iIdx ) * fFactor );<br />
<br />
if( iError )<br />
{<br />
if( iBoost )<br />
iIdx = iFin - iSens;<br />
return;<br />
}<br />
}<br />
}<br />
<br />
// Function to resize (only the size) each prim of the build<br />
ChangeSize( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
if( iCorrect )<br />
vPos /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to adapt relative position of each prim of the build<br />
ChangePos( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
if( ( iBcl = llList2Integer( lSortPrims, iIdx ) ) != iFirst )<br />
{<br />
GetSizePos();<br />
vPos1 = vPos / fFactor;<br />
<br />
if( iCorrect )<br />
vSize /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and adapt relative position of each prim of the build<br />
ChangeSizePos()<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and position each prim to the previous stored good sizes and relative positions after an error<br />
GoBackToGoodSize()<br />
{<br />
llOwnerSay( "Error, back to previous good size..." );<br />
<br />
sPct = "aborted";<br />
<br />
if( llRound( fFactor * 100.0 ) == 101 )<br />
iNoMoreMax = TRUE;<br />
<br />
fMin /= fFactor;<br />
fMax /= fFactor;<br />
iFin = iDeb - iSens;<br />
iDeb = iIdx;<br />
iSens *= -1;<br />
fFactor = 1.0;<br />
iNbPasses = 3;<br />
<br />
if( iNoMoreMax )<br />
fLimiteMax = fMax;<br />
<br />
do<br />
{<br />
Booster();<br />
iError = FALSE;<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
lElem = [ PRIM_SIZE, llList2Vector( lSizes, iIdx ) ];<br />
<br />
if( iBcl != iFirst )<br />
{<br />
vPos = llList2Vector( lPos, iIdx );<br />
<br />
lElem += [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ];<br />
}<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
}<br />
<br />
ControlBuild( FALSE );<br />
}<br />
while( iError && --iNbPasses );<br />
<br />
if( iError )<br />
llOwnerSay( "Sorry, the build is broken and can't be repaired." );<br />
}<br />
<br />
// Function to store size and relative positions of each prim after a successfull resizing<br />
SaveSizePos()<br />
{<br />
Booster();<br />
<br />
fFactor = 1.0;<br />
lSizes = [];<br />
lPos = [];<br />
<br />
for( iIdx = 0; iIdx != iNumberOfPrims; iIdx++ )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
lSizes += [ vSize ];<br />
lPos += [ vPos ];<br />
}<br />
}<br />
<br />
// Function to resize the build<br />
Resize( integer iMess )<br />
{<br />
// Apply factor of resizing to the min and max size found in the build<br />
fMin *= fFactor;<br />
fMax *= fFactor;<br />
<br />
sPct = "done";<br />
<br />
if( fFactor < 1.0 )<br />
{<br />
// If resize is to decrease the size, we start whith the most distant prims from the root<br />
iDeb = llGetListLength( lSortPrims ) - 1;<br />
iFin = -1;<br />
iSens = -1;<br />
}<br />
else<br />
{<br />
// If resize is to increase the size, we start whith the closer prims from the root<br />
iDeb = 0;<br />
iFin = llGetListLength( lSortPrims );<br />
iSens = 1;<br />
}<br />
<br />
iError = FALSE;<br />
<br />
if( fFactor < 0.5 )<br />
// if decrease is more than a factor 2, we start by changing only relative positions<br />
ChangePos( FALSE );<br />
else if( fFactor > 2.0 )<br />
// if increase is more than a factor 2, we start by changing only sizes<br />
ChangeSize( FALSE );<br />
else<br />
// if factor is less or equal than 2, resize is both size and position<br />
ChangeSizePos();<br />
<br />
if( ! iError )<br />
{<br />
if( fFactor < 0.5 )<br />
// Changing positions is successfull, we change positions<br />
ChangeSize( TRUE );<br />
else if( fFactor > 2.0 )<br />
// Changing sizes is successfull, we change sizes<br />
ChangePos( TRUE );<br />
}<br />
<br />
if( ! iError )<br />
ControlBuild( TRUE );<br />
<br />
if( iError )<br />
// Restore the last good size after error<br />
GoBackToGoodSize();<br />
else<br />
{<br />
// Save the sizes and relative positions of each prim<br />
SaveSizePos();<br />
if( fMax == 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iNoMoreMax = TRUE;<br />
fLimiteMax = fMax;<br />
}<br />
}<br />
<br />
if( fMax > fLimiteMax )<br />
// New max size found<br />
fLimiteMax = fMax;<br />
<br />
// Start countdown for CHANGED_SCALE event<br />
llResetTime();<br />
<br />
if( iMess )<br />
{<br />
// Inform user the resize is finished and call back the menu<br />
llOwnerSay( "Resize " + sPct + "." );<br />
Menu();<br />
}<br />
}<br />
<br />
AlreadyAt( integer iMess, string sMess )<br />
{<br />
if( iMess )<br />
{<br />
llOwnerSay( "Already at " + sMess + " size." );<br />
Menu();<br />
}<br />
}<br />
<br />
// Function to resize to the minimum size<br />
MinimumSize( integer iMess )<br />
{<br />
if( ( fFactor = 0.01 / fMin ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Minimum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "minimum" );<br />
}<br />
<br />
// Function to resize to the maximum size<br />
MaximumSize( integer iMess )<br />
{<br />
if( ( fFactor = fLimiteMax / fMax ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Maximum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "maximum" );<br />
}<br />
<br />
// Function to resize to the default size<br />
DefaultSize( integer iMess )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
<br />
if( ( fFactor = fDefault / vSize.x ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Default size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "default" );<br />
}<br />
<br />
// Close the menu<br />
FinMenu( integer iAlert )<br />
{<br />
iMenuOn = FALSE;<br />
llSetTimerEvent( 0.0 );<br />
llListenRemove( iEcouteMenu );<br />
if( iAlert )<br />
llOwnerSay( "Menu timeout." );<br />
}<br />
<br />
// Main menu<br />
Menu()<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"Resizer action :\n" +<br />
"Quit : Leave this menu.\n" +<br />
"Options : Current size becomes default.\n" +<br />
">> : Next set of percentages.\n" +<br />
"Min : Resize to minimum size.\n" +<br />
"Default : Return to initial size.\n" +<br />
"Max : Resize to maximum size.",<br />
[ "Quit", "Options", ">>",<br />
"-" + sPctM1 + "%", "Min", "+" + sPctP1 + "%",<br />
"-" + sPctM2 + "%", "Default", "+" + sPctP2 + "%",<br />
"-" + sPctM3 + "%", "Max", "+" + sPctP3 + "%" ],<br />
iCanalMenu );<br />
}<br />
<br />
// Function to return min or max element of vSize vector<br />
float MinMaxVal( integer iOperation )<br />
{<br />
return( llListStatistics( iOperation, [ vSize.x, vSize.y, vSize.z ] ) );<br />
}<br />
<br />
// Initialisation of the script<br />
init()<br />
{<br />
Booster();<br />
<br />
iNumberOfPrims = llGetNumberOfPrims();<br />
iFirst = (integer)( iNumberOfPrims > 1 );<br />
iLast = iNumberOfPrims - (integer)( iNumberOfPrims == 1 );<br />
<br />
llOwnerSay( "Searching min/max prim size..." );<br />
<br />
fMin = 10.0;<br />
fMax = 0.01;<br />
fFactor = 1.0;<br />
for( iBcl = iFirst; ( fMax <= 10.0 || iAllowResizeHugePrims ) && iBcl <= iLast; iBcl++ )<br />
{<br />
GetSizePos();<br />
<br />
if( iBcl == iFirst )<br />
{<br />
fDefault = vSize.x;<br />
lElem = [ 0.0, iFirst ];<br />
}<br />
else<br />
lElem += [ llVecDist( ZERO_VECTOR, vPos ), iBcl ];<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MIN );<br />
if( fTmp < fMin )<br />
fMin = fTmp;<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MAX );<br />
if( fTmp > fMax )<br />
fMax = fTmp;<br />
}<br />
<br />
if( fMax > 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iHugeUsed = TRUE;<br />
llOwnerSay( "Script not active, object uses huge prim." );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Size range : " + (string)fMin + " -> " + (string)fMax );<br />
<br />
iNoMoreMax = FALSE;<br />
iHugeUsed = FALSE;<br />
<br />
llOwnerSay( "Sorting prims..." );<br />
<br />
lElem = llListSort( lElem, 2, TRUE );<br />
<br />
lSortPrims = [];<br />
for( iBcl = 1; iBcl < llGetListLength( lElem ); iBcl += 2 )<br />
lSortPrims += [ llList2Integer( lElem, iBcl ) ];<br />
<br />
llOwnerSay( (string)iNumberOfPrims + " prim" + llList2String( [ "", "s" ], (integer)(iNumberOfPrims > 1) ) + " sorted." );<br />
<br />
fLimiteMax = llListStatistics( LIST_STAT_MAX, [ 10.0, fMax ] );<br />
<br />
llOwnerSay( "Storing size/pos of each prim..." );<br />
<br />
SaveSizePos();<br />
}<br />
<br />
llOwnerSay( "Init. complete." );<br />
}<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
if( iAllowResizeHugePrims < 0 )<br />
iAllowResizeHugePrims = (integer)( llSubStringIndex( llGetSimulatorHostname(), ".lindenlab.com" ) < 0 );<br />
<br />
init();<br />
llListen( iCanalComm, "", NULL_KEY, "" );<br />
}<br />
<br />
changed( integer iChange )<br />
{<br />
if( ( iChange & CHANGED_LINK ) ||<br />
( ( iChange & CHANGED_SCALE ) &&<br />
llGetTime() > 5.0 / llList2Float( [ llGetRegionTimeDilation(), 0.01 ],<br />
(integer)( llGetRegionTimeDilation() < 0.01 ) ) ) )<br />
init();<br />
}<br />
<br />
listen( integer iChannel, string sName, key kId, string sMess )<br />
{<br />
if( iChannel == iCanalMenu )<br />
{<br />
llSetTimerEvent( 0.0 );<br />
<br />
if( sMess == ">>" )<br />
{<br />
if( (++iCurrentMenu) == 3 )<br />
iCurrentMenu = 0;<br />
<br />
if( ! iCurrentMenu )<br />
{<br />
sPctM1 = "1";<br />
sPctM2 = "2";<br />
sPctM3 = "5";<br />
sPctP1 = "1";<br />
sPctP2 = "2";<br />
sPctP3 = "5";<br />
}<br />
else if( iCurrentMenu == 1 )<br />
{<br />
sPctM1 = "10";<br />
sPctM2 = "25";<br />
sPctM3 = "50";<br />
sPctP1 = "10";<br />
sPctP2 = "25";<br />
sPctP3 = "50";<br />
}<br />
else<br />
{<br />
sPctM1 = "75";<br />
sPctM2 = "85";<br />
sPctM3 = "95";<br />
sPctP1 = "75";<br />
sPctP2 = "100";<br />
sPctP3 = "200";<br />
}<br />
<br />
Menu();<br />
}<br />
else if( sMess == "Options" || sMess == " " )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nResizer options :\n \n" +<br />
"Quit : Leave this menu.\n" +<br />
"BACK : To main menu.\n" +<br />
"Set default : Current size is default.\n" +<br />
"Remove : Remove the script.",<br />
[ "Quit", " ", "BACK",<br />
"Set default", " ", "Remove" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "BACK" )<br />
Menu();<br />
else if( sMess == "Set default" )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
fDefault = vSize.x;<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Default|" + (string)fDefault );<br />
<br />
llOwnerSay( "This size is now the default size." );<br />
Menu();<br />
}<br />
else if( sMess == "Remove" )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nSure to remove the script from this object ?",<br />
[ "Yes", "No" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "Default" )<br />
DefaultSize( TRUE );<br />
else if( sMess == "Min" )<br />
MinimumSize( TRUE );<br />
else if( sMess == "Max" )<br />
MaximumSize( TRUE );<br />
else if( ( iBcl = llListFindList( [ "+", "-" ], [ llGetSubString( sMess, 0, 0 ) ] ) ) >= 0 )<br />
{<br />
fFactor = 1.0 + (float)llGetSubString( sMess, 0, -2 ) / 100.0;<br />
fTmp = llList2Float( [ llList2Float( [ 10.0, 10000.0 ], iAllowResizeHugePrims ), fLimiteMax ], iNoMoreMax );<br />
<br />
if( fMin * fFactor < 0.01 )<br />
fFactor = 0.01 / fMin;<br />
else if( fMax * fFactor > fTmp )<br />
fFactor = fTmp / fMax;<br />
<br />
if( fMin * fFactor >= 0.01 && fMax * fFactor <= fTmp && llRound( fFactor * 100.0 ) != 100 )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 ) + "%";<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( llList2String( [ "Increas", "Reduc" ], iBcl ) + "ing size : " +<br />
sPct + llList2String( [ " (" + sMess + " asked)", "" ], (integer)(sMess == sPct) ) + "..." );<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Factor|" + (string)fFactor );<br />
<br />
Resize( TRUE );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Out of size range." );<br />
Menu();<br />
}<br />
}<br />
else<br />
{<br />
FinMenu( FALSE );<br />
<br />
if( sMess == "Yes" )<br />
{<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Remove" );<br />
llRemoveInventory( llGetScriptName() );<br />
}<br />
}<br />
}<br />
else if( llGetAttached() && sName != llGetObjectName() )<br />
{<br />
lElem = llParseString2List( sName, [ " " ], [ "" ] );<br />
if( llGetListLength( lElem ) < 2 )<br />
return;<br />
lName = llParseString2List( llGetObjectName(), [ " " ], [ "" ] );<br />
if( llGetListLength( lName ) < 2 )<br />
return;<br />
<br />
if( llDumpList2String( llList2List( lElem, 0, -2 ), " " ) !=<br />
llDumpList2String( llList2List( lName, 0, -2 ), " " ) )<br />
return;<br />
<br />
lElem = llParseString2List( sMess, [ "|" ], [ "" ] );<br />
<br />
if( llList2String( lElem, 0 ) == (string)llGetOwner() )<br />
{<br />
if( llList2String( lElem, 1 ) == "Remove" )<br />
llRemoveInventory( llGetScriptName() );<br />
else if( llList2String( lElem, 1 ) == "Factor" )<br />
{<br />
fFactor = llList2Float( lElem, 2 );<br />
Resize( FALSE );<br />
<br />
llResetTime();<br />
}<br />
else if( llList2String( lElem, 1 ) == "Min" )<br />
MinimumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Max" )<br />
MaximumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Default" )<br />
{<br />
if( llGetListLength( lElem ) == 2 )<br />
DefaultSize( FALSE );<br />
else<br />
fDefault = llList2Float( lElem, 2 );<br />
}<br />
}<br />
}<br />
}<br />
<br />
timer()<br />
{<br />
FinMenu( TRUE );<br />
}<br />
<br />
touch_start( integer iNum )<br />
{<br />
if( llDetectedKey( 0 ) == llGetOwner() && ! iMenuOn && ! iHugeUsed )<br />
{<br />
//llOwnerSay( (string)llGetFreeMemory() );<br />
iMenuOn = TRUE;<br />
iEcouteMenu = llListen( iCanalMenu = iCanalComm - 10 - (integer)llFrand( 124578 ), "", llGetOwner(), "" );<br />
Menu();<br />
}<br />
}<br />
}<br />
</lsl></div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Resizer_multi-prims&diff=1057932
Resizer multi-prims
2010-10-10T10:58:08Z
<p>Christy Mansbridge: </p>
<hr />
<div>{{LSL Header}}<br />
<br />
All description in first comments of the script.<br />
Maybe my English is not so good (I'm French). Hope anyone will understand.<br />
<br />
Resizer<br />
<lsl><br />
/* =================================================================================== */<br />
/* */<br />
/* Resizer v1.2 */<br />
/* */<br />
/* License : */<br />
/* Français */<br />
/* OpenSource. Licence GPL 2 et plus. */<br />
/* Modification, Copie et Transfert autorisés */<br />
/* Sous condition de laisser le script en full perm (Modify / Copy / Transfer) */<br />
/* */<br />
/* English */<br />
/* OpenSource. License GPL 2 and later. */<br />
/* Modify, Copy and Transfer allowed if this script stay full perm */<br />
/* */<br />
/* Auteurs : Christy Mansbridge / Mingyar Ishtari, le 02 octobre 2010 */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : */<br />
/* Date : */<br />
/* Detail : */<br />
/* */<br />
/* Usage : */<br />
/* Français */<br />
/* À placer dans le prim root (prim coutouré en jaune à l'édition) */<br />
/* Cliquer l'objet pour obtention du menu bleu. */<br />
/* Usage restreint au seul propriétaire. */<br />
/* */<br />
/* English */<br />
/* Place the script in the root prim of the build. */<br />
/* Click the object to get the blue menu. */<br />
/* Usage restricted to the owner. */<br />
/* */<br />
/* Fonctions : */<br />
/* Français */<br />
/* 1) Script de redimensionnement d'un objet multi-prims respectant les */<br />
/* proportions, en taille et en position, de chaque prim. */<br />
/* */<br />
/* 2) Lag minimal puisqu'un seul script par objet (1 à 256 prims) */<br />
/* Possibilité offerte de supprimer le script. */<br />
/* */<br />
/* 3) Communication avec d'autres objets pour synchroniser le redimensionnement */<br />
/* Pour permettre cette communication, plusieurs critères douvent être remplis*/<br />
/* a) L'objet doit être porté ainsi que celui/ceux à synchroniser */<br />
/* b) Les objets doivent porter le même nom, à l'exception de la partie */<br />
/* finale séparée du reste par un espace. */<br />
/* Exemple : Chaussure rouge gauche et Chaussure rouge droite */<br />
/* */<br />
/* 4) Garantie de la conservation de l'intégrité de l'objet. */<br />
/* a) Si un agrandissement entraine une destruction du build, */<br />
/* Retour automatique à la taille avant agrandissement. */<br />
/* */<br />
/* b) Si l'objet contient au moins un huge prim le script reste inactif. */<br />
/* Cette sécurité résevée à la grille officielle SecondLife peut être */<br />
/* désactivée pour opensim en passant à TRUE l'affectation de la variable */<br />
/* globale iAllowResizeHugePrims. */<br />
/* */<br />
/* 5) Prise en compte automatique des changements de liens (ajout/suppresion de */<br />
/* prims ou redimensionnement manuel) */<br />
/* */<br />
/* 6) 18 choix de redimensionnement prédéfinis en pourcentages : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 choix extrèmes : Dimensionnement Minimal, Maximal et par Défaut. */<br />
/* La dimension par défaut est celle à l'initialisation du script ou */<br />
/* celle affectée par le menu [Set default]. */<br />
/* */<br />
/* 8) Détermination de la taille maximale avant déformation de la construction */<br />
/* Pour trouver la taille maximale possible, procéder ainsi : */<br />
/* Effectuer des agrandissements à +200% jusqu'à refus de dimensionnement */<br />
/* Répéter l'opération avec les pourcentages inférieurs, +100% puis +75% */<br />
/* puis 50% ... jusqu'à répétition de l'opétation à +1%. */<br />
/* Après un refus de redimensionnement à +1% le script connait la vraie */<br />
/* taille maximale. */<br />
/* */<br />
/* English */<br />
/* 1) Script to resize a multi prims object with conservation of its integrity */<br />
/* (size and relative position of each prim). */<br />
/* */<br />
/* 2) Less lag : only 1 script for an object (1 to 256 prims) */<br />
/* Possibility to remove the script by the menu. */<br />
/* */<br />
/* 3) Communication with other objects to synchronize resize */<br />
/* To allow communication, objects have to comply with few criteria : */<br />
/* a) The object has to be worn, objects to synchronize too. */<br />
/* b) Objects have to have same name except last part separated by space */<br />
/* Example : Excelsior shoes Left and Excelsior shoes Right */<br />
/* */<br />
/* 4) Integrity waranty. */<br />
/* a) If after increasing size the build is broken, automatic go back to */<br />
/* previous good size. */<br />
/* */<br />
/* b) If, at least, one huge prim is in the build, the script is inactive. */<br />
/* This security is only for official grid SecondLife and may be bypassed */<br />
/* for opensim, affecting TRUE to the iAllowResizeHugePrims global variable*/<br />
/* */<br />
/* 5) Automatic detection of manual scale change and link changes */<br />
/* */<br />
/* 6) 18 predefined resize choice in percentage : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 other choices : Resize to Minimum, Maximum or Default size. */<br />
/* The default size is the size at initialisation of the script or the size */<br />
/* affected by the blue menu [Set default]. */<br />
/* */<br />
/* 8) How to find the real maximum size ? */<br />
/* To find the real value : */<br />
/* Make an increase size by +200% until the script says it fails. */<br />
/* Then, repeat this method with +100%, then after with +75% ... */<br />
/* After the last increase with +1% the real maximum size is found and */<br />
/* stored by the script. */<br />
/* */<br />
/* =================================================================================== */<br />
<br />
integer iAllowResizeHugePrims = FALSE; // On opensim, affect TRUE<br />
integer iNumberOfPrims;<br />
integer iFirst;<br />
integer iLast;<br />
integer iBcl;<br />
integer iIdx;<br />
integer iDeb;<br />
integer iFin;<br />
integer iSens;<br />
float fTmp;<br />
vector vSize;<br />
vector vPos;<br />
float fMin;<br />
float fMax;<br />
float fFactor;<br />
float fDefault;<br />
integer iCanalComm = -8547548;<br />
integer iCanalMenu;<br />
integer iEcouteMenu;<br />
integer iMenuOn;<br />
integer iCurrentMenu;<br />
string sPctM1 = "1";<br />
string sPctM2 = "2";<br />
string sPctM3 = "5";<br />
string sPctP1 = "1";<br />
string sPctP2 = "2";<br />
string sPctP3 = "5";<br />
string sPct;<br />
integer iNbPasses;<br />
integer iHugeUsed;<br />
float fLimiteMax;<br />
integer iNoMoreMax;<br />
vector vPos1;<br />
integer iError;<br />
list lSortPrims;<br />
list lSizes;<br />
list lPos;<br />
list lElem;<br />
list lName;<br />
<br />
// Hack to increase speed of the script (Mono)<br />
Booster()<br />
{<br />
for( iBcl = 0; iBcl < 5000; iBcl++ );<br />
}<br />
<br />
// Function to get size and/or relative position of the current prim<br />
GetSizePos()<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ) * fFactor;<br />
<br />
if( iBcl == iFirst )<br />
{<br />
if( llGetAttached() )<br />
// Root prim and object attached to the avatar, position is local<br />
vPos = llGetLocalPos();<br />
else<br />
// Root prim and object not attached, position is absolute position<br />
vPos = llGetRootPosition();<br />
}<br />
else<br />
// Child prim, position is relative to the root prim<br />
vPos = ( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation() ) * fFactor;<br />
}<br />
<br />
// Function to control if current prim has expected size and relative position<br />
ControlSizePos( vector vRefSize, vector vRefPos )<br />
{<br />
if( llVecDist( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ), vRefSize ) > 0.001 )<br />
iError = TRUE;<br />
else if( iBcl != iFirst )<br />
{<br />
if( llVecDist( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation(), vRefPos ) > 0.001 )<br />
iError = TRUE;<br />
}<br />
}<br />
<br />
// Function to test resize validity of the current prim, if resize is over stored maximum size<br />
integer TestError()<br />
{<br />
if( fMax > fLimiteMax )<br />
ControlSizePos( vSize, vPos );<br />
<br />
return( iError );<br />
}<br />
<br />
// Function to control build integrity after resize<br />
ControlBuild( integer iBoost )<br />
{<br />
if( iBoost )<br />
Booster();<br />
<br />
// No individual error found<br />
// Control of all the build prim after prim<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
ControlSizePos( llList2Vector( lSizes, iIdx ) * fFactor, llList2Vector( lPos, iIdx ) * fFactor );<br />
<br />
if( iError )<br />
{<br />
if( iBoost )<br />
iIdx = iFin - iSens;<br />
return;<br />
}<br />
}<br />
}<br />
<br />
// Function to resize (only the size) each prim of the build<br />
ChangeSize( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
if( iCorrect )<br />
vPos /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to adapt relative position of each prim of the build<br />
ChangePos( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
if( ( iBcl = llList2Integer( lSortPrims, iIdx ) ) != iFirst )<br />
{<br />
GetSizePos();<br />
vPos1 = vPos / fFactor;<br />
<br />
if( iCorrect )<br />
vSize /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and adapt relative position of each prim of the build<br />
ChangeSizePos()<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and position each prim to the previous stored good sizes and relative positions after an error<br />
GoBackToGoodSize()<br />
{<br />
llOwnerSay( "Error, back to previous good size..." );<br />
<br />
sPct = "aborted";<br />
<br />
if( llRound( fFactor * 100.0 ) == 101 )<br />
iNoMoreMax = TRUE;<br />
<br />
fMin /= fFactor;<br />
fMax /= fFactor;<br />
iFin = iDeb - iSens;<br />
iDeb = iIdx;<br />
iSens *= -1;<br />
fFactor = 1.0;<br />
iNbPasses = 3;<br />
<br />
if( iNoMoreMax )<br />
fLimiteMax = fMax;<br />
<br />
do<br />
{<br />
Booster();<br />
iError = FALSE;<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
lElem = [ PRIM_SIZE, llList2Vector( lSizes, iIdx ) ];<br />
<br />
if( iBcl != iFirst )<br />
{<br />
vPos = llList2Vector( lPos, iIdx );<br />
<br />
lElem += [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ];<br />
}<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
}<br />
<br />
ControlBuild( FALSE );<br />
}<br />
while( iError && --iNbPasses );<br />
<br />
if( iError )<br />
llOwnerSay( "Sorry, the build is broken and can't be repaired." );<br />
}<br />
<br />
// Function to store size and relative positions of each prim after a successfull resizing<br />
SaveSizePos()<br />
{<br />
Booster();<br />
<br />
fFactor = 1.0;<br />
lSizes = [];<br />
lPos = [];<br />
<br />
for( iIdx = 0; iIdx != iNumberOfPrims; iIdx++ )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
lSizes += [ vSize ];<br />
lPos += [ vPos ];<br />
}<br />
}<br />
<br />
// Function to resize the build<br />
Resize( integer iMess )<br />
{<br />
// Apply factor of resizing to the min and max size found in the build<br />
fMin *= fFactor;<br />
fMax *= fFactor;<br />
<br />
sPct = "done";<br />
<br />
if( fFactor < 1.0 )<br />
{<br />
// If resize is to decrease the size, we start whith the most distant prims from the root<br />
iDeb = llGetListLength( lSortPrims ) - 1;<br />
iFin = -1;<br />
iSens = -1;<br />
}<br />
else<br />
{<br />
// If resize is to increase the size, we start whith the closer prims from the root<br />
iDeb = 0;<br />
iFin = llGetListLength( lSortPrims );<br />
iSens = 1;<br />
}<br />
<br />
iError = FALSE;<br />
<br />
if( fFactor < 0.5 )<br />
// if decrease is more than a factor 2, we start by changing only relative positions<br />
ChangePos( FALSE );<br />
else if( fFactor > 2.0 )<br />
// if increase is more than a factor 2, we start by changing only sizes<br />
ChangeSize( FALSE );<br />
else<br />
// if factor is less or equal than 2, resize is both size and position<br />
ChangeSizePos();<br />
<br />
if( ! iError )<br />
{<br />
if( fFactor < 0.5 )<br />
// Changing positions is successfull, we change positions<br />
ChangeSize( TRUE );<br />
else if( fFactor > 2.0 )<br />
// Changing sizes is successfull, we change sizes<br />
ChangePos( TRUE );<br />
}<br />
<br />
if( ! iError )<br />
ControlBuild( TRUE );<br />
<br />
if( iError )<br />
// Restore the last good size after error<br />
GoBackToGoodSize();<br />
else<br />
{<br />
// Save the sizes and relative positions of each prim<br />
SaveSizePos();<br />
if( fMax == 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iNoMoreMax = TRUE;<br />
fLimiteMax = fMax;<br />
}<br />
}<br />
<br />
if( fMax > fLimiteMax )<br />
// New max size found<br />
fLimiteMax = fMax;<br />
<br />
// Start countdown for CHANGED_SCALE event<br />
llResetTime();<br />
<br />
if( iMess )<br />
{<br />
// Inform user the resize is finished and call back the menu<br />
llOwnerSay( "Resize " + sPct + "." );<br />
Menu();<br />
}<br />
}<br />
<br />
AlreadyAt( integer iMess, string sMess )<br />
{<br />
if( iMess )<br />
{<br />
llOwnerSay( "Already at " + sMess + " size." );<br />
Menu();<br />
}<br />
}<br />
<br />
// Function to resize to the minimum size<br />
MinimumSize( integer iMess )<br />
{<br />
if( ( fFactor = 0.01 / fMin ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Minimum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "minimum" );<br />
}<br />
<br />
// Function to resize to the maximum size<br />
MaximumSize( integer iMess )<br />
{<br />
if( ( fFactor = fLimiteMax / fMax ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Maximum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "maximum" );<br />
}<br />
<br />
// Function to resize to the default size<br />
DefaultSize( integer iMess )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
<br />
if( ( fFactor = fDefault / vSize.x ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Default size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "default" );<br />
}<br />
<br />
// Close the menu<br />
FinMenu( integer iAlert )<br />
{<br />
iMenuOn = FALSE;<br />
llSetTimerEvent( 0.0 );<br />
llListenRemove( iEcouteMenu );<br />
if( iAlert )<br />
llOwnerSay( "Menu timeout." );<br />
}<br />
<br />
// Main menu<br />
Menu()<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"Resizer action :\n" +<br />
"Quit : Leave this menu.\n" +<br />
"Options : Current size becomes default.\n" +<br />
">> : Next set of percentages.\n" +<br />
"Min : Resize to minimum size.\n" +<br />
"Default : Return to initial size.\n" +<br />
"Max : Resize to maximum size.",<br />
[ "Quit", "Options", ">>",<br />
"-" + sPctM1 + "%", "Min", "+" + sPctP1 + "%",<br />
"-" + sPctM2 + "%", "Default", "+" + sPctP2 + "%",<br />
"-" + sPctM3 + "%", "Max", "+" + sPctP3 + "%" ],<br />
iCanalMenu );<br />
}<br />
<br />
// Function to return min or max element of vSize vector<br />
float MinMaxVal( integer iOperation )<br />
{<br />
return( llListStatistics( iOperation, [ vSize.x, vSize.y, vSize.z ] ) );<br />
}<br />
<br />
// Initialisation of the script<br />
init()<br />
{<br />
Booster();<br />
<br />
iNumberOfPrims = llGetNumberOfPrims();<br />
iFirst = (integer)( iNumberOfPrims > 1 );<br />
iLast = iNumberOfPrims - (integer)( iNumberOfPrims == 1 );<br />
<br />
llOwnerSay( "Searching min/max prim size..." );<br />
<br />
fMin = 10.0;<br />
fMax = 0.01;<br />
fFactor = 1.0;<br />
for( iBcl = iFirst; ( fMax <= 10.0 || iAllowResizeHugePrims ) && iBcl <= iLast; iBcl++ )<br />
{<br />
GetSizePos();<br />
<br />
if( iBcl == iFirst )<br />
{<br />
fDefault = vSize.x;<br />
lElem = [ 0.0, iFirst ];<br />
}<br />
else<br />
lElem += [ llVecDist( ZERO_VECTOR, vPos ), iBcl ];<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MIN );<br />
if( fTmp < fMin )<br />
fMin = fTmp;<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MAX );<br />
if( fTmp > fMax )<br />
fMax = fTmp;<br />
}<br />
<br />
if( fMax > 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iHugeUsed = TRUE;<br />
llOwnerSay( "Script not active, object uses huge prim." );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Size range : " + (string)fMin + " -> " + (string)fMax );<br />
<br />
iNoMoreMax = FALSE;<br />
iHugeUsed = FALSE;<br />
<br />
llOwnerSay( "Sorting prims..." );<br />
<br />
lElem = llListSort( lElem, 2, TRUE );<br />
<br />
lSortPrims = [];<br />
for( iBcl = 1; iBcl < llGetListLength( lElem ); iBcl += 2 )<br />
lSortPrims += [ llList2Integer( lElem, iBcl ) ];<br />
<br />
llOwnerSay( (string)iNumberOfPrims + " prim" + llList2String( [ "", "s" ], (integer)(iNumberOfPrims > 1) ) + " sorted." );<br />
<br />
fLimiteMax = llListStatistics( LIST_STAT_MAX, [ 10.0, fMax ] );<br />
<br />
llOwnerSay( "Storing size/pos of each prim..." );<br />
<br />
SaveSizePos();<br />
}<br />
<br />
llOwnerSay( "Init. complete." );<br />
}<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
init();<br />
llListen( iCanalComm, "", NULL_KEY, "" );<br />
}<br />
<br />
changed( integer iChange )<br />
{<br />
if( ( iChange & CHANGED_LINK ) ||<br />
( ( iChange & CHANGED_SCALE ) &&<br />
llGetTime() > 5.0 / llList2Float( [ llGetRegionTimeDilation(), 0.01 ],<br />
(integer)( llGetRegionTimeDilation() < 0.01 ) ) ) )<br />
init();<br />
}<br />
<br />
listen( integer iChannel, string sName, key kId, string sMess )<br />
{<br />
if( iChannel == iCanalMenu )<br />
{<br />
llSetTimerEvent( 0.0 );<br />
<br />
if( sMess == ">>" )<br />
{<br />
if( (++iCurrentMenu) == 3 )<br />
iCurrentMenu = 0;<br />
<br />
if( ! iCurrentMenu )<br />
{<br />
sPctM1 = "1";<br />
sPctM2 = "2";<br />
sPctM3 = "5";<br />
sPctP1 = "1";<br />
sPctP2 = "2";<br />
sPctP3 = "5";<br />
}<br />
else if( iCurrentMenu == 1 )<br />
{<br />
sPctM1 = "10";<br />
sPctM2 = "25";<br />
sPctM3 = "50";<br />
sPctP1 = "10";<br />
sPctP2 = "25";<br />
sPctP3 = "50";<br />
}<br />
else<br />
{<br />
sPctM1 = "75";<br />
sPctM2 = "85";<br />
sPctM3 = "95";<br />
sPctP1 = "75";<br />
sPctP2 = "100";<br />
sPctP3 = "200";<br />
}<br />
<br />
Menu();<br />
}<br />
else if( sMess == "Options" || sMess == " " )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nResizer options :\n \n" +<br />
"Quit : Leave this menu.\n" +<br />
"BACK : To main menu.\n" +<br />
"Set default : Current size is default.\n" +<br />
"Remove : Remove the script.",<br />
[ "Quit", " ", "BACK",<br />
"Set default", " ", "Remove" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "BACK" )<br />
Menu();<br />
else if( sMess == "Set default" )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
fDefault = vSize.x;<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Default|" + (string)fDefault );<br />
<br />
llOwnerSay( "This size is now the default size." );<br />
Menu();<br />
}<br />
else if( sMess == "Remove" )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nSure to remove the script from this object ?",<br />
[ "Yes", "No" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "Default" )<br />
DefaultSize( TRUE );<br />
else if( sMess == "Min" )<br />
MinimumSize( TRUE );<br />
else if( sMess == "Max" )<br />
MaximumSize( TRUE );<br />
else if( ( iBcl = llListFindList( [ "+", "-" ], [ llGetSubString( sMess, 0, 0 ) ] ) ) >= 0 )<br />
{<br />
fFactor = 1.0 + (float)llGetSubString( sMess, 0, -2 ) / 100.0;<br />
fTmp = llList2Float( [ llList2Float( [ 10.0, 10000.0 ], iAllowResizeHugePrims ), fLimiteMax ], iNoMoreMax );<br />
<br />
if( fMin * fFactor < 0.01 )<br />
fFactor = 0.01 / fMin;<br />
else if( fMax * fFactor > fTmp )<br />
fFactor = fTmp / fMax;<br />
<br />
if( fMin * fFactor >= 0.01 && fMax * fFactor <= fTmp && llRound( fFactor * 100.0 ) != 100 )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 ) + "%";<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( llList2String( [ "Increas", "Reduc" ], iBcl ) + "ing size : " +<br />
sPct + llList2String( [ " (" + sMess + " asked)", "" ], (integer)(sMess == sPct) ) + "..." );<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Factor|" + (string)fFactor );<br />
<br />
Resize( TRUE );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Out of size range." );<br />
Menu();<br />
}<br />
}<br />
else<br />
{<br />
FinMenu( FALSE );<br />
<br />
if( sMess == "Yes" )<br />
{<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Remove" );<br />
llRemoveInventory( llGetScriptName() );<br />
}<br />
}<br />
}<br />
else if( llGetAttached() && sName != llGetObjectName() )<br />
{<br />
lElem = llParseString2List( sName, [ " " ], [ "" ] );<br />
if( llGetListLength( lElem ) < 2 )<br />
return;<br />
lName = llParseString2List( llGetObjectName(), [ " " ], [ "" ] );<br />
if( llGetListLength( lName ) < 2 )<br />
return;<br />
<br />
if( llDumpList2String( llList2List( lElem, 0, -2 ), " " ) !=<br />
llDumpList2String( llList2List( lName, 0, -2 ), " " ) )<br />
return;<br />
<br />
lElem = llParseString2List( sMess, [ "|" ], [ "" ] );<br />
<br />
if( llList2String( lElem, 0 ) == (string)llGetOwner() )<br />
{<br />
if( llList2String( lElem, 1 ) == "Remove" )<br />
llRemoveInventory( llGetScriptName() );<br />
else if( llList2String( lElem, 1 ) == "Factor" )<br />
{<br />
fFactor = llList2Float( lElem, 2 );<br />
Resize( FALSE );<br />
<br />
llResetTime();<br />
}<br />
else if( llList2String( lElem, 1 ) == "Min" )<br />
MinimumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Max" )<br />
MaximumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Default" )<br />
{<br />
if( llGetListLength( lElem ) == 2 )<br />
DefaultSize( FALSE );<br />
else<br />
fDefault = llList2Float( lElem, 2 );<br />
}<br />
}<br />
}<br />
}<br />
<br />
timer()<br />
{<br />
FinMenu( TRUE );<br />
}<br />
<br />
touch_start( integer iNum )<br />
{<br />
if( llDetectedKey( 0 ) == llGetOwner() && ! iMenuOn && ! iHugeUsed )<br />
{<br />
//llOwnerSay( (string)llGetFreeMemory() );<br />
iMenuOn = TRUE;<br />
iEcouteMenu = llListen( iCanalMenu = iCanalComm - 10 - (integer)llFrand( 124578 ), "", llGetOwner(), "" );<br />
Menu();<br />
}<br />
}<br />
}<br />
</lsl></div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Category:LSL_Library&diff=1056452
Category:LSL Library
2010-10-07T19:12:03Z
<p>Christy Mansbridge: </p>
<hr />
<div>{{LSL Header|ml=*}}{{RightToc}}<br />
==Script Library==<br />
<br />
<div id="box"><br />
<div style="padding: 0.5em 0.5em 1.5em"><br />
Come to this page to see complex examples that show how to combine parts of LSL.<br />
<br />
Go to the [[:Category:LSL Examples|LSL Examples]] page to see brief examples of how to use parts of LSL <br />
<br />
Why collect complex examples here? Well, ...<br />
<br />
There are many [[script|scripts]] that have become buried in the [http://forums-archive.secondlife.com/15/1.html Scripting Library archive] or the newer [https://blogs.secondlife.com/community/forums/scripting_library?view=discussions Scripting Library forum], were lost with the death of the early scripting forums, or sit idle in [[inventory|inventories]] that could be useful and should be more accessible.<br />
<br />
Other scripters may be in the same situation. This wiki is a well-suited medium for a script library. Feel free to add your scripts to the script library by creating new pages for them and linking to those pages here.<br />
<br />
Note that there are many more scripts in the LSL Library here, but you can't get to them if you don't know they exist, because they are subpages now, instead of an automatically updated category. Good luck searching.<br />
</div><br />
</div><br />
<br />
<div id="box"><br />
<br />
== Rules for posting: ==<br />
<div style="padding: 0.5em"><br />
#Your script must be tested and working. If it's not, stick it in your user-space until it is. This is a list of working, usable scripts.<br />
#Add a link to your script's page here. Link back to this page from your script's page. Start your page with <nowiki>{{LSL Header}}</nowiki>.<br />
#Do not add scripts that duplicate the same functionality as an existing script or built in {{LSLGC|Functions|function}}. If yours does, explain why.<br />
#Do not list simple scripts here. Include those among the [[:Category:LSL Examples|LSL Examples]] instead.<br />
</div></div><br />
<br />
<div id="box"><br />
==LSL Script Library==<br />
<br />
{| class="sortable" {{Prettytable}}<br />
|- {{Hl2}}<br />
! '''Name'''<br />
! '''Creator'''<br />
! '''Description'''<br />
|-<br />
||[[1st necessity of SL]]<br />
||[[User:Beer Dailey|Beer Dailey]]<br />
||Monitors for avatars and (de)activates scripts states to control script performance/lag.<br />
|-<br />
||[[3D Radar]]<br />
||[[User:Jesse Barnett|Jesse Barnett]]<br />
||Rezzes a ball for each avatar in range. Each ball tracks its own AV and displays distance.<br />
|-<br />
||[[Access (NewAge)]]<br />
||[[User:Asia Snowfall|Asia Snowfall]]<br />
||An easy to use script for permissions on who can use the script, Public/Group/Owner<br />
|-<br />
||[[Aim Detection]]<br />
||[[User:Han Shuffle|Han Shuffle]]<br />
||Monitors for avatars and reports back to owner about who is aiming at them.<br />
|-<br />
||[[AntiDelay Node]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Uses [[llMessageLinked]] to stop those pesky delays.<br />
|-<br />
||[[AO Overriding Pose Ball]]<br />
||[[User:Jesse Barnett|Jesse Barnett]]<br />
||No more turning your AO off and on when you sit down<br />
|-<br />
||[[ARCFOUR Strong Encryption Implementation]]<br />
||[[User:Nekow42 Zarf|Nekow42 Zarf]]<br />
||An LSL implementation of ARCFOUR, the most popular stream cipher still in use. It is licensed under a Creative Commons Attribution 3.0 license.<br />
|-<br />
||[[Assembly Programming Language|Assembly-Like Programming Language]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||A compiler that runs assembly-like programs.<br />
|-<br />
||[[Associative Array Emulator|Associative Array (Dictionary) Emulator]]<br />
||[[User:Alynna Vixen|Alynna Vixen]]<br />
||This library provides a set of functions for using a list as an associative array where string based keys can refer to one or more variant elements.<br />
|-<br />
||[[AvatarFollower]]<br />
||[[User:Dale Innis|Dale Innis]]<br />
||Allows one avatar to automatically follow another.<br />
|-<br />
||[[Avatar Radar (NewAge)]]<br />
||[[User:Asia Snowfall|Asia Snowfall]]<br />
||Version 1.2; A nice new avatar radar script i just finish that you can place in your hud, Also features avatar locator<br />
|-<br />
||[[Base2Dec]]<br />
||[[User:Siann Beck|Siann Beck]]<br />
||Convert a number to decimal from any base.<br />
|-<br />
||[[BaseN]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
||Variable base compression, dynamically maps to usable UTF code points.<br />
|-<br />
||[[Basic A-Star Pathfinder]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| My own interpretation of A Star into a highly efficient algorithmn<br />
|-<br />
||[[Basic Encryption Modules]]<br />
||[[User:Beverly Larkin|Beverly Larkin]]<br />
||Basic encryption scripts, allows you to encrypt a float and shout it to another prim on a randomly chosen channel.<br />
|-<br />
||[[Be happy]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Basic smile attachment script, makes your avatar smile.<br />
|-<br />
||[[Best Neighbor Ad Hiding Script|Best Neighbor]]<br />
||[[User:Doran Zemlja|Doran Zemlja]]<br />
||Reduce ad clutter by hiding ads when users are on their own land nearby.<br />
|-<br />
||[[BigNum|BigNum Library (RSA Encryption)]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||A BigNum Library for dealing with big numbers! Specialized for modular multiplication, and RSA encryption.<br />
|-<br />
||[[Binary Clock v1.1|Binary Clock]]<br />
||[[User:Fox Diller|Fox Diller]]<br />
||A Binary Clock.<br />
|-<br />
||[[BinaryDecimalConverter]]<br />
||[[User:Soundless Smalls|Soundless Smalls]]<br />
||Converts a binary value to a decimal value and vice versa.<br />
|-<br />
||[[Blacklist and Remote Kill|Blacklist and Remote Kill]]<br />
||[[User:Chase Quinnell|Chase Quinnell]]<br />
||Blacklist(denial of use) or a creator kill script(can delete someone's item by command on private channel)<br />
|-<br />
||[[User_talk:Rolig_Loon/Bookmark_URLs|Bookmark URLs]]<br />
||[[User:Rolig Loon|Rolig Loon]]<br />
||Dialog driven HUD reads bookmarked URLs from notecards and navigates directly to them with user's in-world browser.<br />
|-<br />
||[[Builders Buddy|Builder's Buddy Tool]]<br />
||[[User:Newfie Pendragon|Newfie Pendragon]]<br />
||Script to easily move/rotate large builds that exceed the linkable size limit (30 meters).<br />
|-<br />
||[[Button Click Detector]]<br />
||{{User|Sendao Goodman}}<br />
||Use [[llDetectedTouchUV]] to determine which button was pressed on a texture.<br />
|-<br />
||[[Camera following prim]]<br />
||[[User:Dale Innis|Dale Innis]]<br />
||Pair of scripts to make a prim follow your camera position around (for lights etc).<br />
|-<br />
||[[Camera Sync]]<br />
||[[User:Meyermagic Salome|Meyermagic Salome]] and [[User:Nomad Padar|Nomad Padar]]<br />
||A system to synchronize the cameras of two avatars.<br />
|-<br />
||[[Chatbot]]<br />
||Anonymous<br />
||Compile and run the LSL you type on a channel, faster than you can thru the 2007-08 SL GUI.<br />
|-<br />
||[[Chat Logger (GPL)]]<br />
||[[User:Nobody Fugazi|Nobody Fugazi]]<br />
||Chat logger which requests permission from participants before recording them.<br />
|-<br />
||[[Chat_Relay|Chat Relay]]<br />
||[[User:grumble Loudon|grumble Loudon]]<br />
||A Chat relay which can be routed using a path header and won't echo.<br />
|-<br />
||[[ClickAndDrag]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Click and Drag user interface elements using dynamic feedback<br />
|-<br />
||[[Code Racer]]<br />
||Anonymous<br />
||Race two versions of code forever, to see which runs faster.<br />
|-<br />
||[[Code Sizer]]<br />
||Anonymous<br />
||Count the bytes compiled from source code, to measure how to write small code.<br />
|-<br />
||[[User:Void_Singer/Programs#v7-D_Enh._Color_Picker|Color Changer]]<br />
||[[User:Void_Singer|Void_Singer]]<br />
||Dialog driven color changer. Supports 16million+ colors, web color codes, multiple targeted prims, with save and recall.<br />
|-<br />
||[[Color Changer|Color Changer Plus]]<br />
||[[User:Neo Calcutt|Neo Calcutt]]<br />
||A color changer with 14 colors, a random function, and a custom vector function.<br />
|-<br />
||[[Color conversion scripts|Color Conversion]]<br />
||[[User:Sally LaSalle|Sally LaSalle]]<br />
||Convert between Red Green Blue (RGB) and Hue Saturation Value (HSV).<br />
|-<br />
||[[ColorConvert]]<br />
||[[User:Siann Beck|Siann Beck]]<br />
||Convert color values to vector from RGB, hex or HTML color name.<br />
|-<br />
||[[Color script]]<br />
||[[User:Masakazu Kojima|Masakazu Kojima]]<br />
||Script for changing colors trough a listener with pre-defined colors.<br />
|-<br />
||[[Library Combined Library|Combined Library]]<br />
||[[User:Strife Onizuka|Strife Onizuka]]<br />
||Library of mostly encoding and decoding functions, some more useful then others.<br />
* String functions: Replace / Trim right / Trim left / Trim both<br />
* Unicode conversion: UTF8 to Unicode / Unicode to UTF8<br />
* List functions: Replace / Compare<br />
|-<br />
||[[Computer:jaycoonlanguage]]<br />
||[[User:jayco121 Bing|jayco121 Bing]]<br />
|| A language written in LSL that is meant for my computer (available at the shop).<br />
|-<br />
||[[Read Note Card Configuration|Configuration Notecard Reader]]<br />
||{{User|Dedric Mauriac}}<br />
||A script to read configuration information from a notecard. Parses notecard to extract key words and their assigned values. Allows for comment lines and many more useful features.<br />
|-<br />
||[[AdvancedNotecardReader|Configuration Notecard Reader (advanced)]]<br />
||[[Lear Cale|Lear Cale]]<br />
||Robust configuration notecard reader; supports multiple notecards with same suffix, handles reconfig on inventory change, and does not usurp the default state.<br />
|-<br />
||[[Library_Chat_Relay|Conversation Relay]]<br />
||[[User:Jippen Faddoul|Jippen Faddoul]]<br />
||Chat relay which requests permission from participants before relaying their messages. Also includes their attachments. (ToS compliant).<br />
|-<br />
||[[Curtain script]]<br />
||[[User:Zilla Larsson|Zilla Larsson]]<br />
||A simple script to retract/stretch curtains, blinds, bedcovers and more<br />
|-<br />
||[[Dataserver API]]<br />
||[[User:Revolution Perenti|Revolution Perenti]]<br />
||Dataserver Framework for Notecards.<br />
|-<br />
||[[Date Library]]<br />
||[[User:Corto Maltese|Corto Maltese]]<br />
|| Date library, based on number of day since march 3rd 1600, can be used to calculate weekday, date differences, and date offset, and date formating.<br />
|-<br />
||[[Day of the Week]]<br />
||[[User:DoteDote Edison|DoteDote Edison]]<br />
||Function to get day of the week from [[llGetUnixTime]].<br />
|-<br />
||[[Days in Month]]<br />
||[[User:IntLibber Brautigan begin_of_the_skype_highlighting end_of_the_skype_highlighting begin_of_the_skype_highlighting end_of_the_skype_highlighting|IntLibber Brautigan]]<br />
||Clicking on it returns the number of days in the present month. Useful for scripting calendars and tier systems that need to know the number of days in the month at hand or to calculate for any month. Even adjusts for leap years.<br />
|-<br />
||[[Deed Tools]]<br />
||[[User:Falados Kapuskas|Falados Kapuskas]]<br />
||Tools that allow the creator to modify Group-Owned (Deeded) Objects via chat.<br />
|-<br />
||[[Describe Chatter]]<br />
||Anonymous<br />
||Chat to see yourself as others do.<br />
|-<br />
||[[Dialog Control]]<br />
||[[User:Nargus Asturias|Nargus Asturias]]<br />
|| A (not-so) simple dialog & menu control script. Call dialog and receive selected value via [[link_message]](), with built-in timer and [[link_message]]() notification on time out. Supports multi-pages dialog and numeric property dialog. Button text and dialog's returned value can differ.<br />
Latest version also has [[Dialog Menus Control]] built-in; which allow multi-level menus through SL dialog system.<br />
|-<br />
||[[MultiUser_Dialog_Handler|Dialog Menus (multiuser)]]<br />
||[[User:SimonT Quinnell|SimonT Quinnell]]<br />
|| Menu dialog handler that supports multiple menus open at once from the single script. Displays multi-page menus if necessary as well as allowing for fixed header and footer buttons. Timeouts as well as Text and button size limits are handled.<br />
|-<br />
||[[Dialog NumberPad|Dialog Number Pad]]<br />
||[[User:DoteDote Edison|DoteDote Edison]]<br />
||Use a dialog to accept positive integer input from users.<br />
|-<br />
||[[Displayer Script]]<br />
||[[User:Akinori Kimagawa|Akinori Kimagawa]]<br />
||[[Display Words On Top Of An Object]]<br />
|-<br />
||[[Drink script]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Used mainly for food and drink in Second Life.<br />
|-<br />
||[[User:Daemonika_Nightfire/Scripts/DS_Single_AO-Sit|*DS*_Single_AO-Sit]]<br />
||[[User:Daemonika Nightfire|Daemonika Nightfire]]<br />
||Posescript for use with or without AO and with or without Animation. With the menu it is possible the seated Avatar to move.<br />
|-<br />
||[[TOXDropBox|DropBox]]<br />
||[[User:Dimentox Travanti|Dimentox Travanti]]<br />
|| This is a Drop box which allows people to drop certain items in a object & has many config options.<br />
|-<br />
||[[Efficiency Tester]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Tests the speed of a function.<br />
|-<br />
||[[Email-to-IM|Email2IM]]<br />
||[[User:DoteDote Edison|DoteDote Edison]]<br />
||Send IMs to SL friends via [[email]] (translate emails from friends into IMs).<br />
|-<br />
|-<br />
||[[User:Kireji_Haiku/SIMchat_headset|Encrypted Region-wide chat]]<br />
||'''[[User:Kireji Haiku|Kireji Haiku]]''' <sup><small>([[User talk:Kireji Haiku|talk]]|[[Special:Contributions/Kireji Haiku|contribs]])</small></sup><br />
||Encrypted Region-wide chat<br />
|-<br />
||[[ExplodingObjects]]<br />
||[[User:Dale Innis|Dale Innis]]<br />
||Causes an object (of the appropriate type) to explode on command.<br />
|-<br />
||[[FadeEasy]]<br />
||[[User:Nika Rugani|Nika Rugani]]<br />
||The easy way of fading objects in or out (Using llSetLinkAlpha)<br />
|-<br />
||[[FastConeSpread]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Fast Algorithmn to achieve cone spread, main use in weaponry systems.<br />
|-<br />
||[[User:PixelProphet Lane/Scripts#Fast List Prim Contents|Fast List Prim Contents]]<br />
||[[User:PixelProphet Lane|PixelProphet Lane]]<br />
||Fast and efficient method to print Object Inventory (Name, Type and next Owner permissions)<br />
|-<br />
||[[Find Avatar Key|Find Avatar Key]]<br />
||[[User:Huney Jewell|Huney Jewell]]<br />
||Explores [[UUID]] of avatar whose name is said in local chat or who touches the prim.<br />
|-<br />
||[[First Name Letter Prize]]<br />
||[[User:RaithSphere Whybrow|RaithSphere Whybrow]]<br />
||Gives a prize if the person who sits on it's first letter of first name matches the random letter!<br />
|-<br />
||[[Fix Small Prims|Fix_Small_Prims]]<br />
||[[User:Emma Nowhere|Emma Nowhere]]<br />
||Finds and adjusts the smallest prims in a linkset so that it can be scaled down further.<br />
|-<br />
||[[Float2Hex]]<br />
||[[User:Strife Onizuka|Strife Onizuka]]<br />
||Very useful for transporting [[float|floats]].<br />
|-<br />
||[[Float Box Contents]]<br />
||[[User:Rolig Loon|Rolig Loon]]<br />
||Displays object inventory in hover text, identified by type and updated marquee-style.<br />
|-<br />
||[[Follower (script)|Follower]]<br />
||Unknown, uploaded by [[User:Slik Swindlehurst|Slik Swindlehurst]]<br />
||Makes an object follow the nearest person. Do not use for [[grief|griefing]].<br />
|-<br />
||[[GA Event Notifier]]<br />
||[[User:Victor Hua|Victor Hua]]<br />
||Gathers seven days event data from a Google calendar and display it through a simple interface. The lsl script can access several calendars at once through seperate php files. One file per calendar. Host the included php on your own web server.<br />
|-<br />
||[[Geometric|Geometric Library]]<br />
||Community Project<br />
||A substantial amount of various geometric functions for intersection and other purposes of 3D maths.<br />
|-<br />
||[[Get Profile Picture]]<br />
||[[User:Valentine Foxdale|Valentine Foxdale]]<br />
||Sets the texture of the object to profile picture of the person that touches ot<br />
|-<br />
||[[GetTimestampOffset]]<br />
||[[User:Siann_Beck|Siann Beck]]<br />
||Returns [[llGetTimestamp]]() with an hour offset.<br />
|-<br />
||[[Give InvItem every n hours]]<br />
||[[User:Criz Collins|Criz Collins]]<br />
||Will give an inventory item on touch only every n hours, even if somebody touches the object more than once. <br />
|-<br />
||[[Give random object]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Touch to receive a random object in the prim's inventory<br />
|-<br />
||[[Google Charts]]<br />
||[[User:Dedric Mauriac|Dedric Mauriac]]<br />
||Create links to display raw data as a chart image.<br />
|-<br />
||[[Google_Translator]]<br />
||[[User:Ugleh Ulrik|Ugleh Ulrik]]<br />
||Translates spanish to english, and its simple to make it any other way.<br />
|-<br />
||[[Go transparent when walking]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||An attachment that goes invisible when you walk and visible when you don't walk.<br />
|-<br />
||[[Group Authorization]]<br />
||[[User:Chase Quinnell|Chase Quinnell]]<br />
||Checks to see if object is set to appropriate group (checks by [[Group key finder|group key]])<br />
|-<br />
||[[Group Information v1.0]]<br />
||[[User:Tyrennic Rivera|Tyrennic Rivera]]<br />
||When clicked the prim will show group information (set on the prim) from the official Second Life Search page.<br />
|-<br />
||[[Group key finder]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Touch to find the key of the group<br />
|-<br />
||[[Group Privacy]]<br />
||[[User:Chance Unknown|Chance Unknown]]<br />
||Security device to insure members of a group can have a private area. Deactivates when nobody present.<br />
|-<br />
||[[Hello Avatar]]<br />
||Linden Lab<br />
||SL's default script.<br />
|-<br />
||[[Hello Avatar Companion]]<br />
||[[Chase Quinnell]]<br />
||Companion to the original [[Hello Avatar]] script<br />
|-<br />
||[[Hierarchics]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Advanced script to create an efficient self-aware hierarchic structure.<br />
|-<br />
||[[Hierarchics2]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Second generation, one script per object. Only two functions, can be embedded in others. Uses the new [[llSetLinkPrimitiveParamsFast]]/[[llGetLinkPrimitiveParams]] functions.<br />
|-<br />
||[[User:Rolig_Loon/High-Capacity_Greeter-Counter|High-Capacity Greeter-Counter]]<br />
||[[User:Rolig Loon|Rolig Loon]]<br />
||Uses a memory compression algorithm to store hashed visitor UUID's in a string instead of using a list. <br />
|-<br />
||[[Holodeck]]<br />
||[[User:Revolution Perenti|Revolution Perenti]]<br />
||Home Rezzing System (Open Source).<br />
|-<br />
||[[Interpolation|Interpolation Library]]<br />
||[[User:Nexii_Malthus|Nexii Malthus]]<br />
||A small set of interpolation functions.<br />
|-<br />
||[[Intra-Region Update Server]]<br />
||[[User:Emma_Nowhere|Emma Nowhere]]<br />
||Centrally update objects such as Freeview screens or teleport pads within a region that are configured by notecards or contain modifiable objects or media assets.<br />
|-<br />
||[[Inventory_Based_Menu]]<br />
||[[User:Revolution Perenti|Revolution Perenti]]<br />
||Inventory Based Menu System.<br />
|-<br />
||[[iTunes RPC Email|iTunes RPC]]<br />
||[[User:Fox Diller|Fox Diller]]<br />
||iTunes RPC via LSL [[llEmail]] and [[llRemoteDataReply]].<br />
|-<br />
||[[Kilt Editor|Kilt / Skirt Editor]]<br />
||[[User:Brangus Weir|Brangus Weir]]<br />
|| This changes all the parameters of all the flexis in the link set in one swell foop!<br />
|-<br />
||[[Key Pad Door|Keypad Door]]<br />
||[[User:Tdub Dowler|Tdub Dowler]]<br />
|| Door and keypad with changeable code. Follow instructions carefully!<br />
|-<br />
||[[Last Sound System]]<br />
||[[User:Babbage Linden|Babbage Linden]]<br />
||An LSL [http://Last.fm Last.fm] client.<br />
|-<br />
||[[LibraryDisplayLandScreenshot]]<br />
||[[User:Jon Desmoulins|Jon Desmoulins]]<br />
||A modified version of LibraryDisplayProfilePic using the new [[PARCEL_DETAILS_ID]] Implemented in Server v1.36<br />
|-<br />
||[[User:Daemonika_Nightfire/Scripts/LinkNumber-List_in_llSetLinkPrimitiveParamsFast|LinkNumber-List_in_llSetLinkPrimitiveParamsFast]]<br />
||[[User:Daemonika Nightfire|Daemonika Nightfire]]<br />
||Changed several prims in linkset with the same parameters, with a list. Without separate llSetLinkPrimitiveParams for each prim. (ideal for show/hide effects)<br />
|-<br />
||[[Linkset resizer]]<br />
||[[User:Maestro Linden|Maestro Linden]]<br />
||Systematically rescales a linkset by moving and resizing each prim (by using [[llGetLinkPrimitiveParams]] and [[llSetLinkPrimitiveParamsFast]])<br />
|-<br />
||[[Linkset resizer with menu]]<br />
||[[User:Brilliant Scientist|Brilliant Scientist]]<br />
||A menu-driven script that rescales a linkset by moving and resizing the prims using [[llGetLinkPrimitiveParams]] and [[llSetLinkPrimitiveParamsFast]] functions. Based on [[Linkset resizer]].<br />
|-<br />
||[[Linkset Resizer 2]]<br />
||[[User:Emma Nowhere|Emma Nowhere]]<br />
||A more user-friendly resizer script designed for either drop-in use by the end-user or builder or for use in products. Based on [[Fix Small Prims]].<br />
|-<br />
||[[List2CSV]]<br />
||[[User:Kunnis Basiat|Kunnis Basiat]]<br />
||List2CSV & CSV2List that include preserving type and escaping characters.<br />
|-<br />
||[[list_cast]]<br />
||[[User:Fractured Crystal|Fractured Crystal]]<br />
||Casts a list of strings into the type they appear to be. Designed for preprocessing user input for feeding into [[llSetPrimitiveParams]]<br />
|-<br />
||[[Listener Script]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Use to [[listen]] to other people's conversations (Like spying)<br />
|-<br />
||[[User:Void_Singer/Functions#List:_Find_Last_Index|List: Find Last Index]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Returns the last index of searched item in a source list. (backwards version of [[llListFindList]])<br />
|-<br />
||[[User:Void_Singer/Functions#List:_Multi-Find_Index_.28First_or_Last.29|List: Multi Find]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Returns the first found index of multiple search items in a list. (Multi-item version of [[llListFindList]]. Fwd and Rev versions included)<br />
|-<br />
||[[User:Void_Singer/Functions#List:_Get_Reverse_Order|List: Reverse]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Returns an input List in reverse order<br />
|-<br />
||[[Load URL]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||Touch to get a dialog to visit the URL inside the script.<br />
|-<br />
||[[User:Kephra_Nurmi/lsDancemachine|lsDancemachine]]<br />
||[[User:Kephra_Nurmi|Kephra Nurmi]]<br />
|| Low lag client server dancemachine.<br />
|-<br />
||[[User:Kephra_Nurmi/lsDeejay|lsDeejay Home Edition]] <br />
||[[User:Kephra_Nurmi|Kephra Nurmi]]<br />
|| Client server media control for music, video, youtube, pictures, and texture animations.<br />
|-<br />
||[[User:Kephra_Nurmi/lsDialog|lsDialog]]<br />
||[[User:Kephra_Nurmi|Kephra Nurmi]]<br />
|| Universal notecard driven menu dialog system.<br />
|-<br />
||[[User:Kephra_Nurmi/lsDisplay|lsDisplay]]<br />
||[[User:Kephra_Nurmi|Kephra Nurmi]]<br />
|| Picture cycler with preloader.<br />
|-<br />
||[[User:Kephra_Nurmi/lsDistributor|lsDistributor]]<br />
||[[User:Kephra_Nurmi|Kephra Nurmi]]<br />
|| Simple 'try' and 'buy' vendor system.<br />
|-<br />
||[[LSL_languageAPI]]<br />
||[[User:Gypsy paz|Gypsy Paz]]<br />
||Multi-lingual API from notecard based language files<br />
|-<br />
||[[Mandelbrot Explorer]]<br />
||[[User:Babbage Linden|Babbage Linden]]<br />
||An interactive fractal explorer.<br />
|-<br />
||[[Materialization Effects]]<br />
||[[User:Overbrain Unplugged|Overbrain Unplugged]]<br />
|| Special effects to add to rezzing events to simulate a teleportation or materialization.<br />
|-<br />
||[[Merge Sort]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Implements a Merge Sort in LSL, however this code is 300(ish) times slower than [[llListSort]]. Don't use this in a script!<br />
|-<br />
||[[Minesweeper]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||A simple minesweeper game.<br />
|-<br />
||[[Morse Code]]<br />
||{{User|Bobbyb30 Swashbuckler}}<br />
||A script that allows for the conversion to and from morse code and can "play" morse code.<br />
|-<br />
||[[Multi-displays Texture Cycler]]<br />
||[[User:Nargus Asturias|Nargus Asturias]]<br />
||A simple texture rotator designed for multiple display screens. With delay between each screen AND delay between each loop.<br />
|-<br />
||[[Multi Item Rezzer|Multi Item Rezzer]]<br />
||[[User:Jesse Barnett|Jesse Barnett]]<br />
||A rework of my old High Altitude Rezzer. Place the objects that you wish to choose from to be rezzed inside. Sit on the rezzer and pick the item and the height. It will go to target height and rez the object.<br />
|-<br />
||[[Multirezzer|Multirezzer (on collision)]]<br />
||[[User:Beet Streeter|Beet Streeter]]<br />
||Spawns up to 10 objects when the object containing the script collides with a user.<br />
|-<br />
||[[Name2Key in LSL]]<br />
||[[User:Maeva Anatine|Maeva Anatine]]<br />
||Get the Name2Key feature inside your scripts. Works even on lastly subscribed avatars.<br />
|-<br />
||[[No Auto-Return]]<br />
||[[User:Bellla Clarity|Bella Clarity]]<br />
||To stop your long and hard builds from getting returned in sandboxes (''only single prims, though!'').<br />
|-<br />
||[[No Auto-Return NR]]<br />
||[[User:Jor3l Boa|Jor3l Boa]]<br />
||This really works (29-05-09), needs a nearby region to do the trick and avoid auto return. (Tested on Blue and Rausch)<br />
|-<br />
||[[No Auto-Return (Multi)]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||A revision of Bella's that works for multi-prim objects.<br />
|-<br />
||[[No Limit Teleporter]]<br />
||[[User:Morgam Biedermann|Morgam Biedermann]]<br />
||Teleport to infinite altitudes (up to 4096m)<br />
|-<br />
||[[Object Size]]<br />
||[[User:Chase Quinnell|Chase Quinnell]]<br />
||Gets the dimensions and footprint of a linkset<br />
|-<br />
||[[Object to Data v1.3|Object to Data]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Turns an object into text (and back). Allows people to transfer objects through notecards (or otherwise).<br />
|-<br />
||[[Online Indicator|Online Indicator]]<br />
||[[User:Kristy Fanshaw|Kristy Fanshaw]]<br />
||Will show if the user is online or not. Displays users profile picture and allows to send IM's to user. Also gives a link to open the users profile<br />
|-<br />
||[[Open Group Join]]<br />
||[[User:Alicia Stella|Alicia Stella]]<br />
||User Touches Object to Join Group from Group Info window, (no bot.)<br />
|-<br />
||[[Open Zyngo Skin Installer]]<br />
||[[User:Tmzasz Luminos|Tmzasz Luminos]]<br />
||A Simple Script designed to install skins on the popular Skill machines.<br />
|-<br />
||[[One Script, many doors]]<br />
||[[User:Kyrah Abattoir|Kyrah Abattoir]]<br />
||Door script able to manage more than 50 linked doors from a single script instance.<br />
|-<br />
||[[ParseString2List]]<br />
||[[User:Strife Onizuka|Strife Onizuka]]<br />
||Same as [[llParseString2List]] and [[llParseStringKeepNulls]], but not limited to 8 spacers or separators. Thus substitute a call to the [[llParseString2List]] and [[llParseStringKeepNulls]] functions by a call to [[Parse_String_To_List|ParseString2List]] whenever you have more than 8 separators or more than 8 spacers.<br />
|-<br />
||[[Password Generator]]<br />
||[[User:Syntrax Canucci|Syntrax Canucci]]<br />
||This is an over-complicated, semi-complex password generator, which goes through multiple steps.<br />
|-<br />
||[[Pathfinder]]<br />
||[[User:Babbage Linden|Babbage Linden]]<br />
||A potential field based pathfinding library.<br />
|-<br />
||[[Phantom Child]]<br />
||[[User:Aeron Kohime|Aeron Kohime]]<br />
||Causes a child in a link set to become phantom without the entire object becoming phantom.<br />
|-<br />
||[[PhysicsLib]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Interesting set of fun physics functions.<br />
|-<br />
||[[Play and Loop Sound]]<br />
||[[User:Bellla Clarity|Bella Clarity]]<br />
||Very short and simple script; plays and loops a sound in an object.<br />
|-<br />
||[[Posing stand|Posing Stand]]<br />
||[[User:Bellla Clarity|Bella Clarity]]<br />
||Just a pose script to edit [[attachments]] more easily.<br />
|-<br />
||[[PosJump]]<br />
||[[User:Uchi Desmoulins|Uchi Desmoulins]]<br />
||A much more efficient alternative to the popular [[warpPos]] function for bypassing 10m distance-moved limitations.<br />
|-<br />
||[[Prefix Calculator]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
|| A calculator that evaluates expressions in prefix notation. <br />
<code>+ 3 4 = 5. * + 1 2 + 3 4 = 14.</code><br />
|-<br />
||[[Progress Bar]]<br />
||[[User:Nexii Malthus|Nexii Malthus]]<br />
|| Flexible and powerful little function for creating progress bars useful in hovertext.<br />
|-<br />
||[[Pseudo-random Number Generator]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Generates a Pseudo-random number between -0x7FFFFFFF and 0x7FFFFFFF<br />
|-<br />
||[[User:Rolig_Loon/Quiz_From_Notecard|Quiz From Notecard]]<br />
||[[User:Rolig Loon|Rolig Loon]]<br />
||A multiple-choice testing script that reads questions and answer choices from a notecard and presents them in dialog boxes.<br />
|-<br />
||[[Rainbow_palette]]<br />
||[[User:Rui Clary|Rui Clary]]<br />
||Build a color picker, using only one prim, and a few lines of code.<br />
|-<br />
||[[Random AV Profile Projector]]<br />
||[[User:Debbie Trilling|Debbie Trilling]]<br />
||Randomly selects an AV from a crowd & then projects their profile picture as a 'holographic' image <br />
|-<br />
||[[Random Object Vendor]]<br />
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]<br />
||Simple vendor that gives out random objects when paid the right amount <br />
|-<br />
||[[Random Password Generator]]<br />
||[[User:Jor3l Boa|Jor3l Boa]]<br />
||Generate Random passwords based on String Length.<br />
|-<br />
||[[RavText]]<br />
||[[User:Ravenous Dingo|Ravenous Dingo]]<br />
||An alternate to XyText. This is a lightweight, multiple font 10 character text display system. It only supports uppercase alphanumeric text and a few special characters, but it is very fast, renders quickly and supports multiple fonts. It is meant for specialized use when all that is desired is basic, fast text display and the extra "bells and whistles" are not needed.<br />
|-<br />
||[[User:PixelProphet Lane/Scripts#Real Object Inventory To Dialog|Real Object Inventory To Dialog]]<br />
||[[User:PixelProphet Lane|PixelProphet Lane]]<br />
||Display any amount of items contained in an Object in a Dialog, regardless of item name length.<br />
|-<br />
||[[RentalBoxv1|Rental Box, Simply]]<br />
||[[User:Sendao Goodman|Sendao Goodman]]<br />
||Simple explanation of how to make rental boxes.<br />
|-<br />
||[[Rental Cube]]<br />
||[[User:Hank Ramos|Hank Ramos]]<br />
||Simple cube for renting out a space.<br />
|-<br />
||[[Remote Texture Loader]]<br />
||{{User|Bobbyb30 Swashbuckler}}<br />
||A set of scripts for remotely loading textures within a sim. This means that a single "texture server" can manage multiple changing billboards within a sim.<br />
|-<br />
||[[Say Region Frames Per Second|Region Frames Per Second]]<br />
||[[User:Heymeriou Mystakidou|Heymariou Mystakidou]]<br />
|| Says the region name and frames per second out loud on command.<br />
|-<br />
||[[Resizer multi-prims|Resizer multi-prims]]<br />
||[[User:Christy Mansbridge|Christy Mansbridge]]<br />
||1 Mono script to resize object (1 to 256 prims) by blue menu. Avoid risk to break the build by increasing link distance.<br />
|-<br />
||[[sbDialog]]<br />
||[[User:Siann_Beck|Siann Beck]]<br />
||A simple replacement function for [[llDialog]]. It re-orders the button list so that the button values, as passed to it, display left-to-right, top-to-bottom. It also opens a [[llListen|listen]] on the specified channel, and returns the handle.<br />
|-<br />
||[[Scheduler]]<br />
||[[User:Haravikk Mistral|Haravikk Mistral]]<br />
||Schedule multiple events using a single script timer<br />
|-<br />
||[[Scheme_Interpreter|Scheme Interpreter]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||A scheme interpreter capable of handling most scheme expressions, including lambda and lists.<br />
|-<br />
||[[Script Override Functions]]<br />
||[[User:Revolution Perenti|Revolution Perenti]]<br />
||bypass default strings, integer etc in chat channel.<br />
|-<br />
||[[Scripted Attachment Detector.lsl|Scripted Attachment Detector]]<br />
||{{User|Bobbyb30 Swashbuckler}}<br />
||A script that will display avatars wearing scripted attatchments in hovertext. This may be worn as an hud or rezzed. <br />
|-<br />
||[[Self Upgrading Script Enhanced]]<br />
||[[User:Cron Stardust|Cron Stardust]]<br />
||Keeps only latest version of the script on prim (even with multiple adds of the same script!)<br />
|-<br />
||[[Sensor Visualizer]]<br />
||[[User:Cerise Sorbet|Cerise Sorbet]]<br />
||Shows the size and shape you get with [[llSensor]] range and arc parameters<br />
|-<br />
||[[Serverless Key Exchange]]<br />
||[[User:Sendao Goodman|Sendao Goodman]]<br />
||Maintains a network of object keys without using an external server.<br />
|-<br />
||[[SHA1|SHA1 Hash]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Preforms a SHA1 Hash on an input text. Similar to MD5 only (slightly) more secure. <br />
|-<br />
||[[Sim Map Particle Projector]]<br />
||[[User:Jesse Barnett|Jesse Barnett]]<br />
||Displays a floating map of the sim the script is in.<br />
|-<br />
||[[Sim Restart Logger]]<br />
||[[User:Kyrah Abattoir|Kyrah Abattoir]]<br />
||Counts region restarts and displays log of last 9 restarts together with region FPS and dilation. <br />
|-<br />
||[[Simple Elevator in a Box]]<br />
||[[User:Hank Ramos|Hank Ramos]]<br />
||Simple elevator example.<br />
|-<br />
||[[Skillingo AntiHack Script]]<br />
||[[User:Tmzasz Luminos|Tmzasz Luminos]]<br />
||A simple Protection script for skillingo thats modifyable to work with other machines.<br />
|-<br />
||[[Skunk Money]]<br />
||[[User:Hank Ramos|Hank Ramos]]<br />
||Fun gambling machine of yesteryear, which only supports freeplay now due to SL regulations against gambling. <br />
|-<br />
||[[SLateIt]]<br />
||[[User:Babbage Linden|Babbage Linden]]<br />
||An augmented virtual reality HUD.<br />
|-<br />
||[[SLetanque]]<br />
||[[User:Babbage Linden|Babbage Linden]]<br />
||An LSL petanque game.<br />
|-<br />
||[[SLURL HUD]]<br />
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]<br />
||Touch this HUD to get a SLURL through IM, email and floating text.<br />
|-<br />
||[[BuildSlurl (NewAge)]]<br />
||[[User:Archile Azalee|Archile Azalee]]<br />
||A way to create a SLurl in a single function BuildSlurl<br />
|-<br />
||[[SL Mail V1.2]]<br />
||[[User:Flennan Roffo|Flennan Roffo]]<br />
||Second Life mail client V1.2 (released sept'07). Send and receive mail from within Second Life from and to any address. With Address Book function and many chat commands. V1.3 is upcoming soon! <br />
|-<br />
||[[SL_NTPoHTTP_v1.1_client|SL NTPoHTTP client]]<br />
|[[User:SignpostMarv Martin|SignpostMarv Martin]]<br />
||Second Life Needs Time Parsing over Hyper Text Transfer Protocol<br />
Emulates the function of [[llGetWallclock]] for any timezone by using SLOpenID's SLNTPoHTTP service. Also supports ISO 8601 and RFC 2822 timestamps. Script is dependent upon an external service operated by the author!<br />
|-<br />
||[[Smooth Rotating Door]]<br />
|[[User:Toy Wylie|Toy Wylie]]<br />
||A script for doors that open and close smoothly using llTargetOmega<br />
|-<br />
||[[Smooth Sliding Door]]<br />
|[[User:SimonT Quinnell|SimonT Quinnell]]<br />
||A script for sliding doors that open and close smoothly using [[llMoveToTarget]]. Asjusts for prim orientation.<br />
|-<br />
||[[Speed Tester]]<br />
||{{User|Bobbyb30 Swashbuckler}}<br />
||Similar to the [[Efficiency Tester]], this script allows you to test the speed of a particular function or snippet with multiple trials giving min/max/avg/median and the standard deviation.<br />
|-<br />
||[[Spiral Staircase Generator]]<br />
|[[User:Meyermagic Salome|Meyermagic Salome]]<br />
||Generates nice looking spiral staircases without much hassle.<br />
|-<br />
||[[Static URL's for HTTP-In Service|Static_URLs]]<br />
||[[User:Jor3l Boa|Jor3l Boa]]<br />
||How to generate a static url for HTTP-In temporal limitations.<br />
|-<br />
||[[String Compare]]<br />
||[[User:Xaviar Czervik|Xaviar Czervik]]<br />
||Compares two strings and reliably returns either 1, -1, or 0 if they are the same.<br />
|-<br />
||[[User:Void_Singer/Functions#String:_Find_Last_Index|String: Reverse]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Returns an input string in reverse order<br />
|-<br />
||[[User:Void_Singer/Functions#String:_Get_Reverse_Order|String: Last Index]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Returns the last index of search found in string (the backward equivalent of [[llSubStringIndex]])<br />
|-<br />
||[[Tail Messages (NewAge)]]<br />
||[[User:Asia Snowfall|Asia Snowfall]]<br />
||A super nice easy to use script for those non-scripters out there! NewAge coding has done it again where you no longer need to scroll up and down adding buttons and adding messages, Features a tag system (you'll see what i mean :P)<br />
|-<br />
||[[Teleport HUD]]<br />
||[[User:Jesse Barnett|Jesse Barnett]]<br />
||WORKS TO 4096 METERS!! Very user friendly teleport HUD. Add destinations by touching "Add" & naming destination in chat. Automatically gets sim name and coordinates. Will only display the destinations in the sim you are currently in. Demonstrates more advanced list manipulation and stride functions.<br />
|-<br />
||[[User:Void_Singer/Programs#v7-D_Enh._Landmark-2-Map|Teleporter (landmark based)]]<br />
||[[User:Void_Singer|Void_Singer]]<br />
||Uses Landmarks to offer map teleports. Works as Hud or inworld objects, just drop in landmarks and go.<br />
|-<br />
||[[Text_Scroller|Text Scroller]]<br />
||[[User:Fred_Gandt|Fred Gandt]]<br />
||A simple text display object that scrolls text (applied as a texture) from right to left (like ''those'' LED signs) in a continuous loop.<br />
|-<br />
||[[Bobbyb's texture changer|Texture Changers]]<br />
||{{User|Bobbyb30 Swashbuckler}}<br />
||A collection of texture changing scripts.<br />
|-<br />
||[[Texture Menu Management|Texture Management]]<br />
||[[User:Revolution Perenti|Revolution Perenti]]<br />
||Dialog Menu based Texture Selection.<br />
|-<br />
||[[Tic Tac Toe]]<br />
||[[User:CG Linden|CG Linden]]<br />
||Step by step demo on how to implement a larger scripting project<br />
|-<br />
||[[TightList]]<br />
||[[User:Strife Onizuka|Revolution Perenti]]<br />
||Tight List is a family of functions for encoding lists as strings and then decoding them back into lists.<br />
There are two flavors: TightList and TightListType. TightListType preserves types and uses a 6 char header, while TightList uses a 1 char header that doesn't preserve type. <br />
|-<br />
||[[Timer Module]]<br />
||[[User:Isabelle Aquitaine|Isabelle Aquitaine]]<br />
||Manage multiple timers via linked messages.<br />
|-<br />
||[[User:Void_Singer/Functions#Unix_time_code_to_list_format|Timestamp:<br>Unix time code to list format]]<br />
||[[User:Void Singer|Void Singer]]<br />
||converts Unix timestamps to their [Y, M, D, h, m, s] equivalents (ex: 1234567890 to [2009, 2, 13, 3, 31, 30])<br />
|-<br />
||[[User:Void_Singer/Functions#List_format_to_Unix_time_code.|Timestamp:<br>List format to Unix time code]]<br />
||[[User:Void Singer|Void Singer]]<br />
||converts [Y, M, D, h, m, s] timestamps to their Unix equivalents (ex: [2009, 2, 13, 3, 31, 30] to 1234567890)<br />
|-<br />
||[[User:Void_Singer/Functions#Weekday_from_Unix_timestamp|Timestamp:<br>Weekday from Unix timestamp]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Gets weekday from Unix timestamps (ex: "Friday" from 1234567890)<br />
|-<br />
||[[User:Void_Singer/Functions#Weekday_from_.28_Y.2C_M.2C_D_.29_format|Timestamp:<br>Weekday from (Y, M, D) format]]<br />
||[[User:Void Singer|Void Singer]]<br />
||Gets weekday from (Y, M, D) timestamps (ex: "Friday" from (2009, 2, 13))<br />
|-<br />
||[[Touch A Quote]]<br />
||[[User:CodeBastard Redgrave|CodeBastard Redgrave]]<br />
||Touch an object to read quotes sequentially from a notecard<br />
|-<br />
||[[Touring Balloon]]<br />
||[[User:Hank Ramos|Hank Ramos]]<br />
||Automated touring balloon with many options from long ago. Always seems to work on one SL release, and not the other.<br />
|-<br />
||[[Under Age Boot]]<br />
|[[User:Chance Unknown|Chance Unknown]]<br />
||Security device example to teleport home accounts below a minimum age limit; can be useful in combating free griefer accounts.<br />
|-<br />
||[[User:Rolig_Loon/UNDO_PosRot|UNDO_PosRot]]<br />
||[[User:Rolig Loon|Rolig Loon]]<br />
||Allows user to undo position and rotation changes that have been made "manually" to any or all prims in a linkset.<br />
|-<br />
||[[Universal Translator]]<br />
|[[User:Hank Ramos|Hank Ramos]]<br />
||Chat listener that handles seamless translation of public chat between 50+ written languages without the need for configuration. Handles numerous avatars, auto-detects languages, and works together with multiple copies of translators to spread-workload using a sophisticated back-end communications sub-system.<br />
|-<br />
||[[Unix2DateTime]]<br />
|[[User:Flennan Roffo|Flennan Roffo]]<br />
||Conversion from Unix time ([[llGetUnixTime]]()) to date and time string and vice versa.<br />
|-<br />
||[[Unmutable Descript Nagger]]<br />
|[[User:Bobbyb30 Zohari|Bobbyb30 Zohari]]<br />
||To nag avatars to take off their scripted attatchments.<br />
|-<br />
||[[Unpacker On Rez (NewAge)]]<br />
|[[User:Asia Snowfall|Asia Snowfall]]<br />
||A very simple to use script for all you creators out there, This script will enable you to send out boxed items and make it easier for users to unpack, Also features auto die on completion. Very simple to configure!<br />
|-<br />
||[[Unpacker On Touch (NewAge)]]<br />
|[[User:Asia Snowfall|Asia Snowfall]]<br />
||Exactly like Unpacker On Rez, But changed some things about to make it Unpack On Touch<br />
|-<br />
||[[Update distributor]]<br />
|[[User:Dale Innis|Dale Innis]]<br />
||Distribute an object (like a project update) to a list of people named in a notecard.<br />
|-<br />
||[[UUID2Channel]]<br />
||[[User:Project Neox|Project Neox]]<br />
||Optimised version of the original key2channel generators.<br />
|-<br />
||[[UUID Song Generator]]<br />
||{{User|Sendao Goodman}}<br />
||Translates a UUID into a simple song and plays it.<br />
|-<br />
||[[VirtualID_URLMap|VirtualID URL Mapper for HTTP-in]]<br />
|[[User:Cenji Neutra|Cenji Neutra]]<br />
||A script showing how to setup a static URL of the form <your-alias>.obj.virtualid.info which maps to the dynamic HTTP-in URL LSL generates and keeps it up-to-date.<br />
|-<br />
||[[User:Void_Singer/Programs#v7-D_Advanced_Visitor_Greeter|Visitor Greeter]]<br />
|[[User:Void_Singer|Void_Singer]]<br />
||Reduced spam visitor greeter, highly configurable, easy to modify.<br />
|-<br />
||[[Visitor Logger (Web/Basic) ]]<br />
|[[User:Buddy Sprocket|Buddy Sprocket]]<br />
||A very basic visitor logger - log visitors in SL to a text file on your web-site.<br />
|-<br />
||[[Vote Simple]]<br />
|[[User:JB_Kraft|JB Kraft]]<br />
||Simple vote collector. One avi, one vote.<br />
|-<br />
||[[Walking Sound (NewAge)]]<br />
|[[User:Asia Snowfall|Asia Snowfall]]<br />
||Very powerful walking sound script, Featuring customer ability to add their own sounds with the API Sound Feature!<br />
|-<br />
||[[WarpPos]]<br />
|[[User:Keknehv Psaltery|Keknehv Psaltery]]<br />
||Non-physical movement without the 10m limit.<br />
|-<br />
||[[Wiki3DBuilder]] [[Wiki3DBuilder1.0]]<br />
||[[User:Salahzar Stenvaag|Salahzar Stenvaag]] <br />
||Allows a group of people to collectively build up complex 3D mindmaps with connected concepts. Uses particles for connections and low prim usage. Nodes can be textured, colored, changed form size moved collectively by everybody and can distribute notecards, landmarks, URL, objects, textures. I provide two version 0.1 and 1.0 and probably next version will communicate with moodle and sloodle external websites.<br />
|-<br />
||[[Window Control]]<br />
||[[User:Emmas Seetan|Emmas Seetan]]<br />
||For window opacity, helpful for buildings.<br />
|-<br />
||[[WHMcs SecondLife plugin]]<br />
|[[User:Alicia Sautereau|Alicia Sautereau]]<br />
||Linden Dollar payment plugin for the WHMcs hosting portal.<br />
|-<br />
||[[XTEA Strong Encryption Implementation]]<br />
||[[User:Morse Dillon|Morse Dillon]]<br />
||An LSL implementation of XTEA (eXtended Tiny Encryption Algorithm). This is the first known public release of a 'real' strong encryption implementation in LSL and is released under the GNU General Public License (GPL).<br />
|-<br />
||[[XyText 1.5|XyText]]<br />
||[[User:Xylor Baysklef|Xylor Baysklef]]<br />
|| Display text (up to 10 characters) on a prim. Use as many prims as desired.<br />
|-<br />
||[[XyyyyzText|XyyyyzText]]<br />
||[[User:Criz Collins|Criz Collins]]<br />
|| Display text (up to 10 characters) on a prim. Displays different text for each line instead of one single text, that will be broken into the next lines. Watch here for what that means: http://screencast.com/t/1wMLujLcEO<br />
|-<br />
||[[XyzzyText|XyzzyText]]<br />
||[[User:Thraxis Epsilon|Thraxis Epsilon]] and [[User:Gigs Taggart|Gigs Taggart]]<br />
|| Display text (up to 10 characters) on a prim. Way more efficient than XyText.<br />
|-<br />
||[[Youtube TV]]<br />
||[[User:Morgam Biedermann|Morgam Biedermann]]<br />
||Watch your favorite Youtube videos / auto set the texture to the parcel media texture.<br />
|-<br />
||[[Zero Lag Poseball]]<br />
||[[User:Jippen Faddoul|Jippen Faddoul]] and [[User:Daemonika Nightfire|Daemonika Nightfire]]<br />
||A simple poseball with no lag<br />
|-<br />
||[[Input number of seconds, get a string back that shows days, hours, minutes, seconds]]<br />
||[[User:Fire Centaur|Fire Centaur]]<br />
||Returns a string that displays days, hours, seconds<br />
|}<br />
<br />
</div><br />
<div id="box"><br />
<br />
==Support Script Library==<br />
These are scripts in other languages, intended to be run on other systems that support scripts written in LSL<br />
<br />
{| class="sortable" {{Prettytable}}<br />
|- {{Hl2}}<br />
! '''Name'''<br />
! '''Creator'''<br />
! '''Description'''<br />
|-<br />
|| [[User:Ina Centaur/UUID/calimg.api|Calendar Image UUID API]]<br />
|| [[User:Ina Centaur|Ina Centaur]]<br />
|| API that gives the UUID of an image of a calendar image give month and year arguments.<br />
|-<br />
||[[HTTP Post request to a PHP server]]<br />
||[[User:Corto Maltese|Corto Maltese]]<br />
|| This small library allows you to make simple POST requests to your website. The libraries allow you to get your request through the variable $_POST on the server. It also include a basic security mechanism aimed to stop hacking. Comprises of LSL client script and PHP server script.<br />
|-<br />
|| [[User:Ina Centaur/PHP/k2n.php|Key2Name.php]]<br />
|| [[User:Ina Centaur|Ina Centaur]]<br />
|| Get Avatar's Name using Second Life search service. (like in LSL Key2Name)<br />
|-<br />
|| [[Lame_Object_DNS_and_Cross_Sim_Messaging|Lame Object DNS and Cross Sim Messaging]]<br />
|| [[User:Liandra Ceawlin|Liandra Ceawlin]]<br />
|| Simple, cheeseball method of doing cross-sim communications with http-in and an external object DNS service.<br />
|-<br />
|| [[User:SignpostMarv Martin/PHP/llXorBase64StringsCorrect|llXorBase64StringsCorrect]]<br />
|| [[User:SignpostMarv Martin|SignpostMarv Martin]]<br />
|| An implementation of [[llXorBase64StringsCorrect]] in PHP- should be useful if you're using llXorBase64StringsCorrect to do cryptography work in LSL2 and posting it out to the web via [[llHTTPRequest]].<br />
|-<br />
|| [[User:SignpostMarv Martin/PHP/lsl fu.php|lsl_fu.php]]<br />
|| [[User:SignpostMarv Martin|SignpostMarv Martin]]<br />
|| A basic OOP'd PHP Class containing VeloxSeverine's $_POST fixer and Marv's own eccentric ideas for "fixing" things.<br />
|-<br />
|| [[User:Jor3l Boa/PHP/n2k.php|Name2Key.php]]<br />
|| [[User:Jor3l Boa|Jor3l Boa]]<br />
|| Get Avatar's UUID using Second Life search service. (like in LSL Name2Key)<br />
|-<br />
|| [[Public_Object_DNS|Public Object DNS]]<br />
|| [[User:Liandra Ceawlin|Liandra Ceawlin]]<br />
|| Public object DNS-like system running on GAE, for http-in. Hopefully scalable enough for wide-spread usage.<br />
|-<br />
|| Silo<br />
|| [[User:Zero_Linden|Zero Linden]]<br />
|| General purpose data store in PHP. Use this to persist arbitrary data from LSL via [[llHTTPRequest]]. See:<br />
* [http://www.notabene-sl.com/misc/silo-README.txt README] file<br />
* [http://www.notabene-sl.com/misc/silo.tgz silo.tgz] tarball<br />
* forum post [http://forums-archive.secondlife.com/54/69/119570/1.html Announcement].<br />
|-<br />
||[[Silverday ObjectDNS]]<br />
||[[User:Till Stirling|Till Stirling]]<br />
||Dynamic Object-DNS-System to provide dynamic mapping of LSL-URLs to persistent domains. Features include redirect service, password protected domains, write protected domains, LSL-API for all necessary functions, optional web-interface.<br />
|-<br />
|| [http://aubretec.com/products/sldb SLDB]<br />
|| [[User:Luc Aubret|Luc Aubret]]<br />
|| Flexible web database storage using PHP/MySQL. Used to store per-user field/value pairs from in-world objects using [[llHTTPRequest]]. <br />
* [http://aubretec.com/support/manuals/sldbkit/ Implementation Guide]<br />
* [http://aubretec.com/wp-content/uploads/2009/05/sldb.zip Download] (.zip, 12kb)<br />
|}<br />
<br />
== See Also ==<br />
<div style="padding: 0.5em"><br />
'''Articles'''<br />
*[[:Category:LSL Examples| Examples]]<br />
<br />
</div></div><br />
<br />
{{LSLC|}}</div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Resizer_multi-prims&diff=1056442
Resizer multi-prims
2010-10-07T19:10:36Z
<p>Christy Mansbridge: Created page with '{{LSL Header}} All description in first comments of the script. Maybe my English is not so good (I'm French). Hope anyone will understand. Resizer <lsl> /* ====================...'</p>
<hr />
<div>{{LSL Header}}<br />
<br />
All description in first comments of the script.<br />
Maybe my English is not so good (I'm French). Hope anyone will understand.<br />
<br />
Resizer<br />
<lsl><br />
/* =================================================================================== */<br />
/* */<br />
/* Resizer v1.2 */<br />
/* */<br />
/* License : */<br />
/* Français */<br />
/* OpenSource. Licence GPL 2 et plus. */<br />
/* Modification, Copie et Transfert autorisés */<br />
/* Sous condition de laisser le script en full perm (Modify / Copy / Transfer) */<br />
/* */<br />
/* English */<br />
/* OpenSource. License GPL 2 and later. */<br />
/* Modify, Copy and Transfer allowed if this script stay full perm */<br />
/* */<br />
/* Auteurs : Christy Mansbridge / Mingyar Ishtari, le 02 octobre 2010 */<br />
/* */<br />
/* Modifications / Updates : */<br />
/* Author : */<br />
/* Date : */<br />
/* Detail : */<br />
/* */<br />
/* Usage : */<br />
/* Français */<br />
/* À placer dans le prim root (prim coutouré en jaune à l'édition) */<br />
/* Cliquer l'objet pour obtention du menu bleu. */<br />
/* Usage restreint au seul propriétaire. */<br />
/* */<br />
/* English */<br />
/* Place the script in the root prim of the build. */<br />
/* Click the object to get the blue menu. */<br />
/* Usage restricted to the owner. */<br />
/* */<br />
/* Fonctions : */<br />
/* Français */<br />
/* 1) Script de redimensionnement d'un objet multi-prims respectant les */<br />
/* proportions, en taille et en position, de chaque prim. */<br />
/* */<br />
/* 2) Lag minimal puisqu'un seul script par objet (1 à 256 prims) */<br />
/* Possibilité offerte de supprimer le script. */<br />
/* */<br />
/* 3) Communication avec d'autres objets pour synchroniser le redimensionnement */<br />
/* Pour permettre cette communication, plusieurs critères douvent être remplis*/<br />
/* a) L'objet doit être porté ainsi que celui/ceux à synchroniser */<br />
/* b) Les objets doivent porter le même nom, à l'exception de la partie */<br />
/* finale séparée du reste par un espace. */<br />
/* Exemple : Chaussure rouge gauche et Chaussure rouge droite */<br />
/* */<br />
/* 4) Garantie de la conservation de l'intégrité de l'objet. */<br />
/* a) Si un agrandissement entraine une destruction du build, */<br />
/* Retour automatique à la taille avant agrandissement. */<br />
/* */<br />
/* b) Si l'objet contient au moins un huge prim le script reste inactif. */<br />
/* Cette sécurité résevée à la grille officielle SecondLife peut être */<br />
/* désactivée pour opensim en passant à TRUE l'affectation de la variable */<br />
/* globale iAllowResizeHugePrims. */<br />
/* */<br />
/* 5) Prise en compte automatique des changements de liens (ajout/suppresion de */<br />
/* prims ou redimensionnement manuel) */<br />
/* */<br />
/* 6) 18 choix de redimensionnement prédéfinis en pourcentages : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 choix extrèmes : Dimensionnement Minimal, Maximal et par Défaut. */<br />
/* La dimension par défaut est celle à l'initialisation du script ou */<br />
/* celle affectée par le menu [Set default]. */<br />
/* */<br />
/* 8) Détermination de la taille maximale avant déformation de la construction */<br />
/* Pour trouver la taille maximale possible, procéder ainsi : */<br />
/* Effectuer des agrandissements à +200% jusqu'à refus de dimensionnement */<br />
/* Répéter l'opération avec les pourcentages inférieurs, +100% puis +75% */<br />
/* puis 50% ... jusqu'à répétition de l'opétation à +1%. */<br />
/* Après un refus de redimensionnement à +1% le script connait la vraie */<br />
/* taille maximale. */<br />
/* */<br />
/* English */<br />
/* 1) Script to resize a multi prims object with conservation of its integrity */<br />
/* (size and relative position of each prim). */<br />
/* */<br />
/* 2) Less lag : only 1 script for an object (1 to 256 prims) */<br />
/* Possibility to remove the script by the menu. */<br />
/* */<br />
/* 3) Communication with other objects to synchronize resize */<br />
/* To allow communication, objects have to comply with few criteria : */<br />
/* a) The object has to be worn, objects to synchronize too. */<br />
/* b) Objects have to have same name except last part separated by space */<br />
/* Example : Excelsior shoes Left and Excelsior shoes Right */<br />
/* */<br />
/* 4) Integrity waranty. */<br />
/* a) If after increasing size the build is broken, automatic go back to */<br />
/* previous good size. */<br />
/* */<br />
/* b) If, at least, one huge prim is in the build, the script is inactive. */<br />
/* This security is only for official grid SecondLife and may be bypassed */<br />
/* for opensim, affecting TRUE to the iAllowResizeHugePrims global variable*/<br />
/* */<br />
/* 5) Automatic detection of manual scale change and link changes */<br />
/* */<br />
/* 6) 18 predefined resize choice in percentage : */<br />
/* -1, -2, -5, -10, -25, -50, -75, -85, -95. */<br />
/* +1, +2, +5, +10, +25, +50, +75, +100, +200, */<br />
/* */<br />
/* 7) 3 other choices : Resize to Minimum, Maximum or Default size. */<br />
/* The default size is the size at initialisation of the script or the size */<br />
/* affected by the blue menu [Set default]. */<br />
/* */<br />
/* 8) How to find the real maximum size ? */<br />
/* To find the real value : */<br />
/* Make an increase size by +200% until the script says it fails. */<br />
/* Then, repeat this method with +100%, then after with +75% ... */<br />
/* After the last increase with +1% the real maximum size is found and */<br />
/* stored by the script. */<br />
/* */<br />
/* =================================================================================== */<br />
<br />
integer iAllowResizeHugePrims = FALSE; // On opensim, affect TRUE<br />
integer iNumberOfPrims;<br />
integer iFirst;<br />
integer iLast;<br />
integer iBcl;<br />
integer iIdx;<br />
integer iDeb;<br />
integer iFin;<br />
integer iSens;<br />
float fTmp;<br />
vector vSize;<br />
vector vPos;<br />
float fMin;<br />
float fMax;<br />
float fFactor;<br />
float fDefault;<br />
integer iCanalComm = -8547548;<br />
integer iCanalMenu;<br />
integer iEcouteMenu;<br />
integer iMenuOn;<br />
integer iCurrentMenu;<br />
string sPctM1 = "1";<br />
string sPctM2 = "2";<br />
string sPctM3 = "5";<br />
string sPctP1 = "1";<br />
string sPctP2 = "2";<br />
string sPctP3 = "5";<br />
string sPct;<br />
integer iNbPasses;<br />
integer iHugeUsed;<br />
float fLimiteMax;<br />
integer iNoMoreMax;<br />
vector vPos1;<br />
integer iError;<br />
list lSortPrims;<br />
list lSizes;<br />
list lPos;<br />
list lElem;<br />
list lName;<br />
<br />
// Hack to increase speed of the script (Mono)<br />
Booster()<br />
{<br />
for( iBcl = 0; iBcl < 5000; iBcl++ );<br />
}<br />
<br />
// Function to get size and/or relative position of the current prim<br />
GetSizePos()<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ) * fFactor;<br />
<br />
if( iBcl == iFirst )<br />
{<br />
if( llGetAttached() )<br />
// Root prim and object attached to the avatar, position is local<br />
vPos = llGetLocalPos();<br />
else<br />
// Root prim and object not attached, position is absolute position<br />
vPos = llGetRootPosition();<br />
}<br />
else<br />
// Child prim, position is relative to the root prim<br />
vPos = ( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation() ) * fFactor;<br />
}<br />
<br />
// Function to control if current prim has expected size and relative position<br />
ControlSizePos( vector vRefSize, vector vRefPos )<br />
{<br />
if( llVecDist( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_SIZE ] ), 0 ), vRefSize ) > 0.001 )<br />
iError = TRUE;<br />
else if( iBcl != iFirst )<br />
{<br />
if( llVecDist( ( llList2Vector( llGetLinkPrimitiveParams( iBcl, [ PRIM_POSITION ] ), 0 ) - llGetRootPosition() ) / llGetRootRotation(),<br />
vRefPos ) > 0.001 )<br />
iError = TRUE;<br />
}<br />
}<br />
<br />
// Function to test resize validity of the current prim, if resize is over stored maximum size<br />
integer TestError()<br />
{<br />
if( fMax > fLimiteMax )<br />
ControlSizePos( vSize, vPos );<br />
<br />
return( iError );<br />
}<br />
<br />
// Function to control build integrity after resize<br />
ControlBuild( integer iBoost )<br />
{<br />
if( iBoost )<br />
Booster();<br />
<br />
// No individual error found<br />
// Control of all the build prim after prim<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
ControlSizePos( llList2Vector( lSizes, iIdx ) * fFactor, llList2Vector( lPos, iIdx ) * fFactor );<br />
<br />
if( iError )<br />
{<br />
if( iBoost )<br />
iIdx = iFin - iSens;<br />
return;<br />
}<br />
}<br />
}<br />
<br />
// Function to resize (only the size) each prim of the build<br />
ChangeSize( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
if( iCorrect )<br />
vPos /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to adapt relative position of each prim of the build<br />
ChangePos( integer iCorrect )<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
if( ( iBcl = llList2Integer( lSortPrims, iIdx ) ) != iFirst )<br />
{<br />
GetSizePos();<br />
vPos1 = vPos / fFactor;<br />
<br />
if( iCorrect )<br />
vSize /= fFactor;<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and adapt relative position of each prim of the build<br />
ChangeSizePos()<br />
{<br />
Booster();<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, [ PRIM_SIZE, vSize, PRIM_POSITION, vPos ] );<br />
<br />
if( TestError() )<br />
return;<br />
}<br />
}<br />
<br />
// Function to resize and position each prim to the previous stored good sizes and relative positions after an error<br />
GoBackToGoodSize()<br />
{<br />
llOwnerSay( "Error, back to previous good size..." );<br />
<br />
sPct = "aborted";<br />
<br />
if( llRound( fFactor * 100.0 ) == 101 )<br />
iNoMoreMax = TRUE;<br />
<br />
fMin /= fFactor;<br />
fMax /= fFactor;<br />
iFin = iDeb - iSens;<br />
iDeb = iIdx;<br />
iSens *= -1;<br />
fFactor = 1.0;<br />
iNbPasses = 3;<br />
<br />
if( iNoMoreMax )<br />
fLimiteMax = fMax;<br />
<br />
do<br />
{<br />
Booster();<br />
iError = FALSE;<br />
<br />
for( iIdx = iDeb; iIdx != iFin; iIdx += iSens )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
<br />
lElem = [ PRIM_SIZE, llList2Vector( lSizes, iIdx ) ];<br />
<br />
if( iBcl != iFirst )<br />
{<br />
vPos = llList2Vector( lPos, iIdx );<br />
<br />
lElem += [ PRIM_POSITION, vPos, PRIM_POSITION, vPos, PRIM_POSITION, vPos ];<br />
}<br />
<br />
llSetLinkPrimitiveParamsFast( iBcl, lElem );<br />
}<br />
<br />
ControlBuild( FALSE );<br />
}<br />
while( iError && --iNbPasses );<br />
<br />
if( iError )<br />
llOwnerSay( "Sorry, the build is broken and can't be repaired." );<br />
}<br />
<br />
// Function to store size and relative positions of each prim after a successfull resizing<br />
SaveSizePos()<br />
{<br />
Booster();<br />
<br />
fFactor = 1.0;<br />
lSizes = [];<br />
lPos = [];<br />
<br />
for( iIdx = 0; iIdx != iNumberOfPrims; iIdx++ )<br />
{<br />
iBcl = llList2Integer( lSortPrims, iIdx );<br />
GetSizePos();<br />
<br />
lSizes += [ vSize ];<br />
lPos += [ vPos ];<br />
}<br />
}<br />
<br />
// Function to resize the build<br />
Resize( integer iMess )<br />
{<br />
// Apply factor of resizing to the min and max size found in the build<br />
fMin *= fFactor;<br />
fMax *= fFactor;<br />
<br />
sPct = "done";<br />
<br />
if( fFactor < 1.0 )<br />
{<br />
// If resize is to decrease the size, we start whith the most distant prims from the root<br />
iDeb = llGetListLength( lSortPrims ) - 1;<br />
iFin = -1;<br />
iSens = -1;<br />
}<br />
else<br />
{<br />
// If resize is to increase the size, we start whith the closer prims from the root<br />
iDeb = 0;<br />
iFin = llGetListLength( lSortPrims );<br />
iSens = 1;<br />
}<br />
<br />
iError = FALSE;<br />
<br />
if( fFactor < 0.5 )<br />
// if decrease is more than a factor 2, we start by changing only relative positions<br />
ChangePos( FALSE );<br />
else if( fFactor > 2.0 )<br />
// if increase is more than a factor 2, we start by changing only sizes<br />
ChangeSize( FALSE );<br />
else<br />
// if factor is less or equal than 2, resize is both size and position<br />
ChangeSizePos();<br />
<br />
if( ! iError )<br />
{<br />
if( fFactor < 0.5 )<br />
// Changing positions is successfull, we change positions<br />
ChangeSize( TRUE );<br />
else if( fFactor > 2.0 )<br />
// Changing sizes is successfull, we change sizes<br />
ChangePos( TRUE );<br />
}<br />
<br />
if( ! iError )<br />
ControlBuild( TRUE );<br />
<br />
if( iError )<br />
// Restore the last good size after error<br />
GoBackToGoodSize();<br />
else<br />
{<br />
// Save the sizes and relative positions of each prim<br />
SaveSizePos();<br />
if( fMax == 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iNoMoreMax = TRUE;<br />
fLimiteMax = fMax;<br />
}<br />
}<br />
<br />
if( fMax > fLimiteMax )<br />
// New max size found<br />
fLimiteMax = fMax;<br />
<br />
// Start countdown for CHANGED_SCALE event<br />
llResetTime();<br />
<br />
if( iMess )<br />
{<br />
// Inform user the resize is finished and call back the menu<br />
llOwnerSay( "Resize " + sPct + "." );<br />
Menu();<br />
}<br />
}<br />
<br />
AlreadyAt( integer iMess, string sMess )<br />
{<br />
if( iMess )<br />
{<br />
llOwnerSay( "Already at " + sMess + " size." );<br />
Menu();<br />
}<br />
}<br />
<br />
// Function to resize to the minimum size<br />
MinimumSize( integer iMess )<br />
{<br />
if( ( fFactor = 0.01 / fMin ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Minimum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "minimum" );<br />
}<br />
<br />
// Function to resize to the maximum size<br />
MaximumSize( integer iMess )<br />
{<br />
if( ( fFactor = fLimiteMax / fMax ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Maximum size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "maximum" );<br />
}<br />
<br />
// Function to resize to the default size<br />
DefaultSize( integer iMess )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
<br />
if( ( fFactor = fDefault / vSize.x ) != 1.0 )<br />
{<br />
if( iMess )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 );<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( "Default size (" + sPct + "%)..." );<br />
}<br />
<br />
Resize( iMess );<br />
}<br />
else<br />
AlreadyAt( iMess, "default" );<br />
}<br />
<br />
// Close the menu<br />
FinMenu( integer iAlert )<br />
{<br />
iMenuOn = FALSE;<br />
llSetTimerEvent( 0.0 );<br />
llListenRemove( iEcouteMenu );<br />
if( iAlert )<br />
llOwnerSay( "Menu timeout." );<br />
}<br />
<br />
// Main menu<br />
Menu()<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"Resizer action :\n" +<br />
"Quit : Leave this menu.\n" +<br />
"Options : Current size becomes default.\n" +<br />
">> : Next set of percentages.\n" +<br />
"Min : Resize to minimum size.\n" +<br />
"Default : Return to initial size.\n" +<br />
"Max : Resize to maximum size.",<br />
[ "Quit", "Options", ">>",<br />
"-" + sPctM1 + "%", "Min", "+" + sPctP1 + "%",<br />
"-" + sPctM2 + "%", "Default", "+" + sPctP2 + "%",<br />
"-" + sPctM3 + "%", "Max", "+" + sPctP3 + "%" ],<br />
iCanalMenu );<br />
}<br />
<br />
// Function to return min or max element of vSize vector<br />
float MinMaxVal( integer iOperation )<br />
{<br />
return( llListStatistics( iOperation, [ vSize.x, vSize.y, vSize.z ] ) );<br />
}<br />
<br />
// Initialisation of the script<br />
init()<br />
{<br />
Booster();<br />
<br />
iNumberOfPrims = llGetNumberOfPrims();<br />
iFirst = (integer)( iNumberOfPrims > 1 );<br />
iLast = iNumberOfPrims - (integer)( iNumberOfPrims == 1 );<br />
<br />
llOwnerSay( "Searching min/max prim size..." );<br />
<br />
fMin = 10.0;<br />
fMax = 0.01;<br />
fFactor = 1.0;<br />
for( iBcl = iFirst; ( fMax <= 10.0 || iAllowResizeHugePrims ) && iBcl <= iLast; iBcl++ )<br />
{<br />
GetSizePos();<br />
<br />
if( iBcl == iFirst )<br />
{<br />
fDefault = vSize.x;<br />
lElem = [ 0.0, iFirst ];<br />
}<br />
else<br />
lElem += [ llVecDist( ZERO_VECTOR, vPos ), iBcl ];<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MIN );<br />
if( fTmp < fMin )<br />
fMin = fTmp;<br />
<br />
fTmp = MinMaxVal( LIST_STAT_MAX );<br />
if( fTmp > fMax )<br />
fMax = fTmp;<br />
}<br />
<br />
if( fMax > 10.0 && ! iAllowResizeHugePrims )<br />
{<br />
iHugeUsed = TRUE;<br />
llOwnerSay( "Script not active, object uses huge prim." );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Size range : " + (string)fMin + " -> " + (string)fMax );<br />
<br />
iNoMoreMax = FALSE;<br />
iHugeUsed = FALSE;<br />
<br />
llOwnerSay( "Sorting prims..." );<br />
<br />
lElem = llListSort( lElem, 2, TRUE );<br />
<br />
lSortPrims = [];<br />
for( iBcl = 1; iBcl < llGetListLength( lElem ); iBcl += 2 )<br />
lSortPrims += [ llList2Integer( lElem, iBcl ) ];<br />
<br />
llOwnerSay( (string)iNumberOfPrims + " prim" + llList2String( [ "", "s" ], (integer)(iNumberOfPrims > 1) ) + " sorted." );<br />
<br />
fLimiteMax = llListStatistics( LIST_STAT_MAX, [ 10.0, fMax ] );<br />
<br />
llOwnerSay( "Storing size/pos of each prim..." );<br />
<br />
SaveSizePos();<br />
}<br />
<br />
llOwnerSay( "Init. complete." );<br />
}<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
init();<br />
llListen( iCanalComm, "", NULL_KEY, "" );<br />
}<br />
<br />
changed( integer iChange )<br />
{<br />
if( ( iChange & CHANGED_LINK ) ||<br />
( ( iChange & CHANGED_SCALE ) &&<br />
llGetTime() > 5.0 / llList2Float( [ llGetRegionTimeDilation(), 0.01 ],<br />
(integer)( llGetRegionTimeDilation() < 0.01 ) ) ) )<br />
init();<br />
}<br />
<br />
listen( integer iChannel, string sName, key kId, string sMess )<br />
{<br />
if( iChannel == iCanalMenu )<br />
{<br />
llSetTimerEvent( 0.0 );<br />
<br />
if( sMess == ">>" )<br />
{<br />
if( (++iCurrentMenu) == 3 )<br />
iCurrentMenu = 0;<br />
<br />
if( ! iCurrentMenu )<br />
{<br />
sPctM1 = "1";<br />
sPctM2 = "2";<br />
sPctM3 = "5";<br />
sPctP1 = "1";<br />
sPctP2 = "2";<br />
sPctP3 = "5";<br />
}<br />
else if( iCurrentMenu == 1 )<br />
{<br />
sPctM1 = "10";<br />
sPctM2 = "25";<br />
sPctM3 = "50";<br />
sPctP1 = "10";<br />
sPctP2 = "25";<br />
sPctP3 = "50";<br />
}<br />
else<br />
{<br />
sPctM1 = "75";<br />
sPctM2 = "85";<br />
sPctM3 = "95";<br />
sPctP1 = "75";<br />
sPctP2 = "100";<br />
sPctP3 = "200";<br />
}<br />
<br />
Menu();<br />
}<br />
else if( sMess == "Options" || sMess == " " )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nResizer options :\n \n" +<br />
"Quit : Leave this menu.\n" +<br />
"BACK : To main menu.\n" +<br />
"Set default : Current size is default.\n" +<br />
"Remove : Remove the script.",<br />
[ "Quit", " ", "BACK",<br />
"Set default", " ", "Remove" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "BACK" )<br />
Menu();<br />
else if( sMess == "Set default" )<br />
{<br />
vSize = llList2Vector( llGetLinkPrimitiveParams( iFirst, [ PRIM_SIZE ] ), 0 );<br />
fDefault = vSize.x;<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Default|" + (string)fDefault );<br />
<br />
llOwnerSay( "This size is now the default size." );<br />
Menu();<br />
}<br />
else if( sMess == "Remove" )<br />
{<br />
llSetTimerEvent( 30.0 );<br />
llDialog( llGetOwner(),<br />
"\nSure to remove the script from this object ?",<br />
[ "Yes", "No" ],<br />
iCanalMenu );<br />
}<br />
else if( sMess == "Default" )<br />
DefaultSize( TRUE );<br />
else if( sMess == "Min" )<br />
MinimumSize( TRUE );<br />
else if( sMess == "Max" )<br />
MaximumSize( TRUE );<br />
else if( ( iBcl = llListFindList( [ "+", "-" ], [ llGetSubString( sMess, 0, 0 ) ] ) ) >= 0 )<br />
{<br />
fFactor = 1.0 + (float)llGetSubString( sMess, 0, -2 ) / 100.0;<br />
fTmp = llList2Float( [ llList2Float( [ 10.0, 10000.0 ], iAllowResizeHugePrims ), fLimiteMax ], iNoMoreMax );<br />
<br />
if( fMin * fFactor < 0.01 )<br />
fFactor = 0.01 / fMin;<br />
else if( fMax * fFactor > fTmp )<br />
fFactor = fTmp / fMax;<br />
<br />
if( fMin * fFactor >= 0.01 && fMax * fFactor <= fTmp && llRound( fFactor * 100.0 ) != 100 )<br />
{<br />
sPct = (string)llRound( ( fFactor - 1.0 ) * 100.0 ) + "%";<br />
if( fFactor > 1.0 )<br />
sPct = "+" + sPct;<br />
llOwnerSay( llList2String( [ "Increas", "Reduc" ], iBcl ) + "ing size : " +<br />
sPct + llList2String( [ " (" + sMess + " asked)", "" ], (integer)(sMess == sPct) ) + "..." );<br />
<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Factor|" + (string)fFactor );<br />
<br />
Resize( TRUE );<br />
}<br />
else<br />
{<br />
llOwnerSay( "Out of size range." );<br />
Menu();<br />
}<br />
}<br />
else<br />
{<br />
FinMenu( FALSE );<br />
<br />
if( sMess == "Yes" )<br />
{<br />
if( llGetAttached() )<br />
llSay( iCanalComm, (string)llGetOwner() + "|Remove" );<br />
llRemoveInventory( llGetScriptName() );<br />
}<br />
}<br />
}<br />
else if( llGetAttached() && sName != llGetObjectName() )<br />
{<br />
lElem = llParseString2List( sName, [ " " ], [ "" ] );<br />
if( llGetListLength( lElem ) < 2 )<br />
return;<br />
lName = llParseString2List( llGetObjectName(), [ " " ], [ "" ] );<br />
if( llGetListLength( lName ) < 2 )<br />
return;<br />
<br />
if( llDumpList2String( llList2List( lElem, 0, -2 ), " " ) !=<br />
llDumpList2String( llList2List( lName, 0, -2 ), " " ) )<br />
return;<br />
<br />
lElem = llParseString2List( sMess, [ "|" ], [ "" ] );<br />
<br />
if( llList2String( lElem, 0 ) == (string)llGetOwner() )<br />
{<br />
if( llList2String( lElem, 1 ) == "Remove" )<br />
llRemoveInventory( llGetScriptName() );<br />
else if( llList2String( lElem, 1 ) == "Factor" )<br />
{<br />
fFactor = llList2Float( lElem, 2 );<br />
Resize( FALSE );<br />
<br />
llResetTime();<br />
}<br />
else if( llList2String( lElem, 1 ) == "Min" )<br />
MinimumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Max" )<br />
MaximumSize( FALSE );<br />
else if( llList2String( lElem, 1 ) == "Default" )<br />
{<br />
if( llGetListLength( lElem ) == 2 )<br />
DefaultSize( FALSE );<br />
else<br />
fDefault = llList2Float( lElem, 2 );<br />
}<br />
}<br />
}<br />
}<br />
<br />
timer()<br />
{<br />
FinMenu( TRUE );<br />
}<br />
<br />
touch_start( integer iNum )<br />
{<br />
if( llDetectedKey( 0 ) == llGetOwner() && ! iMenuOn && ! iHugeUsed )<br />
{<br />
//llOwnerSay( (string)llGetFreeMemory() );<br />
iMenuOn = TRUE;<br />
iEcouteMenu = llListen( iCanalMenu = iCanalComm - 10 - (integer)llFrand( 124578 ), "", llGetOwner(), "" );<br />
Menu();<br />
}<br />
}<br />
}<br />
</lsl></div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Category:LSL_List/fr&diff=291332
Category:LSL List/fr
2009-03-23T23:42:51Z
<p>Christy Mansbridge: Translation to french from the englsh page / Traduction littérale de la page en anglais.</p>
<hr />
<div>{{Multi-lang}}<br />
{{LSL Header/fr}}<br />
<br />
Une liste est un type de donnée spécial qui peut contenir zéro ou plus éléments de n'importe quel autre type de données.<br />
<br />
Les listes sont notées au moyen de crochets encadrant leurs éléments, lesquels sont séparés par des virgules.<br />
<br />
Exemples de listes :<br />
<lsl>[0, 1, 2, 3, 4]<br />
["Oui", "Non", "Peut-être"]</lsl><br />
<br />
(Nota bene : pour les habitués d'autres langages de programmation, il n'y a pas de tableaux 'ARRAY' en LSL, seulement des listes 'LIST')<br />
<br />
'''Types de données variés'''<br />
<br />
Il n'est pas obligatoire que tous les éléments d'une liste soient du même type. Dans une même liste, vous pouvez stocker des chaînes de caractères (string), des entiers (integer), des nombres à virgule (float), des vecteurs (vector), etc.<br />
<br />
Exemple: //une liste avec un entier, un nombre à virgule, une chaîne de caractères et un vecteur. <br />
<lsl>[1,14.154,"C'est sympa non ?",<0,0,0>]</lsl><br />
Par contre, une liste ne peut contenir une autre liste (vous ne pouvez pas imbriquer des listes).<br />
<lsl>[1, "un", 2, "deux"] + [3, "trois"] renvoie [1, "un", 2, "deux", 3, "trois"]</lsl><br />
et non pas :<br />
<lsl>[1, "un", 2, "deux", [3, "trois"]]</lsl><br />
<br />
Quand vous ajoutez un élément à une liste, celle-ci mémorise automatiquement quel est le type de donnée de la valeur ajoutée.<br />
<br />
Habituellement, étant celui (ou celle) qui ajoute des éléments à une liste, vous savez le type de chaque élément la constituant.<br />
Vous pouvez récupérer un élément avec la fonction appropriée llList2<type> telle que : [[llList2String/fr|llList2String]], [[llList2Vector/fr|llList2Vector]], etc. (plus de détails plus loin dans cet article.) <br />
<br />
Si besoin, pour retrouver le type de donnée d'un élément d'une liste, vous pouvez utiliser la fonction [[llGetListEntryType/fr|llGetListEntryType]]. <br />
<br />
Astuce ! Pour ajouter un nombre à virgule ([[float/fr|float]]) dans une une liste, utilisez toujours le séparateur décimal . (1.0 et non pas 1) pour vous assurer qu'il sera bien enregistré comme nombre à virgule et non pas comme entier.<br />
<br />
Une liste peut être directement transposée en chaîne de caractères (notion de cast)<br />
<lsl>default<br />
{<br />
touch_start(integer total_number)<br />
{ <br />
list a = ["abc",1,2,3.14,<0,0,0>];<br />
llOwnerSay((string)a); // renvoie : abc123.140000<0.000000, 0.000000, 0.000000><br />
}<br />
}</lsl><br />
<br />
<br />
(A suivre ...)<br />
<br />
Une liste peut grandir dynamiquement autant que l'on le souhaite au cours de l'exécution, dans la limite de la mémoire disponible du script. Néanmoins, il y a une limite de 72 éléments aux listes définies au moment de la compilation.<br />
<br />
Il est important de remarquer que la numérotation des éléments de la liste démarre à 0, pas à 1.</div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Category:LSL_List/fr&diff=291322
Category:LSL List/fr
2009-03-23T23:22:29Z
<p>Christy Mansbridge: </p>
<hr />
<div>{{Multi-lang}}<br />
{{LSL Header/fr}}<br />
<br />
Une liste est un type de donnée spécial qui peut contenir zéro ou plus éléments de n'importe quel autre type de données.<br />
<br />
Les listes sont notées au moyen de crochets encadrant leurs éléments, lesquels sont séparés par des virgules.<br />
<br />
Exemples de listes :<br />
<lsl>[0, 1, 2, 3, 4]<br />
["Oui", "Non", "Peut-être"]</lsl><br />
<br />
(Nota bene : pour les habitués d'autres langages de programmation, il n'y a pas de tableaux 'ARRAY' en LSL, seulement des listes 'LIST')<br />
<br />
'''Types de données variés'''<br />
<br />
Il n'est pas obligatoire que tous les éléments d'une liste soient du même type. Dans une même liste, vous pouvez stocker des chaînes de caractères (string), des entiers (integer), des nombres à virgule (float), des vecteurs (vector), etc.<br />
<br />
Exemple: //une liste avec un entier, un nombre à virgule, une chaîne de caractères et un vecteur. <br />
<lsl>[1,14.154,"C'est sympa non ?",<0,0,0>]</lsl><br />
Par contre, une liste ne peut contenir une autre liste (vous ne pouvez pas imbriquer des listes).<br />
<lsl>[1, "un", 2, "deux"] + [3, "trois"] renvoie [1, "un", 2, "deux", 3, "trois"]</lsl><br />
et non pas :<br />
<lsl>[1, "un", 2, "deux", [3, "trois"]]</lsl><br />
<br />
Quand vous ajoutez un élément à une liste, la liste mémorise automatiquement quel est le type de donnée de la valeur ajoutée.<br />
<br />
Habituellement, étant celui (ou celle) qui ajoute des éléments à une liste, vous savez le type de chaque élément dans la liste, et vous pouvez récupérer un élément avec la fonction appropriée llList2<type> telle que : [[llList2String/fr|llList2String]], [[llList2Vector/fr|llList2Vector]], etc. (plus de détail plus loin dans cet article.) <br />
<br />
Si besoin, pour retrouver le type de donnée d'un élément d'une liste, vous pouvez utiliser la fonction [[llGetListEntryType/fr|llGetListEntryType]]. <br />
<br />
Astuce ! Pour ajouter un nombre à virgule ([[float/fr|float]]) dans une une liste, utilisez toujours le séparateur décimal . (1.0 et non pas 1) pour vous assurer qu'il sera bien enregistré comme nombre à virgule et non pas comme entier.<br />
<br />
Une liste peut être directement transposée en chaîne de caractères (notion de cast)<br />
<lsl>default<br />
{<br />
touch_start(integer total_number)<br />
{ <br />
list a = ["abc",1,2,3.14,<0,0,0>];<br />
llOwnerSay((string)a); // renvoie : abc123.140000<0.000000, 0.000000, 0.000000><br />
}<br />
}</lsl><br />
<br />
<br />
(A suivre ...)<br />
<br />
Une liste peut grandir dynamiquement autant que l'on le souhaite au cours de l'exécution, dans la limite de la mémoire disponible du script. Néanmoins, il y a une limite de 72 éléments aux listes définies au moment de la compilation.<br />
<br />
Il est important de remarquer que la numérotation des éléments de la liste démarre à 0, pas à 1.</div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Category:LSL_List/fr&diff=291312
Category:LSL List/fr
2009-03-23T23:22:03Z
<p>Christy Mansbridge: </p>
<hr />
<div>{{Multi-lang}}<br />
{{LSL Header/fr}}<br />
<br />
Une liste est un type de donnée spécial qui peut contenir zéro ou plus éléments de n'importe quel autre type de données.<br />
<br />
Les listes sont notées au moyen de crochets encadrant leurs éléments, lesquels sont séparés par des virgules.<br />
<br />
Exemples de listes :<br />
<lsl>[0, 1, 2, 3, 4]<br />
["Oui", "Non", "Peut-être"]</lsl><br />
<br />
(Nota bene : pour les habitués d'autres langages de programmation, il n'y a pas de tableaux 'ARRAY' en LSL, seulement des listes 'LIST')<br />
<br />
'''Types de données variés'''<br />
<br />
Il n'est pas obligatoire que tous les éléments d'une liste soient du même type. Dans une même liste, vous pouvez stocker des chaînes de caractères (string), des entiers (integer), des nombres à virgule (float), des vecteurs (vector), etc.<br />
<br />
Exemple: //une liste avec un entier, un nombre à virgule, une chaîne de caractères et un vecteur. <br />
<lsl>[1,14.154,"C'est sympa non ?",<0,0,0>]</lsl><br />
Par contre, une liste ne peut contenir une autre liste (vous ne pouvez pas imbriquer des listes).<br />
<lsl>[1, "un", 2, "deux"] + [3, "trois"] renvoie [1, "un", 2, "deux", 3, "trois"]</lsl><br />
et non pas :<br />
<lsl>[1, "un", 2, "deux", [3, "trois"]]</lsl><br />
<br />
Quand vous ajoutez un élément à une liste, la liste mémorise automatiquement quel est le type de donnée de la valeur ajoutée.<br />
<br />
Habituellement, étant celui (ou celle) qui ajoute des éléments à une liste, vous savez le type de chaque élément dans la liste, et vous pouvez récupérer un élément avec la fonction appropriée llList2<type> telle que : [[llList2String/fr|llList2String]], [[llList2Vector/fr|llList2Vector]], etc. (plus de détail plus loin dans cet article.) <br />
<br />
Si besoin, pour retrouver le type de donnée d'un élément d'une liste, vous pouvez utiliser la fonction [[llGetListEntryType/fr|llGetListEntryType]]. <br />
<br />
Astuce ! Pour ajouter un nombre à virgule ([[float/fr|float]]) dans une une liste, utilisez toujours le séparateur décimal . (1.0 et non pas 1) pour vous assurer qu'il sera bien enregistré comme nombre à virgule et non pas comme entier.<br />
<br />
Une liste peut être directement transposée en chaîne de caractères (notion de cast)<br />
<lsl>default<br />
{<br />
touch_start(integer total_number)<br />
{ <br />
[[list/fr|list]] a = ["abc",1,2,3.14,<0,0,0>];<br />
llOwnerSay((string)a); // renvoie : abc123.140000<0.000000, 0.000000, 0.000000><br />
}<br />
}</lsl><br />
<br />
<br />
(A suivre ...)<br />
<br />
Une liste peut grandir dynamiquement autant que l'on le souhaite au cours de l'exécution, dans la limite de la mémoire disponible du script. Néanmoins, il y a une limite de 72 éléments aux listes définies au moment de la compilation.<br />
<br />
Il est important de remarquer que la numérotation des éléments de la liste démarre à 0, pas à 1.</div>
Christy Mansbridge
https://wiki.secondlife.com/w/index.php?title=Category:LSL_List/fr&diff=291302
Category:LSL List/fr
2009-03-23T23:15:35Z
<p>Christy Mansbridge: </p>
<hr />
<div>{{Multi-lang}}<br />
{{LSL Header/fr}}<br />
<br />
Une liste est un type de donnée spécial qui peut contenir zéro ou plus éléments de n'importe quel autre type de données.<br />
<br />
Les listes sont notées au moyen de crochets encadrant leurs éléments, lesquels sont séparés par des virgules.<br />
<br />
Exemples de listes :<br />
<lsl>[0, 1, 2, 3, 4]<br />
["Oui", "Non", "Peut-être"]</lsl><br />
<br />
(Nota bene : pour les habitués d'autres langages de programmation, il n'y a pas de tableaux 'ARRAY' en LSL, seulement des listes 'LIST')<br />
<br />
'''Types de données variés'''<br />
<br />
Il n'est pas obligatoire que tous les éléments d'une liste soient du même type. Dans une même liste, vous pouvez stocker des chaînes de caractères (string), des entiers (integer), des nombres à virgule (float), des vecteurs (vector), etc.<br />
<br />
Exemple: //une liste avec un entier, un nombre à virgule, une chaîne de caractères et un vecteur. <br />
<lsl>[1,14.154,"C'est sympa non ?",<0,0,0>]</lsl><br />
Par contre, une liste ne peut contenir une autre liste (vous ne pouvez pas imbriquer des listes).<br />
<lsl>[1, "un", 2, "deux"] + [3, "trois"] renvoie [1, "un", 2, "deux", 3, "trois"]</lsl><br />
et non pas :<br />
<lsl>[1, "un", 2, "deux", [3, "trois"]]</lsl><br />
<br />
Quand vous ajoutez un élément à une liste, la liste mémorise automatiquement quel est le type de donnée de la valeur ajoutée.<br />
<br />
Habituellement, étant celui (ou celle) qui ajoute des éléments à une liste, vous savez le type de chaque élément dans la liste, et vous pouvez récupérer un élément avec la fonction appropriée llList2<type> telle que : [[llList2String/fr|llList2String]], [[llList2Vector/fr|llList2Vector]], etc. (plus de détail plus loin dans cet article.) <br />
<br />
Si besoin, pour retrouver le type de donnée d'un élément d'une liste, vous pouvez utiliser la fonction [[llGetListEntryType/fr|llGetListEntryType]]. <br />
<br />
Astuce ! Pour ajouter un nombre à virgule ([[float/fr|float]]) dans une une liste, utilisez toujours le séparateur décimal . (1.0 et non pas 1) pour vous assurer qu'il sera bien enregistré comme nombre à virgule et non pas comme entier.<br />
<br />
Une liste peut être directement transposée en chaîne de caractères (notion de cast)<br />
<lsl>default<br />
{<br />
touch_start(integer total_number)<br />
{ <br />
list a = ["abc",1,2,3.14,<0,0,0>];<br />
llOwnerSay((string)a); // renvoie : abc123.140000<0.000000, 0.000000, 0.000000><br />
}<br />
}</lsl><br />
<br />
<br />
(A suivre ...)<br />
<br />
Une liste peut grandir dynamiquement autant que l'on le souhaite au cours de l'exécution, dans la limite de la mémoire disponible du script. Néanmoins, il y a une limite de 72 éléments aux listes définies au moment de la compilation.<br />
<br />
Il est important de remarquer que la numérotation des éléments de la liste démarre à 0, pas à 1.</div>
Christy Mansbridge