diff --git a/nPose Chains Plugin.lslp b/nPose Chains Plugin.lslp
index 2c45ee3..304072a 100644
--- a/nPose Chains Plugin.lslp	
+++ b/nPose Chains Plugin.lslp	
@@ -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";
@@ -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);
             }
@@ -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)];
@@ -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));
                 }