root/misc/avatar_key_getter.lsl

// Avatar Key Getter
// THIS SNIPPET WILL SCAN AREA FOR 12 AVATARS
// THROW UP BUTTON CHOICES
// TAKE NAME CHOICE AND PASS KEY TO VAR FOR USE (in this case, llOwnerSay) 
// IN AVATAR SELECTION FOR SCRIPTS


//THIS IS MY DEFAULT DEBUG BIT - I THROW IT AT THE TOP OF EVERY SCRIPT...
integer DEBUG_FLAG = TRUE; //set to false to turn off debugmessages 
DEBUG(list foo) { if(DEBUG_FLAG) llOwnerSay(llList2CSV(foo)) ; }  

//GVARS
float GI_RANGE = 256.0; // lets future proof this sucker! - caps at 96.0 anyhow. 

integer GI_SELECT_AV_HANDLE; //So you can mix with other scripts.
integer GI_SELECT_AV_CHANNEL = -636; //So you can mix with other scripts. This is the channel to filter for in the listen.

list    GL_AV_NAME = []; //will hold names
list    GL_AV_KEY = []; //will hold keys

//THIS TAKES IN A KEY
//RETURNS TRUE if it's owner, false otherwise
integer fn_check_owner(key id)
{
    if ( id != llGetOwner() )
    {
        return FALSE; //not owner
    }
    else
    {
        return TRUE;
    }
}

// This one turn on the listen only when needed. 
// seems a bit redundant maybe, but this will allow me easy changes.
fn_easyDialog( key id, string message, list buttons, integer channel )
{
    GI_SELECT_AV_HANDLE = llListen(channel, "", id, "");  //now we can just switch it off when done.
    
    llDialog( id, message,     fn_validateLength(buttons), channel);
}

//This function returns the names list and returns it to twelve if larger. can be adapted to any number
list fn_validateLength( list foo)
{
    integer li_return_length = 12;
    if( llGetListLength(foo) > li_return_length)
    {
            return llDeleteSubList( foo, 12, -1);
    }
    return foo;
}

default    //
{
    state_entry() {
        
    }
    
    listen(integer channel, string name, key id, string message) {   
        //turn off listen  - you may not always want to use this on off method - 
        //ie, in case of script that listens for other things and needs an open channel
        llListenRemove(GI_SELECT_AV_HANDLE);

        if(id == llGetOwner()) { //to listen for owner - just some extra insurance. You can remove if you want device to listen to anyone.
                        if(channel == GI_SELECT_AV_CHANNEL){
                    integer index_av = llListFindList( GL_AV_NAME, [message] );
            
                    if (index_av != -1) {
                        key av_key = llList2Key( GL_AV_KEY, index_av); //this is just longhand for others
                        //now you do whatever you want with the key! link mesage it, say it, whatever...
                        DEBUG(["av key is", av_key]);
                    }
                    else {
                            DEBUG(["Oops! Key not found. Strange..."]);
                    }
                        }
        }
    }
    
    on_rez(integer num) { 
        llResetScript();
    }
    
    sensor(integer num_detected) {
        integer i;
        
        for (i = 0; i< num_detected; i++) { //lets load up lists with avatars
            GL_AV_NAME +=  [ llDetectedName(i)] ;
            GL_AV_KEY +=  [ llDetectedKey(i) ] ;
        }
                //Present the list of names,
        fn_easyDialog(  llGetOwner(), "Pick an av", fn_validateLength(GL_AV_NAME), GI_SELECT_AV_CHANNEL);
    }
                
    no_sensor() {
        llOwnerSay( "No one around..." );
    }
        
    touch_start(integer num) {
        if( fn_check_owner(llDetectedKey(0) ) ) { //is it the owner who touched??
             llSensor( "", NULL_KEY, AGENT, GI_RANGE, TWO_PI ); //SENSOR TO FIND PEOPLE
        }
    }  
}