1st necessity of SL - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T02:10:57Z

← Older revision		Revision as of 19:10, 24 January 2015
Line 7:		Line 7:
	[[https://wiki.secondlife.com/wiki/User:Beer_Dailey Beer Dailey]]		[[https://wiki.secondlife.com/wiki/User:Beer_Dailey Beer Dailey]]

	<~~lsl~~>		<source lang="lsl2">
	// Improve SecondLife's performance!		// Improve SecondLife's performance!
	// Start with your own(ned) modifyable scripts/objects.		// Start with your own(ned) modifyable scripts/objects.
Line 115:		Line 115:

	}		}
	</~~lsl~~>		</source>

Beer Dailey: Undo revision 1173203 by Kireji Haiku (Talk)

2012-12-19T15:40:13Z

Undo revision 1173203 by Kireji Haiku (Talk)

Show changes

Kireji Haiku: rewrote example script

2012-10-07T19:56:32Z

rewrote example script

Show changes

Beer Dailey at 05:55, 26 March 2010

2010-03-26T05:55:43Z

← Older revision		Revision as of 22:55, 25 March 2010
Line 8:		Line 8:

	<lsl>		<lsl>
	~~// Updated @ march 2010 to v3.~~
	//
	// Improve SecondLife's performance!		// Improve SecondLife's performance!
	// Start with your own(ned) modifyable scripts/objects.		// Start with your own(ned) modifyable scripts/objects.
Line 35:		Line 33:

	// added		// added
	// ~~ignore~~ specific scripts, some scripts need to be off after initial setups		// (gnore specific scripts, some scripts need to be off after initial setups
			// There's a bug that resets scripts in off state after a sim restart, so when activated again they re-initialise.
			// I've no fix for that.
			//
	list ignore_scripts = ["major script", "even worse script"];		list ignore_scripts = ["major script", "even worse script"];

Line 57:		Line 58:
	{		{
	llSetScriptState(llList2String(control_scripts, a), g_active); //(de)activate scripts		llSetScriptState(llList2String(control_scripts, a), g_active); //(de)activate scripts
	if (debug) llOwnerSay("Changed: " + llList2CSV(control_scripts) + " to: " + (string)g_active );
	}		}
			if (debug) llOwnerSay("Changed: " + llList2CSV(control_scripts) + " to: " + (string)g_active );
	}		}

