Difference between revisions of "Unmutable Descript Nagger"
(Began posting unmutable descript nagger) |
|||
| Line 3: | Line 3: | ||
Unmutable Descript Nagger - Linden Scripting Language (LSL) | Unmutable Descript Nagger - Linden Scripting Language (LSL) | ||
Version 1.0 | Version 1.0 | ||
= Creator = | |||
*{{User|Bobbyb30 Zohari}} -- Devolper | |||
= Contributors = | = Contributors = | ||
If you modify/improve upon the script, please add your name here. | |||
= License = | = License = | ||
| Line 455: | Line 456: | ||
} | } | ||
</lsl> | </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> | |||
<br /> | |||
<span xmlns:dc="http://purl.org/dc/elements/1.1/" href="http://purl.org/dc/dcmitype/Text" property="dc:title" rel="dc:type">Unmutable Descript Nagger</span> 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>. | |||
<br />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>. | |||
Revision as of 12:57, 27 July 2008
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
Unmutable Descript Nagger - Linden Scripting Language (LSL) Version 1.0
Creator
- Bobbyb30 Zohari -- Devolper
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).
- 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.
- Any of the above conditions can be waived if you get permission from the copyright holder.
- 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>.
