name plates

integer  listener;
integer faceNumberLeft = 8; // number of faces on the left side letter prim
integer faceNumberRight = 3; // number of faces on the right side letter prim
string left = "Left";   // name of the left side prim containing letter faces
string right = "Right"; // name of the right side prim containing letter faces
integer linkLeft;
integer linkRight;

list managers = [                            // copy user uuid's for people who should be allowed to change stall name
"73cb0a6d-5812-43d2-b954-087c4dbd0744",      // Teager Resident
"64cfac62-1a8a-459a-ab09-0068808f8769",      // Rixinshi Spire
"f846f4ee-bc2c-4ad9-8ccb-6943d2cc8f5f" ];    // Darky Delacroix

string letterA = "08ae7b1b-d9f7-1080-90a3-7ca33350e3d0";
string letterB = "655e935a-910f-bfed-b819-05488075d985";
string letterC = "d3bc5b98-a640-f3e7-f555-3293f02d2aba";
string letterD = "69f94b0a-9d4a-c634-b930-eca8718ffc7a";
string letterE = "b1a98199-c54e-3862-6dde-208199da626c";
string letterF = "2bbad255-d0db-a137-a84d-c1098290fd57";
string letterG = "68efcc79-6452-5d7b-1d8a-eb592607b824";
string letterH = "6e28dda2-e2e0-c4a1-2ebc-0f539468c6af";
string letterI = "47067f59-c571-5ac4-1626-15c25eca2be0";
string letterJ = "d92dacde-6dd4-7dcb-9912-1b95fe053824";
string letterK = "b5941d94-c5c4-654c-7e0b-377e69db38d9";
string letterL = "d33a4b99-dfe0-dd9c-3cc7-f4d7f19b5b04";
string letterM = "dcf560d6-c3bf-f056-b21b-4a0d60b9f846";
string letterN = "8690c769-8b9e-9bb3-a899-c1a8145a20fe";
string letterO = "55e7d7a9-a14d-1951-7046-c2d590da20be";
string letterP = "4127780b-376f-6da3-4743-e8fe359b9604";
string letterQ = "5707dd59-f971-cd3a-26bc-0d69e1dfc9af";
string letterR = "84c43718-e6bd-a511-e4f6-9d92d1141ed3";
string letterS = "962b9f19-d007-8996-9d90-70af8ae429aa";
string letterT = "dda98f84-5ede-be19-6847-c46127571d8a";
string letterU = "f8a372c1-bf12-ff39-c259-7ed91da83436";
string letterV = "a736309e-1683-c437-3305-2f56b77b5941";
string letterW = "4e899bba-6fe4-385f-b5a0-1e1176a38608";
string letterX = "da7aa014-c28c-897a-c5b3-2efa073cfad9";
string letterY = "d8770b9e-94a2-6900-4f0e-b09dce44e4dd";
string letterZ = "aff8bc7c-0850-dfff-34eb-e90fe65799ff";

integer isManager = FALSE;
integer managerCount = 0;
string managerUUID = "";


