Skip to content

Commit

Permalink
Update nPose Chains Plugin.lslp
Browse files Browse the repository at this point in the history
  • Loading branch information
@HowardBaxton
HowardBaxton authored Dec 27, 2021
1 parent a6d189f commit d90753b
Showing 1 changed file with 236 additions and 4 deletions.
240 changes: 236 additions & 4 deletions nPose Chains Plugin.lslp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ float fBlue=1.0;

integer I_Am_Sender;
integer I_Am_Dest;
key passKey;
//key passKey;

key kTarget;
key kTexture = "245ea72d-bc79-fee3-a802-8e73c0f09473";
Expand Down Expand Up @@ -190,7 +190,241 @@ query_set_chains(list items) {
llSleep(1);
string sendText = senderDesc + "~" + llList2String(gPrimIDs, targetIndex + 2);
key primOwnerKey = llList2Key(llGetObjectDetails(llGetLinkKey(1), [OBJECT_OWNER]), 0);
// llSay(0, "passKey: " + (string)passKey + ", prim owner: " + (string)llList2Key(llGetObjectDetails(validTargetKey, [OBJECT_OWNER]), 0));
llWhisper(lmChannel, sendText);

}
}
}

query_rem_chains(list items) {
integer itemLength = llGetListLength(items);
integer i;
for(i=0; i < itemLength; ++i) {
integer primIDsIndex = llListFindList(gPrimIDs, [llList2String(items, i)]);
if(primIDsIndex != -1) {
llLinkParticleSystem((integer)llList2String(gPrimIDs, primIDsIndex + 1) , []);
}
}
}

executeCommands() {
while(llGetListLength(gCommandQueue)) {
integer commandId=llList2Integer(gCommandQueue, 0);
list params=llParseStringKeepNulls(llList2String(gCommandQueue, 2), ["~"], []);
if( commandId == gCMD_REM_CHAINS ) {
query_rem_chains(params);
}
else if(commandId == gCMD_SET_CHAINS) {
query_set_chains(params);
}
else if(commandId == gCMD_CONFIG) {
query_config(params);
}
gCommandQueue=llDeleteSubList(gCommandQueue, 0, 2);
}
}

default {
state_entry() {
integer number_of_prims = llGetNumberOfPrims();
integer i;
for(i=0; i < number_of_prims + 1; ++i) { //Walk throug the whole linkset including a single prim
string desc = llList2String(llGetLinkPrimitiveParams( i, [ PRIM_DESC ]), 0);
key linkedKey = llGetLinkKey(i);
if(desc != "" && desc != "(No description)") {
if(-1 == llListFindList( gPrimIDs, [desc])) { // only accept unique descriptions
gPrimIDs += [desc, i, linkedKey];
}
}
}
key MyParentId = llList2Key(llGetObjectDetails(llGetKey(), [OBJECT_REZZER_KEY]), 0);
lmChannel = (integer)("0x7F" + llGetSubString((string)MyParentId, 0, 5));
if(MyParentId == llGetOwner()) lmChannel = (integer)("0x7F" + llGetSubString((string)llGetKey(), 0, 5));
gListenLMHandle = llListen(lmChannel, "", NULL_KEY, "");
gListenLMHandle1 = llListen(-8888, "", NULL_KEY, "");
gListenLMHandle1 = llListen(gCMD_CONFIG, "", NULL_KEY, "");
gListenLMHandle1 = llListen(gCMD_SET_CHAINS, "", NULL_KEY, "");
gListenLMHandle1 = llListen(gCMD_REM_CHAINS, "", NULL_KEY, "");
}

link_message(integer sender, integer num, string str, key id) {
if(num == gCMD_REM_CHAINS || num == gCMD_SET_CHAINS || num == gCMD_CONFIG) {
list params = llParseStringKeepNulls(str, ["|"], []);
gCommandQueue+=[num, id, llList2String(params, 0)];
executeCommands();
}
}

listen(integer channel, string name, key id, string message) {
list temp = llParseString2List(message, ["~"], []);
string senderCheck = llList2String(temp, 0);
key destination = (key)llList2String(temp, 1);
if(channel == -8888 || channel == lmChannel) {
if (llListFindList(gPrimIDs, [senderCheck]) != -1) {
integer IDIndex = llListFindList(gPrimIDs, [senderCheck]) + 1;
kTarget = destination;
key primOwnerKey = llList2Key(llGetObjectDetails(llGetLinkKey(1), [OBJECT_OWNER]), 0);
SetParticles(llList2Integer(gPrimIDs, IDIndex));
}
}
else if(channel == gCMD_REM_CHAINS || channel == gCMD_SET_CHAINS || channel == gCMD_CONFIG) {
list params = llParseStringKeepNulls(message, ["|"], []);
gCommandQueue+=[channel, id, llList2String(params, 0)];
executeCommands();
}
}

on_rez(integer params) {
llResetScript();
}
}

