Difference between revisions of "Unpacker On Rez (NewAge)"

From Second Life Wiki
Jump to navigation Jump to search
m (<lsl> tag to <source>)
 
(4 intermediate revisions by 2 users not shown)
Line 3: Line 3:
Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section
Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section


<lsl>
<source lang="lsl2">
/////////////////////////////////
// NewAge Auto Unpacker Script
// NewAge Unpacker On Touch Script
// By Asia Snowfall
// By Asia Snowfall
// Version 1.1
/////////////////////////////////
// V1.1
// ------
// (Fixed) No Inventory Bug - Will no longer script error if there are no items to send, it will just show as a fail to the user
/////////////////////////////////
// V1.0
// ------
// (Initial Release)
/////////////////////////////////
// Configure;
string Folder_Name = "New Folder"; // This will be the name of the folder sent to the user
string Show_Name_Of_Folder_On_Completion = "Yes"; // Change to No to not show the folder name when sent
string Show_Name_Message_On_Completion = "Folder will be named <folder>"; // If you have sent Show_Name_Of_Folder_On_Completion to Yes, change this message to however you want, Where you place the tag <folder> is where it will show folder name


string Hover_Text = "Click Me To Unpack Me"; // This text will show above the object to let the user know to click the object
string nameOfFolderToBeCreated;
   
string messageToSendUponRez;
string Message_On_Rez = "Sending your package now..."; // Message sent when object is rezzed
integer addThisScriptToFolder;
integer typeOfInventoryItemsToBeSent;
string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete
integer killAfterCompletion;
string Send_This_Script_To_Package_Owner = "No"; // Change to yes if you want this script to be sent to the user within the package folder
string Delete_On_Completion = "Yes"; // Change to no if you don't want the object to delete itself after package is sent


string Message_On_Fail_No_Items_To_Send = "Sending Failing, No items to send"; // Will only show if there are no items to send
init()
/////////////////////////////////
integer INVENTORY_TYPE = INVENTORY_ALL;
integer FAIL = FALSE;
/////////////////////////////////
key llGetObjectOwner()
{
{
     list details = llGetObjectDetails(llGetKey(), [OBJECT_OWNER]);
     nameOfFolderToBeCreated      = llGetObjectName();//  do not use an empty string
     return (key)llList2CSV(details);
    messageToSendUponRez        = "";//  leave empty to not send a message upon rez
    typeOfInventoryItemsToBeSent = INVENTORY_ALL;//  use INVENTORY_ALL to not apply a filter
    addThisScriptToFolder        = FALSE;
     killAfterCompletion          = TRUE;
}
}
 
llSendInventory(key id, integer inventory_type)
try_to_send_items(key inputKey, integer inputType)
{
{
     integer i = 0;
     integer numberOfItems = llGetInventoryNumber(inputType);
     integer items = llGetInventoryNumber(inventory_type);
     string  thisScript    = llGetScriptName();
     list to_send;
    string  itemName;
     string name;
     list   listOfItemsToSend;
 
     integer index;
     do
     do
     {
     {
         name = llGetInventoryName(inventory_type, i);
         itemName = llGetInventoryName(inputType, index);
         if(llStringLength(name) > 0)
 
         if(itemName != "")
         {
         {
             if(name == llGetScriptName() && llToLower(Send_This_Script_To_Package_Owner) == "yes")
             if(addThisScriptToFolder && itemName == thisScript)
            {
                 listOfItemsToSend += [itemName];
                 to_send += name;
 
            }
             else if(itemName != thisScript)
             else if(name != llGetScriptName())
                 listOfItemsToSend += [itemName];
            {
                 to_send += name;
            }
         }
         }
     }while(i++<items);
     }
     if(llGetListLength(to_send) > 0)
    while(++index < numberOfItems);
 
//  change to number of items in list now
    numberOfItems = llGetListLength(listOfItemsToSend);
 
     if(numberOfItems)
     {
     {
        FAIL = FALSE;
         llGiveInventoryList(inputKey, nameOfFolderToBeCreated, listOfItemsToSend);
         llGiveInventoryList(llGetObjectOwner(), Folder_Name, to_send);
         llInstantMessage(inputKey,
         llInstantMessage(llGetObjectOwner(), Message_On_Sent_Completion);
                    "/me [" + thisScript + "]: Items have been sent into a folder named '"
                    + nameOfFolderToBeCreated + "' within your inventory.");
     }
     }
     else
     else
    {
         llInstantMessage(inputKey,
        FAIL = TRUE;
            "/me [" + thisScript + "]: Could not find inventory items to send!");
         llInstantMessage(llGetObjectOwner(), Message_On_Fail_No_Items_To_Send);
    }
}
}
 
