Display Names Radar - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T02:58:54Z

← Older revision		Revision as of 19:58, 24 January 2015
Line 9:		Line 9:

	=== build script ===		=== build script ===
	<~~lsl~~>		<source lang="lsl2">
	/**************************************************		/**************************************************
	This is the script that creates the radar object.		This is the script that creates the radar object.
Line 120:		Line 120:
	}		}
	}		}
	</~~lsl~~>		</source>

	When the object is created, here is the radar script that will do the real work.		When the object is created, here is the radar script that will do the real work.
Line 132:		Line 132:

	=== radar script ===		=== radar script ===
	<~~lsl~~>		<source lang="lsl2">
	// display names avatar radar		// display names avatar radar

Line 333:		Line 333:
	}		}
	}		}
	</~~lsl~~>		</source>

	[[Category:LSL Library]]		[[Category:LSL Library]]

Cerise Sorbet: /* radar script */ SVC-4128 workaround

2011-04-28T13:50:59Z

radar script: SVC-4128 workaround

← Older revision		Revision as of 06:50, 28 April 2011
Line 213:		Line 213:
	// Take all the controls ALL the scripts in the same		// Take all the controls ALL the scripts in the same
	// object want to use or SVC-3187 will break them.		// object want to use or SVC-3187 will break them.
	llTakeControls(CONTROL_FWD, ~~FALSE~~, TRUE);		llTakeControls(CONTROL_FWD, TRUE, TRUE);
	}		}
	}		}

Cerise Sorbet at 12:12, 28 April 2011

2011-04-28T12:12:54Z

← Older revision		Revision as of 05:12, 28 April 2011
Line 3:		Line 3:
	It has a few commands you can use:		It has a few commands you can use:
	* <tt>/44 range 42</tt> will change the radar distance to 42 meters (maximum 96).		* <tt>/44 range 42</tt> will change the radar distance to 42 meters (maximum 96).
	* <tt>/44 interval 3 will change the scan poll to 3 seconds (minimum 1).		* <tt>/44 interval 3</tt> will change the scan poll to 3 seconds (minimum 1).
	* <tt>/44 scripts on</tt> will show script count and memory if the region supports it.		* <tt>/44 scripts on</tt> will show script count and memory if the region supports it.

Cerise Resident: /* radar script */

2010-12-09T01:07:05Z

radar script

← Older revision		Revision as of 18:07, 8 December 2010
Line 138:		Line 138:
	float gMaxSensorRange = 96.0; // Default maximum scanner range		float gMaxSensorRange = 96.0; // Default maximum scanner range
	float gInterval = 5.0; // Default seconds between checks		float gInterval = 5.0; // Default seconds between checks
	integer gScriptVoyeur = FALSE; // show script count amd memory?		integer gScriptVoyeur = FALSE; // show script count amd memory?

	~~// temporary fake constants until support is universal across regions~~
	~~integer gOBJECT_RUNNING_SCRIPT_COUNT = 9;~~
	~~integer gOBJECT_SCRIPT_MEMORY = 11;~~

	integer gCommandListener; // llListen results go here		integer gCommandListener; // llListen results go here
Line 148:		Line 144:

	integer gLastNumDetected = 16; // how many (if any) seen on last scan		integer gLastNumDetected = 16; // how many (if any) seen on last scan


	list gTextLines;		list gTextLines;
Line 307:		Line 302:
	if (gScriptVoyeur)		if (gScriptVoyeur)
	{		{
	list scrStats = llGetObjectDetails(k, [~~gOBJECT_RUNNING_SCRIPT_COUNT~~, ~~gOBJECT_SCRIPT_MEMORY~~]);		list scrStats = llGetObjectDetails(k, [OBJECT_RUNNING_SCRIPT_COUNT, OBJECT_SCRIPT_MEMORY]);
	integer scrBytes = llList2Integer(scrStats, 1);		integer scrBytes = llList2Integer(scrStats, 1);
	~~if (scrBytes >= 0) // can return -1 on a region that does not support it~~		integer scrMB = scrBytes >> 20;
	{		if (scrMB)
	integer scrMB = scrBytes >> 20;		status += [" • ", llList2Integer(scrStats, 0), " @ ", scrMB, "M"];
	if (scrMB)		else
	{		status += [" • ", llList2Integer(scrStats, 0), " @ ", scrBytes >> 10, "K"];
	status += [" • ", llList2Integer(scrStats, 0), " @ ", scrMB, "M"];
	}
	else
	{
	status += [" • ", llList2Integer(scrStats, 0), " @ ", scrBytes >> 10, "K"];
	}
	}
	}		}

