Add a test sim with an MLP bed in it.

No animations yet, wont need them until later, maybe wont need them until this is ready for in world testing.

7 files changed, 1422 insertions, 0 deletions

diff --git a/LuaSL/Test sim/objects/onefang's test bed/~pose b/LuaSL/Test sim/objects/onefang's test bed/~pose
new file mode 100644
index 0000000..26ab5ff
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~pose
@@ -0,0 +1,222 @@
+// MLPV2 Version 2.3, by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer MAX_AVS = 6;
+
+integer a;
+integer ch;
+integer i;
+integer swap;
+string an1;
+string an2;
+string an3;
+string an4;
+string an5;
+string an6;
+string pose;
+
+list    PRs;    // pos/rot pairs for Save
+
+list anims;     // strided list of anims, indexed by pose*6
+vector pos;
+rotation rot;
+integer BallCount;      // number of balls
+integer UpdateCount;    // number of balls we've heard from, for save
+
+string prStr(string str) {
+    i = llSubStringIndex(str,">");
+    vector p = ((vector)llGetSubString(str,0,i) - pos) / rot;
+    vector r = llRot2Euler((rotation)llGetSubString(str,i+1,-1) / rot)*RAD_TO_DEG;
+    return "<"+round(p.x, 3)+","+round(p.y, 3)+","+round(p.z, 3)+"> <"+round(r.x, 1)+","+round(r.y, 1)+","+round(r.z, 1)+">";
+}
+
+string round(float number, integer places) {
+    float shifted;
+    integer rounded;
+    string s;
+    shifted = number * llPow(10.0,(float)places);
+    rounded = llRound(shifted);
+    s = (string)((float)rounded / llPow(10.0,(float)places));
+    rounded = llSubStringIndex(s, ".");
+    if (-1 != rounded)
+        s = llGetSubString(s,0,llSubStringIndex(s, ".")+places);
+    else
+    {
+        s += ".00000000";
+        s = llGetSubString(s,0,llSubStringIndex(s, ".")+places);
+    }
+    return s;
+}
+
+check_anim(string aname) {
+    if (aname == "") {
+        return;
+    }
+    if (   aname != "PINK"
+        && aname != "BLUE"
+        && aname != "stand"
+        && aname != "sit_ground") {
+
+        // ignore expression suffix of "*" or "::nnn"
+        if (llGetSubString(aname, -1, -1) == "*") {
+            aname = llGetSubString(aname, 0, -2);
+        } else {
+            integer ix = llSubStringIndex(aname, "::");
+            if (ix != -1) {
+                aname = llGetSubString(aname, 0, ix-1);
+            }
+        }
+        
+        if (llGetInventoryType(aname) != INVENTORY_ANIMATION) {
+            llSay(0,"animation '"
+                + aname
+                + "' not in inventory (ok for build-in animations, otherwise check)");
+        }
+    }
+}
+
+getChan() {
+    ch = (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1));  //fixed channel for prim
+}
+
+default {
+
+    link_message(integer from, integer num, string data, key id) {
+        if (num != 9+a) return;
+
+        if (data == "LOADED") state on;
+        
+        list ldata = llParseString2List(data,["  |  ","  | "," |  "," | "," |","| ","|"],[]);
+
+        an1 = llList2String(ldata,1);
+        an2 = llList2String(ldata,2);
+        an3 = llList2String(ldata,3);
+        an4 = llList2String(ldata,4);
+        an5 = llList2String(ldata,5);
+        an6 = llList2String(ldata,6);
+
+        if (a>1) {
+            check_anim(an1);
+            check_anim(an2);
+            check_anim(an3);
+            check_anim(an4);
+            check_anim(an5);
+            check_anim(an6);
+        } else if (a) { //pose1: set default
+            if (an1 == "") an1 = "sit_ground";
+            if (an2 == "") an2 = "sit_ground";
+            if (an3 == "") an3 = "sit_ground";
+            if (an4 == "") an4 = "sit_ground";
+            if (an5 == "") an5 = "sit_ground";
+            if (an6 == "") an6 = "sit_ground";
+        } else {        //pose0: set stand
+            if (an1 == "") an1 = "stand";
+            if (an2 == "") an2 = "stand";
+            if (an3 == "") an3 = "stand";
+            if (an4 == "") an4 = "stand";
+            if (an5 == "") an5 = "stand";
+            if (an6 == "") an6 = "stand";
+        }
+        anims += [ an1, an2, an3, an4, an5, an6 ];
+        ++a;
+    }
+    state_exit() {
+        llOwnerSay((string)a+" poses loaded ("+llGetScriptName()+": "+(string)llGetFreeMemory()+" bytes free)");
+    }
+}
+
+
+state on {
+    state_entry() {
+        getChan();
+    }
+    
+    on_rez(integer arg) {
+        getChan();
+    }
+
+    link_message(integer from, integer num, string cmd, key akey) {
+        if (cmd == "PRIMTOUCH"){
+            return;
+        }
+        if (num) return;
+        if (cmd == "POSE") {
+            list parms = llCSV2List((string)akey);
+            BallCount = llList2Integer(parms,1);
+            a = llList2Integer(parms,0) * 6;
+            an1 = llList2String(anims, a);
+            an2 = llList2String(anims, a+1);
+            an3 = llList2String(anims, a+2);
+            an4 = llList2String(anims, a+3);
+            an5 = llList2String(anims, a+4);
+            an6 = llList2String(anims, a+5);
+        } else if (cmd == "SWAP") {
+            swap = !swap;
+        } else if (cmd == "SAVE") {
+            pose = (string)akey;
+            state save;
+        } else return;
+        llMessageLinked(LINK_THIS,ch+swap, an1,(key)"");   //msg to poser 1/2
+        llMessageLinked(LINK_THIS,ch+!swap,an2,(key)"");
+        llMessageLinked(LINK_THIS,ch+2, an3,(key)"");   //msg to poser 3
+        llMessageLinked(LINK_THIS,ch+3, an4,(key)"");   //msg to poser 4
+        llMessageLinked(LINK_THIS,ch+4, an5,(key)"");   //msg to poser 4
+        llMessageLinked(LINK_THIS,ch+5, an6,(key)"");   //msg to poser 4
+    }
+}
+
+state save {
+    state_entry() {
+        llMessageLinked(LINK_THIS,0,"GETREFPOS","");    //msg to pos: ask ref position
+        integer ix;
+        PRs = [ "", "", "", "", "", "" ];
+
+        for (ix = 0; ix < MAX_AVS; ++ix) {
+            llListen(ch+16+ix,  "", NULL_KEY, "");
+            llSay(ch+ix,"SAVE");       //msg to balls
+        }
+        llSetTimerEvent(3);
+        UpdateCount = 0;
+    }
+
+
+    listen(integer channel, string name, key id, string pr) {
+        channel -= (ch + 16);
+        
+        if (channel == 0) {
+            channel = channel + swap;
+        } else if (channel == 1) {
+            channel = channel - swap;
+        }
+        
+        PRs = llListReplaceList(PRs, (list)pr, channel, channel);
+
+        if (++UpdateCount == BallCount) {
+            pr = "";
+            integer ix;
+            for (ix = 0; ix < BallCount; ++ix) {
+                pr += prStr(llList2String(PRs, ix)) + " ";
+            }                    
+
+            llOwnerSay("{"+pose+"} "+pr);
+            llMessageLinked(LINK_THIS,1,pose,pr);       //write to memory
+            state on;
+        }
+    }
+    link_message(integer from, integer num, string posstr, key rotkey) {
+        if (posstr == "PRIMTOUCH"){
+            return;
+        }
+        if (num != 8) return;
+        pos = (vector)posstr;                   //revtrieve reference position from pos
+        rot = (rotation)((string)rotkey);
+    }
+    timer() {
+        state on;
+    } 
+     state_exit() {
+        llSetTimerEvent(0);
+    }   
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser b/LuaSL/Test sim/objects/onefang's test bed/~poser
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser 1 b/LuaSL/Test sim/objects/onefang's test bed/~poser 1
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser 1
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser 2 b/LuaSL/Test sim/objects/onefang's test bed/~poser 2
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser 2
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser 3 b/LuaSL/Test sim/objects/onefang's test bed/~poser 3
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser 3
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser 4 b/LuaSL/Test sim/objects/onefang's test bed/~poser 4
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser 4
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}
diff --git a/LuaSL/Test sim/objects/onefang's test bed/~poser 5 b/LuaSL/Test sim/objects/onefang's test bed/~poser 5
new file mode 100644
index 0000000..fc976c4
--- /dev/null
+++ b/LuaSL/Test sim/objects/onefang's test bed/~poser 5
@@ -0,0 +1,200 @@
+// MPLV2 2.3 by Learjeff Innis, based on
+// MLP MULTI-LOVE-POSE V1.2 - Copyright (c) 2006, by Miffy Fluffy (BSD License)
+// OpenSim port by Jez Ember
+// Meta 7 fixes by onefang Rejected
+
+integer ch;
+string animation = "stand";
+key avatar;
+
+integer ExprEnabled = TRUE;
+string  Expression;
+float   ExprTimer;
+
+integer BallNum;
+
+list Expressions = [
+      ""
+    , "express_open_mouth"          // 1
+    , "express_surprise_emote"      // 2
+    , "express_tongue_out"          // 3
+    , "express_smile"               // 4
+    , "express_toothsmile"          // 5
+    , "express_wink_emote"          // 6
+    , "express_cry_emote"           // 7
+    , "express_kiss"                // 8
+    , "express_laugh_emote"         // 9
+    , "express_disdain"             // 10
+    , "express_repulsed_emote"      // 11
+    , "express_anger_emote"         // 12
+    , "express_bored_emote"         // 13
+    , "express_sad_emote"           // 14
+    , "express_embarrassed_emote"   // 15
+    , "express_frown"               // 16
+    , "express_shrug_emote"         // 17
+    , "express_afraid_emote"        // 18
+    , "express_worry_emote"         // 19
+    , "SLEEP"                       // 20
+];
+
+
+stopAnim() {
+    key id = llGetPermissionsKey();
+    list anims = llGetAnimationList(id); 
+    integer ix; 
+    for (ix = 0; ix < llGetListLength(anims); ++ix) {
+        string anim = llList2String(anims, ix);
+        if (anim != "") {
+            llStopAnimation(anim);
+        }
+    }
+    llSetTimerEvent(0.0);
+}
+
+startAnim(string anim) {
+    if (Expression != "") {
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else {
+            llStartAnimation(Expression);
+        }
+        if (ExprEnabled) {
+            llSetTimerEvent(ExprTimer);
+        }
+    } else {
+        stopAnim();
+    }
+    if (anim != "") {
+        llStartAnimation(anim);
+    }
+}    
+
+// Animation names with a "*" suffix get open mouth
+// Those with a suffix of "::" followed by a number
+//   get the expression associated with that number.
+//   This can optionally be followed by another "::" delim,
+//   with a timer value following.
+// Return the anim name without the suffix.
+string getExpression(string anim) {
+    if (llGetSubString(anim,-1,-1) == "*") {
+        Expression = llList2String(Expressions, 1);
+        ExprTimer = 0.5;
+        return llGetSubString(anim, 0, -2);
+    }
+    integer ix = llSubStringIndex(anim, "::");
+    if (ix == -1) {
+        Expression = "";
+        ExprTimer = 0.5;
+        return anim;
+    }
+    
+    list parms = llParseString2List(anim, ["::"], []);
+    anim = llList2String(parms, 0);
+    integer exprIx = (integer) llList2String(parms, 1);
+    Expression = llList2String(Expressions, exprIx);
+    ExprTimer  = (float) llList2String(parms,2);
+    
+    if (ExprTimer <= 0.0) {
+        ExprTimer = 0.5;
+    }
+    
+    return anim;
+}
+
+getChan() {
+    BallNum = (integer) llGetSubString(llGetScriptName(),-1,-1);          //offset from script name suffix
+    ch = BallNum
+        + (integer)("0x"+llGetSubString((string)llGetKey(),-4,-1)); //fixed channel for prim
+}
+
+default {
+    state_entry() {
+        state s_on;
+    }
+}
+
+state s_on {
+    state_entry() {
+        getChan();
+        llListen(ch+8,"",NULL_KEY,"");
+    }
+    
+    on_rez(integer arg) {
+        state default;
+    }
+
+    link_message(integer from, integer num, string an, key id) {        //an animation is set
+        if (an == "PRIMTOUCH") {
+            return;
+        }
+        
+        if (num != ch) return;
+        an = getExpression(an);     // get & save expression, and return unadorned anim
+
+        if (avatar == llGetPermissionsKey()
+            && avatar != NULL_KEY
+            && animation != "") {
+            llStopAnimation(animation);
+            llMessageLinked(LINK_SET, -11002, (string)BallNum + "|" + an, avatar);
+            startAnim(an);
+        }
+        animation = an;
+    }
+
+    timer() {  // timer to keep mouth open
+        if (Expression == "SLEEP") {
+            llStartAnimation("express_disdain");
+            llStartAnimation("express_smile");
+        } else if (Expression != "") {
+            llStartAnimation(Expression);
+        }
+    }
+
+    listen(integer channel, string name, key id, string str) {           
+        if (str == "ALIVE" || str == "DIE") {
+            llMessageLinked(LINK_THIS,2,str,"");                        //send msg from ball to menu
+            if (str == "DIE") {
+                avatar = NULL_KEY;
+                llSetTimerEvent(0.0);
+            }
+            return;
+        }
+            
+        avatar = (key) str;     //avatar (sit) or NULL_KEY (stand up)
+        if (avatar == NULL_KEY) {
+            if (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION) {
+                stopAnim();
+                llMessageLinked(LINK_SET, -11001, (string)BallNum, llGetPermissionsKey());
+            }
+            // llReleaseControls();
+            return;
+        }
+        
+        if (avatar != llGetPermissionsKey()
+            || ! (llGetPermissions() & PERMISSION_TRIGGER_ANIMATION)) {
+            ExprEnabled = TRUE;
+            llRequestPermissions(avatar, PERMISSION_TRIGGER_ANIMATION);
+        } else {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        }
+    }
+
+    run_time_permissions(integer perm) {
+        if (avatar != llGetPermissionsKey()) {
+            llWhisper(DEBUG_CHANNEL, "avatar != perm key");
+            return;
+        }
+
+        if (perm & PERMISSION_TRIGGER_ANIMATION) {
+            stopAnim();
+            llMessageLinked(LINK_SET, -11000, (string)BallNum + "|" + animation, avatar);
+            startAnim(animation);
+        } else {
+            llMessageLinked(LINK_SET, -11001, (string)BallNum, avatar);
+            llSetTimerEvent(0.0);
+        }
+    }
+}