Difference between revisions of "User:Lexie Baxton/Scripts That Have Been Copied..."
Lexie Baxton (talk | contribs) (New page: Hello, Im an alt of **SLEXCHANGEDTB Nightfire** i own an Adoption Agency called Happy Kids Adoption Agency.... the kids panel's cost: 2L$ the parents panels cost:150L$ we.....are in the Si...) |
Lexie Baxton (talk | contribs) |
||
Line 1: | Line 1: | ||
These are just copies of scripts of the LSL Script thingy, | |||
// 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 | |||
.....Comments..... | |||
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 = ""; | |||
} | |||
} | |||
////////////////////////////////////////////////////////////////////////////////////////// | |||
// 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."); | |||
} | |||
} | |||
////////////////////////////////////////////////////////////////////////////////////////// | |||
// 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 | |||
} | |||
////////////////////////////////////////////////////////////////////////////////////////// | |||
// 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 = ""; | |||
} | |||
} | |||
////////////////////////////////////////////////////////////////////////////////////////// |
Revision as of 10:51, 27 May 2008
These are just copies of scripts of the LSL Script thingy,
// 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 .....Comments.....
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 = ""; }
} ////////////////////////////////////////////////////////////////////////////////////////// // 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."); }
} ////////////////////////////////////////////////////////////////////////////////////////// // 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 } ////////////////////////////////////////////////////////////////////////////////////////// // 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 = ""; }
} //////////////////////////////////////////////////////////////////////////////////////////