Difference between revisions of "User:Jana Kamachi/Detect"
Jump to navigation
Jump to search
Jana Kamachi (talk | contribs) (New page: <pre> list dtc = []; list darl = []; integer darl_d = FALSE; integer cnt = 0; vector lastpos; vector curpos; default { state_entry() { llSensorRepeat("","",SCRIPTED,1.0,...) |
|||
(2 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{Jana}} | |||
<pre> | <pre> | ||
list dtc = []; | list dtc = []; | ||
Line 13: | Line 14: | ||
state_entry() | state_entry() | ||
{ | { | ||
llSensorRepeat("","",SCRIPTED,1.0,PI | llSensorRepeat("", "", SCRIPTED, 1.0, PI, 0.001); | ||
llSetTimerEvent(0. | llSetTimerEvent(0.001); | ||
lastpos = llGetPos(); | lastpos = llGetPos(); | ||
} | } | ||
Line 20: | Line 21: | ||
sensor(integer n_m){ | sensor(integer n_m){ | ||
integer i=0; | integer i=0; | ||
dtc = []; | |||
for( | if(n_m > 2) n_m = 2;//no need for a jump; | ||
for(; i<n_m; ++i) { | |||
dtc += (llDetectedName(1) + " owned by " + llKey2Name(llDetectedOwner(1))); | |||
} | } | ||
} | } | ||
timer(){ | timer(){ | ||
if(llVecDist(lastpos, curpos = llGetPos()) > 1000){ | |||
llOwnerSay("Orbit Detect."); | |||
llOwnerSay("Possible Orbiters\n" + llDumpList2String(dtc,"\n")); | |||
cnt = 0; | |||
lastpos = curpos; | |||
}else if(500 < ++cnt){//will force update lastpos about every 25 to 50 seconds. | |||
cnt = 0; | |||
lastpos = curpos; | |||
} | |||
} | |||
} | } | ||
} | } | ||
</pre> | </pre> |
Latest revision as of 04:13, 22 March 2008
If you like this script, or any script I've released, please post on my Talk page, or I'll most likely never see it o: If you want to improve a script, just go for it!
list dtc = []; list darl = []; integer darl_d = FALSE; integer cnt = 0; vector lastpos; vector curpos; default { state_entry() { llSensorRepeat("", "", SCRIPTED, 1.0, PI, 0.001); llSetTimerEvent(0.001); lastpos = llGetPos(); } sensor(integer n_m){ integer i=0; dtc = []; if(n_m > 2) n_m = 2;//no need for a jump; for(; i<n_m; ++i) { dtc += (llDetectedName(1) + " owned by " + llKey2Name(llDetectedOwner(1))); } } timer(){ if(llVecDist(lastpos, curpos = llGetPos()) > 1000){ llOwnerSay("Orbit Detect."); llOwnerSay("Possible Orbiters\n" + llDumpList2String(dtc,"\n")); cnt = 0; lastpos = curpos; }else if(500 < ++cnt){//will force update lastpos about every 25 to 50 seconds. cnt = 0; lastpos = curpos; } } }