LSL population counter within distance

gistfile1.txt

integer calcPopulation(){
        // Setup variables
        integer population = 0;
        list avatars = llGetAgentList(AGENT_LIST_PARCEL,[]);
                
        // See who is within range of the target
        integer i = 0;
        integer total = llGetListLength(avatars);
        for(i;i < total; ++i){
            key avatar = llList2Key(avatars,i);
            string tmp = (string)llGetObjectDetails(llList2Key(avatars,i), [OBJECT_POS]);
            vector avatar_at = (vector)tmp;
            
            // See how many avatars are near the destination
            if(llVecDist(DESTINATION, avatar_at) <= DESTINATION_SIZE){
                ++population;
            }   
        }