{COSE}seekerradar

key target;
list tgtnames;
list tgtkeys;

deploy(key gotchasucker){
    integer commchan = (integer)llFrand(-10000)-50000;
    llRezObject("drone",llGetPos(),ZERO_VECTOR,ZERO_ROTATION,commchan);
    llSleep(0.3);
    llSay(commchan,(string)gotchasucker);
}

default{
    state_entry(){
        llListen(2012,"","","");
    }
    touch_start(integer total_number){
        if(llDetectedKey(0)==llGetOwner())
            llSensor("","",AGENT,100,PI*2);
    }
    listen(integer chan,string who,key id,string msg){
        integer idx = llListFindList(tgtnames,[msg]);
        key tkey = llList2Key(tgtkeys,idx);
        deploy(tkey);
    }
    sensor(integer num_det){
        integer i;
        integer targetnum=0;
        tgtnames=[];
        tgtkeys=[];
        for(i=0;i<num_det;i++){
            if(llDetectedName(i)!=llKey2Name(llGetOwner())){
                tgtnames += llGetSubString(llDetectedName(i),0,24);
                tgtkeys += llDetectedKey(i);
                targetnum++;
            }
        }
        if(targetnum>0)
            llDialog(llGetOwner(),"Let's annoy someone",tgtnames,2012);
    }
}