// Global variables
list visitor_list;
float range = 15; // in meters
float rate = 5.0; // in seconds
string BadASSName = "Ashole.famName";  //  put here just the Name in you like to add in ban list and send Home 
integer strlen;
string AllAgents;
key id;
 
// Functions
integer isNameOnList( string name )
{
    integer len = llGetListLength( visitor_list ); 
    integer i;
    for( i = 0; i < len; i++ )
    {
        if( llList2String(visitor_list, i) == name )
        {
            return TRUE;
        }
    }
    return FALSE;
}
 
// States
default
{
    state_entry()
    {
        llOwnerSay(" Warning only works on land with script enabled.  ");
        llOwnerSay("You can say 'help' for instructions."); 
        llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
        llListen(0, "", llGetOwner(), "");
        strlen = llStringLength(BadASSName);
        AllAgents = (string) AGENT;
        if ( BadASSName = llGetSubString(AllAgents, 0, strlen ))
                       {
                         llSay (0," We have her");
                         id = llDetectedKey(AGENT_BY_LEGACY_NAME);
                          llAddToLandBanList(id,0.0);   // Ban Agent set in list for ever
                          llTeleportAgentHome(id);  // send Agend to home grid

                        }
    }
      
    on_rez(integer param)
    {
        llResetScript();
    }            
    
    sensor( integer number_detected )
    {
        integer i;
        for( i = 0; i < number_detected; i++ )
        {
            if( llDetectedKey( i ) != llGetOwner() )
            {
                string detected_name = llDetectedName( i );
                if( isNameOnList( detected_name ) == FALSE )
                {
                    visitor_list += detected_name;
                    llOwnerSay((detected_name) + " accepted to join the affiliate. ");
                    //llWhisper(0, "Hello " + (detected_name) + ". How you doing today?");
                    //llGiveInventory(llDetectedKey(i),"Visitor List Maker");
                    //llGiveInventory(llDetectedKey(i),"blackwind constellation jewellry");
                }
                else
                {
                    //llOwnerSay((detected_name) + " is near you now.");
                    //llWhisper(0, "Hi " + (detected_name) + ". How you been?");
                }
            }
        }    
    }
    
    listen( integer channel, string name, key id, string message )
    {
        if( id != llGetOwner() )
        {
            return;
        }
        
        if( message == "help" )
        {
            llOwnerSay("This object records the names of everyone who" );
            llOwnerSay("comes within "+ (string)range + " meters." );
            llOwnerSay("Commands the owner can say:" );
            llOwnerSay("'help'  - Shows these instructions." );
            llOwnerSay("'say list'   - Says the names of all visitors on the list.");
            llOwnerSay("'reset list' - Removes all the names from the list." );
        }
        else
        if( message == "say list" )
        {
            llOwnerSay("Visitor List:" );
            integer len = llGetListLength( visitor_list );
            integer i;
            for( i = 0; i < len; i++ )
            {
                llOwnerSay( llList2String(visitor_list, i) );
            }
            llOwnerSay("Total = " + (string)len ); 
        }
        else
        if( message == "reset list" )
        {
            visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
            llOwnerSay("Done resetting.");
        }
    }        
}