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>