Unpacker On Rez (NewAge) - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T17:15:28Z

← Older revision		Revision as of 10:15, 25 January 2015
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 Auto Unpacker Script
	// By Asia Snowfall		// By Asia Snowfall
Line 77:		Line 77:
	}		}
	}		}
	</~~lsl~~>		</source>

Kireji Haiku at 17:04, 21 January 2014

2014-01-21T17:04:43Z

← Older revision		Revision as of 10:04, 21 January 2014
Line 50:		Line 50:
	if(numberOfItems)		if(numberOfItems)
	{		{
	llGiveInventoryList(inputKey, ~~nameOfCreatedFolder~~, listOfItemsToSend);		llGiveInventoryList(inputKey, nameOfFolderToBeCreated, listOfItemsToSend);
	llInstantMessage(inputKey,		llInstantMessage(inputKey,
	"/me [" + thisScript + "]: Items have been sent into a folder named '"		"/me [" + thisScript + "]: Items have been sent into a folder named '"

Kireji Haiku at 11:28, 21 January 2014

2014-01-21T11:28:47Z

← Older revision		Revision as of 04:28, 21 January 2014
Line 4:		Line 4:

	<lsl>		<lsl>
	// NewAge Auto Unpacker Script		// NewAge Auto Unpacker Script
	// By Asia Snowfall		// By Asia Snowfall
	string nameOfFolderToBeCreated;
	string messageToSendUponRez;		string nameOfFolderToBeCreated;
			string messageToSendUponRez;
	integer addThisScriptToFolder;		integer addThisScriptToFolder;
	integer typeOfInventoryItemsToBeSent;		integer typeOfInventoryItemsToBeSent;
Line 14:		Line 15:
	init()		init()
	{		{
	// do not use an empty string		nameOfFolderToBeCreated = llGetObjectName();// do not use an empty string
	~~nameOfFolderToBeCreated~~ = ~~llGetObjectName()~~;		messageToSendUponRez = "";// leave empty to not send a message upon rez
			typeOfInventoryItemsToBeSent = INVENTORY_ALL;// use INVENTORY_ALL to not apply a filter
	// leave empty to not send a message upon rez		addThisScriptToFolder = FALSE;
	~~messageToSendUponRez~~ = "";		killAfterCompletion = TRUE;

	// use INVENTORY_ALL to not apply a filter
	~~typeOfInventoryItemsToBeSent = INVENTORY_ALL;~~

	addThisScriptToFolder = FALSE;

	killAfterCompletion = TRUE;
	}		}

Line 31:		Line 25:
	{		{
	integer numberOfItems = llGetInventoryNumber(inputType);		integer numberOfItems = llGetInventoryNumber(inputType);
			string thisScript = llGetScriptName();
			string itemName;
			list listOfItemsToSend;

	~~string thisScript = llGetScriptName();~~		integer index;
	~~string itemName;~~
	~~list listOfItemsToSend;~~

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

	if(itemName != "")		if(itemName != "")
Line 50:		Line 43:
	}		}
	}		}
	while(++i < numberOfItems);		while(++index < numberOfItems);

	// change to number of items in list now		// change to number of items in list now
Line 71:		Line 64:
	on_rez(integer start_param)		on_rez(integer start_param)
	{		{
			init();

	key owner = llGetOwner();		key owner = llGetOwner();

Kireji Haiku: some minor improvements

2012-10-18T19:14:11Z

some minor improvements

Show changes

Asia Snowfall at 05:01, 22 July 2010

2010-07-22T05:01:39Z

← Older revision		Revision as of 22:01, 21 July 2010
Line 5:		Line 5:
	<lsl>		<lsl>
	/////////////////////////////////		/////////////////////////////////
	// NewAge Unpacker ~~On Touch~~ Script		// NewAge Auto Unpacker Script
	// By Asia Snowfall		// By Asia Snowfall
	// Version 1.1		// Version 1.1

Asia Snowfall at 05:00, 22 July 2010

2010-07-22T05:00:37Z

← Older revision		Revision as of 22:00, 21 July 2010
Line 1:		Line 1:
	'''NewAge Auto Unpacker v1.0'''		'''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		Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section
Line 5:		Line 5:
	<lsl>		<lsl>
	/////////////////////////////////		/////////////////////////////////
	// NewAge ~~Auto~~ Unpacker Script		// NewAge Unpacker On Touch Script
	// By Asia Snowfall		// By Asia Snowfall
	// Version 1.0		// 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;		// Configure;

	string Folder_Name = "New Folder"; // This will be the name of the folder sent to the user		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_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 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 Message_On_Rez = "Sending your package now..."; // Message sent when object is rezzed		string Message_On_Rez = "Sending your package now..."; // Message sent when object is rezzed

	string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete		string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete

	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 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 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

	/////////////////////////////////		/////////////////////////////////
	integer INVENTORY_TYPE = INVENTORY_ALL;		integer INVENTORY_TYPE = INVENTORY_ALL;
			integer FAIL = FALSE;


	/////////////////////////////////		/////////////////////////////////

	key llGetObjectOwner()		key llGetObjectOwner()
	{		{
Line 37:		Line 50:
	return (key)llList2CSV(details);		return (key)llList2CSV(details);
	}		}

	llSendInventory(key id, integer inventory_type)		llSendInventory(key id, integer inventory_type)
	{		{
Line 59:		Line 72:
	}		}
	}while(i++<items);		}while(i++<items);
	llGiveInventoryList(llGetObjectOwner(), Folder_Name, to_send);		if(llGetListLength(to_send) > 0)
	llInstantMessage(llGetObjectOwner(), ~~Message_On_Sent_Completion~~);		{
			FAIL = FALSE;
			llGiveInventoryList(llGetObjectOwner(), Folder_Name, to_send);
			llInstantMessage(llGetObjectOwner(), Message_On_Sent_Completion);
			}
			else
			{
			FAIL = TRUE;
			llInstantMessage(llGetObjectOwner(), Message_On_Fail_No_Items_To_Send);
			}
	}		}

	default		default
	{		{
Line 69:		Line 91:
	llInstantMessage(llGetObjectOwner(), Message_On_Rez);		llInstantMessage(llGetObjectOwner(), Message_On_Rez);
	llSendInventory(llGetObjectOwner(), INVENTORY_TYPE);		llSendInventory(llGetObjectOwner(), INVENTORY_TYPE);
	if(llToLower(Show_Name_Of_Folder_On_Completion) == "yes")		if(llToLower(Show_Name_Of_Folder_On_Completion) == "yes" && FAIL == FALSE)
	{		{
	integer index = llSubStringIndex(Show_Name_Message_On_Completion, "<folder>");		integer index = llSubStringIndex(Show_Name_Message_On_Completion, "<folder>");
Line 90:		Line 112:
	}		}
	}		}

	</lsl>		</lsl>

Asia Snowfall at 19:05, 21 July 2010

2010-07-21T19:05:12Z

← Older revision		Revision as of 12:05, 21 July 2010
Line 22:		Line 22:
	string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete		string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete

	string Send_This_Script_To_Package_Owner = "~~yes~~"; // Change to yes if you want this script to be sent to the user within the package folder		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 Delete_On_Completion = "Yes"; // Change to no if you don't want the object to delete itself after package is sent

Asia Snowfall: Created page with ''''NewAge Auto Unpacker v1.0''' Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section /////...'

2010-07-21T19:00:11Z

Created page with ''''NewAge Auto Unpacker v1.0''' Just copy and paste this script into your object that will contain your product and configure the few lines in // Configure; section <lsl> /////...'

New page

'''NewAge Auto Unpacker v1.0'''

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

<lsl>
/////////////////////////////////
// NewAge Auto Unpacker Script
// By Asia Snowfall
// Version 1.0
/////////////////////////////////

// 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 Message_On_Rez = "Sending your package now..."; // Message sent when object is rezzed

string Message_On_Sent_Completion = "Your package has been sent to you"; // Message sent when sending is complete

string Send_This_Script_To_Package_Owner = "yes"; // 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

/////////////////////////////////
integer INVENTORY_TYPE = INVENTORY_ALL;

/////////////////////////////////

key llGetObjectOwner()
{
list details = llGetObjectDetails(llGetKey(), [OBJECT_OWNER]);
return (key)llList2CSV(details);
}

llSendInventory(key id, integer inventory_type)
{
integer i = 0;
integer items = llGetInventoryNumber(inventory_type);
list to_send;
string name;
do
{
name = llGetInventoryName(inventory_type, i);
if(llStringLength(name) > 0)
{
if(name == llGetScriptName() && llToLower(Send_This_Script_To_Package_Owner) == "yes")
{
to_send += name;
}
else if(name != llGetScriptName())
{
to_send += name;
}
}
}while(i++<items);
llGiveInventoryList(llGetObjectOwner(), Folder_Name, to_send);
llInstantMessage(llGetObjectOwner(), Message_On_Sent_Completion);
}

default
{
on_rez(integer x)
{
llInstantMessage(llGetObjectOwner(), Message_On_Rez);
llSendInventory(llGetObjectOwner(), INVENTORY_TYPE);
if(llToLower(Show_Name_Of_Folder_On_Completion) == "yes")
{
integer index = llSubStringIndex(Show_Name_Message_On_Completion, "<folder>");
string message;
if(index != -1)
{
message = llDeleteSubString(Show_Name_Message_On_Completion, index, index + llStringLength(Show_Name_Message_On_Completion)-1);
message += Folder_Name;
}
else
{
message = Show_Name_Message_On_Completion;
}
llInstantMessage(llGetObjectOwner(), message);
}
if(llToLower(Delete_On_Completion) == "yes")
{
llDie();
}
}
}
</lsl>