Kitely Forums

Kim McCabe wrote: Tue Aug 18, 2020 3:15 am Does anyone have a scripted memo board that I can buy. Something that visitor's can leave a photo and a note on.

Graham Mills wrote: Tue Aug 18, 2020 12:05 pm

Kim McCabe wrote: Tue Aug 18, 2020 3:15 am Does anyone have a scripted memo board that I can buy. Something that visitor's can leave a photo and a note on.

Unless someone else offers, I don't mind having a go at this. Can you just clarify the functionality and size?

Graham Mills wrote: Wed Aug 19, 2020 9:17 pm First thoughts. At the moment this PinBlock handles only image UUID and 127 char of text (approx two short sentences) which it stores in the description field (which means you see some of it in the hover text when you mouse over it). It stores no readily recoverable user data and presently does not apply any type of lock to prevent deletion/overwriting.

To use it you insert the script below in a cube which in edit mode you can then shift-copy to create an array of the required dimensions (I would keep it small).

Touching/leftclicking the cube pops up a menu with options:

clear: removes both image and text data
edit: pops up a text box. Text entered is copied to the PinBlock description field so is limited to 127 chars. If you enter a valid texture UUID (obtained from the rightclick menu in inventory), the texture is displayed with the avatar name in an overlay at bottom right (this can be readily removed by commenting out the relevant line using //).
chat: sends the text in the description field in an instant message
display: sends the text and image UUID to a larger display prim (not done)

I have yet to fix listeners and timeouts on the dialogs. At present the image is displayed on all sides; you can either colour sides with unwanted images black or set the value for prim_surface to the appropriate value (0-5). [UPDATE] The text stored in the description field is now rendered on the prim but is overwritten by any image added subsequently (and vice versa). And yes, the word-wrap needs some work.

I played around with dragging images and notecards onto prims but came to the conclusion that in the first instance there was some merit in simplicity. Feedback welcome.

Code: Select all

//script for basic pinblock 0.1

integer chan;
integer hndl;
integer hndl_dialog;
integer display_chan = -1221;//needs to be static
integer prim_surface = ALL_SIDES;
string avatar;

default
{
    state_entry()
    {
        chan = (integer)(llFrand(-1000000000.0) - 1000000000.0); 
        hndl = llListen(chan, "", NULL_KEY, "");
    }
    
    on_rez(integer n)
    {
        chan = (integer)(llFrand(-1000000000.0) - 1000000000.0); 
        hndl = llListen(chan, "", NULL_KEY, "");
    }
        
    touch_start(integer n)
    {
        llListenRemove(hndl_dialog);
        llDialog(llDetectedKey(0), "Choose option", ["clear", "chat", "display", "edit"], chan + 1);
        hndl_dialog = llListen(chan + 1, "", NULL_KEY, "");
    }
    
    listen(integer c, string name, key id, string msg)
    {
        
        if (c == chan + 1)
        {
            if (msg == "edit")
            {
                llTextBox(id, "Enter 127 char text or image UUID", chan);
            }
            else if (msg == "clear")
            {
                llSetObjectDesc("");
                llSetTexture(TEXTURE_BLANK, ALL_SIDES);
            }
            else if (msg == "chat")
            {
                llInstantMessage(id, llGetObjectDesc());
            }
            else if (msg == "display")
            {
                //do stuff on remote display prim
                llWhisper(display_chan, (string)llGetTexture(0)+"|"+llGetObjectDesc());
            }
        }   
        if (c == chan)
        {
            if (osIsUUID(msg) == 1)
            {
                
                llSetTexture(msg, ALL_SIDES);
                
                string sDynamicID = "";                          // not implemented yet
                string sContentType = "vector";                  // vector = text/lines,etc.  image = texture only
                string sData = "";                               // Storage for our drawing commands
                string sExtraParams = "width:256,height:256";    // optional parameters in the following format: [param]:[value],[param]:[value]
                integer iTimer = 0;                              // timer is not implemented yet, leave @ 0
                integer iAlpha = 100;                            // 0 = 100% Alpha, 255 = 100% Solid
                //
                // sData (drawing commands) used in the example.
                // draw a filled rectangle
                sData = osSetPenSize(sData, 3);                   // Set the pen width to 3 pixels
                sData = osSetPenColor(sData, "Black");             // Set the pen color to red
                sData = osMovePen(sData, 200, 240);                 // Upper left corner at <28,78>
                sData = osDrawFilledRectangle(sData, 55, 55);   // 200 pixels by 100 pixels
                // setup text to go in the drawn box
                sData = osMovePen(sData, 205, 245);                 // place pen @ X,Y coordinates 
                sData = osSetFontName(sData, "Arial");            // Set the Fontname to use
                sData = osSetFontSize(sData, 4);                 // Set the Font Size in pixels
                sData = osSetPenColor(sData, "White");           // Set the pen color to Green
                sData = osDrawText(sData, osKey2Name(id)); // The text to write
                // Now draw it out
                osSetDynamicTextureDataBlend( sDynamicID, sContentType, sData, sExtraParams, iTimer, iAlpha );
            }
            else 
            { 
                llSetObjectDesc(msg);
                
                string CommandList = "";
                
                list words = llParseString2List(msg, [" "], []);//[".", ",", ";", ":"]);
                
                integer len = llGetListLength(words);
                integer i = 0;
                integer n = 0;
                string s = "";
                do
                {
                    while(llStringLength(s) < 21)
                    {
                        if (llListFindList([llList2String(words, i)], [".", ",", ";", ":"]) > -1)
                        {
                            s = s +llList2String(words, i);
                        }
                        else
                        {
                            s = s + " "+llList2String(words, i);
                        }
                            
                        i++;
                    }

                    CommandList = osMovePen( CommandList, 10, 10 + n*20 );           // Upper left corner at <10,10>
                    CommandList = osDrawText( CommandList, s );
                    n++;
                    s = "";
                }
                while (i < len);
                
                CommandList = osSetFontSize(CommandList, 8); 
                CommandList = osMovePen( CommandList, 10, 230 );           // Upper left corner at <10,10>
                CommandList = osDrawText( CommandList, osKey2Name(id) );
            
                osSetDynamicTextureData( "", "vector", CommandList, "width:256,height:256", 0 );
                
            }
        }
    }
}

Graham Mills wrote: Wed Aug 19, 2020 9:17 pm First thoughts. At the moment this PinBlock handles only image UUID and 127 char of text (approx two short sentences) which it stores in the description field (which means you see some of it in the hover text when you mouse over it). It stores no readily recoverable user data and presently does not apply any type of lock to prevent deletion/overwriting.

To use it you insert the script below in a cube which in edit mode you can then shift-copy to create an array of the required dimensions (I would keep it small).

Touching/leftclicking the cube pops up a menu with options:

clear: removes both image and text data
edit: pops up a text box. Text entered is copied to the PinBlock description field so is limited to 127 chars. If you enter a valid texture UUID (obtained from the rightclick menu in inventory), the texture is displayed with the avatar name in an overlay at bottom right (this can be readily removed by commenting out the relevant line using //).
chat: sends the text in the description field in an instant message
display: sends the text and image UUID to a larger display prim (not done)

I have yet to fix listeners and timeouts on the dialogs. At present the image is displayed on all sides; you can either colour sides with unwanted images black or set the value for prim_surface to the appropriate value (0-5). [UPDATE] The text stored in the description field is now rendered on the prim but is overwritten by any image added subsequently (and vice versa). And yes, the word-wrap needs some work.

I played around with dragging images and notecards onto prims but came to the conclusion that in the first instance there was some merit in simplicity. Feedback welcome.

Code: Select all

//script for basic pinblock 0.1

integer chan;
integer hndl;
integer hndl_dialog;
integer display_chan = -1221;//needs to be static
integer prim_surface = ALL_SIDES;
string avatar;

default
{
    state_entry()
    {
        chan = (integer)(llFrand(-1000000000.0) - 1000000000.0); 
        hndl = llListen(chan, "", NULL_KEY, "");
    }
    
    on_rez(integer n)
    {
        chan = (integer)(llFrand(-1000000000.0) - 1000000000.0); 
        hndl = llListen(chan, "", NULL_KEY, "");
    }
        
    touch_start(integer n)
    {
        llListenRemove(hndl_dialog);
        llDialog(llDetectedKey(0), "Choose option", ["clear", "chat", "display", "edit"], chan + 1);
        hndl_dialog = llListen(chan + 1, "", NULL_KEY, "");
    }
    
    listen(integer c, string name, key id, string msg)
    {
        
        if (c == chan + 1)
        {
            if (msg == "edit")
            {
                llTextBox(id, "Enter 127 char text or image UUID", chan);
            }
            else if (msg == "clear")
            {
                llSetObjectDesc("");
                llSetTexture(TEXTURE_BLANK, ALL_SIDES);
            }
            else if (msg == "chat")
            {
                llInstantMessage(id, llGetObjectDesc());
            }
            else if (msg == "display")
            {
                //do stuff on remote display prim
                llWhisper(display_chan, (string)llGetTexture(0)+"|"+llGetObjectDesc());
            }
        }   
        if (c == chan)
        {
            if (osIsUUID(msg) == 1)
            {
                
                llSetTexture(msg, ALL_SIDES);
                
                string sDynamicID = "";                          // not implemented yet
                string sContentType = "vector";                  // vector = text/lines,etc.  image = texture only
                string sData = "";                               // Storage for our drawing commands
                string sExtraParams = "width:256,height:256";    // optional parameters in the following format: [param]:[value],[param]:[value]
                integer iTimer = 0;                              // timer is not implemented yet, leave @ 0
                integer iAlpha = 100;                            // 0 = 100% Alpha, 255 = 100% Solid
                //
                // sData (drawing commands) used in the example.
                // draw a filled rectangle
                sData = osSetPenSize(sData, 3);                   // Set the pen width to 3 pixels
                sData = osSetPenColor(sData, "Black");             // Set the pen color to red
                sData = osMovePen(sData, 200, 240);                 // Upper left corner at <28,78>
                sData = osDrawFilledRectangle(sData, 55, 55);   // 200 pixels by 100 pixels
                // setup text to go in the drawn box
                sData = osMovePen(sData, 205, 245);                 // place pen @ X,Y coordinates 
                sData = osSetFontName(sData, "Arial");            // Set the Fontname to use
                sData = osSetFontSize(sData, 4);                 // Set the Font Size in pixels
                sData = osSetPenColor(sData, "White");           // Set the pen color to Green
                sData = osDrawText(sData, osKey2Name(id)); // The text to write
                // Now draw it out
                osSetDynamicTextureDataBlend( sDynamicID, sContentType, sData, sExtraParams, iTimer, iAlpha );
            }
            else 
            { 
                llSetObjectDesc(msg);
                
                string CommandList = "";
                
                list words = llParseString2List(msg, [" "], []);//[".", ",", ";", ":"]);
                
                integer len = llGetListLength(words);
                integer i = 0;
                integer n = 0;
                string s = "";
                do
                {
                    while(llStringLength(s) < 21)
                    {
                        if (llListFindList([llList2String(words, i)], [".", ",", ";", ":"]) > -1)
                        {
                            s = s +llList2String(words, i);
                        }
                        else
                        {
                            s = s + " "+llList2String(words, i);
                        }
                            
                        i++;
                    }

                    CommandList = osMovePen( CommandList, 10, 10 + n*20 );           // Upper left corner at <10,10>
                    CommandList = osDrawText( CommandList, s );
                    n++;
                    s = "";
                }
                while (i < len);
                
                CommandList = osSetFontSize(CommandList, 8); 
                CommandList = osMovePen( CommandList, 10, 230 );           // Upper left corner at <10,10>
                CommandList = osDrawText( CommandList, osKey2Name(id) );
            
                osSetDynamicTextureData( "", "vector", CommandList, "width:256,height:256", 0 );
                
            }
        }
    }
}

• Display pinblock to large screen (text and image) for 30 sec, locked against other users. "Disappears" on timeout.
• Lock pinblock prims for 4 min to allow uninterrupted editing.
• Prims edited by prim owner stay locked for other users.
• Render text and image on opposite sides of the prim and give users the option to flip the prim round.
• Put menu on pinblock?
• Have a rezzer that can generate an array of pinblocks plus display screen?