param 5 = life,
param 6 = red,
param 7 = green,
param 8 = blue
]
*/
list line = llParseString2List(llList2String(items, i), ["="], []);
list senders = llParseString2List(llList2String(line, 1), [",", ", "], []);
string item = llList2String(line, 0);
if (llToLower(item) == "sender") {
if (llToLower(llList2String(senders, 0)) == "clear" || llList2String(senders, 0) == "*") { //clear the paramsList, effectively using the global default values in this script.
paramsList = [];

index = 0;
}
integer stop = llGetListLength(senders);
integer n;
for (n=0; n<stop; ++n) {
if (llListFindList(gPrimIDs, [llList2String(senders, n)]) > -1 || llList2String(senders, n) == "*") {
//these will be cleared using the clear command above.
paramsList += [
llList2String(senders, n),
kTexture,
fSizeX,
fSizeY,
fGravity,
fLife,
fRed,
fGreen,
fBlue
];
}
}
senders = [];
items = llDeleteSubList(items, 0,0);
//Step thru all the sender names in the paramsList and finish populating the params in the list
integer paramsLength = llGetListLength(paramsList)/STRIDE;
for (index=index; index<paramsLength; ++index) {
integer length = llGetListLength(items);
for(i=0; i < length; ++i) {
line = llParseString2List(llList2String(items, i), ["="], []);
string item = llList2String(line, 0);
string textureThisOne = llList2String(line, 1);
if (llGetInventoryType(textureThisOne) == 0) {
paramsList = llListReplaceList(paramsList, [llGetInventoryKey(llList2String(line, 1))], (index*9)+1, (index*9)+1);
}
else if ((key)textureThisOne) {
paramsList = llListReplaceList(paramsList, [(key)llList2String(line, 1)], (index*9)+1, (index*9)+1);
}
else if (item == "xsize") {
paramsList = llListReplaceList(paramsList, [(float)llList2String(line, 1)], (index*9)+2, (index*9)+2);
}
else if (item == "ysize") {
paramsList = llListReplaceList(paramsList, [(float)llList2String(line, 1)], (index*9)+3, (index*9)+3);
}
else if (item == "gravity") {
paramsList = llListReplaceList(paramsList, [(float)llList2String(line, 1)], (index*9)+4, (index*9)+4);
}
else if (item == "life") {
paramsList = llListReplaceList(paramsList, [(float)llList2String(line, 1)], (index*9)+5, (index*9)+5);
}
else if (item == "color") {
vector colors = (vector)llList2String(line,1);
paramsList = llListReplaceList(paramsList, [(float)colors.x], (index*9)+6, (index*9)+6);
paramsList = llListReplaceList(paramsList, [(float)colors.y], (index*9)+7, (index*9)+7);
paramsList = llListReplaceList(paramsList, [(float)colors.z], (index*9)+8, (index*9)+8);
}
}
}
}
}