default
{

    touch_start(integer total_number)
    {

       managerCount = llGetListLength(managers);

       if ( llDetectedKey(0) == llGetOwner()) { isManager = TRUE;}
       while ( managerCount > 0) {
           if ( llDetectedKey(0) == llList2String(managers, managerCount) ) { isManager = TRUE;}
           managerCount--;
            }


        if(isManager == TRUE) {

             // See 'discussion' page for more comments on choosing a channel and possible left-open listener
             integer channel = -1834700001;
             // "" saves byte-code over NULL_KEY
             listener = llListen( channel, "", "", "");
             llTextBox(llDetectedKey(0), "Enter name to be displayed. Use letters and spaces only; no punctuation. Do not hit enter. If linked to door, WAIT FOR STALL DOOR TO CLOSE FIRST!", channel);
         }
    }




    listen(integer channel, string name, key id, string message)
    {
        llListenRemove(listener);
        llSay(0, "You wrote: " + message);


        integer p = llGetNumberOfPrims();
        for (; p >= 0; --p)
        {
          if (llGetLinkName(p) == left) { linkLeft = p; }
          else if (llGetLinkName(p) == right) { linkRight = p; }
        }


        integer nameLength = llStringLength(message);
        integer nameSpace = ( (faceNumberLeft + faceNumberRight) - (nameLength)) / 2;

       /* llOwnerSay( "'" + message + "' has " +(string) nameLength + " characters.");
        llOwnerSay( "We will skip " + (string) nameSpace + " spaces."); */

        integer i = 0; // the face number we're currently working on
        integer letterNumber = 0;
        string letter = " ";

        while (nameSpace > 0) {
            llSetLinkPrimitiveParamsFast(3, [
                PRIM_TEXTURE, i, "8dcd4a48-2d37-4909-9f78-f7a9eb4ef903", <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                i++;
                nameSpace--;
               // llOwnerSay( "Space: " + (string)i);
        }

         while (letterNumber <= nameLength ) {

             if (i < faceNumberLeft) {
                 letter = llGetSubString(message, letterNumber, letterNumber);
                /* llOwnerSay( "Letter: " + letter + " || NameLength: " + (string)nameLength + " || letterNumber: " + (string)letterNumber + " || Face number: " + (string)i ); */
                 letter = llToLower(letter);


                if ( letter == "a" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterA, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "b" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterB, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "c" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterC, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "d" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterD, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "e" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterE, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "f" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterF, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "g" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterG, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "h" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterH, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "i" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterI, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "j" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterJ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "k" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterK, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "l" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterL, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "m" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterM, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "n" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterN, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "o" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterO, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "p" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterP, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "q" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterQ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "r" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterR, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "s" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterS, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "t" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterT, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "u" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterU, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "v" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterV, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "w" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterW, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "x" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterX, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "y" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterY, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "z" ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, letterZ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == " " ) {
                      llSetLinkPrimitiveParamsFast(linkLeft, [
                        PRIM_TEXTURE, i, "8dcd4a48-2d37-4909-9f78-f7a9eb4ef903", <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}

             }

             else if (i >= faceNumberLeft) {
                 letter = llGetSubString(message, letterNumber, letterNumber);
               /*  llOwnerSay( "Letter: " + letter + " || NameLength: " + (string)nameLength + " || letterNumber: " + (string)letterNumber + " || Face number: " + (string)i); */
                letter = llToLower(letter);


                if ( letter == "a" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterA, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "b" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterB, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "c" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterC, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "d" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterD, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "e" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterE, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "f" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterF, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "g" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterG, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "h" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterH, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "i" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterI, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "j" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterJ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "k" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterK, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "l" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterL, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "m" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterM, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "n" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterN, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "o" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterO, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "p" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterP, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "q" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterQ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "r" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterR, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "s" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterS, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "t" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterT, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "u" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterU, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "v" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterV, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "w" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterW, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "x" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterX, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "y" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterY, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == "z" ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), letterZ, <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}
                else if ( letter == " " ) {
                      llSetLinkPrimitiveParamsFast(linkRight, [
                        PRIM_TEXTURE, (i-faceNumberLeft), "8dcd4a48-2d37-4909-9f78-f7a9eb4ef903", <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;}

             }

              letterNumber++;
        }

      //  llOwnerSay("I'm done printing the name now! I'm on face number " + (string)i);

         while (i < (faceNumberLeft + faceNumberRight)) {
             if (i < faceNumberLeft) {
                  llSetLinkPrimitiveParamsFast(3, [
                     PRIM_TEXTURE, (i), "8dcd4a48-2d37-4909-9f78-f7a9eb4ef903", <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;
                      //  llOwnerSay( "I'm printing on the left prim and the face number is " + (string)i);
                }
             else {
                 llSetLinkPrimitiveParamsFast(2, [
                     PRIM_TEXTURE, (i-faceNumberLeft), "8dcd4a48-2d37-4909-9f78-f7a9eb4ef903", <1.0, 1.0, 0.0>, ZERO_VECTOR, 1.5708 ]);
                        i++;
                }
              //  llOwnerSay( "Space: " + (string)i);
        }

    }
}