User talk:Rolig Loon/Bookmark URLs

Features

• Reads URLs and labels from a user-created notecard

 * Each card may hold up to 21 URLs. 
 * User may place an unlimited number of notecards in contents. User may advance to the next card 
   by selecting that choice from a dialog button.

• Generates a dialog box with button labels from the notecard
• User selects URL from a dialog button to open the in-world browser and navigate to the web site

NOTE: You cannot create or edit a notecard with a script in LSL, so you must so that operation manually.

 You may either create a notecard and then drop it in your HUD's contents, or edit an existing card by
 selecting the HUD in Edit and then Opening a card that is already in contents. 

Sample Notecard

# Sample notecard for the "Bookmark URLs" HUD

# Any blank line or a line starting with "#" is ignored. You cannot write to a notecard with a script in SL, so the only 
#   way to store bookmarks is to add them to this card manually. Yes, it's annoying, but it's not difficult, especially 
#   if you cut and paste the URL.  

# Each line on this card starts with a tag for a bookmark, followed by a "|" symbol, and then by the URL itself. 
# Only about 12 characters of the tag will fit on a dialog button. Extra characters will not be displayed. 
# A tag longer than 24 characters will generate an error message.

# Here are some sample bookmarks

Second Life | http://secondlife.com
SL Toolbox | http://wiki.secondlife.com/wiki/Basic_Resource_Toolbox
G Scholar | http://scholar.google.com/
Babelfish | http://babelfish.yahoo.com/
SLLVR wiki  | http://sites.google.com/site/sllvrwiki/index
AVL Catalog | http://sixsunflowers.wiki.zoho.com/
NY Times  | http://www.nytimes.com/
Wikipedia | http://wikipedia.org/
SLED resources | http://simteach.com/sled/db/
SimTeach | http://www.simteach.com/wiki/index.php?title=Second_Life_Education_Wiki
Natalia | http://www.mermaiddiaries.com/2006/11/build.html
Windlight | http://secondsoigne.wordpress.com/2008/04/10/optimising-windlight-for-avatars-20/?
LSL Portal |http://wiki.secondlife.com/wiki/LSL_Portal
LSL Wiki | http://lslwiki.net/lslwiki/wakka.php?wakka=HomePage

# You may store up to 21 bookmarks on a single card. When you have collected more than 21 bookmarks, start a new notecard.
# You may put as many notecards in the HUD's inventory as you wish.  The HUD will load the next notecard in inventory 
#   when you select the "New Card?" button from the dialog menu.
# Suggestion: You may want to use this multi-card feature as a way to organize your bookmarks by using each notecard 
#   as a separate "folder".

Script

<lsl>// Bookmark URLs -- Rolig Loon -- January 2010 // // Controls a HUD in which the user can store and access notecards containing bookmarked URLs. // On touch, a dialog box offers the user up to 21 bookmarks and the option to advance to another card in Contents. // Selecting a bookmark opens it in the user's default browser.

// Free to copy, use, modify, distribute, or sell, with attribution. Be nice, please. // (C)2010 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ] // Rolig Loon [ https://wiki.secondlife.com/wiki/User:Rolig_Loon ] // All usages must contain a plain text copy of the previous 2 lines.

list MENU1 = []; list MENU2 = []; list Choice = []; list URLs = []; integer listener; integer MENU_CHANNEL = 1000; key user; string gName; key gQueryID; integer gLine; integer Lines; integer cardNo = 0; integer Reading = FALSE;

Dialog(key id, list menu) {

   llListenRemove(listener); 
   listener = llListen(MENU_CHANNEL, "", "", "");
   llDialog(id, "Select one bookmark below: ", menu, MENU_CHANNEL);

}

ResetLists() {

   Choice = [];
   URLs = [];
   Lines = 0;
   gLine = 0;
   gName = llGetInventoryName(INVENTORY_NOTECARD,cardNo);
   llListenRemove(listener);

}