default
default
{
{
     on_rez(integer x)
     on_rez(integer start_param)
     {
     {
         llInstantMessage(llGetObjectOwner(), Message_On_Rez);
         init();
        llSendInventory(llGetObjectOwner(), INVENTORY_TYPE);
 
        if(llToLower(Show_Name_Of_Folder_On_Completion) == "yes" && FAIL == FALSE)
         key owner = llGetOwner();
         {
 
            integer index = llSubStringIndex(Show_Name_Message_On_Completion, "<folder>");
        if (messageToSendUponRez != "")
            string message;
             llInstantMessage(owner, messageToSendUponRez);
            if(index != -1)
 
             {
        try_to_send_items(owner, typeOfInventoryItemsToBeSent);
                message = llDeleteSubString(Show_Name_Message_On_Completion, index, index + llStringLength(Show_Name_Message_On_Completion)-1);
 
                message += Folder_Name;
         if (killAfterCompletion)
            }
            else
            {
                message = Show_Name_Message_On_Completion;
            }
            llInstantMessage(llGetObjectOwner(), message);
        }
         if(llToLower(Delete_On_Completion) == "yes")
        {
             llDie();
             llDie();
        }
     }
     }
}
}
 
</source>
</lsl>

Latest revision as of 09:15, 25 January 2015

NewAge Auto Unpacker v1.1

Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section 

//  NewAge Auto Unpacker Script
//  By Asia Snowfall

string  nameOfFolderToBeCreated;
string  messageToSendUponRez;
integer addThisScriptToFolder;
integer typeOfInventoryItemsToBeSent;
integer killAfterCompletion;

init()
{
    nameOfFolderToBeCreated      = llGetObjectName();//  do not use an empty string
    messageToSendUponRez         = "";//  leave empty to not send a message upon rez
    typeOfInventoryItemsToBeSent = INVENTORY_ALL;//  use INVENTORY_ALL to not apply a filter
    addThisScriptToFolder        = FALSE;
    killAfterCompletion          = TRUE;
}

try_to_send_items(key inputKey, integer inputType)
{
    integer numberOfItems = llGetInventoryNumber(inputType);
    string  thisScript    = llGetScriptName();
    string  itemName;
    list    listOfItemsToSend;

    integer index;
    do
    {
        itemName = llGetInventoryName(inputType, index);

        if(itemName != "")
        {
            if(addThisScriptToFolder && itemName == thisScript)
                listOfItemsToSend += [itemName];

            else if(itemName != thisScript)
                listOfItemsToSend += [itemName];
        }
    }
    while(++index < numberOfItems);

//  change to number of items in list now
    numberOfItems = llGetListLength(listOfItemsToSend);

    if(numberOfItems)
    {
        llGiveInventoryList(inputKey, nameOfFolderToBeCreated, listOfItemsToSend);
        llInstantMessage(inputKey,
                    "/me [" + thisScript + "]: Items have been sent into a folder named '"
                    + nameOfFolderToBeCreated + "' within your inventory.");
    }
    else
        llInstantMessage(inputKey,
            "/me [" + thisScript + "]: Could not find inventory items to send!");
}

default
{
    on_rez(integer start_param)
    {
        init();

        key owner = llGetOwner();

        if (messageToSendUponRez != "")
            llInstantMessage(owner, messageToSendUponRez);

        try_to_send_items(owner, typeOfInventoryItemsToBeSent);

        if (killAfterCompletion)
            llDie();
    }
}
Retrieved from "https://wiki.secondlife.com/w/index.php?title=Unpacker_On_Rez_(NewAge)&oldid=1195187"