Unmutable Descript Nagger

From Second Life Wiki
Jump to navigation Jump to search

Unmutable Descript Nagger - Linden Scripting Language (LSL) Version 1.0

Creator

Contributors

If you modify/improve upon the script, please add your name here.

License

This work is licensed under a Creative Commons Attribution 3.0 Unported License

You are free:

  • to Share — to copy, distribute and transmit the work
  • to Remix — to adapt the work

Under the following conditions

  • Attribution. You must attribute the work in the manner specified by the author or licensor (but not in any way that suggests that they endorse you or your use of the work).
  1. For any reuse or distribution, you must make clear to others the license terms of this work. The best way to do this is with a link to this web page.
  2. Any of the above conditions can be waived if you get permission from the copyright holder.
  3. Nothing in this license impairs or restricts the author's moral rights.

Disclaimer

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Purpose

  • To nag avatars to take off their scripted attatchments.

Documentation

The purpose of this


Scripted Attatchment Detector

<lsl> // www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano) //Script Detector by Bobbyb30 Zohari (C) 2008 //Created: July 25, 2008 //Last Modified: July 26, 2008 //////////////////////


/////////// //notecard setup //Range: //Interval: //IgnoreGroup: Yes/no //Display HoverText: Yes/No //Dialog Warning: //Message Warning: //Enable Dialog: Yes/No //Enable Message: Yes/No //Check if on myland: //List the people whom to ignore on the next line...one per line...CaSe doesn't matter

list ignore;

integer displayhovertext; integer range;//how far to scan float interval;//how often to scan

integer ignoregroup;//if true ignore group, else warn them to.

string dialogwarning; integer dialogwarn;

string messagewarning; integer messagewarn;

integer checklandowner; key landowner;

integer rez;//if both are no rez, then

integer line; //link message on ch -1 nonscripted av

integer debug = TRUE; txt(string input) { llSetText("Loading...Please Wait\n \n" + input,<0.2, 1.0, 1.0>,1); if(debug) llOwnerSay("DEBUG: Loading: " +input); }

