//Made by Krypt Hax.
//Feel free to give away as a totorial or any thing.
//Any questions feel free to IM me.
//Don't remove my tag.

string word="eject";//word to look for


string ejector;

integer found=0;
default
{
    on_rez(integer r)//when the object is rezzed
    {
        llResetScript();//reset the script
    }
    state_entry()//begin state
    {
        llListen(0,"",llGetOwner(),"");//listen to owner.
    }
    listen(integer chan,string name,key id,string msg)
    {
        string m=llToLower(msg);
        if(llSubStringIndex(m,word)==0)//if the first word in your sentence is the word predeclared at the top of the scirpt
        { 
            found=FALSE;//we are researching so found hasn't happened set it to false
            ejector=llGetSubString(m,llStringLength(word)+1,-1);//the person letters of there name were scanning for is the word predeclared + a space, -1 = the rest of the sentence
            llSensor("","",1,96,PI);//1 = AGENT
        }
    }
    sensor(integer s)
    {
        integer x=0;
        for(;x<s;++x)//loop through the people detected fastest way.
        {
            if(llSubStringIndex(llToLower(llDetectedName(x)),ejector)!=-1)//if the first letters (or word) of ejector matches a person found
            {
                llEjectFromLand(llDetectedKey(x));//eject them
                llSay(0,"Ejected: "+llDetectedName(x));//say you ejected them
                found=TRUE;//state that you found them
                s=x;
            }
        }//looping ends.
        if(!found)//if you didn't find the target
        {
            llSay(0,"couldn't find target");//say so.
        }
    }
}

list getLandOwners()
{
    list owners;
    float x;
    float y;
    y=0.00;
    for(;y<256;y=y+16)
    {
        x=0.00;
        for(;x<256;x=x+16)
        {
            if(llListFindList(owners,[llGetLandOwnerAt(<x,y,0>)])==-1)
            {
                owners=(owners=[])+owners+llGetLandOwnerAt(<x,y,0>);
            }
        }
    }
    return owners;
}