// AntiPush Script V1.0
// Created 11/17/2003 by Sapphire Bombay
// Last Updated 11/17/2003
// Concept adapted from Huns Valen
// Freely donated to the public domain
 
integer locked;         // TRUE if avatar is damping to current position
float LOCKWAIT = 1.0;   // if you don't move for this period of time, you lock into place
 
default
{
    state_entry()
    {
    }
 
    // request controls & prime locked condition
    on_rez(integer start_param)
    {
        llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
        locked = FALSE;
    }
 
    // if user accepts, trap control events and also allow them to pass on to the avatar for movement:
    //
    // llTakeControls(integer controls, integer accept, integer pass_on);
    //
    // If (accept == (controls & input)), send input to object. If the boolean pass_on is TRUE, also send input to avatar.
 
    run_time_permissions(integer perm)
    {
        if(perm & (PERMISSION_TAKE_CONTROLS))
        {
            llTakeControls(CONTROL_FWD|
               CONTROL_BACK|
               CONTROL_RIGHT|
               CONTROL_LEFT|
               CONTROL_ROT_RIGHT|
               CONTROL_ROT_LEFT|
               CONTROL_UP|
               CONTROL_DOWN,
               TRUE, TRUE);
            // set timer to periodically check the time since the last control input
            llSetTimerEvent(1);
        }
    }
 
    // called any time a user moves.  release the damping if the avatar is locked.  reset the time since last movement.
    control(key id, integer level, integer edge)
    {
        if (locked)
        {
            llMoveToTarget(llGetPos(), 0);
            locked = FALSE;
            //llWhisper(0, "unlocked");
        }
        llResetTime();
    }  
 
    // if the avatar is not already locked and it has been longer than the wait time since the last movement then lock the avatar
    timer()
    {
        if ((!locked) && (llGetTime() > LOCKWAIT))
        {
            llMoveToTarget(llGetPos(), 0.2);
            locked = TRUE;
            //llWhisper(0, "locked");
        }
    }
}

// Master Levels only Commands:
// ===================
// start protection - Must turn on script before it works.
// reset protection - Will reset script and clear everyone out of ban list and access list and turn script off.
// script status - Will show script info.
// aaccess username - Will give access to anyone in list to add to the ban list.
// raccess username - Will take away access from person in the list.
// accesslist - Will list everyone on access list.
 
// Dancers Levels commands:
// ===================
// Add username - Will add someone to ban list to kick out from club.
// remove username - Will delete from ban list from club.
// list - will list who all in ban list for club.
// ===================
 
integer LID;
list EliteBanList;
list Access_List;
 
// You can change sensor range here.
integer sensor_range = 80;
 
// how fast repeat for sensor is
float how_fast = 1.0;
 
// Name of help card when someone clicks on object they must have access to get the help card.
string note_name = "Help";
 
// Lets give someone we pick to have same master level access so they can add ppl and remove ppl. Note: Owener and who you pick to have master access must add there self to access list before working ban list.
key MasterLevelKey = "Ana Lily";
 
// Config all strings here to match whatever you need to.
string StateEntryText ="Club Elite Protection System: To activate Must have Master Level Access, say 'start protection'";
 
string DeleteFromAccessText=" from Club Elite Protection Access list";
 
string DeleteFromBanListText=" from Club Elite Ban list.";
 
string resetBanListText="Club Elite Protection Script System online!";
 
string EjectText1=" away from Club Elite Land!";
 
string EjectText2=" You have been boot from Club Elite Land!";
 
string TouchStartText=" Sorry you do not have Access to Club Elite Protection System";
 
string ScriptResetText="Resetting Club Elite Protection Script";
 
string AlreadyInAccessListText=" already in Club Elite Access list";
 
string AddToAccessListText=" to Club Elite Access list";
 
string AlreadyInBanListText=" already in Club Elite ban list";
 
string MemeberCantBeAddToBanList=" has Club Elite Access and can't be added to ban list";
 
string AddToBanListText= " to Club Elite ban list";
 
string NotFoundInAccessListText=" was not found in Club Elite Access list";
 
string WasNotFoundInBanListText=" was not found in Club Elite Ban list";
 
string PrintAccessListText="Club Elite Protection Access List:";
 
string PrintBanListText="Club Elite Ban List:";
 
GetScriptStatus()
{
llWhisper(0,"Script Free Memory " + (string)llGetFreeMemory());
llWhisper(0,"Script Name " + (string)llGetScriptName());
llWhisper(0,"Region Name " + (string)llGetRegionName());
llWhisper(0,"Region FPS " + (string)llGetRegionFPS());
}
 
