User:Lexie Baxton/Scripts That Have Been Copied...
These are just copies of scripts of the LSL Script thingy,
<lsl>//////////////////////////////////////////////////////////////////////////////////////////
// This is not a complete solution, requires full avatar names to work - even for unbanning someone!
// This is meant only as an example of the land ban and pass management functions.
// free to copy, use, modify, distribute - just don't ask me to debug your modified code. ;-)
//
// Commands are:
// /5 ban:full_avatar_name
// /5 tempban:full_avatar_name
// /5 unban:full_avatar_name
// /5 pass:full_avatar_name
// /5 unpass:full_avatar_name
// /5 clearban
// /5 clearpass
string command;
default {
state_entry() { llListen(5, "", llGetOwner(), ""); } on_rez(integer param) { llResetScript(); } listen(integer chan, string name, key id, string message) { if (command != "") { llOwnerSay("Sorry, still processing last command, try again in a second."); } list args = llParseString2List(message,[":"],[]); command = llToLower(llList2String(args,0)); if (command == "clearbans") { llResetLandBanList(); } if (command == "clearpass") { llResetLandPassList(); } else { llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI); } } no_sensor() { command = ""; } sensor(integer num) { integer i; for (i=0; i< num; ++i) { if (command == "ban") { // Ban indefinetely llAddToLandBanList(llDetectedKey(i),0.0); } if (command == "tempban") { // Ban for 1 hour. llAddToLandBanList(llDetectedKey(i),1.0); } if (command == "unban") { llRemoveFromLandBanList(llDetectedKey(i)); } if (command == "pass") { // Add to land pass list for 1 hour llAddToLandPassList(llDetectedKey(i),1.0); } if (command == "unpass") { llRemoveFromLandPassList(llDetectedKey(i)); } } command = ""; }
}</lsl>
<lsl>////////////////////////////////////////////////////////////////////////////////////////// // Here a script done by shenanigan oh
//It's a easy script that I came up with. When I worked for a carnage I put this script in a computer that was //attached to me. The carnage it self was a pvp sims so it was alot easier and fast to eject some this way //then running after them and clicking on them. The way this work is by trying eject and half type plays name. //Example: /1 eject shenan
//Warning if you type someone name in short be careful of other plays with same name! string msg; string name; default {
on_rez(integer n) { llResetScript(); } state_entry() { llListen(1, "", llGetOwner(), ""); llListen(0, "", llGetOwner(), ""); } listen(integer n, string m, key k, string msg) { if (llGetSubString(msg, 0, 5) == "eject ") { name = llToLower(llStringTrim(llDeleteSubString(msg, 0, 5), STRING_TRIM)); llSensor("", "", AGENT, 96, PI); } } sensor(integer n) { integer i = 0; for (;i<n;++i) { if (llOverMyLand(llDetectedKey(i))) { if (~llSubStringIndex(llToLower(llDetectedName(i)), name)) { llOwnerSay("ejecting " + llDetectedName(i)); llEjectFromLand(llDetectedKey(i)); } } } } no_sensor() { llOwnerSay("Avatar not found."); }
}</lsl>
<lsl> // by Cory Bjornson
default { state_entry() { llSetText("touch me if your on the land that this box is! =)", <1,0,0>, 5.0); } touch_start(integer total_number) { llTeleportAgentHome(llDetectedKey(0)); // Teleports the Agent home } }</lsl>
<lsl>////////////////////////////////////////////////////////////////////////////////////////// // This is not a complete solution, requires full avatar names to work - even for unbanning someone! // This is meant only as an example of the land ban and pass management functions. // free to copy, use, modify, distribute - just don't ask me to debug your modified code. ;-) // // Commands are: // /5 ban:full_avatar_name // /5 tempban:full_avatar_name // /5 unban:full_avatar_name // /5 pass:full_avatar_name // /5 unpass:full_avatar_name // /5 clearban // /5 clearpass
string command;
default {
state_entry() { llListen(5, "", llGetOwner(), ""); } on_rez(integer param) { llResetScript(); } listen(integer chan, string name, key id, string message) { if (command != "") { llOwnerSay("Sorry, still processing last command, try again in a second."); } list args = llParseString2List(message,[":"],[]); command = llToLower(llList2String(args,0)); if (command == "clearbans") { llResetLandBanList(); } if (command == "clearpass") { llResetLandPassList(); } else { llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI); } } no_sensor() { command = ""; } sensor(integer num) { integer i; for (i=0; i< num; ++i) { if (command == "ban") { // Ban indefinetely llAddToLandBanList(llDetectedKey(i),0.0); } if (command == "tempban") { // Ban for 1 hour. llAddToLandBanList(llDetectedKey(i),1.0); } if (command == "unban") { llRemoveFromLandBanList(llDetectedKey(i)); } if (command == "pass") { // Add to land pass list for 1 hour llAddToLandPassList(llDetectedKey(i),1.0); } if (command == "unpass") { llRemoveFromLandPassList(llDetectedKey(i)); } } command = ""; }
}</lsl>