Cerise Resident: /* radar script */

2010-12-03T06:46:02Z

radar script

← Older revision		Revision as of 23:46, 2 December 2010
Line 138:		Line 138:
	float gMaxSensorRange = 96.0; // Default maximum scanner range		float gMaxSensorRange = 96.0; // Default maximum scanner range
	float gInterval = 5.0; // Default seconds between checks		float gInterval = 5.0; // Default seconds between checks
	integer gScriptVoyeur = FALSE; // show script count amd memory?		integer gScriptVoyeur = FALSE; // show script count amd memory?

	// temporary fake constants until support is ~~unoversal~~ across regions		// temporary fake constants until support is universal across regions
	integer gOBJECT_RUNNING_SCRIPT_COUNT = 9;		integer gOBJECT_RUNNING_SCRIPT_COUNT = 9;
	integer gOBJECT_SCRIPT_MEMORY = 11;		integer gOBJECT_SCRIPT_MEMORY = 11;

Cerise Resident: + script memory voyeur

2010-12-03T06:45:11Z

+ script memory voyeur

@@ Line 1: / Line 1: @@
 Here is a simple HUD type avatar radar that can show [[display names]]. This can be useful while some viewers support them and others do not.
 First you will need to create a suitable HUD object. Use this first script to do that. It will ask for link permission, grant it.
@@ Line 133: / Line 138: @@
 float gMaxSensorRange = 96.0;           // Default maximum scanner range
 float gInterval = 5.0;                  // Default seconds between checks
+integer gScriptVoyeur = FALSE;          // show script count amd memory?
 integer gCommandListener;               // llListen results go here
 float gSensorRange = gMaxSensorRange;   // sensor range in use right now
@@ Line 232: / Line 242: @@
              llOwnerSay("The sensor poll interval is " + (string)gInterval + " seconds now.");
              llSetTimerEvent(gInterval);
+         }
+     }
@@ Line 279: / Line 303: @@
                      if (llToLower(dispName) != llToLower(legName))
                          showName = dispName + " (" + llGetUsername(k) + ")";
+                 status = [showName, " ", (integer)theirDistance , "m"];
                  status = [showName, " ", (integer)theirDistance];
                  llSetLinkPrimitiveParamsFast(llList2Integer(gPrims, i), [

Cerise Resident: /* radar script */ llGetUsername can return "" too, yay?

2010-11-30T01:45:56Z

radar script: llGetUsername can return "" too, yay?

← Older revision		Revision as of 18:45, 29 November 2010
Line 276:		Line 276:
	string showName = legName;		string showName = legName;
	string dispName = llGetDisplayName(k);		string dispName = llGetDisplayName(k);
	if (llToLower(dispName) != llToLower(legName))		if (dispName)
	showName = dispName + " (" + llGetUsername(k) + ")";		if (llToLower(dispName) != llToLower(legName))
			showName = dispName + " (" + llGetUsername(k) + ")";

	status = [showName, " ", (integer)theirDistance];		status = [showName, " ", (integer)theirDistance];

Cerise Resident: /* radar script */

2010-11-30T00:07:45Z

radar script

← Older revision		Revision as of 17:07, 29 November 2010
Line 137:		Line 137:
	float gSensorRange = gMaxSensorRange; // sensor range in use right now		float gSensorRange = gMaxSensorRange; // sensor range in use right now

	integer gLastNumDetected; // how many (if any) seen on last scan		integer gLastNumDetected = 16; // how many (if any) seen on last scan

Cerise Resident: /* radar script */

2010-11-30T00:05:26Z

radar script

← Older revision		Revision as of 17:05, 29 November 2010
Line 136:		Line 136:
	integer gCommandListener; // llListen results go here		integer gCommandListener; // llListen results go here
	float gSensorRange = gMaxSensorRange; // sensor range in use right now		float gSensorRange = gMaxSensorRange; // sensor range in use right now

			integer gLastNumDetected; // how many (if any) seen on last scan

	~~integer gWasNone = FALSE;~~

	list gTextLines;		list gTextLines;
	list gPrims;		list gPrims;
Line 237:		Line 238:
	no_sensor()		no_sensor()
	{		{
	if (~~!gWasNone~~)		if (gLastNumDetected)
	{		{
	llSetText("0 in " + (string)((integer) gSensorRange) + "m", <0.,0.,0.>, gTextAlpha);		llSetText("0 in " + (string)((integer) gSensorRange) + "m", <0.,0.,0.>, gTextAlpha);
Line 246:		Line 247:
	1.		1.
	]);		]);
	~~gWasNone~~ = ~~TRUE~~;		gLastNumDetected = 0;
	}		}

