User:Ugleh Ulrik

Profile

Born:

6th March 2009

About:

I have no face

Achievements:

• Avid Programmer
  • LSL
  • PHP
  • MySql
  • CSS
  • Javascript/jQuery/ajax

About

Im just your average Ugleh. I hang out in SL, helping the scripting groups with my knowledge. I create weapons, utilities, games, and pretty much anything. I work for Learn Avatar as a teacher, in return i get a small piece of land to keep my projects including my inworld servers. I can script projects for free if simple, if not id ask for some lindens, but i never name prices, you name your own price and ill accept what you give me.

The following scripts have been created by me and are under GNU Affero GPL v3.

XStreetSL

Xstreet Link

Vector2List

<lsl> list Vector2List(vector v){

   list alist = llParseString2List((string)v,[",", ">", "<"],[]);

return alist; } </lsl> or <lsl> list Vector2List(vector v){

   return [v.x, v.y, v.z]; // *Tips a wink to Strife*

} </lsl>

More at User:Ugleh_Ulrik/Vector2List

FirstName

<lsl> string FirstName(key k){ list fn = llParseString2List(llKey2Name(k),[" "],[]); string firstn = llList2String(fn,0); return firstn; } </lsl> More at User:Ugleh_Ulrik/FirstName

LastName

<lsl> string LastName (key k){ list ln = llParseString2List(llKey2Name(k),[" "],[]); string lastn = llList2String(ln,1); return lastn; } </lsl> More at User:Ugleh_Ulrik/LastName

trimstring

<lsl> string trimstring(string text, integer length) {

   if (length < llStringLength(text)){
   length = length-1;
   string newstring = llGetSubString(text,0, length) + "...";
   return newstring;

}else{

   return text;

} } </lsl> More at User:Ugleh_Ulrik/trimstring

GiveBulkMoney

<lsl> GiveBulkMoney(list u, integer amount){ integer a = 0; while(a < llGetListLength(u)) {

   llGiveMoney(llList2Key(u,a), amount);
   ++a;

} } </lsl> More at User:Ugleh_Ulrik/GiveBulkMoney

Other Scripts

PHP Name2Key User:Ugleh_Ulrik/Name2Key

Random String RandomString

Time Ago TimeAgo

DialogPlus DialogPlus

Encryption / Decryption

<lsl> string enc(string source){

   string new;

list s1 = ["!", " ","#","$","%","&","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","@","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","[","]","^","_","`","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","{","|","}","~"]; list s2 = ["y","n","C","?","q","Z","d","`","B","u","t","<",";","a","+","J","[","m","7","M","v","I","g","}","i","]","K","L","k","H","W","@","P","Y","4","{","V","Q","x","(","O","X","0","=","T","c","9","[","z","N","r","|","^","!","h","F","3",".","8","/","5","6",">","1","A","~","D","U","p","o","_","$","&","l","*","R","w","S","-","f","G","2","E","e","b","#",":",")","s","%","j"," "]; integer s; integer l = llStringLength(source); do new+= llList2String(s2,llListFindList(s1, [llGetSubString(source,s,s)])); while(l>++s); return new; }

string dec(string source){

   string new;

list s2 = ["!", " ","#","$","%","&","(",")","*","+",",","-",".","/","0","1","2","3","4","5","6","7","8","9",":",";","<","=",">","?","@","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","[","]","^","_","`","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","{","|","}","~"]; list s1 = ["y","n","C","?","q","Z","d","`","B","u","t","<",";","a","+","J","[","m","7","M","v","I","g","}","i","]","K","L","k","H","W","@","P","Y","4","{","V","Q","x","(","O","X","0","=","T","c","9","[","z","N","r","|","^","!","h","F","3",".","8","/","5","6",">","1","A","~","D","U","p","o","_","$","&","l","*","R","w","S","-","f","G","2","E","e","b","#",":",")","s","%","j"," "]; integer s; integer l = llStringLength(source); do new+= llList2String(s2,llListFindList(s1, [llGetSubString(source,s,s)])); while(l>++s); return new; }

default {

   touch_start(integer total_number)
   {
       string encoded = enc("Hello There");//encoding the string "Hello There"
       llSay(0, encoded);//Outputting it
       string decoded = dec(encoded);//Decoding the encoded text, returning back "Hello There"
       llSay(0, decoded);//Outputting it
   }

}

</lsl>