User:Cow Taurog

2014-04-24T16:56:22Z

Cow Taurog:

If you want to ask me something, [https://wiki.secondlife.com/w/index.php?title=User_talk:Cow_Taurog&action=edit&section=new leave me a message on my talk page], or IM me. A few (all) people seem to find my style of writing scripts to be rather unorthodox, but I find through my own experience that it makes it easier to look at things and be able to tell what they are at a glance, and edit just one line of code without having to spend more time selecting than typing. I am the sole creator of any LSL script I have listed in my userspace unless otherwise noted, not including PHP or any other text, or any functions that have come from a script library or other source (proper attribution will be given, if the license info is available). Any script that I have created is free to copy, modify, and yes, even sell. Everything under my userpage is licensed under [https://creativecommons.org/licenses/by-sa/3.0/ the Creative Commons Attribution-ShareAlike 3.0 Unported license]. I might even help you out with any questions you have. I don't mind teaching, so ask me, online or not. If you're using my scripts, or editing them in this wiki (feel free, I can always revert or edit if I don't like it), they must be under the same license, and keep these points in mind...

* I don't use spaces, unless they are part of a string.
* I hardly ever use comments. I find them redundant, as the code already tells me what it does.
* I use the [https://en.wikipedia.org/wiki/Indent_style#Variant:_1TBS one true brace style], all that whitespace is annoying and unnecessary.
* I name variables as you would name an object in [http://en.wikipedia.org/wiki/Visual_Basic VB]. I think using all caps should only be reserved for constants. (glList for a global list, gsString for a global string, lList for a local list, sString for a local string, gfFloat, grRotation, and so on). Exceptions are counters such as integer i, and handlers such as integer listen0.
* I always use curly brackets to enclose any flow control statement (if, else, while, etc). Using tabs alone isn't enough, it might still not compile, makes syntax troubleshooting hard, and you have to add brackets if you add too much code inside them later anyways.
* Be bold.

==Scripts==
*[[User:Cow Taurog/Radio tuner|Radio tuner]]
*[[User:Cow Taurog/Prim count|Prim count]]
*[[User:Cow Taurog/Language scanner|Language scanner]]
*[[User:Cow Taurog/Prim cloner|Prim cloner]]
*[[User:Cow Taurog/Sim map texture|Sim map texture]]
*[[User:Cow Taurog/Sky elevator|Sky elevator]]
*[[User:Cow Taurog/SMS|SMS]]
*[[User:Cow Taurog/Email-chat|Email-chat]]
*[[User:Cow Taurog/Name to key|Name to key]]
*[[User:Cow Taurog/Online indicator|Online indicator]]
*[[User:Cow Taurog/Update server|Update server]]
*[[User:Cow Taurog/Teleporter|Teleporter]]
*[[User:Cow Taurog/Walk sound|Walk sound]]
*[[User:Cow Taurog/Visitor nagger|Visitor nagger]]
*[[User:Cow Taurog/Exchange rate|Exchange rate]]
*[[User:Cow Taurog/Sound looper|Sound looper]]
*[[User:Cow Taurog/Auto turret|Auto Turret]]

User:Cow Taurog/Prim owner board

2014-04-22T10:21:04Z

Cow Taurog: /* Prim tracker */

__NOTOC__
==Prim poller==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// Cow Taurog's prim owner info fetcher
// Last edited on 08/27/2010
//
// This script will grab a list of people that have prims on the parcel, prim count, and online status.
// The list will be sorted by descending prim count, and their names resolved, then sent over chat and/or link message.
// You can use the output provided in your own script, or drop in the display scripts.
//
// This will not work if you aren't in the same sim unless:
// -The land is owned by a group, not an individual.
// -This object is deeded to (owned by) the group, not an individual.
// You will need to set full perms, and share with the group if you want to be able to edit
// the server once it is deeded. You will also need to share with group again after it is deeded.
// Group names cannot be resolved from their key, so any group owned objects will show as unknown.
// This whole "not working when the owner is gone" thing is why we need this to act by itself as a server.

// -Settings-

float gfPoll=90; // How often to update in seconds. Depends on how fast the display you will use refreshes.

integer giLinkMsgChan=43; // Channel to output the data over link message on (0 to disable).

integer giChatChan=643; // Channel to output the data over chat on (0 to disable).

// The data is output as a pipe seperated list of the key, name, prim count, and presence of all prim owners.
// The parcel key is the first item in the list, useful for making sure we get the right info.
// <parcel key>|<owner1 key>|<owner1 name>|<owner1 primcount>|<owner1 in sim (1/0)>|<owner2 key>...

list glExcludeKeys=["38429ab1-2d0a-4535-962f-a909cee910e0","83b1a9ee-d1fa-1e11-486c-1aa470872db5"];
// You can choose to exclude any person or group from being shown on the list. I have myself and my group in this list.

float gfDataTimeout=3.0; // How long before giving up on response from the name resolution (owner is a group or <1 day old)

//
// There are no more settings past this line.
//

list glRaw; // Stores raw data so we can sort and add to it
key gkAct; // Target's key
integer giCount; // Target's prim count
integer giRawLen; // Length of the raw data list
integer giExcLen; // Length of the key exclusion list
list glData; // Sorted and completed data
integer i; // Counter
integer k; // Counter
key gkReq; // Dataserver request handle
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
key gkDebugTo=""; // Key to IM debug messages to. Blank to disable.
debug2(string mess){if(DEBUG==2){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Verbose debug function
debug1(string mess){if(DEBUG>0){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Minimal debug function
default{
on_rez(integer param){llResetScript();} //Reset when rezzed
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}} // Reset when owner changes
state_entry(){
glData=[]; // Clear data from the last run
glRaw=llGetParcelPrimOwners(llGetPos()); // Get keys and prim counts from the parcel
giRawLen=llGetListLength(glRaw); // Calculate length of the raw data
giExcLen=llGetListLength(glExcludeKeys); // Calculate length of the exclusion list
debug1("glRaw: "+llList2CSV(glRaw));
// Remove anyone on the exclusion list
for(i=0;i<giExcLen;i++){ // Check every entry in the exclusion list
string sF=llList2String(glExcludeKeys,i); // Store target key
debug2("sF: "+sF);
integer iAt=llListFindList(glRaw,[(key)sF]); // Store location of target key
debug2("iAt: "+(string)iAt);
if(iAt!=-1){ glRaw=llDeleteSubList(glRaw,iAt,iAt+1);} // If the target is in the list, remove it
}
debug2("glRaw after exclusion: "+llList2CSV(glRaw));
// We can only sort by the first item in a strided list, so we need to reverse the list.
// Put the prim count first, and make sure it is casted as an integer instead of a string.
for(i=0;i<giRawLen;i=i+2){ // Loop through the entire list (stride of 2, note the i=i+2 instead of i++)
integer iCount=llList2Integer(glRaw,i+1); // Store prim count as integer to ensure proper typecasting
string sOwner=llList2String(glRaw,i); // Store owner key
glData=glData+[iCount,sOwner]; // Add these to the new data list in reverse order
}
// Sort the data by prim count
integer iDL=llGetListLength(glData)-4; // There is one blank stride on the list for some reason, note the -4.
debug2("glData before chop: "+llList2CSV(glData));
glData=llDeleteSubList(glData,iDL,-1); // Chop off the extra entry
debug2("glData before sort: "+llList2CSV(glData));
glRaw=[]; // Blank out the raw info from earlier, we don't need it
glRaw=llListSort(glData,2,FALSE); // Sort data and store it into the empty list
glData=[]; // Blank out the data we just sorted from
debug2("glRaw after sort: "+llList2CSV(glRaw));
i=0; // Set i to zero so we can use it
// The script now has a sorted list of keys and prim counts. We now resolve their names, and find if they are here
// We will toggle back and forth between two identical states to resolve the names from the dataserver.
state fillA; // Go to the first state
}
}
state fillA{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){ // If the timer event is triggered, the name could not be found, either it is a group or <1 day old.
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1]; // Store their info into the final list
i=i+2; // Increment i by 2 since the list is strided
if(i+4<giRawLen){state fillB;} // If there is is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}
state_entry(){
llSetTimerEvent(gfDataTimeout); // Set request timeout
gkAct=llList2Key(glRaw,i+1); // Store target's key (these are global since they are used in dataserver too)
giCount=llList2Integer(glRaw,i); // Store target's prim count
gkReq=llRequestAgentData(gkAct,DATA_NAME); // Request the name from the dataserver
debug2("Requested (A)");
}
dataserver(key req,string mess){if(req==gkReq){ // Make sure this is our request, and not some random one
llSetTimerEvent(0); // Keep the timeout event from triggering since we got our result
debug2("Dataserver (A): "+mess);
vector vO=llGetAgentSize(gkAct); // Store the target's size (will be <0,0,0> if they are a group, or aren't in the sim)
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];} // Put their info into the final list, and a 1 for presence
else{glData=glData+[gkAct,mess,giCount,0];} // Put their info into the final list, and a 0 for presence
llSleep(0.1); // Wait for a tiny bit to prevent weirdness
i=i+2; // Increment i by 2 to advance to the next entry
if(i+4<giRawLen){state fillB;} // If there is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}}
}
state fillB{ // Second verse, same as the first. Only this one goes to state fillA instead.
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1];
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}
state_entry(){
llSetTimerEvent(gfDataTimeout);
gkAct=llList2Key(glRaw,i+1);
giCount=llList2Integer(glRaw,i);
gkReq=llRequestAgentData(gkAct,DATA_NAME);
debug2("Requested (B)");
}
dataserver(key req,string mess){if(req==gkReq){
llSetTimerEvent(0);
debug2("Dataserver (B): "+mess);
vector vO=llGetAgentSize(gkAct);
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];}
else{glData=glData+[gkAct,mess,giCount,0];}
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}}
}
state show{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
state_entry(){
llSetTimerEvent(gfPoll); // Start the timer so we can do this all over again
llListen(giChatChan+1,"","",""); // Listen for a reset message
debug1("glData: "+llList2CSV(glData));
string sD=llDumpList2String(glData,"|"); // Dump the whole thing into a string seperated with "|"
string sI=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0); // Store the parcel key
if(giLinkMsgChan!=0){llMessageLinked(LINK_SET,giLinkMsgChan,sD,(key)sI);} // Output data on linkmsg
if(giChatChan!=0){llRegionSay(giChatChan,sI+"|"+sD);debug2((string)giChatChan+": "+sI+"|"+sD);} // Output on chat
}
timer(){i=0;glData=[];state default;} // Time to poll again, reset the list and the counter, and start over.
listen(integer chan,string name,key id,string mess){
if(llSameGroup(id)==TRUE){if(mess=="refresh"){i=0;glData=[];state default;}} // Refresh if told to
}
}
</lsl>

