Difference between revisions of "User:ANSI Soderstrom"
Jump to navigation
Jump to search
Line 133: | Line 133: | ||
SOMELIST = ["KEY","VALUE"]; | SOMELIST = ["KEY","VALUE"]; | ||
SOMELIST = PUT(SOMELIST,[AGENT],[<1,1,1>]); | SOMELIST = PUT(SOMELIST,[AGENT],[<1,1,1>]); | ||
llSay(0,llList2CSV(SOMELIST)); | llSay(0,llList2CSV(SOMELIST)); | ||
// Output : KEY, VALUE, 1, <1.000000, 1.000000, 1.000000> | |||
llSay(0,GET(SOMELIST,["KEY"])); | llSay(0,GET(SOMELIST,["KEY"])); | ||
// Output : VALUE | |||
llSay(0,GET(SOMELIST,[AGENT])); | llSay(0,GET(SOMELIST,[AGENT])); | ||
// Output : <1.000000, 1.000000, 1.000000> | |||
SOMELIST = PUT(SOMELIST,[AGENT],["name"]); | SOMELIST = PUT(SOMELIST,[AGENT],["name"]); | ||
llSay(0,llList2CSV(SOMELIST)); | llSay(0,llList2CSV(SOMELIST)); | ||
// Output : KEY, VALUE, 1, name | |||
llSay(0,GET(SOMELIST,["KEY"])); | llSay(0,GET(SOMELIST,["KEY"])); | ||
// Output : VALUE | |||
llSay(0,GET(SOMELIST,[AGENT])); | llSay(0,GET(SOMELIST,[AGENT])); | ||
// Output : name | |||
llSay(0,"-------------------------"); | llSay(0,"-------------------------"); | ||
Line 154: | Line 161: | ||
llSay(0,llList2CSV(SOMELIST)); | llSay(0,llList2CSV(SOMELIST)); | ||
// Output : KEY, 00000000-0000-0000-0000-000000000000, 1, name | |||
llSay(0,GET(SOMELIST,["KEY"])); | llSay(0,GET(SOMELIST,["KEY"])); | ||
llSay(0,GET(SOMELIST,[AGENT])); | // Output : 00000000-0000-0000-0000-000000000000 | ||
llSay(0,GET(SOMELIST,[AGENT])); | |||
// Output : name | |||
} | } | ||
} | } | ||
</lsl> | </lsl> |
Revision as of 10:07, 24 February 2010
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>