default { on_rez(integer start_param) { llResetScript(); } state_entry() { llOwnerSay("Loading Settings"); llGetNotecardLine("!Settings",line); } dataserver(key requested, string data) { if(data != EOF) { llGetNotecardLine("!Settings",++line); string text; if(llGetSubString(data,0,5) == "Range:") { range = (integer)llGetSubString(data,6,-1); txt("Range set to " + (string)range); } else if(llGetSubString(data,0,8) == "Interval:") { interval = (integer)llGetSubString(data,9,-1); txt("Interval set to " + (string)interval); } else if(llGetSubString(data,0,12) == "Ignore Group:") { text = llToLower(llStringTrim(llGetSubString(data,13,-1),STRING_TRIM)); if(text == "yes") { ignoregroup = TRUE; txt("Ignoring Group"); } else { ignoregroup = FALSE; txt("Not Ignoring Group"); } } else if(llGetSubString(data,0,17) == "Display HoverText:") { text = llToLower(llStringTrim(llGetSubString(data,18,-1),STRING_TRIM)); if(text == "yes") { displayhovertext = TRUE; txt("Displaying HoverText"); } else { ignoregroup = FALSE; txt("Hiding HoverText"); } } else if(llGetSubString(data,0,14) == "Dialog Warning:") { dialogwarning = llStringTrim(llGetSubString(data,15,-1),STRING_TRIM_HEAD); txt("Dialog Warning set to:\n " + dialogwarning); } else if(llGetSubString(data,0,13) == "Enable Dialog:") { text = llToLower(llStringTrim(llGetSubString(data,14,-1),STRING_TRIM)); if(text == "yes") { dialogwarn = TRUE; txt("Enabling Dialog Warning"); } else { dialogwarn = FALSE; txt("Disabling Dialog Warning"); } } else if(llGetSubString(data,0,15) == "Message Warning:") { messagewarning = llStringTrim(llGetSubString(data,16,-1),STRING_TRIM_HEAD); txt("Message Warning set to:\n " + dialogwarning); } else if(llGetSubString(data,0,14) == "Enable Message:") { text = llToLower(llStringTrim(llGetSubString(data,15,-1),STRING_TRIM)); if(text == "yes") { messagewarn = TRUE; txt("Enabling Message Warning"); } else { messagewarn = FALSE; txt("Disabling Message Warning"); } } else if(llGetSubString(data,0,19) == "Check if on my land:") { text = llToLower(llStringTrim(llGetSubString(data,20,-1),STRING_TRIM)); if(text == "yes") { checklandowner = TRUE; txt("Enabling landchecking"); landowner = llGetLandOwnerAt(llGetPos()); if(llGetOwner() == landowner) return; else if(llList2Key(llGetObjectDetails(llGetKey(),[OBJECT_GROUP]),0) == landowner) return; else llOwnerSay("You must be the landowner or set the group of this object to the landowner group to use it."); } else { checklandowner = FALSE; txt("Disabling landchecking"); } }

else if(data == "List the people whom to ignore on the next line...one per line...CaSe doesn't matter") return; else { //add avatar name to list ignore = (ignore=[]) + ignore + llStringTrim(llToLower(data),STRING_TRIM_TAIL); txt("Added " + data + " to ignorelist"); if(llGetFreeMemory() < 3000) { llOwnerSay("Ran out of memmory on " + data); state scan; } } } else state scan; } changed(integer change) { if(change & CHANGED_INVENTORY) llResetScript(); } moving_end() { llResetScript(); } } state scan { on_rez(integer start_param) { llResetScript(); } changed(integer change) { if(change & CHANGED_INVENTORY) llResetScript(); } moving_end() { llResetScript(); } state_entry() { llSetText("Setup complete...",<1,1,1>,1); llOwnerSay("Setup complete..."); llSensor("","",AGENT,range,TWO_PI); llSensorRepeat("","",AGENT,range,TWO_PI,interval); if((dialogwarn == FALSE) & (messagewarn == FALSE)) rez = FALSE; else rez = TRUE; } sensor(integer total_number) { if(debug) llOwnerSay("Detected:" + (string)total_number + " avatars"); integer counter; string scriptedavatars; do { integer avatarscripted = FALSE; key avatar = llDetectedKey(counter); string avname = llKey2Name(avatar); if(avatar != llGetOwner())//if owner, ignore { // if(llSameGroup(avatar)) // { // if(!ignoregroup)//if it is, no need to check // { // integer randomch = (integer)llFrand(90000000) + 500; // llRezAtRoot("nag",llGetPos(),ZERO_VECTOR,ZERO_ROTATION,randomch); // avatarscripted = TRUE; // llWhisper(randomch,(string)avatar); // if(checklandowner) // { // if(llGetLandOwnerAt(llDetectedPos(counter)) == landowner)//wrong landowner, don't bug them // { // if(messagewarn) // llWhisper(randomch,messagewarning); // if(dialogwarn) // llWhisper(randomch,dialogwarning); // } // } // else // { // if(messagewarn) // llWhisper(randomch,messagewarning); // if(dialogwarn) // llWhisper(randomch,dialogwarning); // } // } // }

if (llGetAgentInfo(avatar) & AGENT_SCRIPTED) { if(debug) llOwnerSay("DEBUG: AGENT SCRIPTED:" + avname); //if(!ignoregroup)//if it is, no need to check

if(llSameGroup(avatar)) { if(debug) llOwnerSay("DEBUG: GROUP: " + avname); if(!ignoregroup) { avatarscripted = TRUE; if(rez) { integer randomch = (integer)llFrand(90000000) + 500; llRezAtRoot("nag",llGetPos(),ZERO_VECTOR,ZERO_ROTATION,randomch); llWhisper(randomch,(string)avatar); if(checklandowner) { if(llGetLandOwnerAt(llDetectedPos(counter)) == landowner)//wrong landowner, don't bug them { if(messagewarn) llWhisper(randomch,messagewarning); if(dialogwarn) llWhisper(randomch,dialogwarning); } } else { if(messagewarn) llWhisper(randomch,messagewarning); if(dialogwarn) llWhisper(randomch,dialogwarning); } } } } llOwnerSay("avname:" + avname);// if(llListFindList(ignore,[llToLower(avname)]) == -1) { if(debug) llOwnerSay("DEBUG: LIST FAIL: " + avname); avatarscripted = TRUE; if(rez) { integer randomch = (integer)llFrand(90000000) + 500; llRezAtRoot("nag",llGetPos(),ZERO_VECTOR,ZERO_ROTATION,randomch); llWhisper(randomch,(string)avatar); if(checklandowner) { if(llGetLandOwnerAt(llDetectedPos(counter)) == landowner)//wrong landowner, don't bug them { if(messagewarn) llWhisper(randomch,messagewarning); if(dialogwarn) llWhisper(randomch,dialogwarning); } } else { if(messagewarn) llWhisper(randomch,messagewarning); if(dialogwarn) llWhisper(randomch,dialogwarning); } } } } integer space = 0;//just a break in the if statements if(avatarscripted)//if scripted, add to list { if(debug) llOwnerSay("DEBUG: AV Scripted: " + avname + "||" + scriptedavatars); scriptedavatars = scriptedavatars + avname + "\n"; llMessageLinked(LINK_ALL_OTHERS,-1,avname,"");//take off list } else llMessageLinked(LINK_ALL_OTHERS,-1,avname,""); } }while(++counter < total_number); if(displayhovertext) { if(debug) llOwnerSay("Following avatars were scripted:" + scriptedavatars); if(scriptedavatars == "") llSetText("*Scripted Avatars*\n \nNone Detected",<1.0, 0.0, 0.0>,1.0); else llSetText("*Scripted Avatars*\n" + scriptedavatars,<1.0, 0.0, 0.0>,1.0); } } no_sensor() { if(debug) llOwnerSay("Detected: no avatars"); if(displayhovertext) llSetText("*Scripted Avatars*\n \nNone Detected",<1.0, 0.0, 0.0>,1.0); llMessageLinked(LINK_ALL_OTHERS,-3,"none","");//no one detected } }

//permanant ejector //bring to ground car script when too high //[16:56] Amber Linden: Hello everyone... Montly Mentors meeting fixing to start in 5 mins.. Join Vteam at the SL Volunteer Island Center Stage! </lsl>

Settings Notecard

Range: 96 Interval: 5 Ignore Group: Yes Display HoverText: Yes Dialog Warning: warning remove your stuff Message Warning: Warning, remove your stuff Enable Dialog: Yes Enable Message: Yes Check if on my land: Yes List the people whom to ignore on the next line...one per line...CaSe doesn't matter Bobbyb30 Zohari Madsen Toodle Stroodle Noodle

Nagger

<lsl> // www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano) //Script Detector by Bobbyb30 Zohari (C) 2008 //Created: July 26, 2008 //Last Modified: July 26, 2008 ////////////////////// key avatar; integer counter; string message; string dialog; default { on_rez(integer channel) { llListen(channel,"","",""); } listen(integer ch, string name, key id, string msg) { if(counter == 0) avatar = msg; else if(counter == 1) message = msg; else if(counter == 2) { llSetObjectName("Script Remover Nagger" + (string)((integer)llFrand(50000))); dialog = msg; if(msg != "") llInstantMessage(avatar,message); if(dialog != "") llDialog(avatar,"\n" + dialog + "\n \n \nScripted Attatchment Nagger\nBobbyb30 Zohari (C) 2008",[],-1); llDie(); llDie(); } ++counter; } } </lsl> <a rel="license" href="http://creativecommons.org/licenses/by/3.0/"> <img alt="Creative Commons License" style="border-width:0" src="http://i.creativecommons.org/l/by/3.0/88x31.png" /> </a>
Unmutable Descript Nagger by <a xmlns:cc="http://creativecommons.org/ns#" href="http://wiki.secondlife.com/wiki/Unmutable_Descript_Nagger" property="cc:attributionName" rel="cc:attributionURL">Bobbyb30 Zohari</a> is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by/3.0/">Creative Commons Attribution 3.0 Unported License</a>.
Based on a work at <a xmlns:dc="http://purl.org/dc/elements/1.1/" href="http://wiki.secondlife.com/wiki/Unmutable_Descript_Nagger" rel="dc:source">wiki.secondlife.com</a>.

Retrieved from "https://wiki.secondlife.com/w/index.php?title=Unmutable_Descript_Nagger&oldid=80889"