SetParticles(integer linkNum) {
key Texture = kTexture;
float SizeX = fSizeX;
float SizeY = fSizeY;
float Gravity = fGravity;
float Life = fLife;
float Red = fRed;
float Green = fGreen;
float Blue = fBlue;
integer index = llListFindList(paramsList, [llList2String(llGetLinkPrimitiveParams(linkNum, [PRIM_DESC]),0)]);
if ((index > -1) || (index == -1 && llListFindList(paramsList, ["*"]) > -1)) {
if (index > -1) {}
else if (llListFindList(paramsList, ["*"]) > -1) {index = llListFindList(paramsList, ["*"]);}

if ((string)llList2Key(paramsList, index + 1) != "") Texture = llList2Key(paramsList, index + 1);
if ((string)llList2Float(paramsList, index + 2) != "") SizeX = llList2Float(paramsList, index + 2);
if ((string)llList2Float(paramsList, index + 3) != "") SizeY = llList2Float(paramsList, index + 3);
if ((string)llList2Float(paramsList, index + 4) != "") Gravity = llList2Float(paramsList, index + 4);
if ((string)llList2Float(paramsList, index + 5) != "") Life = llList2Float(paramsList, index + 5);
if ((string)llList2Float(paramsList, index + 6) != "") Red = llList2Float(paramsList, index + 6);
if ((string)llList2Float(paramsList, index + 7) != "") Green = llList2Float(paramsList, index + 7);
if ((string)llList2Float(paramsList, index + 8) != "") Blue = llList2Float(paramsList, index + 8);
}

integer nBitField = PSYS_PART_TARGET_POS_MASK|PSYS_PART_FOLLOW_VELOCITY_MASK;
llLinkParticleSystem(linkNum, []);
if(fGravity == 0) nBitField = nBitField|PSYS_PART_TARGET_LINEAR_MASK;
llLinkParticleSystem(linkNum,
[
PSYS_PART_MAX_AGE, fLife,
PSYS_PART_FLAGS, nBitField,
PSYS_PART_START_COLOR, <Red, Green, Blue>,
PSYS_PART_END_COLOR, <Red, Green, Blue>,
PSYS_PART_START_SCALE, <SizeX, SizeY, 1.00000>,
PSYS_PART_END_SCALE, <SizeX, SizeY, 1.00000>,
PSYS_SRC_PATTERN, 1,
PSYS_SRC_BURST_RATE, 0.000000,
PSYS_SRC_ACCEL, <0.00000, 0.00000, (Gravity*-1)>,
PSYS_SRC_BURST_PART_COUNT, 10,
PSYS_SRC_BURST_RADIUS, 0.000000,
PSYS_SRC_BURST_SPEED_MIN, fMinSpeed,
PSYS_SRC_BURST_SPEED_MAX, fMaxSpeed,
PSYS_SRC_INNERANGLE, 0.000000,
PSYS_SRC_OUTERANGLE, 0.000000,
PSYS_SRC_OMEGA, <0.00000, 0.00000, 0.00000>,
PSYS_SRC_MAX_AGE, 0.000000,
PSYS_PART_START_ALPHA, 1.000000,
PSYS_PART_END_ALPHA, 1.000000,
PSYS_SRC_TARGET_KEY, kTarget,
PSYS_SRC_TEXTURE, Texture
]);
}

query_set_chains(list items) {
integer itemLength = llGetListLength(items);
integer i;
for(i=0; i < itemLength; i+=2) {

string senderDesc = llList2String(items, i);
integer senderIndex = llListFindList(gPrimIDs, [senderDesc]);
key validSenderKey = (key)llList2String(gPrimIDs, senderIndex + 2);
if(validSenderKey) { //True if we have a key so we've found the sender of the chains so set a flag variable.
I_Am_Sender = 1;
}

string targetDesc = llStringTrim(llList2String(items, i + 1), STRING_TRIM);
integer targetIndex = llListFindList(gPrimIDs, [targetDesc]);
key validTargetKey = (key)llList2String(gPrimIDs, targetIndex + 2);
if(validTargetKey) {
// We have the target for the chains now..
if(!I_Am_Dest) I_Am_Dest = 1;
llSleep(1);
string sendText = senderDesc + "~" + llList2String(gPrimIDs, targetIndex + 2);
key primOwnerKey = llList2Key(llGetObjectDetails(llGetLinkKey(1), [OBJECT_OWNER]), 0);
if (passKey) {
llRegionSayTo(passKey, -8888, sendText);
}
Expand Down Expand Up @@ -251,7 +485,6 @@ default {

link_message(integer sender, integer num, string str, key id) {
if(num == gCMD_REM_CHAINS || num == gCMD_SET_CHAINS || num == gCMD_CONFIG) {
// llSay(0, "in lm, id: " + (string)id);
list params = llParseStringKeepNulls(str, ["|"], []);
passKey = llList2String(params, 1);
gCommandQueue+=[num, id, llList2String(params, 0)];
Expand All @@ -268,7 +501,6 @@ default {
integer IDIndex = llListFindList(gPrimIDs, [senderCheck]) + 1;
kTarget = destination;
key primOwnerKey = llList2Key(llGetObjectDetails(llGetLinkKey(1), [OBJECT_OWNER]), 0);
// llSay(0, "passKey: " + (string)passKey + ", prim owner: " + (string)llList2Key(llGetObjectDetails(llGetLinkKey(1), [OBJECT_OWNER]), 0));
if (passKey == primOwnerKey) {
SetParticles(llList2Integer(gPrimIDs, IDIndex));
}
Expand Down

0 comments on commit d90753b

Please sign in to comment.