BuildMenu() {

   integer i = 0;
   MENU1 = [];
   MENU2 = [];
   if (Lines <= 11)
   {
       for (; i < Lines; ++i)
       {
            MENU1 += llList2String(Choice,i);
       }
       for (i=0;i<llGetListLength(MENU1);i+=3) 
       { 
           MENU1 = llListInsertList(llDeleteSubList(MENU1, -3, -1), llList2List(MENU1, -3, -1), i);
       }
       MENU1 += "New Card?";
   }
   else
   {
       for (; i < 11; ++i)
       {
           MENU1 += llList2String(Choice,i);
       }
       if(Lines > 21)
       {
           Lines = 21;
       }
       for (; i < Lines; ++i)
       {
           MENU2 += llList2String(Choice,i);
       }
       MENU1 += ">>";
       for (i=0;i<llGetListLength(MENU1);i+=3) 
       { 
           MENU1 = llListInsertList(llDeleteSubList(MENU1, -3, -1), llList2List(MENU1, -3, -1), i); 
       }
       MENU2 += "<<";
       MENU2 += "New Card?";
       for (i=0;i<llGetListLength(MENU2);i+=3) 
       { 
       MENU2 = llListInsertList(llDeleteSubList(MENU2, -3, -1), llList2List(MENU2, -3, -1), i); 
       }
   }
   user = llDetectedKey(0);

}

default {

   state_entry()
   {
       if (Reading)
       {
           Reading = FALSE ;
       }
       else
       {
           if (llGetInventoryNumber(INVENTORY_NOTECARD) < 1)
           {
               llOwnerSay("There's no notecard in this device.");
           }
           else
           {
               gLine = 0;
               gName = llGetInventoryName(INVENTORY_NOTECARD,cardNo);
               state reading;
           }
       }
   }
       
   on_rez(integer num)
   {
       llResetScript();
   }

   touch_start(integer total_number)
   {
       BuildMenu();
       Dialog(user, MENU1);
   }

   listen(integer channel, string name, key id, string message)
   {
       if (channel == MENU_CHANNEL)
       {
           llListenRemove(listener);
           if (message == ">>")
           {
               Dialog(id, MENU2);
           }
           else if (message == "<<")
           {
               Dialog(id, MENU1);
           }
           else if (message == "New Card?")
           {
               ++ cardNo;
               if(llGetInventoryNumber(INVENTORY_NOTECARD) == cardNo)
               {
                   llOwnerSay("You have sampled all notecards in inventory. Returning to card #1.");
                   cardNo = 0;
               }
               ResetLists();
               state reading ;
           }
           else
           {
               integer URLNum = llListFindList(Choice,[message]); 
               if (URLNum != -1)
               {
                   string theURL = llList2String(URLs,URLNum);
                   llLoadURL(id,"This is the web page you bookmarked as \""+ message + "\".", theURL);
               }
               else
               {
                   llOwnerSay("No bookmarked URL found with the label \"" + message +"\".");
               }
           }
       }
   }
   
   changed (integer change)  
   {
       if (change && CHANGED_INVENTORY)
       {
           llResetScript();
       }
   }

}

state reading {

   on_rez(integer num)
   {
       llResetScript();
   }
   
   state_entry()
   {
       Reading = TRUE ;
       gQueryID = llGetNotecardLine(gName,gLine);
   }
   
   dataserver(key query_id, string data)
   {
       if (query_id == gQueryID)
       {
           if(data != EOF)
           {
               if ( llGetSubString(data, 0, 0) != "#" && llStringTrim(data, STRING_TRIM) != "" )
               {
                   Choice += llStringTrim(llGetSubString(data,0,llSubStringIndex(data,"|")-1),STRING_TRIM);
                   URLs += llStringTrim(llGetSubString(data,llSubStringIndex( data,"|")+1,-1),STRING_TRIM);
                   ++Lines;
               }
               ++gLine;
               gQueryID = llGetNotecardLine(gName, gLine);
           }
           else
           {
               state default ;
           }
       }
   }

   changed (integer change)  
   {
       if (change && CHANGED_INVENTORY)
       {
           llResetScript();
       }
   }

}