Miko/LSL-Scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No _vti

Browse Source
This commit is contained in:
Fred Beckhusen
2015-08-07 15:34:30 -05:00
parent ce47ec2f3e
commit fde850293c
8080 changed files with 0 additions and 2443112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
Archipelis scripts for prim animator/Archipelis/Object/ArchipelisBase.lsl
View File

@@ -1,95 +0,0 @@
// :CATEGORY:Prim Animator
// :NAME:Archipelis scripts for prim animator
// :AUTHOR:Ferd Frederix
// :CREATED:2013-09-06
// :EDITED:2013-09-18 15:38:48
// :ID:52
// :NUM:76
// :REV:1
// :WORLD:Second Life
// :DESCRIPTION:
// Archipelis script to replace the buggy one that comes with Archipelis 2.0.
// It removes the extra images, leaving behind the one that is needed, and removes itself after making the Archipelis prims
// :CODE:
// With the courtesy of BestMomo Lagan.
// remove extra textures, script, and allow re-linked prim animation by Ferd Frederix
string generate_index(integer i)
{
if (i < 10)
return "0" + (string)i;
return (string)i;
}
// remove all textures except the one on this prim.
clean(string index)
{
string texture = "texture_" + index;
string geometry = "geometry_" + index;
integer j = llGetInventoryNumber(INVENTORY_TEXTURE);
integer i;
for (i=0; i<j; i++)
{
string inventory = llGetInventoryName(INVENTORY_TEXTURE,i);
if ( inventory != texture && inventory != geometry)
llRemoveInventory(inventory);
}
llSetObjectName(index); // rename to allow re-linkable prim animation
llRemoveInventory(llGetScriptName()); // delete this script, too
}
default
{
on_rez(integer start_param)
{
if (start_param == 0)
return;
string message = (string)start_param;
integer message_size = llStringLength(message);
string index;
string the_scale;
if (message_size == 9)
{
index = llGetSubString(message, 0, 1);
the_scale = "0." + llGetSubString(message, 2, 8);
}
else if (message_size == 8)
{
index = "0" + llGetSubString(message, 0, 0);
the_scale = "." + llGetSubString(message, 1, 7);
}
else
{
index = "00";
the_scale = "." + llGetSubString(message, 0, 6);
}
index = generate_index(((integer)index) - 1);
rotation the_rotation = llEuler2Rot(<90.0 * DEG_TO_RAD, .0, .0>);
llSetRot(the_rotation);
float the_scale_value = (float)the_scale * 2.0 * 10.0;
llSetScale(<the_scale_value, the_scale_value, the_scale_value>);
string geometry = "geometry_" + index;
llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_SCULPT, geometry, PRIM_SCULPT_TYPE_SPHERE]);
string texture = "texture_" + index;
if(llGetInventoryType(texture) != INVENTORY_NONE)
llSetTexture(texture, ALL_SIDES);
clean(index); // remove all but the necessary textures
}
}