==Hovertext prim owner display==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
//This script is meant to provide a easy and fast display that shows the parcel's prim owner info as hovertext.
//You can drop this into any object on the parcel.
integer giInputChan=643; // Chat channel to listen for data on
vector gvColor=<0.3,0.6,1>; // Text color
float gfAlpha=1; // Text transparency (0=transparent, 1=opaque)
//
// There are no more settings past this line.
//
string gsOutput; // Stores final output
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llSetText("",gvColor,gfAlpha);llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetText("",gvColor,gfAlpha);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
gsOutput=
" Updated "+sHours+sMinutes+"Z\n"+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain\n";
for(i=1;i<=llGetListLength(glKeys);i++){
key kL=(key)((string)i);
gsOutput=gsOutput+" "+llList2String(glNames,i-1)+" ("+llList2String(glCounts,i-1)+")";
if(llList2String(glPresences,i-1)=="1"){gsOutput=gsOutput+"\n";}
else{gsOutput=gsOutput+" (not here)\n";}
}
llSetText(gsOutput,gvColor,gfAlpha);
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Xyzzy text prim owner display==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will make a xyzzytext display show info about the prim owners on your parcel.
// Drop this and the xyzzy controller into your display, and set the number of lines to match yours.
integer giInputChan=643; // Chat channel to listen for data on.
integer giScreenRows=10; // Number of rows in your xytext display.
vector gvOnColor=<0,0.25,0.5>; // Font color for people who are here.
vector gvOffColor=<0.5,0.25,0>; // Font color for people who aren't here.
vector gvTextColor=<0,0.25,0>; // Font color for normal text
float gfDelay=90; // How often to poll for changes
//
// There are no more settings past this line.
//
integer giLinesShown; // Counts number of lines used so we don't have to blank all of them
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
//for(i=0;i<=giLinesShown+2;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}}
//timer(){llMessageLinked(LINK_SET,99292,"poll","");}
state_entry(){
giScreenRows++; // Rows start at zero, so add 1 to use normal human numbers
//llSetTimerEvent(gfDelay);
llMessageLinked(LINK_SET,204000,"","0");
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
for(i=4;i<giScreenRows;i++){
llMessageLinked(LINK_SET,204000,"",(string)i);
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
}
//for(i=0;i<giScreenRows;i++){llMessageLinked(LINK_SET,204000,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",(string)i);}
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("raw mess: "+mess);
if(llGetSubString(mess,36,-1)=="||(unknown)|0|1"){
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
//for(i=4;i<=giScreenRows;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llMessageLinked(LINK_SET,204006,(string)gvOnColor,"4");
llMessageLinked(LINK_SET,204000,"* Welcome! No prims are in use","4");
}else{
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
giLinesShown=llGetListLength(glKeys);
for(i=4;i<=giLinesShown+1;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
for(i=4;i<giScreenRows;i++){
string sM;
sM=" "+llList2String(glNames,i-4)+" ("+llList2String(glCounts,i-4)+")";
debug2("sM: "+sM);
if(llList2String(glKeys,i-4)!=""){
if(llList2Integer(glPresences,i)==0){
sM=sM+" (not here)";
llMessageLinked(LINK_SET,204006,(string)gvOffColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}else{
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}
}
}
}
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Prim tracker==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will track who rezzes new prims, removes all their prims, and leaves without cleaning up.
//
integer giInputChan=643; // Chat channel to listen for data on
integer giLeftBehindTol=125; // Don't nag someone unless they have more than this
//
// There are no more settings past this line.
//
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glOldKeys;
list glOldNames;
list glOldCounts;
list glOldPresences;
list glWarnList;
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
say(string mess, string hours, string minutes){llOwnerSay(hours+minutes+"Z: "+mess);}
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
debug1(string mess){if(DEBUG>0){llOwnerSay("Debug: "+mess);}} // Minimal debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<1,0,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
state running;
}}
}
state running{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<0,1,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state running;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
//glRaw=llDeleteSubList(glRaw,0,3);
//debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
integer iOL=llGetListLength(glOldKeys);
debug2("iOL: "+(string)iOL);
integer iKL=llGetListLength(glKeys);
debug2("iKL: "+(string)iKL);
for(i=0;i<iKL;i++){
key kT=llList2Key(glKeys,i);
string sN=llList2String(glNames,i);
integer iNC=llList2Integer(glCounts,i);
integer iOC;
integer iOCAt=llListFindList(glOldKeys,[kT]);
if(iOCAt==-1){iOC=-1;}else{iOC=llList2Integer(glOldCounts,iOCAt);}
integer iNP=llList2Integer(glPresences,i);
integer iOP;
integer iOPAt=llListFindList(glOldKeys,[kT]);
if(iOPAt==-1){iOP=0;}else{iOP=llList2Integer(glOldPresences,iOPAt);}
debug1("kT: "+(string)kT);
debug1("sN: "+sN);
debug1("iNC: "+(string)iNC);
debug1("iOC: "+(string)iOC);
debug1("iNP: "+(string)iNP);
debug1("iOP: "+(string)iOP);
debug1("\n");
if(kT!="(unknown)"){if(iOCAt==-1){
if(iNC==1){say(sN+" rezzed 1 prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)iNC+" prims.",sHours,sMinutes);}
}}
if(iOP==0){if(iNP==1){if(iOPAt!=-1){
say(sN+" came back.",sHours,sMinutes);
}}}
if(iNC>iOC){if(kT!="(unknown)"){
if(iNC-iOC==1){say(sN+" rezzed 1 more prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)(iNC-iOC)+" more prims.",sHours,sMinutes);}
}}
if(iOC>iNC){if(kT!="(unknown)"){
if(iOC-iNC==1){say(sN+" removed 1 prim.",sHours,sMinutes);}
else{say(sN+" removed "+(string)(iOC-iNC)+" prims.",sHours,sMinutes);}
}}
if(iOP==1){if(iNP==0){if(kT!="(unknown)"){
say(sN+" left "+(string)iNC+" prims behind.",sHours,sMinutes);
if(iNC>giLeftBehindTol){
//llInstantMessage(kT,"You have left "+(string)iNC+" prims behind in "+llGetRegionName()+". Please go back and clean up after yourself so other people can use them.");
say(sN+" was warned for not cleaning up.",sHours,sMinutes);
}
}}}
}
for(i=0;i<iKL;i++){
key kT=llList2Key(glOldKeys,i);
string sN=llList2String(glOldNames,i);
integer iOC=llList2Integer(glOldCounts,i);
integer iNKAt=llListFindList(glKeys,[kT]);
if(iNKAt==-1){if(iOC>0){if(kT!="(unknown)"){
say(sN+" removed all "+(string)iOC+" of their prims.",sHours,sMinutes);
}}}
}
glOldKeys=[];
glOldNames=[];
glOldCounts=[];
glOldPresences=[];
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Info Fetcher==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
key gkReq;
integer giRate;
vector gvColor=<0,0.25,0>;
default{
//touch_start(integer num){if(llDetectedKey(0)==llGetOwner()){llResetScript();}}
state_entry(){
llMessageLinked(LINK_SET,204006,(string)gvColor,"1");
llMessageLinked(LINK_SET,204006,(string)gvColor,"2");
llMessageLinked(LINK_SET,204006,(string)gvColor,"3");
llMessageLinked(LINK_SET,204000,"","1");
llMessageLinked(LINK_SET,204000,"","2");
llMessageLinked(LINK_SET,204000,"","3");
state poll;
}
}
state poll{
state_entry(){giRate=0;llSetTimerEvent(60);gkReq=llHTTPRequest("http://secondlife.com/httprequest/homepage.php",[],"");}
http_response(key req,integer status,list meta,string mess){if(status==200){
list lT=llParseString2List(mess,["\n"],[]);
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
llMessageLinked(LINK_SET,204000,"* Grid population: "+llList2String(lT,17),"2");
llMessageLinked(LINK_SET,204000,"* Exchange rate: L$"+(string)llRound(llList2Float(lT,11))+" per USD","3");
}}
link_message(integer sender,integer num,string mess,key id){if(num==99292){
if(mess=="poll"){state poll;}
}}
timer(){
giRate++;
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
if(giRate>30){state poll;}
}
}
</lsl>

User:Cow Taurog/Prim owner board

2014-04-22T10:20:36Z

Cow Taurog:

__NOTOC__
==Prim poller==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// Cow Taurog's prim owner info fetcher
// Last edited on 08/27/2010
//
// This script will grab a list of people that have prims on the parcel, prim count, and online status.
// The list will be sorted by descending prim count, and their names resolved, then sent over chat and/or link message.
// You can use the output provided in your own script, or drop in the display scripts.
//
// This will not work if you aren't in the same sim unless:
// -The land is owned by a group, not an individual.
// -This object is deeded to (owned by) the group, not an individual.
// You will need to set full perms, and share with the group if you want to be able to edit
// the server once it is deeded. You will also need to share with group again after it is deeded.
// Group names cannot be resolved from their key, so any group owned objects will show as unknown.
// This whole "not working when the owner is gone" thing is why we need this to act by itself as a server.

// -Settings-

float gfPoll=90; // How often to update in seconds. Depends on how fast the display you will use refreshes.

integer giLinkMsgChan=43; // Channel to output the data over link message on (0 to disable).

integer giChatChan=643; // Channel to output the data over chat on (0 to disable).

// The data is output as a pipe seperated list of the key, name, prim count, and presence of all prim owners.
// The parcel key is the first item in the list, useful for making sure we get the right info.
// <parcel key>|<owner1 key>|<owner1 name>|<owner1 primcount>|<owner1 in sim (1/0)>|<owner2 key>...

list glExcludeKeys=["38429ab1-2d0a-4535-962f-a909cee910e0","83b1a9ee-d1fa-1e11-486c-1aa470872db5"];
// You can choose to exclude any person or group from being shown on the list. I have myself and my group in this list.

float gfDataTimeout=3.0; // How long before giving up on response from the name resolution (owner is a group or <1 day old)

//
// There are no more settings past this line.
//

list glRaw; // Stores raw data so we can sort and add to it
key gkAct; // Target's key
integer giCount; // Target's prim count
integer giRawLen; // Length of the raw data list
integer giExcLen; // Length of the key exclusion list
list glData; // Sorted and completed data
integer i; // Counter
integer k; // Counter
key gkReq; // Dataserver request handle
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
key gkDebugTo=""; // Key to IM debug messages to. Blank to disable.
debug2(string mess){if(DEBUG==2){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Verbose debug function
debug1(string mess){if(DEBUG>0){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Minimal debug function
default{
on_rez(integer param){llResetScript();} //Reset when rezzed
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}} // Reset when owner changes
state_entry(){
glData=[]; // Clear data from the last run
glRaw=llGetParcelPrimOwners(llGetPos()); // Get keys and prim counts from the parcel
giRawLen=llGetListLength(glRaw); // Calculate length of the raw data
giExcLen=llGetListLength(glExcludeKeys); // Calculate length of the exclusion list
debug1("glRaw: "+llList2CSV(glRaw));
// Remove anyone on the exclusion list
for(i=0;i<giExcLen;i++){ // Check every entry in the exclusion list
string sF=llList2String(glExcludeKeys,i); // Store target key
debug2("sF: "+sF);
integer iAt=llListFindList(glRaw,[(key)sF]); // Store location of target key
debug2("iAt: "+(string)iAt);
if(iAt!=-1){ glRaw=llDeleteSubList(glRaw,iAt,iAt+1);} // If the target is in the list, remove it
}
debug2("glRaw after exclusion: "+llList2CSV(glRaw));
// We can only sort by the first item in a strided list, so we need to reverse the list.
// Put the prim count first, and make sure it is casted as an integer instead of a string.
for(i=0;i<giRawLen;i=i+2){ // Loop through the entire list (stride of 2, note the i=i+2 instead of i++)
integer iCount=llList2Integer(glRaw,i+1); // Store prim count as integer to ensure proper typecasting
string sOwner=llList2String(glRaw,i); // Store owner key
glData=glData+[iCount,sOwner]; // Add these to the new data list in reverse order
}
// Sort the data by prim count
integer iDL=llGetListLength(glData)-4; // There is one blank stride on the list for some reason, note the -4.
debug2("glData before chop: "+llList2CSV(glData));
glData=llDeleteSubList(glData,iDL,-1); // Chop off the extra entry
debug2("glData before sort: "+llList2CSV(glData));
glRaw=[]; // Blank out the raw info from earlier, we don't need it
glRaw=llListSort(glData,2,FALSE); // Sort data and store it into the empty list
glData=[]; // Blank out the data we just sorted from
debug2("glRaw after sort: "+llList2CSV(glRaw));
i=0; // Set i to zero so we can use it
// The script now has a sorted list of keys and prim counts. We now resolve their names, and find if they are here
// We will toggle back and forth between two identical states to resolve the names from the dataserver.
state fillA; // Go to the first state
}
}
state fillA{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){ // If the timer event is triggered, the name could not be found, either it is a group or <1 day old.
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1]; // Store their info into the final list
i=i+2; // Increment i by 2 since the list is strided
if(i+4<giRawLen){state fillB;} // If there is is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}
state_entry(){
llSetTimerEvent(gfDataTimeout); // Set request timeout
gkAct=llList2Key(glRaw,i+1); // Store target's key (these are global since they are used in dataserver too)
giCount=llList2Integer(glRaw,i); // Store target's prim count
gkReq=llRequestAgentData(gkAct,DATA_NAME); // Request the name from the dataserver
debug2("Requested (A)");
}
dataserver(key req,string mess){if(req==gkReq){ // Make sure this is our request, and not some random one
llSetTimerEvent(0); // Keep the timeout event from triggering since we got our result
debug2("Dataserver (A): "+mess);
vector vO=llGetAgentSize(gkAct); // Store the target's size (will be <0,0,0> if they are a group, or aren't in the sim)
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];} // Put their info into the final list, and a 1 for presence
else{glData=glData+[gkAct,mess,giCount,0];} // Put their info into the final list, and a 0 for presence
llSleep(0.1); // Wait for a tiny bit to prevent weirdness
i=i+2; // Increment i by 2 to advance to the next entry
if(i+4<giRawLen){state fillB;} // If there is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}}
}
state fillB{ // Second verse, same as the first. Only this one goes to state fillA instead.
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1];
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}
state_entry(){
llSetTimerEvent(gfDataTimeout);
gkAct=llList2Key(glRaw,i+1);
giCount=llList2Integer(glRaw,i);
gkReq=llRequestAgentData(gkAct,DATA_NAME);
debug2("Requested (B)");
}
dataserver(key req,string mess){if(req==gkReq){
llSetTimerEvent(0);
debug2("Dataserver (B): "+mess);
vector vO=llGetAgentSize(gkAct);
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];}
else{glData=glData+[gkAct,mess,giCount,0];}
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}}
}
state show{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
state_entry(){
llSetTimerEvent(gfPoll); // Start the timer so we can do this all over again
llListen(giChatChan+1,"","",""); // Listen for a reset message
debug1("glData: "+llList2CSV(glData));
string sD=llDumpList2String(glData,"|"); // Dump the whole thing into a string seperated with "|"
string sI=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0); // Store the parcel key
if(giLinkMsgChan!=0){llMessageLinked(LINK_SET,giLinkMsgChan,sD,(key)sI);} // Output data on linkmsg
if(giChatChan!=0){llRegionSay(giChatChan,sI+"|"+sD);debug2((string)giChatChan+": "+sI+"|"+sD);} // Output on chat
}
timer(){i=0;glData=[];state default;} // Time to poll again, reset the list and the counter, and start over.
listen(integer chan,string name,key id,string mess){
if(llSameGroup(id)==TRUE){if(mess=="refresh"){i=0;glData=[];state default;}} // Refresh if told to
}
}
</lsl>

==Hovertext prim owner display==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
//This script is meant to provide a easy and fast display that shows the parcel's prim owner info as hovertext.
//You can drop this into any object on the parcel.
integer giInputChan=643; // Chat channel to listen for data on
vector gvColor=<0.3,0.6,1>; // Text color
float gfAlpha=1; // Text transparency (0=transparent, 1=opaque)
//
// There are no more settings past this line.
//
string gsOutput; // Stores final output
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llSetText("",gvColor,gfAlpha);llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetText("",gvColor,gfAlpha);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
gsOutput=
" Updated "+sHours+sMinutes+"Z\n"+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain\n";
for(i=1;i<=llGetListLength(glKeys);i++){
key kL=(key)((string)i);
gsOutput=gsOutput+" "+llList2String(glNames,i-1)+" ("+llList2String(glCounts,i-1)+")";
if(llList2String(glPresences,i-1)=="1"){gsOutput=gsOutput+"\n";}
else{gsOutput=gsOutput+" (not here)\n";}
}
llSetText(gsOutput,gvColor,gfAlpha);
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Xyzzy text prim owner display==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will make a xyzzytext display show info about the prim owners on your parcel.
// Drop this and the xyzzy controller into your display, and set the number of lines to match yours.
integer giInputChan=643; // Chat channel to listen for data on.
integer giScreenRows=10; // Number of rows in your xytext display.
vector gvOnColor=<0,0.25,0.5>; // Font color for people who are here.
vector gvOffColor=<0.5,0.25,0>; // Font color for people who aren't here.
vector gvTextColor=<0,0.25,0>; // Font color for normal text
float gfDelay=90; // How often to poll for changes
//
// There are no more settings past this line.
//
integer giLinesShown; // Counts number of lines used so we don't have to blank all of them
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
//for(i=0;i<=giLinesShown+2;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}}
//timer(){llMessageLinked(LINK_SET,99292,"poll","");}
state_entry(){
giScreenRows++; // Rows start at zero, so add 1 to use normal human numbers
//llSetTimerEvent(gfDelay);
llMessageLinked(LINK_SET,204000,"","0");
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
for(i=4;i<giScreenRows;i++){
llMessageLinked(LINK_SET,204000,"",(string)i);
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
}
//for(i=0;i<giScreenRows;i++){llMessageLinked(LINK_SET,204000,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",(string)i);}
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("raw mess: "+mess);
if(llGetSubString(mess,36,-1)=="||(unknown)|0|1"){
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
//for(i=4;i<=giScreenRows;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llMessageLinked(LINK_SET,204006,(string)gvOnColor,"4");
llMessageLinked(LINK_SET,204000,"* Welcome! No prims are in use","4");
}else{
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
giLinesShown=llGetListLength(glKeys);
for(i=4;i<=giLinesShown+1;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
for(i=4;i<giScreenRows;i++){
string sM;
sM=" "+llList2String(glNames,i-4)+" ("+llList2String(glCounts,i-4)+")";
debug2("sM: "+sM);
if(llList2String(glKeys,i-4)!=""){
if(llList2Integer(glPresences,i)==0){
sM=sM+" (not here)";
llMessageLinked(LINK_SET,204006,(string)gvOffColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}else{
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}
}
}
}
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Prim tracker==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will track who rezzes new prims, removes all their prims, and leaves without cleaning up.
//
integer giInputChan=643; // Chat channel to listen for data on
integer giLeftBehindTol=125; // Don't nag someone unless they have more than this
//
// There are no more settings past this line.
//
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glOldKeys;
list glOldNames;
list glOldCounts;
list glOldPresences;
list glWarnList;
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
say(string mess, string hours, string minutes){llOwnerSay(hours+minutes+"Z: "+mess);}
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
debug1(string mess){if(DEBUG>0){llOwnerSay("Debug: "+mess);}} // Minimal debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<1,0,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
state running;
}}
}
state running{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<0,1,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state running;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
//glRaw=llDeleteSubList(glRaw,0,3);
//debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
integer iOL=llGetListLength(glOldKeys);
debug2("iOL: "+(string)iOL);
integer iKL=llGetListLength(glKeys);
debug2("iKL: "+(string)iKL);
for(i=0;i<iKL;i++){
key kT=llList2Key(glKeys,i);
string sN=llList2String(glNames,i);
integer iNC=llList2Integer(glCounts,i);
integer iOC;
integer iOCAt=llListFindList(glOldKeys,[kT]);
if(iOCAt==-1){iOC=-1;}else{iOC=llList2Integer(glOldCounts,iOCAt);}
integer iNP=llList2Integer(glPresences,i);
integer iOP;
integer iOPAt=llListFindList(glOldKeys,[kT]);
if(iOPAt==-1){iOP=0;}else{iOP=llList2Integer(glOldPresences,iOPAt);}
debug1("kT: "+(string)kT);
debug1("sN: "+sN);
debug1("iNC: "+(string)iNC);
debug1("iOC: "+(string)iOC);
debug1("iNP: "+(string)iNP);
debug1("iOP: "+(string)iOP);
debug1("\n");
if(kT!="(unknown)"){if(iOCAt==-1){
if(iNC==1){say(sN+" rezzed 1 prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)iNC+" prims.",sHours,sMinutes);}
}}
if(iOP==0){if(iNP==1){if(iOPAt!=-1){
say(sN+" came back.",sHours,sMinutes);
}}}
if(iNC>iOC){if(kT!="(unknown)"){
if(iNC-iOC==1){say(sN+" rezzed 1 more prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)(iNC-iOC)+" more prims.",sHours,sMinutes);}
}}
if(iOC>iNC){if(kT!="(unknown)"){
if(iOC-iNC==1){say(sN+" removed 1 prim.",sHours,sMinutes);}
else{say(sN+" removed "+(string)(iOC-iNC)+" prims.",sHours,sMinutes);}
}}
if(iOP==1){if(iNP==0){if(kT!="(unknown)"){
say(sN+" left "+(string)iNC+" prims behind.",sHours,sMinutes);
if(iNC>giLeftBehindTol){
//llInstantMessage(kT,"You have left "+(string)iNC+" prims behind in "+llGetRegionName()+". Please go back and clean up after yourself so other people can use them.");
say(sN+" was warned for not cleaning up.",sHours,sMinutes);
}
}}}
}
for(i=0;i<iKL;i++){
key kT=llList2Key(glOldKeys,i);
string sN=llList2String(glOldNames,i);
integer iOC=llList2Integer(glOldCounts,i);
integer iNKAt=llListFindList(glKeys,[kT]);
if(iNKAt==-1){if(iOC>0){if(kT!="(unknown)"){
say(sN+" removed all "+(string)iOC+" of their prims.",sHours,sMinutes);
}}}
}
glOldKeys=[];
glOldNames=[];
glOldCounts=[];
glOldPresences=[];
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</lsl>

==Info Fetcher==
<lsl>
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
key gkReq;
integer giRate;
vector gvColor=<0,0.25,0>;
default{
//touch_start(integer num){if(llDetectedKey(0)==llGetOwner()){llResetScript();}}
state_entry(){
llMessageLinked(LINK_SET,204006,(string)gvColor,"1");
llMessageLinked(LINK_SET,204006,(string)gvColor,"2");
llMessageLinked(LINK_SET,204006,(string)gvColor,"3");
llMessageLinked(LINK_SET,204000,"","1");
llMessageLinked(LINK_SET,204000,"","2");
llMessageLinked(LINK_SET,204000,"","3");
state poll;
}
}
state poll{
state_entry(){giRate=0;llSetTimerEvent(60);gkReq=llHTTPRequest("http://secondlife.com/httprequest/homepage.php",[],"");}
http_response(key req,integer status,list meta,string mess){if(status==200){
list lT=llParseString2List(mess,["\n"],[]);
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
llMessageLinked(LINK_SET,204000,"* Grid population: "+llList2String(lT,17),"2");
llMessageLinked(LINK_SET,204000,"* Exchange rate: L$"+(string)llRound(llList2Float(lT,11))+" per USD","3");
}}
link_message(integer sender,integer num,string mess,key id){if(num==99292){
if(mess=="poll"){state poll;}
}}
timer(){
giRate++;
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
if(giRate>30){state poll;}
}
}
</lsl>

User:Cow Taurog/Prim owner board

2014-04-22T10:09:29Z

Cow Taurog: Created page with "__NOTOC__ ==Prim poller== <source lang="lsl"> // This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License. // To view a copy of …"

__NOTOC__
==Prim poller==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// Cow Taurog's prim owner info fetcher
// Last edited on 08/27/2010
//
// This script will grab a list of people that have prims on the parcel, prim count, and online status.
// The list will be sorted by descending prim count, and their names resolved, then sent over chat and/or link message.
// You can use the output provided in your own script, or drop in the display scripts.
//
// This will not work if you aren't in the same sim unless:
// -The land is owned by a group, not an individual.
// -This object is deeded to (owned by) the group, not an individual.
// You will need to set full perms, and share with the group if you want to be able to edit
// the server once it is deeded. You will also need to share with group again after it is deeded.
// Group names cannot be resolved from their key, so any group owned objects will show as unknown.
// This whole "not working when the owner is gone" thing is why we need this to act by itself as a server.

// -Settings-

float gfPoll=90; // How often to update in seconds. Depends on how fast the display you will use refreshes.

integer giLinkMsgChan=43; // Channel to output the data over link message on (0 to disable).

integer giChatChan=643; // Channel to output the data over chat on (0 to disable).

// The data is output as a pipe seperated list of the key, name, prim count, and presence of all prim owners.
// The parcel key is the first item in the list, useful for making sure we get the right info.
// <parcel key>|<owner1 key>|<owner1 name>|<owner1 primcount>|<owner1 in sim (1/0)>|<owner2 key>...

list glExcludeKeys=["38429ab1-2d0a-4535-962f-a909cee910e0","83b1a9ee-d1fa-1e11-486c-1aa470872db5"];
// You can choose to exclude any person or group from being shown on the list. I have myself and my group in this list.

float gfDataTimeout=3.0; // How long before giving up on response from the name resolution (owner is a group or <1 day old)

//
// There are no more settings past this line.
//

list glRaw; // Stores raw data so we can sort and add to it
key gkAct; // Target's key
integer giCount; // Target's prim count
integer giRawLen; // Length of the raw data list
integer giExcLen; // Length of the key exclusion list
list glData; // Sorted and completed data
integer i; // Counter
integer k; // Counter
key gkReq; // Dataserver request handle
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
key gkDebugTo=""; // Key to IM debug messages to. Blank to disable.
debug2(string mess){if(DEBUG==2){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Verbose debug function
debug1(string mess){if(DEBUG>0){if(gkDebugTo==""){llInstantMessage(gkDebugTo,"Debug: "+mess);}}} // Minimal debug function
default{
on_rez(integer param){llResetScript();} //Reset when rezzed
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}} // Reset when owner changes
state_entry(){
glData=[]; // Clear data from the last run
glRaw=llGetParcelPrimOwners(llGetPos()); // Get keys and prim counts from the parcel
giRawLen=llGetListLength(glRaw); // Calculate length of the raw data
giExcLen=llGetListLength(glExcludeKeys); // Calculate length of the exclusion list
debug1("glRaw: "+llList2CSV(glRaw));
// Remove anyone on the exclusion list
for(i=0;i<giExcLen;i++){ // Check every entry in the exclusion list
string sF=llList2String(glExcludeKeys,i); // Store target key
debug2("sF: "+sF);
integer iAt=llListFindList(glRaw,[(key)sF]); // Store location of target key
debug2("iAt: "+(string)iAt);
if(iAt!=-1){ glRaw=llDeleteSubList(glRaw,iAt,iAt+1);} // If the target is in the list, remove it
}
debug2("glRaw after exclusion: "+llList2CSV(glRaw));
// We can only sort by the first item in a strided list, so we need to reverse the list.
// Put the prim count first, and make sure it is casted as an integer instead of a string.
for(i=0;i<giRawLen;i=i+2){ // Loop through the entire list (stride of 2, note the i=i+2 instead of i++)
integer iCount=llList2Integer(glRaw,i+1); // Store prim count as integer to ensure proper typecasting
string sOwner=llList2String(glRaw,i); // Store owner key
glData=glData+[iCount,sOwner]; // Add these to the new data list in reverse order
}
// Sort the data by prim count
integer iDL=llGetListLength(glData)-4; // There is one blank stride on the list for some reason, note the -4.
debug2("glData before chop: "+llList2CSV(glData));
glData=llDeleteSubList(glData,iDL,-1); // Chop off the extra entry
debug2("glData before sort: "+llList2CSV(glData));
glRaw=[]; // Blank out the raw info from earlier, we don't need it
glRaw=llListSort(glData,2,FALSE); // Sort data and store it into the empty list
glData=[]; // Blank out the data we just sorted from
debug2("glRaw after sort: "+llList2CSV(glRaw));
i=0; // Set i to zero so we can use it
// The script now has a sorted list of keys and prim counts. We now resolve their names, and find if they are here
// We will toggle back and forth between two identical states to resolve the names from the dataserver.
state fillA; // Go to the first state
}
}
state fillA{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){ // If the timer event is triggered, the name could not be found, either it is a group or <1 day old.
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1]; // Store their info into the final list
i=i+2; // Increment i by 2 since the list is strided
if(i+4<giRawLen){state fillB;} // If there is is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}
state_entry(){
llSetTimerEvent(gfDataTimeout); // Set request timeout
gkAct=llList2Key(glRaw,i+1); // Store target's key (these are global since they are used in dataserver too)
giCount=llList2Integer(glRaw,i); // Store target's prim count
gkReq=llRequestAgentData(gkAct,DATA_NAME); // Request the name from the dataserver
debug2("Requested (A)");
}
dataserver(key req,string mess){if(req==gkReq){ // Make sure this is our request, and not some random one
llSetTimerEvent(0); // Keep the timeout event from triggering since we got our result
debug2("Dataserver (A): "+mess);
vector vO=llGetAgentSize(gkAct); // Store the target's size (will be <0,0,0> if they are a group, or aren't in the sim)
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];} // Put their info into the final list, and a 1 for presence
else{glData=glData+[gkAct,mess,giCount,0];} // Put their info into the final list, and a 0 for presence
llSleep(0.1); // Wait for a tiny bit to prevent weirdness
i=i+2; // Increment i by 2 to advance to the next entry
if(i+4<giRawLen){state fillB;} // If there is still more to resolve, go to the next state
else{debug2("show");state show;} // Otherwise finish and show the results
}}
}
state fillB{ // Second verse, same as the first. Only this one goes to state fillA instead.
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
timer(){
debug1("Timeout.");
glData=glData+[gkAct,"(unknown)",giCount,1];
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}
state_entry(){
llSetTimerEvent(gfDataTimeout);
gkAct=llList2Key(glRaw,i+1);
giCount=llList2Integer(glRaw,i);
gkReq=llRequestAgentData(gkAct,DATA_NAME);
debug2("Requested (B)");
}
dataserver(key req,string mess){if(req==gkReq){
llSetTimerEvent(0);
debug2("Dataserver (B): "+mess);
vector vO=llGetAgentSize(gkAct);
if(vO!=ZERO_VECTOR){glData=glData+[gkAct,mess,giCount,1];}
else{glData=glData+[gkAct,mess,giCount,0];}
llSleep(0.1);
i=i+2;
if(i+4<giRawLen){state fillA;}else{debug2("show");state show;}
}}
}
state show{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
state_entry(){
llSetTimerEvent(gfPoll); // Start the timer so we can do this all over again
llListen(giChatChan+1,"","",""); // Listen for a reset message
debug1("glData: "+llList2CSV(glData));
string sD=llDumpList2String(glData,"|"); // Dump the whole thing into a string seperated with "|"
string sI=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0); // Store the parcel key
if(giLinkMsgChan!=0){llMessageLinked(LINK_SET,giLinkMsgChan,sD,(key)sI);} // Output data on linkmsg
if(giChatChan!=0){llRegionSay(giChatChan,sI+"|"+sD);debug2((string)giChatChan+": "+sI+"|"+sD);} // Output on chat
}
timer(){i=0;glData=[];state default;} // Time to poll again, reset the list and the counter, and start over.
listen(integer chan,string name,key id,string mess){
if(llSameGroup(id)==TRUE){if(mess=="refresh"){i=0;glData=[];state default;}} // Refresh if told to
}
}
</source>

==Hovertext prim owner display==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
//This script is meant to provide a easy and fast display that shows the parcel's prim owner info as hovertext.
//You can drop this into any object on the parcel.
integer giInputChan=643; // Chat channel to listen for data on
vector gvColor=<0.3,0.6,1>; // Text color
float gfAlpha=1; // Text transparency (0=transparent, 1=opaque)
//
// There are no more settings past this line.
//
string gsOutput; // Stores final output
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llSetText("",gvColor,gfAlpha);llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetText("",gvColor,gfAlpha);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
gsOutput=
" Updated "+sHours+sMinutes+"Z\n"+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain\n";
for(i=1;i<=llGetListLength(glKeys);i++){
key kL=(key)((string)i);
gsOutput=gsOutput+" "+llList2String(glNames,i-1)+" ("+llList2String(glCounts,i-1)+")";
if(llList2String(glPresences,i-1)=="1"){gsOutput=gsOutput+"\n";}
else{gsOutput=gsOutput+" (not here)\n";}
}
llSetText(gsOutput,gvColor,gfAlpha);
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</source>

==Xyzzy text prim owner display==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will make a xyzzytext display show info about the prim owners on your parcel.
// Drop this and the xyzzy controller into your display, and set the number of lines to match yours.
integer giInputChan=643; // Chat channel to listen for data on.
integer giScreenRows=10; // Number of rows in your xytext display.
vector gvOnColor=<0,0.25,0.5>; // Font color for people who are here.
vector gvOffColor=<0.5,0.25,0>; // Font color for people who aren't here.
vector gvTextColor=<0,0.25,0>; // Font color for normal text
float gfDelay=90; // How often to poll for changes
//
// There are no more settings past this line.
//
integer giLinesShown; // Counts number of lines used so we don't have to blank all of them
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
//for(i=0;i<=giLinesShown+2;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}}
//timer(){llMessageLinked(LINK_SET,99292,"poll","");}
state_entry(){
giScreenRows++; // Rows start at zero, so add 1 to use normal human numbers
//llSetTimerEvent(gfDelay);
llMessageLinked(LINK_SET,204000,"","0");
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
for(i=4;i<giScreenRows;i++){
llMessageLinked(LINK_SET,204000,"",(string)i);
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(string)i);
}
//for(i=0;i<giScreenRows;i++){llMessageLinked(LINK_SET,204000,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",(string)i);}
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
llRegionSay(giInputChan+1,"refresh");
llMessageLinked(LINK_SET,99292,"poll","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("raw mess: "+mess);
if(llGetSubString(mess,36,-1)=="||(unknown)|0|1"){
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
//for(i=4;i<=giScreenRows;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
llMessageLinked(LINK_SET,204006,(string)gvOnColor,"4");
llMessageLinked(LINK_SET,204000,"* Welcome! No prims are in use","4");
}else{
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,0)];
glNames=glNames+[llList2String(glRaw,1)];
glCounts=glCounts+[llList2Integer(glRaw,2)];
glPresences=glPresences+[llList2Integer(glRaw,3)];
glRaw=llDeleteSubList(glRaw,0,3);
debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
giLinesShown=llGetListLength(glKeys);
for(i=4;i<=giLinesShown+1;i++){llMessageLinked(LINK_SET,204000,"",(string)i);}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
llMessageLinked(LINK_SET,204000,
" Updated "+sHours+sMinutes+"Z "+
(string)(llGetParcelMaxPrims(llGetPos(),1)-llGetParcelPrimCount(llGetPos(),PARCEL_COUNT_TOTAL,1))+
" prims remain ","0");
for(i=4;i<giScreenRows;i++){
string sM;
sM=" "+llList2String(glNames,i-4)+" ("+llList2String(glCounts,i-4)+")";
debug2("sM: "+sM);
if(llList2String(glKeys,i-4)!=""){
if(llList2Integer(glPresences,i)==0){
sM=sM+" (not here)";
llMessageLinked(LINK_SET,204006,(string)gvOffColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}else{
llMessageLinked(LINK_SET,204006,(string)gvOnColor,(key)((string)i));
llMessageLinked(LINK_SET,204000,sM,(key)((string)i));
}
}
}
}
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</source>

==Prim tracker==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
// This script will track who rezzes new prims, removes all their prims, and leaves without cleaning up.
//
integer giInputChan=643; // Chat channel to listen for data on
integer giLeftBehindTol=125; // Don't nag someone unless they have more than this
//
// There are no more settings past this line.
//
key gkParcel; // Stores the parcel's key
list glKeys; // Stores prim owner's keys
list glNames; // Stores prim owner's names
list glCounts; // Stores prim counts
list glPresences; // Stores presence status
list glOldKeys;
list glOldNames;
list glOldCounts;
list glOldPresences;
list glWarnList;
list glRaw; // Stores raw data
integer i; // Counter
integer DEBUG=0; // Debug level. 0=none, 1=minimal, 2-verbose
say(string mess, string hours, string minutes){llOwnerSay(hours+minutes+"Z: "+mess);}
debug2(string mess){if(DEBUG==2){llOwnerSay("Debug: "+mess);}} // Verbose debug function
debug1(string mess){if(DEBUG>0){llOwnerSay("Debug: "+mess);}} // Minimal debug function
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<1,0,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state default;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
state running;
}}
}
state running{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llRegionSay(giInputChan+1,"refresh");
}}
state_entry(){
llSetColor(<0,1,0>,-1);
gkParcel=llList2Key(llGetParcelDetails(llGetPos(),[PARCEL_DETAILS_ID]),0);
llListen(giInputChan,"","","");
}
listen(integer chan,string name,key id,string mess){if(llSameGroup(id)==TRUE){
debug2("mess: "+mess);
glRaw=llParseString2List(mess,["|"],[]);
debug2("glRaw: "+llList2CSV(glRaw));
if(llList2Key(glRaw,0)!=gkParcel){state running;}
glRaw=llDeleteSubList(glRaw,0,0);
debug2("glRaw after removed parcel: "+llList2CSV(glRaw));
integer iRawLen=llGetListLength(glRaw);
for(i=0;i<iRawLen;i=i+4){
glKeys=glKeys+[llList2Key(glRaw,i)];
glNames=glNames+[llList2String(glRaw,i+1)];
glCounts=glCounts+[llList2Integer(glRaw,i+2)];
glPresences=glPresences+[llList2Integer(glRaw,i+3)];
//glRaw=llDeleteSubList(glRaw,0,3);
//debug2("glRaw entry removal: "+llList2CSV(glRaw));
}
glRaw=[];
debug2("glKeys: "+llList2CSV(glKeys));
debug2("glNames: "+llList2CSV(glNames));
debug2("glCounts: "+llList2CSV(glCounts));
debug2("glPresences: "+llList2CSV(glPresences));
debug2("glOldKeys: "+llList2CSV(glOldKeys));
debug2("glOldNames: "+llList2CSV(glOldNames));
debug2("glOldCounts: "+llList2CSV(glOldCounts));
debug2("glOldPresences: "+llList2CSV(glOldPresences));
float fClock=llGetGMTclock();
integer iHours=((integer)fClock/3600);
integer iMinutes=((integer)fClock/60)-(iHours*60);
string sHours=(string)iHours;
if(iHours<10){sHours="0"+sHours;}
string sMinutes=(string)iMinutes;
if(iMinutes<10){sMinutes="0"+sMinutes;}
integer iOL=llGetListLength(glOldKeys);
debug2("iOL: "+(string)iOL);
integer iKL=llGetListLength(glKeys);
debug2("iKL: "+(string)iKL);
for(i=0;i<iKL;i++){
key kT=llList2Key(glKeys,i);
string sN=llList2String(glNames,i);
integer iNC=llList2Integer(glCounts,i);
integer iOC;
integer iOCAt=llListFindList(glOldKeys,[kT]);
if(iOCAt==-1){iOC=-1;}else{iOC=llList2Integer(glOldCounts,iOCAt);}
integer iNP=llList2Integer(glPresences,i);
integer iOP;
integer iOPAt=llListFindList(glOldKeys,[kT]);
if(iOPAt==-1){iOP=0;}else{iOP=llList2Integer(glOldPresences,iOPAt);}
debug1("kT: "+(string)kT);
debug1("sN: "+sN);
debug1("iNC: "+(string)iNC);
debug1("iOC: "+(string)iOC);
debug1("iNP: "+(string)iNP);
debug1("iOP: "+(string)iOP);
debug1("\n");
if(kT!="(unknown)"){if(iOCAt==-1){
if(iNC==1){say(sN+" rezzed 1 prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)iNC+" prims.",sHours,sMinutes);}
}}
if(iOP==0){if(iNP==1){if(iOPAt!=-1){
say(sN+" came back.",sHours,sMinutes);
}}}
if(iNC>iOC){if(kT!="(unknown)"){
if(iNC-iOC==1){say(sN+" rezzed 1 more prim.",sHours,sMinutes);}
else{say(sN+" rezzed "+(string)(iNC-iOC)+" more prims.",sHours,sMinutes);}
}}
if(iOC>iNC){if(kT!="(unknown)"){
if(iOC-iNC==1){say(sN+" removed 1 prim.",sHours,sMinutes);}
else{say(sN+" removed "+(string)(iOC-iNC)+" prims.",sHours,sMinutes);}
}}
if(iOP==1){if(iNP==0){if(kT!="(unknown)"){
say(sN+" left "+(string)iNC+" prims behind.",sHours,sMinutes);
if(iNC>giLeftBehindTol){
//llInstantMessage(kT,"You have left "+(string)iNC+" prims behind in "+llGetRegionName()+". Please go back and clean up after yourself so other people can use them.");
say(sN+" was warned for not cleaning up.",sHours,sMinutes);
}
}}}
}
for(i=0;i<iKL;i++){
key kT=llList2Key(glOldKeys,i);
string sN=llList2String(glOldNames,i);
integer iOC=llList2Integer(glOldCounts,i);
integer iNKAt=llListFindList(glKeys,[kT]);
if(iNKAt==-1){if(iOC>0){if(kT!="(unknown)"){
say(sN+" removed all "+(string)iOC+" of their prims.",sHours,sMinutes);
}}}
}
glOldKeys=[];
glOldNames=[];
glOldCounts=[];
glOldPresences=[];
glOldKeys=glKeys;
glOldNames=glNames;
glOldCounts=glCounts;
glOldPresences=glPresences;
glKeys=[];
glNames=[];
glCounts=[];
glPresences=[];
}}
}
</source>

==Cager finder==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
//Bounding box: <-3.659322, -3.659323, -2.942255>, <3.659322, 3.659322, 2.992700>
//Prim count: 2
//
//[22:35] Cager finder: Bounding box: <-3.659322, -3.659323, -2.942255>, <3.659322, 3.659322, 2.992700>
//Prim count: 2
//
//[22:35] Cager finder: Bounding box: <-1.321905, -1.321905, -1.606233>, <1.321905, 1.321905, 1.566233>
//Prim count: 3
string gsTarget=">:)"; // Name of the object to seek
integer giPrimCount=3; // How many prims the object is
integer giType; // Type of object
float gfMass=19.712570; // Mass of object
//float gfMassTol=0.1; // Mass tolerance
list glIdiots; // Idiot list
list glBound=[<-1.321905,-1.321905,-1.606233>,<1.321905,1.321905,1.566233>]; // Bounding box
//vector gvBoundTol=0.15; // Tolerance of bounding box
float gfRange=96.0; // Range of sensor
float gfPoll=2; // How often to poll
default{
on_rez(integer param){llResetScript();}
changed(integer change){if(change&CHANGED_OWNER){llResetScript();}}
state_entry(){
giType=ACTIVE|PASSIVE;
llSetText("",<0.8,0.8,0.8>,1);
llSensorRepeat(gsTarget,"",giType,gfRange,PI,gfPoll);
}
sensor(integer num){integer i;for(i=0;i<num;i++){
string sM;
sM=sM+"Bounding box: "+llList2CSV(llGetBoundingBox(llDetectedKey(i)))+"\n";
sM=sM+"Prim count: "+(string)llGetObjectPrimCount(llDetectedKey(i))+"\n";
llOwnerSay(sM);
//llSetText(sM,<0.8,0.8,0.8>,1);
if(llGetObjectPrimCount(llDetectedKey(i))==giPrimCount){
llOwnerSay("Prim count");
if(gfMass==llGetObjectMass(llDetectedKey(i))){

//if(llGetBoundingBox(llDetectedKey(i))==glBound){
key kO=llDetectedOwner(i);
if(llListFindList(glIdiots,[kO])==-1){glIdiots=glIdiots+[kO];}
}}//}
}}
touch_start(integer num){if(llDetectedKey(num-1)==llGetOwner()){
llOwnerSay("Idiots: "+llList2CSV(glIdiots));
}}
}
</source>
==Info Fetcher==
<source lang="lsl">
// This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
// To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to
// Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.
//
key gkReq;
integer giRate;
vector gvColor=<0,0.25,0>;
default{
//touch_start(integer num){if(llDetectedKey(0)==llGetOwner()){llResetScript();}}
state_entry(){
llMessageLinked(LINK_SET,204006,(string)gvColor,"1");
llMessageLinked(LINK_SET,204006,(string)gvColor,"2");
llMessageLinked(LINK_SET,204006,(string)gvColor,"3");
llMessageLinked(LINK_SET,204000,"","1");
llMessageLinked(LINK_SET,204000,"","2");
llMessageLinked(LINK_SET,204000,"","3");
state poll;
}
}
state poll{
state_entry(){giRate=0;llSetTimerEvent(60);gkReq=llHTTPRequest("http://secondlife.com/httprequest/homepage.php",[],"");}
http_response(key req,integer status,list meta,string mess){if(status==200){
list lT=llParseString2List(mess,["\n"],[]);
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
llMessageLinked(LINK_SET,204000,"* Grid population: "+llList2String(lT,17),"2");
llMessageLinked(LINK_SET,204000,"* Exchange rate: L$"+(string)llRound(llList2Float(lT,11))+" per USD","3");
}}
link_message(integer sender,integer num,string mess,key id){if(num==99292){
if(mess=="poll"){state poll;}
}}
timer(){
giRate++;
llMessageLinked(LINK_SET,204000,"* Sim population: "+(string)llGetRegionAgentCount(),"1");
if(giRate>30){state poll;}
}
}
</source>
{{MP}}

2010-07-22T18:36:19Z

Cow Taurog: /* Scripts */

<div style="float: right; border: solid black 1px; margin: 1px;">
{| cellspacing="0" style="width: 300px; background: silver;"
| style="width: 20px; height: 20px; background: #666666; text-align: center;" | [[Image:Landmark_green.png|20px]]
| style="font-size: 8pt; padding: 4pt; line-height: 1.25em; color: black;" | [http://slurl.com/secondlife/Grendel/10/200/52/ The pasture, Grendel (10,200,52)]
|}</div>

I'll most likely be found working on the [[LSL_Portal|LSL portal]]. If you want to ask me something, [https://wiki.secondlife.com/w/index.php?title=User_talk:Cow_Taurog&action=edit&section=new leave me a message on my talk page], or IM me. A few (all) people seem to find my style of writing scripts to be rather unorthodox, but I find through my own experience that it makes it easier to look at things and be able to tell what they are at a glance, and edit just one line of code without having to spend more time selecting than typing. I am the sole creator of any LSL script I have listed in my userspace unless otherwise noted, not including PHP or any other text, or any functions that have come from a script library or other source (proper attribution will be given, unless it is just a function). Any script that I have created is free to copy, modify, and yes, even sell. I might even help you out with any questions you have, but I won't tell you step by step how to do everything forever, that's what reference materials (and L$) are for. If you're using my scripts, or editing them in this wiki (feel free, I can always revert if I don't like it), keep these points in mind...

* I don't use spaces, unless they are part of a string, or the declaration of a variable.
* I hardly ever use comments. I find them redundant, as the code already tells me what it does.
* I use the [http://en.wikipedia.org/wiki/Indent_style one true brace style], all that whitespace is annoying and unnecessary.
* I name variables as you would name an object in [http://en.wikipedia.org/wiki/Visual_Basic VB]. I think using all caps should only be reserved for constants. (glList for a global list, gsString for a global string, lList for a local list, sString for a local string, gfFloat, grRotation, and so on). Exceptions are counters such as integer i, and handlers such as integer listen0.
* I always use curly brackets to enclose any flow control statement (if, else, while, etc). Using tabs alone isn't enough, it might still not compile, makes syntax troubleshooting hard, and you have to add brackets if you add too much code inside them later anyways.
* [http://en.wikipedia.org/wiki/Be_bold_in_editing_articles Be bold.]

==Scripts==
*[[User:Cow Taurog/Radio tuner|Radio tuner]]
*[[User:Cow Taurog/Prim count|Prim count]]
*[[User:Cow Taurog/Language scanner|Language scanner]]
*[[User:Cow Taurog/Prim cloner|Prim cloner]]
*[[User:Cow Taurog/Sim map texture|Sim map texture]]
*[[User:Cow Taurog/Sky elevator|Sky elevator]]
*[[User:Cow Taurog/SMS|SMS]]
*[[User:Cow Taurog/Email-chat|Email-chat]]
*[[User:Cow Taurog/Name to key|Name to key]]
*[[User:Cow Taurog/Online indicator|Online indicator]]
*[[User:Cow Taurog/Update server|Update server]]
*[[User:Cow Taurog/Teleporter|Teleporter]]
*[[User:Cow Taurog/Walk sound|Walk sound]]
*[[User:Cow Taurog/Visitor nagger|Visitor nagger]]

Talk:Viewer 2 Tweaks/Beta 3

2010-03-03T22:59:35Z

Cow Taurog: /* Don't crunch my view in mouselook either */

== Nearby chat in conversation floater ==
If anyone has a clue where to start to reattach the Local Chat (or Nearby Chat) the Communications (er, Conversations) window, I'd LOOOVE to know. [[User:Seshat Czeret|Seshat Czeret]] 21:16, 28 February 2010 (UTC)
:Vote here: {{jira|VWR-17332}} — [[User:Boroondas Gupte|Boroondas Gupte]] 21:41, 1 March 2010 (UTC)
:: Thank you! [[User:Seshat Czeret|Seshat Czeret]] 22:50, 1 March 2010 (UTC)

== Don't crunch my view in mouselook either ==

I love the patch by [[User:Alexandrea_Fride]] that keeps the sidebar from crunching my camera view. But there's another annoyance out there to quell, mouselook wrecks your camera view also. I had a quick lookthrough of the xml to see if I could find out where mouselook view keeps all those settings, but found nothing. Does anyone know how to fix this too, disabling the squishy viewscreen problem for good? Unless I'm missing another instance where things get wrecked of course.
:Edit: Double brownie points for getting rid of the "press esc to return to world view" text. I knew this (or knew trying it wouldn't kill me) from the very first time I logged on, without anything telling me this. Besides, I just scroll in/out with the mouse anyways, nevermind the keyboard. This is like having "to start car, insert key, turn" etched into your windshield.
:For the final release, this would be a good opportunity to...
:#Make this show once in a notification box with the option to "never warn me again" like you get when you quit SL, deed something, etc.
:#Show for a few seconds each time mouselook is entered, and then fade.
:#Provide a popup in the bottom right corner as you would see when a sim is restarting, or you recieve an object.
:#Just let that one person who gets stuck relog every time, or read help and figure it out. Counterintuivity will hold you back your entire life (real or otherwise), this is as good of a time as any to get rid of it.
:#Anything at all besides having this ugly text shoved down my throat forever and again. I'd rather have another HUD there instead.
:*[http://jira.secondlife.com/browse/VWR-17983 VWR 17983] 
-[[User:Cow Taurog|Cow Taurog]] 22:59, 3 March 2010 (UTC)

2009-03-14T09:53:27Z

Cow Taurog: New page: Drop both of these scripts into the same prim. Change the settings in the first script to match your taste. The prim will listen for chat on a given channel, and send any chat to the speci...

Drop both of these scripts into the same prim. Change the settings in the first script to match your taste. The prim will listen for chat on a given channel, and send any chat to the specified email address. It will also check for emails from the same address, and play them over public chat.
<lsl>
string gsOwnerName="John Doe"; // REPLACE THIS WITH YOUR NAME
string gsOwner="nobody@example.com"; // REPLACE THIS WITH YOUR EMAIL ADDRESS
integer giPubChan=8; // Will send chat heard on this channel over email (not zero, not negative)
float gfFreq=15; // How often in seconds to check for new email
integer giTruncate=0; // Chops off the signature of a received email, 0 to keep it or if you don't have one
integer giEmailComm=1102; // Linkmessage channel to use for the email wrapper, doesn't need to be changed
integer giHovertext=TRUE; // Show instructional hovertext (instructions on replying are also given over chat)
vector gvTextColor=<1,0.5,0>; // Hovertext color
integer DEBUG=0; // 0 - No debug, 1 - Minimal debug, 2 - Verbose debug
// Declarations
integer listen0;
integer giOutChan;
integer giLength;
string gsSay;
integer i;
integer giShout;
string gsOriginalName;
string gsHelpMess="All commands are given in the subject line, (parameters) for commands are put in the body of the message. Only messages from the owner's email address are used, all others are ignored. \nInput (channel) - Sets the local chat channel used to send messages. \nSay - Incoming messages will be said over local chat. \nShout - Incoming messages will be shouted over local chat. \nOff - Disables the sending of messages using local chat. \nOn - Enables the sending of messages using local chat. \nReset - Resets the script.";

sendemail(string address,string subject,string message){ // same format as llEmail, uses a wrapper script to eliminate the delay
llMessageLinked(LINK_SET,giEmailComm,address+"|"+subject,message);
}

default{
state_entry(){
string sMyEmail=(string)llGetKey()+"@lsl.secondlife.com";
gsOriginalName=llGetObjectName();
if(giPubChan==0){giPubChan=9;}giPubChan=llAbs(giPubChan); // if channel is negative or zero, correct it
llSetText("",ZERO_VECTOR,1);
llOwnerSay("Address: "+sMyEmail);
llOwnerSay("Type on /"+(string)giPubChan+" to send an email, Replies will be played over local chat.");
sendemail(gsOwner,llGetRegionName()+" email/chat relay online.","The "+llGetRegionName()+" email/chat relay is online. Send an email with 'Help' as the subject line for more info. \n\n"+sMyEmail);
state running;
}
}

state running{
state_entry(){
if(DEBUG>0){llOwnerSay("Running...");}
llSetTimerEvent(gfFreq);
listen0=llListen(giPubChan,"","","");
if(giHovertext==TRUE){llSetText("Type on /"+(string)giPubChan+" to send an email, Replies will be played over local chat.",gvTextColor,1);}
}
timer(){llGetNextEmail("","");}
listen(integer chan,string name,key id,string mess){if(chan==giPubChan){
sendemail(gsOwner,llGetRegionName()+", "+name,mess);
llGetNextEmail("","");
}}
email(string time,string addy,string subj,string mess,integer left){
if(subj=="Off"){
llListenRemove(listen0);
if(DEBUG>0){llOwnerSay("Not listening...");}
sendemail(gsOwner,llGetRegionName()+", ch. "+(string)giPubChan+" listen off.","The listen on ch. "+(string)giPubChan+" has been turned off.");
llSetText("",gvTextColor,1);
return;
}
if(subj=="On"){
listen0=llListen(giPubChan,"","","");
if(DEBUG>0){llOwnerSay("Listening...");}
sendemail(gsOwner,llGetRegionName()+", ch. "+(string)giPubChan+" listen on.","The listen on ch. "+(string)giPubChan+" has been turned on.");
if(giHovertext==TRUE){llSetText("Type on /"+(string)giPubChan+" to send an email. Replies will be played over local chat.",gvTextColor,1);}
return;
}
if(subj=="Input"){
if(mess=="0"){mess="1";}
llListenRemove(listen0);
giPubChan=(integer)mess;
listen0=llListen(giPubChan,"","","");
if(DEBUG>0){llOwnerSay("Listen changed to ch. "+(string)giPubChan+"...");}
sendemail(gsOwner,llGetRegionName()+", now listening on "+(string)giPubChan,"The listen is now on on ch. "+(string)giPubChan);
if(giHovertext==TRUE){llSetText("Type on /"+(string)giPubChan+" to send an email. Replies will be played over local chat.",gvTextColor,1);}
return;
}
if(subj=="Reset"){
if(DEBUG>0){llOwnerSay("Resetting...");}
sendemail(gsOwner,llGetRegionName()+", resetting.","Resetting...");
llResetScript();
}
if(subj=="Say"){
if(DEBUG>0){llOwnerSay("Now using say instead of shout...");}
sendemail(gsOwner,llGetRegionName()+", shout off.","Now using say instead of shout...");
giShout=FALSE;
return;
}
if(subj=="Shout"){
if(DEBUG>0){llOwnerSay("Now using shout instead of say...");}
sendemail(gsOwner,llGetRegionName()+", shout off.","Now using shout instead of say...");
giShout=TRUE;
return;
}
else if(subj=="Help"){sendemail(gsOwner,llGetRegionName()+" email/chat relay help list.",gsHelpMess);return;}
else if(subj=="'Help'"){sendemail(gsOwner,llGetRegionName()+" email/chat relay help list.",gsHelpMess);return;} // if they ask for 'help', not help...
else if(subj==""){
giLength=llStringLength(mess);
gsSay=llGetSubString(mess,0,(giLength-giTruncate));
if(addy==gsOwner){llSetObjectName(gsOwnerName);}
if(giShout==FALSE){llSay(0,gsSay+" (Reply on /"+(string)giPubChan+".)");}
if(giShout==TRUE){llShout(0,gsSay+" (Reply on /"+(string)giPubChan+".)");}
llSetObjectName(gsOriginalName);
return;
}
else{sendemail(gsOwner,llGetRegionName()+", error.","Invalid command given. The subject line is used only for sending commands, not for sending chat. Leave the subject blank to send a message over chat, or send an email with 'Help' as the subject line.");}
llGetNextEmail("","");
}
}
</lsl>

==Email wrapper==
This script gets around that annoying 20 second delay by using a link message to send an email. The other script can carry on without waiting, but you can still only send an email every 20 seconds.
<lsl>
integer giEmailComm=1102; // must match the main script, no need to change this unless you changed the other one
list glRaw;
string gsAddress;
string gsSubject;
string gsMessage;
//sendemail(string address,string subject,string message){llMessageLinked(LINK_SET,1102,address+"|"+subject,message);}
// ^ the function to use the wrapper in another script, format matches llEmail.
default{
link_message(integer sender,integer num,string mess,key id){
glRaw=llParseString2List(mess,["|"],[]);
gsAddress=llList2String(glRaw,0);
gsSubject=llList2String(glRaw,1);
gsMessage=(string)id;
llEmail(gsAddress,gsSubject,gsMessage);
}
}
</lsl>

User:Cow Taurog/Name to key

2009-03-14T08:44:45Z

Cow Taurog: New page: This script will listen on any number/channel for a link message with "resolvename" as the string, and "User Name" (a real name of course, not User Name) as the id. It will then resolve th...