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
Access List llOverMyLand_DoubleTest  

llOverMyLand_DoubleTest

Double Check Scan

Category: Access List
By : mangowylder
Created: 2012-04-10 Edited: 2012-04-10
Worlds: Second Life

the Zip file

Download all files for llOverMyLand_DoubleTest
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. llOverMyLand_DoubleTest_1.lsl
1 string gParcelName;
2 key gKeyToucherID;
3 integer toggle;
4 integer gIntActive;
5 integer gIntVectorX;
6
7 string parcelName(vector p) {
9 }
10 default
11 {
13 {
14 gParcelName = parcelName(llGetPos());
15 toggle = !toggle;
16 }
17 touch_start(integer total_number)
18 {
19 gKeyToucherID = llDetectedKey(0);
20 if(toggle){
21 gIntActive = 1;
22 llSensorRepeat( "", "", AGENT, 96.0, PI, 10.0 );
23
24 llInstantMessage(gKeyToucherID, "Scanner Started");
25 }
26 else{
27 llInstantMessage(gKeyToucherID, "Scanner Stopped");
28 gIntActive = 0;
30 }
31 toggle = !toggle;
32
33 }
34 sensor(integer nr)
35 {
36 if(gIntActive == 1)
37 {
38 integer i;
39 do{
40 vector pos = llDetectedPos(i);
41 string pname = parcelName(pos);
42 llInstantMessage(gKeyToucherID, pname);
43 if(pname == gParcelName)
44 {
45 gIntVectorX = 1;
46 llInstantMessage(gKeyToucherID, "Parcel name match!");
47 }
48 if(gIntVectorX == 1 && llOverMyLand(llDetectedKey(i)))
49 {
50 llInstantMessage(gKeyToucherID, "Conditions met!");
51 }
52
53 }while((++i) < nr);
54 }
55 }
56 }

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