Line 78:		Line 80:
	if(name != myname) //not my name then continue		if(name != myname) //not my name then continue
	{		{
	//~~if (llListFindList(ignore_these, [name]) == -1) &&~~		//catch states
	if ( llGetScriptState(name) == TRUE) //not on ignore list & running add it		if ( llGetScriptState(name) == TRUE) //not on ignore list & running add it
	{		{
Line 113:		Line 115:

	}		}
	</lsl>		</lsl>

Beer Dailey at 08:22, 13 March 2010

2010-03-13T08:22:23Z

← Older revision		Revision as of 01:22, 13 March 2010
Line 31:		Line 31:

	//////////////////////////////////		//////////////////////////////////
	float distance = 5; // scan range		float distance = 48; // scan range
	integer delay = 5; // repeat scan every 2 seconds.		integer delay = 10; // repeat scan every 10 seconds.

	// added		// added

Beer Dailey at 08:21, 13 March 2010

2010-03-13T08:21:24Z

← Older revision		Revision as of 01:21, 13 March 2010
Line 8:		Line 8:

	<lsl>		<lsl>
			// Updated @ march 2010 to v3.
			//
	// Improve SecondLife's performance!		// Improve SecondLife's performance!
	// Start with your own(ned) modifyable scripts/objects.		// Start with your own(ned) modifyable scripts/objects.

Beer Dailey at 08:20, 13 March 2010

2010-03-13T08:20:05Z

← Older revision		Revision as of 01:20, 13 March 2010
Line 19:		Line 19:
	//		//
	// Free to use, please use it. Improvements are welcome.		// Free to use, please use it. Improvements are welcome.
			// // Thank you Norton Burns for the testing and feedback :)
	//		//
	// Beer Dailey		// Beer Dailey
			//
			// Don't reset this script or take it back in inventory when you're not within the set distance
			// or you'll get unpredictable results !!
			//
			// modify below to suit your needs

	~~// modify below to suit your needs~~
	//////////////////////////////////		//////////////////////////////////
	float distance = 20; // scan range		float distance = 5; // scan range
	integer delay = 2; // repeat scan every 2 seconds.		integer delay = 5; // repeat scan every 2 seconds.
	~~list ignore_these = ["major script", "even worse script"];~~
	~~//ignore specific scripts, some scripts need to be off after initial setups, thank you Norton Burns for the testing and feedback :)~~

			// added
			// ignore specific scripts, some scripts need to be off after initial setups
			list ignore_scripts = ["major script", "even worse script"];

			integer debug = FALSE; // for debugging purposes, set it to TRUE to see what it's controlling


			//////////////////////////////////////
			// no need to modify the code below //
			//////////////////////////////////////

	~~// no need to modify the code below~~
	~~///////////////////////////////////~~
	integer g_active = FALSE; // if FALSE disable all other scripts		integer g_active = FALSE; // if FALSE disable all other scripts
	// changed TRUE into FALSE cos of some bug with rezzing, thank you LordGregGreg Back :)		// changed TRUE into FALSE cos of some bug with rezzing, thank you LordGregGreg Back :)
	list ~~all_scripts~~; // list for all scriptnames		list control_scripts; // list for all scriptnames

	active_scripts( integer active )		active_scripts( integer active )
	{		{
	if(g_active == active) return;		if(g_active == active) return; else g_active = active; //flip TRUE/FALSE

	g_active = active; //flip TRUE/FALSE

	integer a;		integer a;
	for ( a = 0; a < llGetListLength(~~all_scripts~~); a++)		for ( a = 0; a < llGetListLength(control_scripts); a++)
	{		{
	llSetScriptState(llList2String(~~all_scripts~~, a),~~active~~); //(de)activate scripts		llSetScriptState(llList2String(control_scripts, a), g_active); //(de)activate scripts
			if (debug) llOwnerSay("Changed: " + llList2CSV(control_scripts) + " to: " + (string)g_active );
	}		}
	}		}

	default		default
	{		{
	state_entry()		state_entry()
	{		{
	string myname = llGetScriptName(); //don't add myself into the list		string myname = llGetScriptName(); //don't add myself into the list
			control_scripts = [];
	~~all_scripts~~ = [];
	integer i;		integer i;
	integer n = llGetInventoryNumber(INVENTORY_SCRIPT); //count scripts		integer n = llGetInventoryNumber(INVENTORY_SCRIPT); //count scripts

			if (n == 1) { llOwnerSay("No other scripts found!"); } else //dont be silly ;)

	for(i = 0; i < n; ++i)		for(i = 0; i < n; ++i)
	{		{
	string name = llGetInventoryName(INVENTORY_SCRIPT, i); //~~get all~~ scriptnames		string name = llGetInventoryName(INVENTORY_SCRIPT, i); //parse scriptnames
	if(name != myname) //not my name then continue		if(name != myname) //not my name then continue
	{		{
	if (llListFindList(ignore_these, [name]) == -1) //not on ignore list? add it		//if (llListFindList(ignore_these, [name]) == -1) &&
			if ( llGetScriptState(name) == TRUE) //not on ignore list & running add it
	{		{
	~~all_scripts~~ += [name];		control_scripts += [name];
	}		}
			else ignore_scripts += [name];
	}		}
	}		}
			if (debug) llOwnerSay("Controlling: " + llList2CSV(control_scripts) + "\nIgnoring: " + llList2CSV(ignore_scripts));
	~~//llSetTimerEvent~~(~~delay~~);
	llSensorRepeat("", NULL_KEY, AGENT, distance, PI, delay); // how far and how often we scan for avatars		llSensorRepeat("", NULL_KEY, AGENT, distance, PI, delay); // how far and how often we scan for avatars
	}		}

	on_rez(integer s)		on_rez(integer s)
	{		{
	llResetScript(); //first time use		if (llGetListLength(control_scripts)== 0 && g_active == TRUE) llResetScript();
			//first time use or reset only when scripts are still active or they'll be added to the ignorelist
	}		}

	changed(integer change)		changed(integer change)
	{		{
	if (change == CHANGED_INVENTORY) llResetScript(); // catch new scripts		if (change & CHANGED_OWNER) llResetScript(); // catch new owner
			if (change & CHANGED_INVENTORY) llResetScript(); // catch new scripts
	}		}

	sensor(integer num_detected)		sensor(integer num_detected)
	{		{
	active_scripts(TRUE); //activate the scripts		active_scripts(TRUE); //activate the scripts
	}		}

	no_sensor() //no-one around? turn off all scripts except myself		no_sensor() //no-one around? turn off all controlled scripts except myself
	{		{
	active_scripts(FALSE); //deactivate the scripts		active_scripts(FALSE); //deactivate the scripts
	}		}

	}		}
	</lsl>		</lsl>

Beer Dailey at 19:29, 7 March 2010

2010-03-07T19:29:03Z

← Older revision		Revision as of 12:29, 7 March 2010
Line 26:		Line 26:
	float distance = 20; // scan range		float distance = 20; // scan range
	integer delay = 2; // repeat scan every 2 seconds.		integer delay = 2; // repeat scan every 2 seconds.
	list ignore_these = ["major script", "even worse script"]; //ignore specific scripts		list ignore_these = ["major script", "even worse script"];
			//ignore specific scripts, some scripts need to be off after initial setups, thank you Norton Burns for the testing and feedback :)


	// no need to modify the code below		// no need to modify the code below

Beer Dailey at 19:26, 7 March 2010

2010-03-07T19:26:33Z

← Older revision		Revision as of 12:26, 7 March 2010
Line 26:		Line 26:
	float distance = 20; // scan range		float distance = 20; // scan range
	integer delay = 2; // repeat scan every 2 seconds.		integer delay = 2; // repeat scan every 2 seconds.
	list ignore_these = ["major script", "even worse script"];] //ignore specific scripts		list ignore_these = ["major script", "even worse script"]; //ignore specific scripts

	// no need to modify the code below		// no need to modify the code below

Beer Dailey at 18:56, 7 March 2010

2010-03-07T18:56:53Z

← Older revision		Revision as of 11:56, 7 March 2010
Line 26:		Line 26:
	float distance = 20; // scan range		float distance = 20; // scan range
	integer delay = 2; // repeat scan every 2 seconds.		integer delay = 2; // repeat scan every 2 seconds.
			list ignore_these = ["major script", "even worse script"];] //ignore specific scripts

	// no need to modify the code below		// no need to modify the code below
Line 58:		Line 59:
	{		{
	string name = llGetInventoryName(INVENTORY_SCRIPT, i); //get all scriptnames		string name = llGetInventoryName(INVENTORY_SCRIPT, i); //get all scriptnames
	if(name != myname) ~~all_scripts +=~~ [name]; //not ~~my name~~? add it		if(name != myname) //not my name then continue
			{
			if (llListFindList(ignore_these, [name]) == -1) //not on ignore list? add it
			{
			all_scripts += [name];
			}
			}
	}		}