User:ANSI Soderstrom

i am alive ! ...and have for you :

A #Simple Copy Protection for your Scripts. A #LSL Array for your Scripts.

Simple LSL Copy Protection for your Scripts (best give away as no mod) :

<lsl> // Simple Copy Protection for your Items // (C) 10/2009 ANSI Soderstrom

default {

   state_entry() {
       if(llGetCreator() != "9adba1b4-a733-4a44-8275-f4a666784d8c") {  // ANSI Soderstrom
           llOwnerSay("Script: " + llGetScriptName() + ":");
           llOwnerSay("Sorry, my Scripts are only running in MY Items");
           llOwnerSay("Greetings, ANSI Soderstrom");
           // llDie();
       } else {
           state online;
       }      
   }

   on_rez(integer i) {
       llResetScript();
   }

}

state online {

   state_entry() {
       // your Code
   }   
   
   on_rez(integer i) {
       llResetScript();
   }    

} </lsl>

LSL Array for your Scripts :

<lsl> list SOMELIST;

string GET(list ARRAY,list KEY) {

   if(llGetListLength(KEY)>1) {
       return "-1";
   }
   integer position;
   do {
       position = llListFindList(ARRAY, KEY);
       if(position%2 && ~position && position) {
           ARRAY = llDeleteSubList(ARRAY,0,position);
       }
   } while (~position  && position%2);
   if(~position) {
       return llList2String(ARRAY,position+1);
   } else {
       return "-1";
   } 

}

list PUT(list ARRAY,list KEY, list VALUE) {

   if(llGetListLength(KEY)>1 || llGetListLength(VALUE)>1) {
       return [-1];
   }    
   integer position = llListFindList(ARRAY,KEY);
   if(~position) {
       ARRAY = llListReplaceList(ARRAY, VALUE, position + 1, position + 1);
   } else {
       ARRAY += KEY;
       ARRAY += VALUE;        
   }
   return ARRAY;  

}

default {

   state_entry()
   {
       
       llSay(0,"-------------------------");
       
       SOMELIST = ["KEY","VALUE"];

       SOMELIST = PUT(SOMELIST,[AGENT],[<1,1,1>]);

       llSay(0,llList2CSV(SOMELIST));
       // Output : KEY, VALUE, 1, <1.000000, 1.000000, 1.000000>
       
       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : VALUE
       llSay(0,GET(SOMELIST,[AGENT]));
       // Output : <1.000000, 1.000000, 1.000000>
       
       
       SOMELIST = PUT(SOMELIST,[AGENT],["name"]);
       
       llSay(0,llList2CSV(SOMELIST));
       // Output : KEY, VALUE, 1, name
       
       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : VALUE
       llSay(0,GET(SOMELIST,[AGENT]));
       // Output : name
       
       llSay(0,"-------------------------");
       
       SOMELIST = PUT(SOMELIST,["KEY"],[NULL_KEY]);
       
       llSay(0,llList2CSV(SOMELIST));
       // Output : KEY, 00000000-0000-0000-0000-000000000000, 1, name        

       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : 00000000-0000-0000-0000-000000000000
       llSay(0,GET(SOMELIST,[AGENT])); 
       // Output : name       
   }

} </lsl>