User:Jana Kamachi/Detect

list dtc = [];
list darl = [];

integer darl_d = FALSE;
integer cnt = 0;

vector lastpos;
vector curpos;

default
{
    state_entry()
    {
        llSensorRepeat("","",SCRIPTED,1.0,PI*2,0.000000001);   
        llSetTimerEvent(0.000001);
        lastpos = llGetPos();
    }
    
    sensor(integer n_m){
        integer i=0;
        list tmp;
        for(i=0;i<n_m;i++) {
            tmp+= [llDetectedName(i) + " owned by " + llKey2Name(llGetOwnerKey(llDetectedKey(i)))];
            if(i>2)
                jump out;   
        }
        @out;
        dtc = tmp;
    }
    
    timer(){
            cnt = cnt + 1;
            if(llVecDist(lastpos,llGetPos()) > 1000){
                llOwnerSay("Orbit Detect.");
                llOwnerSay("Possible Orbiters\n" + llDumpList2String(dtc,"\n"));  
                cnt = 501;
                lastpos = llGetPos(); 
            }else{
                
            }
            if(cnt > 500){  
                lastpos = llGetPos();
                cnt = 0;
            }
    }
}