string getParameter(list strings)
{
integer len = llGetListLength(strings);
integer i;
string ret;
string space= "";
for (i=1;i0)
{
llWhisper(0,"I Eject " + name + (string)EjectText1);
llUnSit(person);
llEjectFromLand(person);
llInstantMessage(person, name + (string)EjectText2);
}
 
}
}
 
touch_start(integer total_number)
{
integer i;
for (i=0;i0)
{
llGiveInventory(person, note_name);
}
else llInstantMessage(person, name + (string)TouchStartText);
 
}
}
listen(integer channel, string name, key id, string message)
{
if (message == "script status" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
GetScriptStatus();
}
 
else if (message == "start protection" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
resetBanList();
return;
}
else if (message == "reset protection" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
llWhisper(0,ScriptResetText);
llResetScript();
}
list strings = llParseString2List(message,[" "],[]);
string command = llList2String(strings,0);
if (command=="accesslist" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
printAccessList();
}
else if(message=="list" && (isEliteAccessUser(name)>0))
{
printEliteBanList();
return;
}
string par = getParameter(strings);
if (par=="")
{
return;
}
else if (command=="aaccess" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
if (isEliteAccessUser(par)>0)
{
llWhisper(0,"Sorry " + par + (string)AlreadyInAccessListText);
return;
}
else Access_List = llListInsertList(Access_List,[par],llGetListLength(Access_List));
llWhisper(0,"Added " + par + (string)AddToAccessListText);
return;
}
else if(command=="add" && (isEliteAccessUser(name)>0))
{
if (isEliteBan(par)>0)
{
llWhisper(0,"Sorry " + par + (string)AlreadyInBanListText);
return;
}
if (isEliteAccessUser(par)>0)
{
llWhisper(0,"Sorry " + par + (string)MemeberCantBeAddToBanList);
return;
}
else EliteBanList = llListInsertList(EliteBanList,[par],llGetListLength(EliteBanList));
llWhisper(0,"Added " + par + (string)AddToBanListText);
return;
}
else if (command=="raccess" && (id == llGetOwner() || llKey2Name(id) == MasterLevelKey))
{
if (isEliteAccessUser(par)>0)
{
DelFromAccessList(par);
return;
}
else llWhisper(0,"Sorry " + par + (string)NotFoundInAccessListText);
}
else if(command=="remove" && (isEliteAccessUser(name)>0))
{
if (isEliteBan(par)>0)
{
DelFromBanList(par);
return;
}
else llWhisper(0,"Sorry " + par + (string)WasNotFoundInBanListText);
}
}
}

// Exile Loudon
// Aspiring Scripter
 
// Join Date: Dec 2005
// Location: New York City
// Posts: 122
 
// Anti-Grief Shield/deflector
// This is a very simple script I quickly put together, and what it does is it rezzes a shield around you when a bullet comes close, and deflects the bullet away. This script isn't extrmemly powerful and may not be able to protect all bullets. Don't depend on it too much. Put it into a 80 % dimpled (aroudn there) sphere, around 2m in diameter. This would be the shield plate. IM me in world for a free UPDATED copy.
 
// Anti-Grief Attachment Script:
 
// --------------------------------------------
 
//Exile's Simple Anti-Grief Auto shield! Please don't resell or use in any products you plan
//to sell. This is open-sourced, so give full rights to anyone who gets this script.
// Please don't remove this disclaimer, as it isn't nice to take the the gratitude that's
//supposed to be for me. Have fun and keep safe!
 
default
{
    state_entry()
    {
        llListen(2,"",llGetOwner(),"");
    }
 
    listen(integer channel,string name,key id,string message)
    {
        if(message=="auto shield on")
        {
            llOwnerSay("Auto Shields Activated.");
            llSensorRepeat("","",ACTIVE,5,TWO_PI,0.1);
        }
 
        if(message=="auto shield off")
        {
            llOwnerSay("Auto Shields deactivated.");
            llSensorRemove();
        }
    }
 
            sensor(integer num_detected)
    {
             if(llVecMag(llDetectedVel(0)) > 7.0)
            {
                rotation rot = llGetRot();
                rotation drot = llDetectedRot(0);
                rotation between = llGetRot() * llRotBetween(<0.5,0,0> * llGetRot(), llDetectedPos(0) - llGetPos());
            llRezObject("Auto Shield",llGetPos() + <0.5,0,0> * between,ZERO_VECTOR,between,0);
 
            }
        }
    } 
 
-------------------
 
Auto Shield Plate Script (Just for the plate to die after 2 seconds)
 
--------------------
 
default
{
    state_entry()
    {
        llSleep(2);
        llDie();//Let the plate disappear and not spam people's plots.
    }
}