Line 255:		Line 256:
	llSensor("", "", AGENT, gSensorRange, PI);		llSensor("", "", AGENT, gSensorRange, PI);
	}		}

	sensor(integer num)		sensor(integer num)
	{		{
	~~gWasNone = FALSE;~~
	list statList = [];		list statList = [];
	vector myPos = llGetPos();		vector myPos = llGetPos();
Line 270:		Line 270:
	if (theirDistance <= gSensorRange) {		if (theirDistance <= gSensorRange) {
	key k = llDetectedKey(i);		key k = llDetectedKey(i);
	string ~~displayName = llGetDisplayName(k);~~		string legName = llDetectedName(i);
	~~string legacyName~~ = llDetectedName(i);		list nameParts = llParseString2List(legName, [" "], []);
	list ~~splitName~~ = llParseString2List(~~legacyName~~, [" "], []);		if (llList2String(nameParts, 1) == "Resident")
	~~if (displayName == "") {~~		legName = llList2String(nameParts, 0);
	if (llList2String(~~splitName~~, 1) == "Resident")		string showName = legName;
	~~status~~ = [llList2String(~~splitName~~, 0)~~, " ", (integer)theirDistance]~~;		string dispName = llGetDisplayName(k);
	~~else~~		if (llToLower(dispName) != llToLower(legName))
	~~status~~ = ~~[legacyName, " ",~~ (~~integer~~)~~theirDistance]~~;		showName = dispName + " (" + llGetUsername(k) + ")";
	}
	~~else~~ if (~~legacyName == displayName \|\|~~ llToLower(~~displayName~~) == llToLower(~~legacyName~~))		status = [showName, " ", (integer)theirDistance];
	~~status~~ = ~~[displayName,~~ " ", (~~integer~~)~~theirDistance]~~;
	~~else~~
	status = [~~displayName, " (", llGetUsername(k)~~, ") ", (integer)theirDistance];

	llSetLinkPrimitiveParamsFast(llList2Integer(gPrims, i), [		llSetLinkPrimitiveParamsFast(llList2Integer(gPrims, i), [
Line 294:		Line 291:
	@endloop;		@endloop;

	for (; i < 16; i++)		for (; i < gLastNumDetected; i++)
	{		{
	llSetLinkPrimitiveParamsFast(llList2Integer(gPrims, i), [		llSetLinkPrimitiveParamsFast(llList2Integer(gPrims, i), [
Line 302:		Line 299:
	]);		]);
	}		}
			gLastNumDetected = num;
	llSetText("(" + (string)((integer)gSensorRange) + "m) " + (string)num, <1.0, 1.0, 1.0>, gTextAlpha);		llSetText("(" + (string)((integer)gSensorRange) + "m) " + (string)num, <1.0, 1.0, 1.0>, gTextAlpha);
	}		}
	}		}

	</lsl>		</lsl>

	[[Category:LSL Library]]		[[Category:LSL Library]]

Cerise Resident: /* radar script */ find-replace shall kill me

2010-11-22T00:21:19Z

radar script: find-replace shall kill me

← Older revision		Revision as of 17:21, 21 November 2010
Line 255:		Line 255:
	llSensor("", "", AGENT, gSensorRange, PI);		llSensor("", "", AGENT, gSensorRange, PI);
	}		}

	sensor(integer num)		sensor(integer num)
	{		{
Line 279:		Line 279:
	status = [legacyName, " ", (integer)theirDistance];		status = [legacyName, " ", (integer)theirDistance];
	}		}
	else if (legacyName == displayName \|\| llToLower(displayName) == llToLower(~~llList2String(splitName, 0)~~))		else if (legacyName == displayName \|\| llToLower(displayName) == llToLower(legacyName))
	status = [displayName, " ", (integer)theirDistance];		status = [displayName, " ", (integer)theirDistance];
	else		else
Line 305:		Line 305:
	}		}
	}		}

	</lsl>		</lsl>

	[[Category:LSL Library]]		[[Category:LSL Library]]