Difference between revisions of "Group Information v1.0"

From Second Life Wiki
Jump to navigation Jump to search
Line 1: Line 1:
{{LSL Header}}
{{LSL Header}}
 
<br>
With this script you can retrieve information about the group that is set on the prim.
With this script you can retrieve information about the group that is set on the prim.
This information is downloaded from the official Second Life Search page.
This information is downloaded from the official Second Life Search page.
Line 30: Line 30:
<br>
<br>
If you need any help with the script then you can send an IM inworld to: '''Tyrennic Rivera'''.
If you need any help with the script then you can send an IM inworld to: '''Tyrennic Rivera'''.


==Group Information (Without Dialog)==
==Group Information (Without Dialog)==
Line 139: Line 140:
             // Say the group information plus the link to the group.
             // Say the group information plus the link to the group.
             llSay(0, llDumpList2String(info, " || ") + "\nsecondlife:///app/group/" + (string)GroupKey + "/about");
             llSay(0, llDumpList2String(info, " || ") + "\nsecondlife:///app/group/" + (string)GroupKey + "/about");
        }
        // Triggered when show in search is disabled.
        else if(status == 404)
        {
            llSay(0, "This group has \"Show in search\" disabled, Information cannot be retrieved.");
        }
       
        // If the request has timed out (60 Seconds).
        else if(status == 499)
        {
            llSay(0, "Group information request has timed out.");
        }
    }
}
</lsl>
==Group Information (With Dialog)==
<lsl>
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
//                                                                      //
//  Group Information script v1.0                                        //
//  With dialog menu                                                    //
//  Created by: Tyrennic Rivera                                          //
//  Finished on: June 10 2009                                            //
//  All Rights Reserved                                                  //
//                                                                      //
//  This script is free software: you can redistribute it and/or modify  //
//  it under the terms that you share this script with other people.    //
//  - You are allowed to use this script in your products however the    //
//    script may not be sold stand alone under any circumstance.        //
//  - If you give this script to other people please give the original  //
//    script with this license.                                          //
//                                                                      //
//  http://creativecommons.org/licenses/by-sa/3.0/                      //
//                                                                      //
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
key GroupKey;          // Key of the group.
string GroupName;      // The name of the group.
string GroupEnroll;    // The group enrollment (open or closed).
string GroupContent;    // Group contents (PG, Mature or Adult).
integer GroupFee;      // Group fee, How much to pay to join the group.
integer GroupCount;    // The number of members in the group (Includes owners).
key agent;
integer listener;
default
{
    state_entry()
    {
        llSetObjectName("Group Information");
    }
   
    touch_start(integer total_number)
    {
        // Save the group key for later use.
        GroupKey = llList2Key(llGetObjectDetails(llGetKey(), [OBJECT_GROUP]), 0);
       
        // If a group has been set on the object request group information.
        if(GroupKey != NULL_KEY)
        {
            // Save the key of the detected avatar for the dialog.
            agent = llDetectedKey(0);
           
            llHTTPRequest("http://world.secondlife.com/group/" + (string)GroupKey, [], "");
        }
       
        // If no group has been set give a error message.
        else
        {
            llSay(0, "No group has been set. You can set this in build mode under the \"general\" tab.");
        }
    }
   
    listen(integer channel, string name, key id, string message)
    {
        if(message == "Print Info")
        {
            // Make a temporary list with the group variables.
            list info = [GroupName, "Content: " + GroupContent, "Enrollment: " + GroupEnroll, "Join fee: L$" + (string)GroupFee, "Members: " + (string)GroupCount];
           
            // Say the group information plus the link to the group.
            llSay(0, llDumpList2String(info, " || ") + "\nsecondlife:///app/group/" + (string)GroupKey + "/about");
        }
        llListenRemove(listener);
    }
   
    http_response(key request_id, integer status, list metadata, string body)
    {
        // This means the page has succesfully loaded.
        if(status == 200)
        {
            // Dont edit this unless you know what you are doing!!
            integer s1 = llSubStringIndex(body, "<title>");
            integer s2 = llSubStringIndex(body, "</title>");
            integer s3 = llSubStringIndex(body, "<meta name=\"member_count\" content=\"");
            integer s4 = llSubStringIndex(body, "<meta name=\"open_enrollment\" content=\"");
            integer s5 = llSubStringIndex(body, "<meta name=\"membership_fee\" content=\"");
            integer s6 = llSubStringIndex(body, "<meta name=\"mat\" content=\"");
           
            // All the group information is saved in these variables.
            GroupName = llGetSubString(body, s1+7, s2-1);
            GroupEnroll = llGetSubString(body, s4+38, s4+38);
            GroupCount = (integer)llGetSubString(body, s3+35, s4-14);
            GroupFee = (integer)llGetSubString(body, s5+37, s6-8);
            GroupContent = llGetSubString(body, s6+26, s1-14);
           
            // When a group contains non-mature content.
            if(GroupContent == "PG_NOT")
            {
                GroupContent = "PG";
            }
           
            // When a group contains mature content.
            else if(GroupContent == "M_NOT")
            {
                GroupContent = "Mature";
            }
           
            // When a group contains adult content.
            else if(GroupContent == "M_AO")
            {
                GroupContent = "Adult";
            }
           
            // If the group enrollment is open.
            if(GroupEnroll == "Y")
            {
                GroupEnroll = "Open";
            }
           
            // Else if the group enrollment is closed.
            else if(GroupEnroll == "N")
            {
                GroupEnroll = "Closed";
            }
           
            // Open a listenener on channel -1.
            listener = llListen(-1, "", agent, "");
           
            // Give the dialog to the avatar who touched the prim.
            llDialog(agent, "\nGroup: " + GroupName +
            "\nContent: " + GroupContent +
            "\nEnrollment: "+ GroupEnroll +
            "\nGroup Fee: L$" + (string)GroupFee +
            "\nMembers: " + (string)GroupCount, ["OK","Print Info"], -1);
         }
         }



Revision as of 05:34, 21 June 2009


With this script you can retrieve information about the group that is set on the prim. This information is downloaded from the official Second Life Search page.
Here you can see what kind of information the script retrieves.

  • The name of the group
  • What the content of the group is. (PG, Mature or Adult)
  • What the group enrollment is. (open or closed)
  • How much an avatar needs to pay to get into the group. (Group fee)
  • And last but not least, How many members there are in the group.


Below here are 2 scripts, the first one says the information on local chat.
The second gives you a dialog with all the information and a print option that prints all information on the local chat.







If you need any help with the script then you can send an IM inworld to: Tyrennic Rivera.


Group Information (Without Dialog)

<lsl> //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=// // // // Group Information script v1.0 // // Without dialog menu // // Created by: Tyrennic Rivera // // Finished on: June 10 2009 // // All Rights Reserved // // // // This script is free software: you can redistribute it and/or modify // // it under the terms that you share this script with other people. // // - You are allowed to use this script in your products however the // // script may not be sold stand alone under any circumstance. // // - If you give this script to other people please give the original // // script with this license. // // // // http://creativecommons.org/licenses/by-sa/3.0/ // // // //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//

key GroupKey; // Key of the group. string GroupName; // The name of the group. string GroupEnroll; // The group enrollment (open or closed). string GroupContent; // Group contents (PG, Mature or Adult). integer GroupFee; // Group fee, How much to pay to join the group. integer GroupCount; // The number of members in the group (Includes owners).

default {

   state_entry()
   {
       llSetObjectName("Group Information");
   }
   
   touch_start(integer total_number)
   {
       // Save the group key for later use.
       GroupKey = llList2Key(llGetObjectDetails(llGetKey(), [OBJECT_GROUP]), 0);
       
       // If a group has been set on the object request group information.
       if(GroupKey != NULL_KEY)
       {
           llHTTPRequest("http://world.secondlife.com/group/" + (string)GroupKey, [], "");
       }
       
       // If no group has been set give a error message.
       else
       {
           llSay(0, "No group has been set. You can set this in build mode under the \"general\" tab.");
       }
   }
       
   http_response(key request_id, integer status, list metadata, string body)
   {
       // This means the page has succesfully loaded.
       if(status == 200)
       {
           // Dont edit this unless you know what you are doing!!
           integer s1 = llSubStringIndex(body, "<title>");
           integer s2 = llSubStringIndex(body, "</title>");
           integer s3 = llSubStringIndex(body, "<meta name=\"member_count\" content=\"");
           integer s4 = llSubStringIndex(body, "<meta name=\"open_enrollment\" content=\"");
           integer s5 = llSubStringIndex(body, "<meta name=\"membership_fee\" content=\"");
           integer s6 = llSubStringIndex(body, "<meta name=\"mat\" content=\"");
           
           // All the group information is saved in these variables.
           GroupName = llGetSubString(body, s1+7, s2-1);
           GroupEnroll = llGetSubString(body, s4+38, s4+38);
           GroupCount = (integer)llGetSubString(body, s3+35, s4-14);
           GroupFee = (integer)llGetSubString(body, s5+37, s6-8);
           GroupContent = llGetSubString(body, s6+26, s1-14);
           
           // When a group contains non-mature content.
           if(GroupContent == "PG_NOT")
           {
               GroupContent = "PG";
           }
           
           // When a group contains mature content.
           else if(GroupContent == "M_NOT")
           {
               GroupContent = "Mature";
           }
           
           // When a group contains adult content.
           else if(GroupContent == "M_AO")
           {
               GroupContent = "Adult";
           }
           
           // If the group enrollment is open.
           if(GroupEnroll == "Y")
           {
               GroupEnroll = "Open";
           }
           
           // Else if the group enrollment is closed.
           else if(GroupEnroll == "N")
           {
               GroupEnroll = "Closed";
           }
           
           // Make a temporary list with the group variables.
           list info = [GroupName, "Content: " + GroupContent, "Enrollment: " + GroupEnroll, "Join fee: L$" + (string)GroupFee, "Members: " + (string)GroupCount];
           
           // Say the group information plus the link to the group.
           llSay(0, llDumpList2String(info, " || ") + "\nsecondlife:///app/group/" + (string)GroupKey + "/about");
       }
       // Triggered when show in search is disabled.
       else if(status == 404)
       {
           llSay(0, "This group has \"Show in search\" disabled, Information cannot be retrieved.");
       }
       
       // If the request has timed out (60 Seconds).
       else if(status == 499)
       {
           llSay(0, "Group information request has timed out.");
       }
   }

} </lsl>


Group Information (With Dialog)

<lsl> //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=// // // // Group Information script v1.0 // // With dialog menu // // Created by: Tyrennic Rivera // // Finished on: June 10 2009 // // All Rights Reserved // // // // This script is free software: you can redistribute it and/or modify // // it under the terms that you share this script with other people. // // - You are allowed to use this script in your products however the // // script may not be sold stand alone under any circumstance. // // - If you give this script to other people please give the original // // script with this license. // // // // http://creativecommons.org/licenses/by-sa/3.0/ // // // //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//

key GroupKey; // Key of the group. string GroupName; // The name of the group. string GroupEnroll; // The group enrollment (open or closed). string GroupContent; // Group contents (PG, Mature or Adult). integer GroupFee; // Group fee, How much to pay to join the group. integer GroupCount; // The number of members in the group (Includes owners). key agent; integer listener;

default {

   state_entry()
   {
       llSetObjectName("Group Information");
   }
   
   touch_start(integer total_number)
   {
       // Save the group key for later use.
       GroupKey = llList2Key(llGetObjectDetails(llGetKey(), [OBJECT_GROUP]), 0);
       
       // If a group has been set on the object request group information.
       if(GroupKey != NULL_KEY)
       {
           // Save the key of the detected avatar for the dialog.
           agent = llDetectedKey(0);
           
           llHTTPRequest("http://world.secondlife.com/group/" + (string)GroupKey, [], "");
       }
       
       // If no group has been set give a error message.
       else
       {
           llSay(0, "No group has been set. You can set this in build mode under the \"general\" tab.");
       }
   }
   
   listen(integer channel, string name, key id, string message)
   {
       if(message == "Print Info")
       {
           // Make a temporary list with the group variables.
           list info = [GroupName, "Content: " + GroupContent, "Enrollment: " + GroupEnroll, "Join fee: L$" + (string)GroupFee, "Members: " + (string)GroupCount];
           
           // Say the group information plus the link to the group.
           llSay(0, llDumpList2String(info, " || ") + "\nsecondlife:///app/group/" + (string)GroupKey + "/about");
       }
       llListenRemove(listener);
   }
   
   http_response(key request_id, integer status, list metadata, string body)
   {
       // This means the page has succesfully loaded.
       if(status == 200)
       {
           // Dont edit this unless you know what you are doing!!
           integer s1 = llSubStringIndex(body, "<title>");
           integer s2 = llSubStringIndex(body, "</title>");
           integer s3 = llSubStringIndex(body, "<meta name=\"member_count\" content=\"");
           integer s4 = llSubStringIndex(body, "<meta name=\"open_enrollment\" content=\"");
           integer s5 = llSubStringIndex(body, "<meta name=\"membership_fee\" content=\"");
           integer s6 = llSubStringIndex(body, "<meta name=\"mat\" content=\"");
           
           // All the group information is saved in these variables.
           GroupName = llGetSubString(body, s1+7, s2-1);
           GroupEnroll = llGetSubString(body, s4+38, s4+38);
           GroupCount = (integer)llGetSubString(body, s3+35, s4-14);
           GroupFee = (integer)llGetSubString(body, s5+37, s6-8);
           GroupContent = llGetSubString(body, s6+26, s1-14);
           
           // When a group contains non-mature content.
           if(GroupContent == "PG_NOT")
           {
               GroupContent = "PG";
           }
           
           // When a group contains mature content.
           else if(GroupContent == "M_NOT")
           {
               GroupContent = "Mature";
           }
           
           // When a group contains adult content.
           else if(GroupContent == "M_AO")
           {
               GroupContent = "Adult";
           }
           
           // If the group enrollment is open.
           if(GroupEnroll == "Y")
           {
               GroupEnroll = "Open";
           }
           
           // Else if the group enrollment is closed.
           else if(GroupEnroll == "N")
           {
               GroupEnroll = "Closed";
           }
           
           // Open a listenener on channel -1.
           listener = llListen(-1, "", agent, "");
           
           // Give the dialog to the avatar who touched the prim.
           llDialog(agent, "\nGroup: " + GroupName +
           "\nContent: " + GroupContent +
           "\nEnrollment: "+ GroupEnroll +
           "\nGroup Fee: L$" + (string)GroupFee +
           "\nMembers: " + (string)GroupCount, ["OK","Print Info"], -1);
       }
       // Triggered when show in search is disabled.
       else if(status == 404)
       {
           llSay(0, "This group has \"Show in search\" disabled, Information cannot be retrieved.");
       }
       
       // If the request has timed out (60 Seconds).
       else if(status == 499)
       {
           llSay(0, "Group information request has timed out.");
       }
   }

} </lsl>