User:JTBarnabas Resident

Unique(ish) Indentifiers

My challenge was to produce a script that allowed each avatar to interact with the scripted object in a particular way only one time and after that to interact with it in a different way.

In order to do this I needed to come up with a unique identifier for each avatar that used the scripted object. There are already 2 unique identifiers in second life, the UUID and the avatar name and I considered both as sources for my unique identifier.

Avatar names can be up to 31 alphanumeric characters and legacy names can have a last name that is the same possible size. There is a database of all the last names ever used in SL available from SLNameWatch.com. I saved all 109 pages of them to my computer and concatenated them into a list of 10,889 names and did some analysis.

The longest last name in second life is only 19 characters and no name had any significant characters beyond the 13th. I further discovered there were only 3 names which contained numerals and those names only contained one numeral and the location of the numeral was not the same in any of the names. This would reduce the range of characters from 36 to 27 if one allowed for a single value to stand for any non-alphabetic character in a name.

I eventually rejected names. In order to use them I would either have to accept variable identifier lengths or encode them so all were the same length as the longest thus defeating the purpose of using them, specifically to find a more compact, less memory expensive unique identifier.

So, that left me with UUIDs. Stored in a list as a key they require 110 bytes per UUID. Storage as string reduces this by 20 bytes per string but that is still a very large record size. Even stripping out the dashes only reduces them by 8 bytes. However, those remaining 32 characters are hexadecimals and by converting them to integers I knew I could find a more compact way to store them.

My first idea was to convert them to conventional string data using something like this:

	integer count = 5;
	integer data = integerValueOfFirst7HexCharacters;
	while (data)
	{
		makeSymbol(data % 1114111);
		data = (data / 1114111);
		if (data < 1114111 && count)
		{
			data += integerValueOf5MoreHexCharacters * 1114111;
			--count;
		}
	}

where makeSymbol was a function to convert the number to a UTF-16 symbol. The problem with this approach was each symbol could be 2 or 4 bytes and again I would have the problem of variable record lengths necessitating the use of a list.

I thought of something I later learned was sometimes called base32768 encoding. It is a method of storing 15 bits of data as a UTF-8 character. Each UTF-8 character requires exactly 2 bytes so I could eliminate the variable record size *and* bring the storage efficiency from 83.70% to 93.75%

Using base32768 encoding allowed me to reduce a 36 character UUID to just 9 characters *and* allowed me to store them in something like a strided string what I like to call a straddle.

I discussed ways to reduce storage space with the good folks in the Scripting Academy group chat. One of them, The Scripter (Silvermane Mode), who runs one of the largest Name2Key databases in SL, informed me converting the first 5 characters of the UUID produced a hash that has not clashed (produced identical results) in his list of over 400,000 avatars and I had decided to trust his years of experience and use the same while I was still using the base1114111 encoding; however, after deciding to use the base32768 encoding I realized I could use the first 7 characters in the UUID to produce 2 UTF-8 characters decreasing the chance of hash clash by over 94.6%.

While considering ways to further compact my storage requirements I realized there were unused bits and I could use those bits to make the first character different from any of the following characters by simply shifting them all up one bit (e.g. multiply by 2) and adding 1 to only the first character. I will call this base0x4000+1 encoding.

By doing this I will be able to eliminate the need to use llGetSubString and simplify the search routine using llSubStringIndex. Adding a bitwise not (~) I can pass it as the parameter of a conditional reducing the code space needed to work with the unique identifiers in my script even further. However, to store the full UUID in a form that it is retrievable will require 10 string characters using base0x4000+1 encoding.

If all UUIDs were v4 or v5 9 characters would suffice but I understand not all are. I do not need to retrieve the UUIDs but the code here http://wiki.secondlife.com/wiki/User:Becky_Pippen/Text_Storage will provide the details you'll need to make your database so you can.

Here's some code to illustrate what I'm talking about:

string HexChars(integer n)
{
	string hexChars = "0123456789abcdef";
	return llGetSubString(hexChars, n >> 4, n >> 4) +
		llGetSubString(hexChars, n & 0xf, n & 0xf);
}

string Encode(integer num)
{
	num += 0x1000;
	return llUnescapeURL("%" + HexChars(0xe0 + (num >> 12)) +
		"%" + HexChars(0x80 + ((num >> 6) & 0x3f)) +
		"%" + HexChars(0x80 + (num & 0x3f)));
}

// This function creates the (hopefully) unique idenfier for use in my script
string dbID(string UUID)
{
	integer data1 = (integer)("0x" + llGetSubString(UUID, 0 , 6));
	integer data2 = (data1 % 0x4000) * 2;
	data1 = (data1 / 0x4000) * 2 + 1;
	return Encode(data1) + Encode(data2);
}

// The need for this function was eliminated by using base0x4000+1 encoding. I
// left it to show what ~llSubStringIndex(database, check) is replacing.
integer inDB(string check)
{
	integer known;
	integer i = llStringLength(database) / 2;
	while (i-- && !known) // (i--) is equivalant to (--i <= 0)
		if (llGetSubString(database, i * 2, i * 2 + 1) == check) ++known;
	return known;
}

string database;
// database is a straddle, 2 characters per stride, each character containing
// 14-bits of base0x4000+1 encoded data.

default
{
	state_entry()
	{
		llSay(0, "There should be enough free memory to hold " +
			(string)(llGetFreeMemory() / 2) + " identifiers.");
	}

	touch_start(integer total_number)
	{
		key id = llDetectedKey(0);
		// If I didn't need to use the UUID later I'd replace id below with
		// llDetectKey(0) and eliminate the definition line for id.
		string myID = dbID(id);
		if(~llSubStringIndex(database, myID))
		{
			// Do whatever you do with, to, or for first encounter avatars.
			database += myID;
		}
		else
		{
			// Do whatever you do with, to, or for "known" avatars.
			;
		}
	}
}

My thanks to Pavl Duke and Omei Qunhua for their kindly remarks that helped make this page better.

If anyone wants to encode the full UUID they could replace the dbID function above with this:

string dbID(string UUID)
{
	integer add = 1;
	integer count;
	integer data = (integer)("0x" + llGetSubString(UUID, 0 , 6));
	string work;
	while (data)
	{
		work += Encode((data % 0x4000) * 2 + add)
		if (add) --add;
		data = (data / 0x4000);
		if (data < 0x4000 && count < 6)
		{
			++count;
			data += (integer)("0x" + llGetSubString(UUID, count * 5 + 2 , 
				count * 5 + 6));
		}
	}
	return work;
}

and the call with:

		string myID = dbID((string)llParseString2List(id, ["-"], []));

The expression (string)llParseString2List(id, ["-"], []) will return a string containing 32 hexadecimal characters without the dashes.