|
|
| Line 1: |
Line 1: |
| {{LSL Header}} | | {{LSL Header}} |
|
| |
|
| This User Made Function can be used to identify if a given string is a valid Second Life UUID [[key|Key]]. It is to be used as a Boolean function which will return TRUE if the string is a valid key, and return FALSE if it is not.<br>
| | '''This will not check if the key given actually references an asset, agent/group, instance, or terrain).''' ''Checks with other functions and the given key can be used for this.'' |
| '''It will not check if the key given actually references an asset, agent/group, instance, or terrain).''' ''Checks with other functions and the given key can be used for this.'' | |
| | |
| By definition, a key consists of the 16 hexadecimal characters: 0-9 and a-f. Unlike other Keys, the alphabetical characters are always lowercase.
| |
| | |
| The process of the function is to test the string using various methods. The first method is to compile the string into a list, using the hyphen (-) as a separator. A key that has been parsed into a list, will have 5 indices. These are of specific lengths, and the function checks these, causing it to fail if one of the lengths are not correct.
| |
| | |
| If all string segments are of the correct length, it then checks the characters in each segment, failing if a character is not one of the 16 hexadecimal characters.
| |
|
| |
|
| <lsl> | | <lsl> |
| integer StringIsValidKey(string input)
| | key temp = (key) input; |
| {
| |
| //Split the given message into a list, using hyphens as separators.
| |
| list keySegments = llParseString2List(input, ["-"], [""]);
| |
| | |
| //Get the number of indices in the list.
| |
| integer length = llGetListLength(keySegments);
| |
|
| |
| if(length != 5) return FALSE; //Keys are 5 segments seperated by hyphens (-)
| |
|
| |
| //Declare a few variables for use later.
| |
| integer i; integer j; integer segLength; string segment;
| |
| | |
| //Start a for loop for each segment in the list. This for loop will execute 5 times.
| |
| for(i = 0; i < length; i++) {
| |
| //Assign the string and integer variables with values pertaining to the segment.
| |
| segment = llList2String(keySegments, i);
| |
| segLength = llStringLength(segment);
| |
|
| |
| if(i == 0 && segLength != 8) return FALSE; //Segment 1 must be 8 characters
| |
| if((i > 0 && i < 4) && segLength != 4) return FALSE; //Segments 2-4 must be 4 characters
| |
| if(i == 4 && segLength != 12) return FALSE; //Segment 5 must be 12 characters
| |
|
| |
| //Start a for loop checking each character in the segment. This for loop will execute a maximum of 12 times and minimum of 4 times.
| |
| for(j = 0; j < segLength; j++) {
| |
| string c = llGetSubString(segment, j, j);
| |
|
| |
| //Compare each character in the current segment if they match one of the characters below.
| |
| if(c == "0" || c == "1" || c == "2" || c == "3" || c == "4" ||
| |
| c == "5" || c == "6" || c == "7" || c == "8" || c == "9" ||
| |
| c == "a" || c == "b" || c == "c" || c == "d" || c == "e" ||
| |
| c == "f") { integer value = TRUE; } //Do something. Keeps the compiler happy.
| |
|
| |
| else return FALSE; //Does not contain a hex character
| |
| }
| |
| }
| |
|
| |
| return TRUE; //Must be a key.
| |
| }
| |
| | |
|
| |
|
| //Code to check messages typed on all chat by yourself only, if they are a key.
| | if(temp) llOwnerSay("Input is a valid key!"); |
| default
| | else llOwnerSay("Input is not a valid key!"); |
| {
| |
| state_entry()
| |
| {
| |
| llListen(0, "", llGetOwner(), "");
| |
| }
| |
|
| |
| listen(integer channel, string name, key id, string message)
| |
| {
| |
| if(StringIsValidKey(message)) llOwnerSay(message + " is a valid key.");
| |
| else if(!StringIsValidKey(message)) llOwnerSay(message + " is NOT a valid key!");
| |
| }
| |
| }
| |
| </lsl> | | </lsl> |
This will not check if the key given actually references an asset, agent/group, instance, or terrain). Checks with other functions and the given key can be used for this.
<lsl>
key temp = (key) input;
if(temp) llOwnerSay("Input is a valid key!");
else llOwnerSay("Input is not a valid key!");
</lsl>