RADAR SCRIPT

//////////////////// // // Script Writen by Unique Nerd - 10.4.2005 // //////////////////// default { on_rez(integer num)//When object rezzed { llResetScript();//Reset the script } state_entry() { llSensorRepeat("","",AGENT,96,TWO_PI,0.1); // start sensor } sensor(integer num)//sensor event: { integer dist;//Distance integer string name;//name detect string list names;//list of all people list doing = [ ]; integer i; names = [];//clear names list for(i=0;i<num;i++)// for event {//detect name doing = [ ]; if (llGetAgentInfo(llDetectedKey(i)) & AGENT_FLYING) { doing += ["flying"]; } else if (llGetAgentInfo(llDetectedKey(i)) & AGENT_SITTING) { doing += ["sitting"]; } else if (llGetAgentInfo(llDetectedKey(i)) & AGENT_MOUSELOOK) { doing += ["mouselook"]; } else if (llGetAgentInfo(llDetectedKey(i)) & AGENT_AWAY) { doing += ["away"]; } else if (llGetAgentInfo(llDetectedKey(i)) & AGENT_TYPING) { doing += ["typing"]; } name = llDetectedName(i) + " (" + llDumpList2String(doing, ", ") + ")"; dist = llRound(llVecDist(llGetPos(),llDetectedPos(i)));//detect distance string line = name +" @ "+(string)dist+" M";//set the new line names += line; } llSetText(llDumpList2String(names,"\n"),<1,1,1>,1);//set text to people detect } }