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 "0";
   } 

}

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

   if(llGetListLength(KEY)>1 || llGetListLength(VALUE)>1) {
       return [];
   }    
   integer position;
   do {
       position = llListFindList(ARRAY, KEY);
       if(position%2 && ~position && position) {
           ARRAY = llDeleteSubList(ARRAY,0,position);
       }
   } while (~position  && position%2);
   if(~position) {
       ARRAY = llListReplaceList(ARRAY, VALUE, position + 1, position + 1);
   } else {
       ARRAY += KEY;
       ARRAY += VALUE;        
     
   }
   return ARRAY;  

}

default {

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

       SOMELIST = PUT(SOMELIST,[AGENT],[<1,1,1>]);
       
       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : VALUE
       llSay(0,GET(SOMELIST,[AGENT]));
       // Output : <1.000000, 1.000000, 1.000000>
       
       
       SOMELIST = PUT(SOMELIST,[AGENT],["test"]);
       
       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : VALUE
       llSay(0,GET(SOMELIST,[AGENT]));
       // Output : test
             
             
       SOMELIST = PUT(SOMELIST,["KEY"],["9adba1b4-a733-4a44-8275-f4a666784d8c"]);   

       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : 9adba1b4-a733-4a44-8275-f4a666784d8c
       llSay(0,GET(SOMELIST,[AGENT])); 
       // Output : test  
       
       
       SOMELIST = PUT(SOMELIST,[AGENT],[llKey2Name(GET(SOMELIST,["KEY"]))]);   

       llSay(0,GET(SOMELIST,["KEY"]));
       // Output : 9adba1b4-a733-4a44-8275-f4a666784d8c
       llSay(0,GET(SOMELIST,[AGENT])); 
       // Output : ANSI Soderstrom    
       
       llSay(0,GET(SOMELIST,["NotInList"]));  
       // Output : 0
       
       if(!(integer)GET(SOMELIST,["Not In List"])) {
           llSay(0,"Not in List");
       } else {
           llSay(0,"Found");
       }
       // Output : Not in List
       
       if(!(integer)GET(SOMELIST,["KEY"])) {
           llSay(0,"Not in List");
       } else {
           llSay(0,"Found");
       } 
       // Output : Found       
   } 

} </lsl>