https://wiki.secondlife.com/w/api.php?action=feedcontributions&feedformat=atom&user=Ezian+Ecksol
Second Life Wiki - User contributions [en]
2026-06-19T02:01:18Z
User contributions
MediaWiki 1.42.1
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92709
User:Ezian Ecksol
2008-09-24T18:46:51Z
<p>Ezian Ecksol: /* Some Scripts */</p>
<hr />
<div>== Some Scripts ==<br />
<br />
'''Rangefinder'''<br />
<lsl><br />
// Rangefinder, (c) Ezian Ecksol, open source. keep credits.<br />
// usage: compile script, drag it to your av inventory.<br />
// drop this script into 2 objects, click them to hear the distance<br />
// possible to move the objects and click again.<br />
<br />
integer chan = -947836726;<br />
integer listen_h;<br />
key target;<br />
string target_name;<br />
<br />
shout() {<br />
llRegionSay(chan,"key$"+(string)llGetKey());<br />
}<br />
<br />
info() {<br />
llSay(0,"Distance to "+target_name+": "+(string)get_dist()+ "m.\nMove and touch to hear distance again."); <br />
}<br />
<br />
float get_dist() {<br />
return llVecDist(llGetPos(),llList2Vector(llGetObjectDetails(target,[OBJECT_POS]),0));<br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
listen_h = llListen(chan, "", NULL_KEY, "");<br />
llSetTimerEvent(2.);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
if (llGetOwnerKey(id) == llGetOwner()) {<br />
list m = llParseString2List(msg, ["$"], []);<br />
if (llList2String(m,0) == "key"){<br />
llSetTimerEvent(0.);<br />
llListenRemove(listen_h);<br />
string t = llList2String(m,1);<br />
target = (key)t;<br />
target_name = llList2String(llGetObjectDetails(target,[OBJECT_NAME]),0);<br />
info();<br />
shout();<br />
}<br />
} <br />
}<br />
<br />
touch_start(integer total_number) {<br />
if (target != NULL_KEY)<br />
info();<br />
<br />
else<br />
llSay(0,"! Not linked");<br />
}<br />
<br />
timer() {<br />
shout(); <br />
}<br />
} <br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 11:34, 24 September 2008 (PDT)<br />
<br />
<br />
'''CamJumper'''<br />
<lsl><br />
// CamJumper (Dash)<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
//<br />
// usage: attach anywhere. Say /1 jc <br />
// to jump to cam position. works also to neighbour sims.<br />
// doesnt work most of the time if flying.<br />
<br />
integer jump_max=63;<br />
integer chan = 1;<br />
key owner;<br />
<br />
integer wouldGoOffWorld(vector here, vector there) {<br />
<br />
if (there.x < 0. || there.x >= 256. || there.y < 0. || there.y >= 256.)<br />
return llEdgeOfWorld(here, there - here);<br />
else<br />
return FALSE;<br />
}<br />
<br />
jumpto(vector to, float time) {<br />
vector e; vector from; vector s; float d; integer i; integer j;<br />
vector from0;<br />
vector region0; vector region;<br />
from = llGetPos();<br />
<br />
if (!wouldGoOffWorld(from, to)) {<br />
<br />
region0 = llGetRegionCorner()/256.;<br />
<br />
do {<br />
region = llGetRegionCorner()/256.;<br />
if (region != region0) {<br />
if (region.x > region0.x)<br />
to.x -= 256.;<br />
else if (region.x < region0.x)<br />
to.x += 256.;<br />
if (region.y > region0.y)<br />
to.y -= 256.;<br />
else if (region.y < region0.y)<br />
to.y += 256.;<br />
}<br />
<br />
from0 = from;<br />
region0 = region;<br />
d = llVecDist(from, to);<br />
j = (integer)(d / jump_max)+1;<br />
e = from + (to - from) / (float)j;<br />
llOwnerSay("j="+(string)j+", d="+(string)d+", to="+(string)to);<br />
<br />
llMoveToTarget(e, time);<br />
llSleep(.5);<br />
<br />
from = llGetPos();<br />
<br />
} while ((llVecDist(from, to) > 3.) && (llVecDist(from0, from) > 6.));<br />
llStopMoveToTarget();<br />
<br />
} else<br />
llOwnerSay("Destination is - or would cross - off-world.");<br />
<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
llRequestPermissions(owner, PERMISSION_TRACK_CAMERA);<br />
<br />
}<br />
<br />
run_time_permissions(integer perm) {<br />
if (perm & PERMISSION_TRACK_CAMERA)<br />
llListen(chan, "", owner, "jc");<br />
<br />
else<br />
llOwnerSay("Did not get permissions, failed.");<br />
}<br />
<br />
on_rez(integer start_param) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer ch, string name, key id, string msg) {<br />
jumpto(llGetCameraPos() + 3.5 * llRot2Fwd(llGetCameraRot()), .05);<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
----<br />
<br />
<br />
'''Visitor-Detector'''<br />
<br />
<lsl><br />
// Visitor-Detector 0.66<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
<br />
// modify these values: /////<br />
float ignore_time = 20.; // avatars visiting the parcel less than this time in seconds will be ignored<br />
integer print_method = 1; // 0=llSay, 1=llOwnerSay, 2=llInstantMessage<br />
float loop_time = 2.; // scanner checks every <loop_time> seconds<br />
//////////////////////////////////<br />
<br />
vector parcel0; vector parcel1;<br />
vector parcel_center; vector parcel_size;<br />
float detect_range = 96.;<br />
key owner;<br />
string parcel;<br />
list visitors_long;<br />
list visitors_short;<br />
integer active;<br />
<br />
string getparcelname(vector p) {<br />
return llList2String(llGetParcelDetails(p, [PARCEL_DETAILS_NAME]),0);<br />
}<br />
<br />
getparcelbounds() {<br />
vector pos = llGetPos();<br />
vector rpos;<br />
pos = <llRound(pos.x), llRound(pos.y), 0.>;<br />
string name = getparcelname(pos);<br />
<br />
rpos = pos;<br />
do { rpos.x -= 1.; } while ((getparcelname(rpos) == name) && (rpos.x>=0.)); <br />
parcel0.x = rpos.x + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.y -= 1.; } while ((getparcelname(rpos) == name) && (rpos.y>=0.)); <br />
parcel0.y = rpos.y + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.x += 1.; } while ((getparcelname(rpos) == name) && (rpos.x<256.)); <br />
parcel1.x = rpos.x;<br />
<br />
rpos = pos;<br />
do { rpos.y += 1.; } while ((getparcelname(rpos) == name) && (rpos.y<256.)); <br />
parcel1.y = rpos.y;<br />
<br />
parcel_center = (parcel1 + parcel0) / 2.;<br />
parcel_size = parcel1 - parcel0;<br />
float c = llPow(parcel_size.x/2.,2.)+llPow(parcel_size.y/2.,2.);<br />
float d = detect_range*detect_range;<br />
if (c > d)<br />
llOwnerSay("Your parcel is to large to be covered by a 96-m-scanner. Place the detector in the middle of the parcel at ground, but the corners are not covered."); <br />
else {<br />
vector dest = <parcel_center.x, parcel_center.y, llGround(parcel_center-llGetPos())+llSqrt(d-c)>;<br />
llOwnerSay("For optimal scanning range at ground, set position of object to: "+Vector2String(dest));<br />
}<br />
}<br />
<br />
<br />
string format_2dig(integer i) {<br />
if (i<10)<br />
return "0"+(string)i;<br />
else<br />
return (string)i; <br />
}<br />
<br />
string format_timestamp(string ts) {<br />
return parcel+", "+llGetSubString(ts, 0, 9)+", "+llGetSubString(ts, 11,18)+" GMT";<br />
}<br />
<br />
string format_seconds(integer s) { <br />
integer m = s / 60;<br />
s %= 60;<br />
<br />
integer h = m / 60;<br />
m %= 60;<br />
<br />
return format_2dig(h)+":"+format_2dig(m)+":"+format_2dig(s);<br />
}<br />
<br />
console(string txt) {<br />
if (print_method == 0)<br />
llSay(0, txt);<br />
<br />
else if (print_method == 1)<br />
llOwnerSay(txt);<br />
<br />
else<br />
llInstantMessage(owner, txt);<br />
}<br />
<br />
visitors_left(list v) {<br />
integer j = llGetListLength(v);<br />
if (j) {<br />
integer i;<br />
integer tu = llGetUnixTime();<br />
for (i=0; i<j; i+=3)<br />
console("<< "+llList2String(v, i)+" left "+parcel+" after "+format_seconds(tu-llList2Integer(v, i+1)));<br />
}<br />
<br />
}<br />
<br />
string Float2String(float num) {<br />
list s = llParseString2List((string)(llRound(num*10.)/10.), ["."], []);<br />
return llList2String(s, 0)+"."+llGetSubString(llList2String(s, 1), 0, 0);<br />
}<br />
<br />
string Vector2String(vector v) {<br />
return "<"+Float2String(v.x)+", "+Float2String(v.y)+", "+Float2String(v.z)+">";<br />
}<br />
<br />
activate(integer a) {<br />
active = a;<br />
if (a) {<br />
llOwnerSay("Scans every "+Float2String(loop_time)+"s. Ignores visitors staying less than "+Float2String(ignore_time)+"s.");<br />
llOwnerSay("Activated: "+format_timestamp(llGetTimestamp()));<br />
llSensorRepeat("", NULL_KEY, AGENT, detect_range, PI, loop_time);<br />
<br />
} else {<br />
llOwnerSay("Deactived.");<br />
llSensorRemove(); <br />
}<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
parcel = "\""+llList2String(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_NAME]),0)+"\""; // +" in "+llGetRegionName();<br />
<br />
activate(TRUE);<br />
llOwnerSay("Touch to stop or start.");<br />
<br />
getparcelbounds(); <br />
}<br />
<br />
touch_start(integer n) {<br />
if (llDetectedKey(0) == owner)<br />
activate(!active);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER) llResetScript(); <br />
}<br />
<br />
sensor(integer n) {<br />
integer i; integer j;<br />
integer tu = llGetUnixTime();<br />
string ts = llGetTimestamp();<br />
string dname;<br />
list temp;<br />
list temp_short = visitors_short;<br />
list temp_long = visitors_long;<br />
visitors_short = [];<br />
visitors_long = [];<br />
<br />
for (i=0; i<n; ++i) {<br />
<br />
if (llOverMyLand(llDetectedKey(i))) {<br />
//vector dpos = llDetectedPos(i);<br />
//if ((dpos.x >= parcel0.x) && (dpos.x < parcel1.x) && (dpos.y >= parcel0.y) && (dpos.y < parcel1.y)) {<br />
dname = llDetectedName(i);<br />
<br />
j = llListFindList(temp_long, [dname]); <br />
if (j != -1) {<br />
visitors_long += llList2List(temp_long, j, j+2);<br />
temp_long = llDeleteSubList(temp_long, j, j+2);<br />
<br />
} else {<br />
j = llListFindList(temp_short, [dname]);<br />
<br />
if (j != -1) {<br />
temp = llList2List(temp_short, j, j+2);<br />
<br />
if ((tu-llList2Integer(temp, 1)) >= ignore_time) {<br />
visitors_long += temp;<br />
console(">> "+llList2String(temp, 0)+" entered "+format_timestamp(llList2String(temp, 2)));<br />
<br />
} else {<br />
visitors_short += temp;<br />
}<br />
<br />
} else {<br />
visitors_short += [dname, tu, ts];<br />
}<br />
}<br />
}<br />
} <br />
visitors_left(temp_long); <br />
}<br />
<br />
no_sensor() {<br />
visitors_left(visitors_long);<br />
visitors_short = [];<br />
visitors_long = []; <br />
}<br />
<br />
}<br />
</lsl><br />
<br />
<br />
<br />
----<br />
<br />
'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
<br />
----<br />
<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)</div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92708
User:Ezian Ecksol
2008-09-24T18:34:42Z
<p>Ezian Ecksol: </p>
<hr />
<div>== Some Scripts ==<br />
<br />
'''Rangerfinder'''<br />
<lsl><br />
// Rangefinder, (c) Ezian Ecksol, open source. keep credits.<br />
// usage: compile script, drag it to your av inventory.<br />
// drop this script into 2 objects, click them to hear the distance<br />
// possible to move the objects and click again.<br />
<br />
integer chan = -947836726;<br />
integer listen_h;<br />
key target;<br />
string target_name;<br />
<br />
shout() {<br />
llRegionSay(chan,"key$"+(string)llGetKey());<br />
}<br />
<br />
info() {<br />
llSay(0,"Distance to "+target_name+": "+(string)get_dist()+ "m.\nMove and touch to hear distance again."); <br />
}<br />
<br />
float get_dist() {<br />
return llVecDist(llGetPos(),llList2Vector(llGetObjectDetails(target,[OBJECT_POS]),0));<br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
listen_h = llListen(chan, "", NULL_KEY, "");<br />
llSetTimerEvent(2.);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
if (llGetOwnerKey(id) == llGetOwner()) {<br />
list m = llParseString2List(msg, ["$"], []);<br />
if (llList2String(m,0) == "key"){<br />
llSetTimerEvent(0.);<br />
llListenRemove(listen_h);<br />
string t = llList2String(m,1);<br />
target = (key)t;<br />
target_name = llList2String(llGetObjectDetails(target,[OBJECT_NAME]),0);<br />
info();<br />
shout();<br />
}<br />
} <br />
}<br />
<br />
touch_start(integer total_number) {<br />
if (target != NULL_KEY)<br />
info();<br />
<br />
else<br />
llSay(0,"! Not linked");<br />
}<br />
<br />
timer() {<br />
shout(); <br />
}<br />
} <br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 11:34, 24 September 2008 (PDT)<br />
<br />
<br />
'''CamJumper'''<br />
<lsl><br />
// CamJumper (Dash)<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
//<br />
// usage: attach anywhere. Say /1 jc <br />
// to jump to cam position. works also to neighbour sims.<br />
// doesnt work most of the time if flying.<br />
<br />
integer jump_max=63;<br />
integer chan = 1;<br />
key owner;<br />
<br />
integer wouldGoOffWorld(vector here, vector there) {<br />
<br />
if (there.x < 0. || there.x >= 256. || there.y < 0. || there.y >= 256.)<br />
return llEdgeOfWorld(here, there - here);<br />
else<br />
return FALSE;<br />
}<br />
<br />
jumpto(vector to, float time) {<br />
vector e; vector from; vector s; float d; integer i; integer j;<br />
vector from0;<br />
vector region0; vector region;<br />
from = llGetPos();<br />
<br />
if (!wouldGoOffWorld(from, to)) {<br />
<br />
region0 = llGetRegionCorner()/256.;<br />
<br />
do {<br />
region = llGetRegionCorner()/256.;<br />
if (region != region0) {<br />
if (region.x > region0.x)<br />
to.x -= 256.;<br />
else if (region.x < region0.x)<br />
to.x += 256.;<br />
if (region.y > region0.y)<br />
to.y -= 256.;<br />
else if (region.y < region0.y)<br />
to.y += 256.;<br />
}<br />
<br />
from0 = from;<br />
region0 = region;<br />
d = llVecDist(from, to);<br />
j = (integer)(d / jump_max)+1;<br />
e = from + (to - from) / (float)j;<br />
llOwnerSay("j="+(string)j+", d="+(string)d+", to="+(string)to);<br />
<br />
llMoveToTarget(e, time);<br />
llSleep(.5);<br />
<br />
from = llGetPos();<br />
<br />
} while ((llVecDist(from, to) > 3.) && (llVecDist(from0, from) > 6.));<br />
llStopMoveToTarget();<br />
<br />
} else<br />
llOwnerSay("Destination is - or would cross - off-world.");<br />
<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
llRequestPermissions(owner, PERMISSION_TRACK_CAMERA);<br />
<br />
}<br />
<br />
run_time_permissions(integer perm) {<br />
if (perm & PERMISSION_TRACK_CAMERA)<br />
llListen(chan, "", owner, "jc");<br />
<br />
else<br />
llOwnerSay("Did not get permissions, failed.");<br />
}<br />
<br />
on_rez(integer start_param) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer ch, string name, key id, string msg) {<br />
jumpto(llGetCameraPos() + 3.5 * llRot2Fwd(llGetCameraRot()), .05);<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
----<br />
<br />
<br />
'''Visitor-Detector'''<br />
<br />
<lsl><br />
// Visitor-Detector 0.66<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
<br />
// modify these values: /////<br />
float ignore_time = 20.; // avatars visiting the parcel less than this time in seconds will be ignored<br />
integer print_method = 1; // 0=llSay, 1=llOwnerSay, 2=llInstantMessage<br />
float loop_time = 2.; // scanner checks every <loop_time> seconds<br />
//////////////////////////////////<br />
<br />
vector parcel0; vector parcel1;<br />
vector parcel_center; vector parcel_size;<br />
float detect_range = 96.;<br />
key owner;<br />
string parcel;<br />
list visitors_long;<br />
list visitors_short;<br />
integer active;<br />
<br />
string getparcelname(vector p) {<br />
return llList2String(llGetParcelDetails(p, [PARCEL_DETAILS_NAME]),0);<br />
}<br />
<br />
getparcelbounds() {<br />
vector pos = llGetPos();<br />
vector rpos;<br />
pos = <llRound(pos.x), llRound(pos.y), 0.>;<br />
string name = getparcelname(pos);<br />
<br />
rpos = pos;<br />
do { rpos.x -= 1.; } while ((getparcelname(rpos) == name) && (rpos.x>=0.)); <br />
parcel0.x = rpos.x + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.y -= 1.; } while ((getparcelname(rpos) == name) && (rpos.y>=0.)); <br />
parcel0.y = rpos.y + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.x += 1.; } while ((getparcelname(rpos) == name) && (rpos.x<256.)); <br />
parcel1.x = rpos.x;<br />
<br />
rpos = pos;<br />
do { rpos.y += 1.; } while ((getparcelname(rpos) == name) && (rpos.y<256.)); <br />
parcel1.y = rpos.y;<br />
<br />
parcel_center = (parcel1 + parcel0) / 2.;<br />
parcel_size = parcel1 - parcel0;<br />
float c = llPow(parcel_size.x/2.,2.)+llPow(parcel_size.y/2.,2.);<br />
float d = detect_range*detect_range;<br />
if (c > d)<br />
llOwnerSay("Your parcel is to large to be covered by a 96-m-scanner. Place the detector in the middle of the parcel at ground, but the corners are not covered."); <br />
else {<br />
vector dest = <parcel_center.x, parcel_center.y, llGround(parcel_center-llGetPos())+llSqrt(d-c)>;<br />
llOwnerSay("For optimal scanning range at ground, set position of object to: "+Vector2String(dest));<br />
}<br />
}<br />
<br />
<br />
string format_2dig(integer i) {<br />
if (i<10)<br />
return "0"+(string)i;<br />
else<br />
return (string)i; <br />
}<br />
<br />
string format_timestamp(string ts) {<br />
return parcel+", "+llGetSubString(ts, 0, 9)+", "+llGetSubString(ts, 11,18)+" GMT";<br />
}<br />
<br />
string format_seconds(integer s) { <br />
integer m = s / 60;<br />
s %= 60;<br />
<br />
integer h = m / 60;<br />
m %= 60;<br />
<br />
return format_2dig(h)+":"+format_2dig(m)+":"+format_2dig(s);<br />
}<br />
<br />
console(string txt) {<br />
if (print_method == 0)<br />
llSay(0, txt);<br />
<br />
else if (print_method == 1)<br />
llOwnerSay(txt);<br />
<br />
else<br />
llInstantMessage(owner, txt);<br />
}<br />
<br />
visitors_left(list v) {<br />
integer j = llGetListLength(v);<br />
if (j) {<br />
integer i;<br />
integer tu = llGetUnixTime();<br />
for (i=0; i<j; i+=3)<br />
console("<< "+llList2String(v, i)+" left "+parcel+" after "+format_seconds(tu-llList2Integer(v, i+1)));<br />
}<br />
<br />
}<br />
<br />
string Float2String(float num) {<br />
list s = llParseString2List((string)(llRound(num*10.)/10.), ["."], []);<br />
return llList2String(s, 0)+"."+llGetSubString(llList2String(s, 1), 0, 0);<br />
}<br />
<br />
string Vector2String(vector v) {<br />
return "<"+Float2String(v.x)+", "+Float2String(v.y)+", "+Float2String(v.z)+">";<br />
}<br />
<br />
activate(integer a) {<br />
active = a;<br />
if (a) {<br />
llOwnerSay("Scans every "+Float2String(loop_time)+"s. Ignores visitors staying less than "+Float2String(ignore_time)+"s.");<br />
llOwnerSay("Activated: "+format_timestamp(llGetTimestamp()));<br />
llSensorRepeat("", NULL_KEY, AGENT, detect_range, PI, loop_time);<br />
<br />
} else {<br />
llOwnerSay("Deactived.");<br />
llSensorRemove(); <br />
}<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
parcel = "\""+llList2String(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_NAME]),0)+"\""; // +" in "+llGetRegionName();<br />
<br />
activate(TRUE);<br />
llOwnerSay("Touch to stop or start.");<br />
<br />
getparcelbounds(); <br />
}<br />
<br />
touch_start(integer n) {<br />
if (llDetectedKey(0) == owner)<br />
activate(!active);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER) llResetScript(); <br />
}<br />
<br />
sensor(integer n) {<br />
integer i; integer j;<br />
integer tu = llGetUnixTime();<br />
string ts = llGetTimestamp();<br />
string dname;<br />
list temp;<br />
list temp_short = visitors_short;<br />
list temp_long = visitors_long;<br />
visitors_short = [];<br />
visitors_long = [];<br />
<br />
for (i=0; i<n; ++i) {<br />
<br />
if (llOverMyLand(llDetectedKey(i))) {<br />
//vector dpos = llDetectedPos(i);<br />
//if ((dpos.x >= parcel0.x) && (dpos.x < parcel1.x) && (dpos.y >= parcel0.y) && (dpos.y < parcel1.y)) {<br />
dname = llDetectedName(i);<br />
<br />
j = llListFindList(temp_long, [dname]); <br />
if (j != -1) {<br />
visitors_long += llList2List(temp_long, j, j+2);<br />
temp_long = llDeleteSubList(temp_long, j, j+2);<br />
<br />
} else {<br />
j = llListFindList(temp_short, [dname]);<br />
<br />
if (j != -1) {<br />
temp = llList2List(temp_short, j, j+2);<br />
<br />
if ((tu-llList2Integer(temp, 1)) >= ignore_time) {<br />
visitors_long += temp;<br />
console(">> "+llList2String(temp, 0)+" entered "+format_timestamp(llList2String(temp, 2)));<br />
<br />
} else {<br />
visitors_short += temp;<br />
}<br />
<br />
} else {<br />
visitors_short += [dname, tu, ts];<br />
}<br />
}<br />
}<br />
} <br />
visitors_left(temp_long); <br />
}<br />
<br />
no_sensor() {<br />
visitors_left(visitors_long);<br />
visitors_short = [];<br />
visitors_long = []; <br />
}<br />
<br />
}<br />
</lsl><br />
<br />
<br />
<br />
----<br />
<br />
'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
<br />
----<br />
<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)</div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92568
User:Ezian Ecksol
2008-09-24T00:21:48Z
<p>Ezian Ecksol: /* Some Scripts */</p>
<hr />
<div>== Some Scripts ==<br />
<br />
'''CamJumper'''<br />
<lsl><br />
// CamJumper<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
//<br />
// usage: attach anywhere. Say /1 jc <br />
// to jump to cam position. works also to neighbour sims.<br />
// doesnt work most of the time if flying.<br />
<br />
integer jump_max=63;<br />
integer chan = 1;<br />
key owner;<br />
<br />
integer wouldGoOffWorld(vector here, vector there) {<br />
<br />
if (there.x < 0. || there.x >= 256. || there.y < 0. || there.y >= 256.)<br />
return llEdgeOfWorld(here, there - here);<br />
else<br />
return FALSE;<br />
}<br />
<br />
jumpto(vector to, float time) {<br />
vector e; vector from; vector s; float d; integer i; integer j;<br />
vector from0;<br />
vector region0; vector region;<br />
from = llGetPos();<br />
<br />
if (!wouldGoOffWorld(from, to)) {<br />
<br />
region0 = llGetRegionCorner()/256.;<br />
<br />
do {<br />
region = llGetRegionCorner()/256.;<br />
if (region != region0) {<br />
if (region.x > region0.x)<br />
to.x -= 256.;<br />
else if (region.x < region0.x)<br />
to.x += 256.;<br />
if (region.y > region0.y)<br />
to.y -= 256.;<br />
else if (region.y < region0.y)<br />
to.y += 256.;<br />
}<br />
<br />
from0 = from;<br />
region0 = region;<br />
d = llVecDist(from, to);<br />
j = (integer)(d / jump_max)+1;<br />
e = from + (to - from) / (float)j;<br />
llOwnerSay("j="+(string)j+", d="+(string)d+", to="+(string)to);<br />
<br />
llMoveToTarget(e, time);<br />
llSleep(.5);<br />
<br />
from = llGetPos();<br />
<br />
} while ((llVecDist(from, to) > 3.) && (llVecDist(from0, from) > 6.));<br />
llStopMoveToTarget();<br />
<br />
} else<br />
llOwnerSay("Destination is - or would cross - off-world.");<br />
<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
llRequestPermissions(owner, PERMISSION_TRACK_CAMERA);<br />
<br />
}<br />
<br />
run_time_permissions(integer perm) {<br />
if (perm & PERMISSION_TRACK_CAMERA)<br />
llListen(chan, "", owner, "jc");<br />
<br />
else<br />
llOwnerSay("Did not get permissions, failed.");<br />
}<br />
<br />
on_rez(integer start_param) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer ch, string name, key id, string msg) {<br />
jumpto(llGetCameraPos() + 3.5 * llRot2Fwd(llGetCameraRot()), .05);<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
----<br />
<br />
<br />
'''Visitor-Detector'''<br />
<br />
<lsl><br />
// Visitor-Detector 0.66<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
<br />
// modify these values: /////<br />
float ignore_time = 20.; // avatars visiting the parcel less than this time in seconds will be ignored<br />
integer print_method = 1; // 0=llSay, 1=llOwnerSay, 2=llInstantMessage<br />
float loop_time = 2.; // scanner checks every <loop_time> seconds<br />
//////////////////////////////////<br />
<br />
vector parcel0; vector parcel1;<br />
vector parcel_center; vector parcel_size;<br />
float detect_range = 96.;<br />
key owner;<br />
string parcel;<br />
list visitors_long;<br />
list visitors_short;<br />
integer active;<br />
<br />
string getparcelname(vector p) {<br />
return llList2String(llGetParcelDetails(p, [PARCEL_DETAILS_NAME]),0);<br />
}<br />
<br />
getparcelbounds() {<br />
vector pos = llGetPos();<br />
vector rpos;<br />
pos = <llRound(pos.x), llRound(pos.y), 0.>;<br />
string name = getparcelname(pos);<br />
<br />
rpos = pos;<br />
do { rpos.x -= 1.; } while ((getparcelname(rpos) == name) && (rpos.x>=0.)); <br />
parcel0.x = rpos.x + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.y -= 1.; } while ((getparcelname(rpos) == name) && (rpos.y>=0.)); <br />
parcel0.y = rpos.y + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.x += 1.; } while ((getparcelname(rpos) == name) && (rpos.x<256.)); <br />
parcel1.x = rpos.x;<br />
<br />
rpos = pos;<br />
do { rpos.y += 1.; } while ((getparcelname(rpos) == name) && (rpos.y<256.)); <br />
parcel1.y = rpos.y;<br />
<br />
parcel_center = (parcel1 + parcel0) / 2.;<br />
parcel_size = parcel1 - parcel0;<br />
float c = llPow(parcel_size.x/2.,2.)+llPow(parcel_size.y/2.,2.);<br />
float d = detect_range*detect_range;<br />
if (c > d)<br />
llOwnerSay("Your parcel is to large to be covered by a 96-m-scanner. Place the detector in the middle of the parcel at ground, but the corners are not covered."); <br />
else {<br />
vector dest = <parcel_center.x, parcel_center.y, llGround(parcel_center-llGetPos())+llSqrt(d-c)>;<br />
llOwnerSay("For optimal scanning range at ground, set position of object to: "+Vector2String(dest));<br />
}<br />
}<br />
<br />
<br />
string format_2dig(integer i) {<br />
if (i<10)<br />
return "0"+(string)i;<br />
else<br />
return (string)i; <br />
}<br />
<br />
string format_timestamp(string ts) {<br />
return parcel+", "+llGetSubString(ts, 0, 9)+", "+llGetSubString(ts, 11,18)+" GMT";<br />
}<br />
<br />
string format_seconds(integer s) { <br />
integer m = s / 60;<br />
s %= 60;<br />
<br />
integer h = m / 60;<br />
m %= 60;<br />
<br />
return format_2dig(h)+":"+format_2dig(m)+":"+format_2dig(s);<br />
}<br />
<br />
console(string txt) {<br />
if (print_method == 0)<br />
llSay(0, txt);<br />
<br />
else if (print_method == 1)<br />
llOwnerSay(txt);<br />
<br />
else<br />
llInstantMessage(owner, txt);<br />
}<br />
<br />
visitors_left(list v) {<br />
integer j = llGetListLength(v);<br />
if (j) {<br />
integer i;<br />
integer tu = llGetUnixTime();<br />
for (i=0; i<j; i+=3)<br />
console("<< "+llList2String(v, i)+" left "+parcel+" after "+format_seconds(tu-llList2Integer(v, i+1)));<br />
}<br />
<br />
}<br />
<br />
string Float2String(float num) {<br />
list s = llParseString2List((string)(llRound(num*10.)/10.), ["."], []);<br />
return llList2String(s, 0)+"."+llGetSubString(llList2String(s, 1), 0, 0);<br />
}<br />
<br />
string Vector2String(vector v) {<br />
return "<"+Float2String(v.x)+", "+Float2String(v.y)+", "+Float2String(v.z)+">";<br />
}<br />
<br />
activate(integer a) {<br />
active = a;<br />
if (a) {<br />
llOwnerSay("Scans every "+Float2String(loop_time)+"s. Ignores visitors staying less than "+Float2String(ignore_time)+"s.");<br />
llOwnerSay("Activated: "+format_timestamp(llGetTimestamp()));<br />
llSensorRepeat("", NULL_KEY, AGENT, detect_range, PI, loop_time);<br />
<br />
} else {<br />
llOwnerSay("Deactived.");<br />
llSensorRemove(); <br />
}<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
parcel = "\""+llList2String(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_NAME]),0)+"\""; // +" in "+llGetRegionName();<br />
<br />
activate(TRUE);<br />
llOwnerSay("Touch to stop or start.");<br />
<br />
getparcelbounds(); <br />
}<br />
<br />
touch_start(integer n) {<br />
if (llDetectedKey(0) == owner)<br />
activate(!active);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER) llResetScript(); <br />
}<br />
<br />
sensor(integer n) {<br />
integer i; integer j;<br />
integer tu = llGetUnixTime();<br />
string ts = llGetTimestamp();<br />
string dname;<br />
list temp;<br />
list temp_short = visitors_short;<br />
list temp_long = visitors_long;<br />
visitors_short = [];<br />
visitors_long = [];<br />
<br />
for (i=0; i<n; ++i) {<br />
<br />
if (llOverMyLand(llDetectedKey(i))) {<br />
//vector dpos = llDetectedPos(i);<br />
//if ((dpos.x >= parcel0.x) && (dpos.x < parcel1.x) && (dpos.y >= parcel0.y) && (dpos.y < parcel1.y)) {<br />
dname = llDetectedName(i);<br />
<br />
j = llListFindList(temp_long, [dname]); <br />
if (j != -1) {<br />
visitors_long += llList2List(temp_long, j, j+2);<br />
temp_long = llDeleteSubList(temp_long, j, j+2);<br />
<br />
} else {<br />
j = llListFindList(temp_short, [dname]);<br />
<br />
if (j != -1) {<br />
temp = llList2List(temp_short, j, j+2);<br />
<br />
if ((tu-llList2Integer(temp, 1)) >= ignore_time) {<br />
visitors_long += temp;<br />
console(">> "+llList2String(temp, 0)+" entered "+format_timestamp(llList2String(temp, 2)));<br />
<br />
} else {<br />
visitors_short += temp;<br />
}<br />
<br />
} else {<br />
visitors_short += [dname, tu, ts];<br />
}<br />
}<br />
}<br />
} <br />
visitors_left(temp_long); <br />
}<br />
<br />
no_sensor() {<br />
visitors_left(visitors_long);<br />
visitors_short = [];<br />
visitors_long = []; <br />
}<br />
<br />
}<br />
</lsl><br />
<br />
<br />
<br />
----<br />
<br />
'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)<br />
<br />
<br />
----<br />
<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl><br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:21, 23 September 2008 (PDT)</div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92567
User:Ezian Ecksol
2008-09-24T00:20:31Z
<p>Ezian Ecksol: </p>
<hr />
<div>== Some Scripts ==<br />
<br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:20, 23 September 2008 (PDT)<br />
'''CamJumper'''<br />
<lsl><br />
// CamJumper<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
//<br />
// usage: attach anywhere. Say /1 jc <br />
// to jump to cam position. works also to neighbour sims.<br />
// doesnt work most of the time if flying.<br />
<br />
integer jump_max=63;<br />
integer chan = 1;<br />
key owner;<br />
<br />
integer wouldGoOffWorld(vector here, vector there) {<br />
<br />
if (there.x < 0. || there.x >= 256. || there.y < 0. || there.y >= 256.)<br />
return llEdgeOfWorld(here, there - here);<br />
else<br />
return FALSE;<br />
}<br />
<br />
jumpto(vector to, float time) {<br />
vector e; vector from; vector s; float d; integer i; integer j;<br />
vector from0;<br />
vector region0; vector region;<br />
from = llGetPos();<br />
<br />
if (!wouldGoOffWorld(from, to)) {<br />
<br />
region0 = llGetRegionCorner()/256.;<br />
<br />
do {<br />
region = llGetRegionCorner()/256.;<br />
if (region != region0) {<br />
if (region.x > region0.x)<br />
to.x -= 256.;<br />
else if (region.x < region0.x)<br />
to.x += 256.;<br />
if (region.y > region0.y)<br />
to.y -= 256.;<br />
else if (region.y < region0.y)<br />
to.y += 256.;<br />
}<br />
<br />
from0 = from;<br />
region0 = region;<br />
d = llVecDist(from, to);<br />
j = (integer)(d / jump_max)+1;<br />
e = from + (to - from) / (float)j;<br />
llOwnerSay("j="+(string)j+", d="+(string)d+", to="+(string)to);<br />
<br />
llMoveToTarget(e, time);<br />
llSleep(.5);<br />
<br />
from = llGetPos();<br />
<br />
} while ((llVecDist(from, to) > 3.) && (llVecDist(from0, from) > 6.));<br />
llStopMoveToTarget();<br />
<br />
} else<br />
llOwnerSay("Destination is - or would cross - off-world.");<br />
<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
llRequestPermissions(owner, PERMISSION_TRACK_CAMERA);<br />
<br />
}<br />
<br />
run_time_permissions(integer perm) {<br />
if (perm & PERMISSION_TRACK_CAMERA)<br />
llListen(chan, "", owner, "jc");<br />
<br />
else<br />
llOwnerSay("Did not get permissions, failed.");<br />
}<br />
<br />
on_rez(integer start_param) {<br />
llResetScript();<br />
}<br />
<br />
listen(integer ch, string name, key id, string msg) {<br />
jumpto(llGetCameraPos() + 3.5 * llRot2Fwd(llGetCameraRot()), .05);<br />
}<br />
}<br />
</lsl><br />
<br />
<br />
----<br />
<br />
<br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:20, 23 September 2008 (PDT)<br />
'''Visitor-Detector'''<br />
<br />
<lsl><br />
// Visitor-Detector 0.66<br />
// (c) Ezian Ecksol. Use, modify, steal or sale as you like. Keep credits.<br />
<br />
// modify these values: /////<br />
float ignore_time = 20.; // avatars visiting the parcel less than this time in seconds will be ignored<br />
integer print_method = 1; // 0=llSay, 1=llOwnerSay, 2=llInstantMessage<br />
float loop_time = 2.; // scanner checks every <loop_time> seconds<br />
//////////////////////////////////<br />
<br />
vector parcel0; vector parcel1;<br />
vector parcel_center; vector parcel_size;<br />
float detect_range = 96.;<br />
key owner;<br />
string parcel;<br />
list visitors_long;<br />
list visitors_short;<br />
integer active;<br />
<br />
string getparcelname(vector p) {<br />
return llList2String(llGetParcelDetails(p, [PARCEL_DETAILS_NAME]),0);<br />
}<br />
<br />
getparcelbounds() {<br />
vector pos = llGetPos();<br />
vector rpos;<br />
pos = <llRound(pos.x), llRound(pos.y), 0.>;<br />
string name = getparcelname(pos);<br />
<br />
rpos = pos;<br />
do { rpos.x -= 1.; } while ((getparcelname(rpos) == name) && (rpos.x>=0.)); <br />
parcel0.x = rpos.x + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.y -= 1.; } while ((getparcelname(rpos) == name) && (rpos.y>=0.)); <br />
parcel0.y = rpos.y + 1.;<br />
<br />
rpos = pos;<br />
do { rpos.x += 1.; } while ((getparcelname(rpos) == name) && (rpos.x<256.)); <br />
parcel1.x = rpos.x;<br />
<br />
rpos = pos;<br />
do { rpos.y += 1.; } while ((getparcelname(rpos) == name) && (rpos.y<256.)); <br />
parcel1.y = rpos.y;<br />
<br />
parcel_center = (parcel1 + parcel0) / 2.;<br />
parcel_size = parcel1 - parcel0;<br />
float c = llPow(parcel_size.x/2.,2.)+llPow(parcel_size.y/2.,2.);<br />
float d = detect_range*detect_range;<br />
if (c > d)<br />
llOwnerSay("Your parcel is to large to be covered by a 96-m-scanner. Place the detector in the middle of the parcel at ground, but the corners are not covered."); <br />
else {<br />
vector dest = <parcel_center.x, parcel_center.y, llGround(parcel_center-llGetPos())+llSqrt(d-c)>;<br />
llOwnerSay("For optimal scanning range at ground, set position of object to: "+Vector2String(dest));<br />
}<br />
}<br />
<br />
<br />
string format_2dig(integer i) {<br />
if (i<10)<br />
return "0"+(string)i;<br />
else<br />
return (string)i; <br />
}<br />
<br />
string format_timestamp(string ts) {<br />
return parcel+", "+llGetSubString(ts, 0, 9)+", "+llGetSubString(ts, 11,18)+" GMT";<br />
}<br />
<br />
string format_seconds(integer s) { <br />
integer m = s / 60;<br />
s %= 60;<br />
<br />
integer h = m / 60;<br />
m %= 60;<br />
<br />
return format_2dig(h)+":"+format_2dig(m)+":"+format_2dig(s);<br />
}<br />
<br />
console(string txt) {<br />
if (print_method == 0)<br />
llSay(0, txt);<br />
<br />
else if (print_method == 1)<br />
llOwnerSay(txt);<br />
<br />
else<br />
llInstantMessage(owner, txt);<br />
}<br />
<br />
visitors_left(list v) {<br />
integer j = llGetListLength(v);<br />
if (j) {<br />
integer i;<br />
integer tu = llGetUnixTime();<br />
for (i=0; i<j; i+=3)<br />
console("<< "+llList2String(v, i)+" left "+parcel+" after "+format_seconds(tu-llList2Integer(v, i+1)));<br />
}<br />
<br />
}<br />
<br />
string Float2String(float num) {<br />
list s = llParseString2List((string)(llRound(num*10.)/10.), ["."], []);<br />
return llList2String(s, 0)+"."+llGetSubString(llList2String(s, 1), 0, 0);<br />
}<br />
<br />
string Vector2String(vector v) {<br />
return "<"+Float2String(v.x)+", "+Float2String(v.y)+", "+Float2String(v.z)+">";<br />
}<br />
<br />
activate(integer a) {<br />
active = a;<br />
if (a) {<br />
llOwnerSay("Scans every "+Float2String(loop_time)+"s. Ignores visitors staying less than "+Float2String(ignore_time)+"s.");<br />
llOwnerSay("Activated: "+format_timestamp(llGetTimestamp()));<br />
llSensorRepeat("", NULL_KEY, AGENT, detect_range, PI, loop_time);<br />
<br />
} else {<br />
llOwnerSay("Deactived.");<br />
llSensorRemove(); <br />
}<br />
}<br />
<br />
default {<br />
<br />
state_entry() {<br />
owner = llGetOwner();<br />
parcel = "\""+llList2String(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_NAME]),0)+"\""; // +" in "+llGetRegionName();<br />
<br />
activate(TRUE);<br />
llOwnerSay("Touch to stop or start.");<br />
<br />
getparcelbounds(); <br />
}<br />
<br />
touch_start(integer n) {<br />
if (llDetectedKey(0) == owner)<br />
activate(!active);<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER) llResetScript(); <br />
}<br />
<br />
sensor(integer n) {<br />
integer i; integer j;<br />
integer tu = llGetUnixTime();<br />
string ts = llGetTimestamp();<br />
string dname;<br />
list temp;<br />
list temp_short = visitors_short;<br />
list temp_long = visitors_long;<br />
visitors_short = [];<br />
visitors_long = [];<br />
<br />
for (i=0; i<n; ++i) {<br />
<br />
if (llOverMyLand(llDetectedKey(i))) {<br />
//vector dpos = llDetectedPos(i);<br />
//if ((dpos.x >= parcel0.x) && (dpos.x < parcel1.x) && (dpos.y >= parcel0.y) && (dpos.y < parcel1.y)) {<br />
dname = llDetectedName(i);<br />
<br />
j = llListFindList(temp_long, [dname]); <br />
if (j != -1) {<br />
visitors_long += llList2List(temp_long, j, j+2);<br />
temp_long = llDeleteSubList(temp_long, j, j+2);<br />
<br />
} else {<br />
j = llListFindList(temp_short, [dname]);<br />
<br />
if (j != -1) {<br />
temp = llList2List(temp_short, j, j+2);<br />
<br />
if ((tu-llList2Integer(temp, 1)) >= ignore_time) {<br />
visitors_long += temp;<br />
console(">> "+llList2String(temp, 0)+" entered "+format_timestamp(llList2String(temp, 2)));<br />
<br />
} else {<br />
visitors_short += temp;<br />
}<br />
<br />
} else {<br />
visitors_short += [dname, tu, ts];<br />
}<br />
}<br />
}<br />
} <br />
visitors_left(temp_long); <br />
}<br />
<br />
no_sensor() {<br />
visitors_left(visitors_long);<br />
visitors_short = [];<br />
visitors_long = []; <br />
}<br />
<br />
}<br />
</lsl><br />
<br />
<br />
<br />
----<br />
<br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:20, 23 September 2008 (PDT)<br />
'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
<br />
<br />
<br />
----<br />
<br />
--[[User:Ezian Ecksol|Ezian Ecksol]] 17:20, 23 September 2008 (PDT)<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92440
User:Ezian Ecksol
2008-09-23T10:06:54Z
<p>Ezian Ecksol: </p>
<hr />
<div><br />
== Some Scripts ==<br />
<br />
<br />
'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
<br />
<br />
<br />
----<br />
<br />
<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92439
User:Ezian Ecksol
2008-09-23T10:06:03Z
<p>Ezian Ecksol: </p>
<hr />
<div>'''1-Prim Digiclock'''<br />
<br />
<lsl>// 1-Prim Digiclock<br />
// (c) Ezian Ecksol, open source, keep credits<br />
//<br />
// put to object description the GMT offset in hours, e.g 2.5<br />
// touch to turn on/off<br />
<br />
list faces = [3,2.05,.6, 7,.795,0., 4,-11.5,-0.73, 6,.795,0., 1,2.05,-0.6];<br />
key tx = "2b43c7d6-c96a-b5d9-7210-8bc15451252f";<br />
float tx_step = 0.0625;<br />
float tx_step_2;<br />
float tx_base;<br />
integer presence0;<br />
float gmt_offset;<br />
float clock_cycle;<br />
float clock_time;<br />
integer clock_mode = TRUE;<br />
<br />
list construct_face(integer f, integer z) { <br />
integer i = f*3;<br />
return [PRIM_TEXTURE, llList2Integer(faces,i), tx, <br />
<llList2Float(faces,i+1), tx_step, 0.0>, <llList2Float(faces,i+2), tx_base-(float)z*tx_step, 0.0>, 0.0]; <br />
}<br />
<br />
<br />
setprim(integer z1, integer z2, integer z3, integer z4, integer z5) {<br />
llSetPrimitiveParams( <br />
construct_face(0,z1)+construct_face(1,z2)+<br />
construct_face(2,z3)+construct_face(3,z4)+<br />
construct_face(4,z5)); <br />
}<br />
<br />
clock() {<br />
clock_time = llGetGMTclock() + gmt_offset*3600.0;<br />
<br />
integer s = (integer) clock_time;<br />
integer h = (s / 3600) % 24;<br />
integer m = s % 3600;<br />
m = m / 60; <br />
<br />
setprim(h/10,h%10,10,m/10,m%10);<br />
<br />
llResetTime();<br />
<br />
integer w1 = (integer) (clock_time / clock_cycle);<br />
float w2 = clock_time - (float)w1 * clock_cycle;<br />
llSetTimerEvent(clock_cycle-w2); <br />
}<br />
<br />
default<br />
{<br />
state_entry() {<br />
<br />
integer f;<br />
integer i;<br />
list j;<br />
<br />
gmt_offset = (float)llGetObjectDesc();<br />
<br />
tx_step_2 = tx_step / 2.;<br />
tx_base = 0.5 - tx_step_2;<br />
clock_cycle = 60.0;<br />
<br />
setprim(11,11,11,11,11);<br />
<br />
for (i=0; i<15; i+=3) {<br />
f = llList2Integer(faces,i);<br />
j += [PRIM_GLOW,f,.01, PRIM_COLOR, f, <0., 0., 1.>, 1.];<br />
<br />
} <br />
llSetPrimitiveParams([<br />
PRIM_TYPE, PRIM_TYPE_PRISM, 1, <0.2, 0.8, 0.0>, 0.7, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>,<br />
PRIM_SIZE, <0.01, 1.777, 0.577>, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, PRIM_COLOR, ALL_SIDES, <0., 0., 1.>, 0.] + j); <br />
<br />
clock();<br />
}<br />
<br />
on_rez(integer p) {<br />
llResetScript();<br />
}<br />
<br />
touch_start(integer total_number) { <br />
if (llGetOwner() == llDetectedKey(0)) {<br />
clock_mode = !clock_mode;<br />
if (clock_mode) {<br />
clock();<br />
<br />
} else {<br />
llSetTimerEvent(0.);<br />
setprim(15,15,15,15,15);<br />
}<br />
}<br />
}<br />
<br />
timer() {<br />
clock(); <br />
}<br />
<br />
}</lsl><br />
<br />
----<br />
<br />
'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=92069
User:Ezian Ecksol
2008-09-20T12:23:01Z
<p>Ezian Ecksol: </p>
<hr />
<div>'''Cam Lock/Follow'''<br />
<lsl><br />
// Camstyle, (c) Ezian Ecksol, feel free to copy, steal, modify<br />
<br />
// Put script into prim, attach it.<br />
// usage: position your camera where you like.<br />
// enter in chan:<br />
// /1 camstyle follow <-- camera is fixed, but follows your av<br />
// /1 camstyle lock <-- camera is completly locked<br />
// /1 camstyle <-- releases cam again <br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=91836
User:Ezian Ecksol
2008-09-18T16:59:42Z
<p>Ezian Ecksol: </p>
<hr />
<div>'''Cam Lock/Follow'''<br />
<lsl><br />
// (c) Ezian Ecksol. Use, modify as you like.<br />
//<br />
// Put script into prim, attach it. <br />
// Position your cam as you like. Say <br />
// '/1 camstyle follow' to lock the cam, but let it follow you AV<br />
// '/1 camstyle lock' to lock the cam completly<br />
// '/1 camstyle' to release cam again.<br />
<br />
integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry() {<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</lsl></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=91821
User:Ezian Ecksol
2008-09-18T15:10:18Z
<p>Ezian Ecksol: </p>
<hr />
<div><nowiki>integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
<br />
<br />
<br />
<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</nowiki></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=91820
User:Ezian Ecksol
2008-09-18T15:09:39Z
<p>Ezian Ecksol: </p>
<hr />
<div><nowiki>integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}<br />
</nowiki></div>
Ezian Ecksol
https://wiki.secondlife.com/w/index.php?title=User:Ezian_Ecksol&diff=91819
User:Ezian Ecksol
2008-09-18T15:09:11Z
<p>Ezian Ecksol: New page: integer chan = 1; key owner; list keywords = ["lock", "follow"]; cam_style(integer cs) { llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA); ll...</p>
<hr />
<div>integer chan = 1;<br />
<br />
key owner;<br />
list keywords = ["lock", "follow"];<br />
<br />
cam_style(integer cs) {<br />
<br />
llRequestPermissions(owner, PERMISSION_CONTROL_CAMERA | PERMISSION_TRACK_CAMERA);<br />
llClearCameraParams(); <br />
<br />
if (!cs)<br />
return;<br />
<br />
vector cpos = llGetCameraPos();<br />
list params = [CAMERA_ACTIVE, TRUE, CAMERA_POSITION_LOCKED, TRUE, CAMERA_POSITION_THRESHOLD, 0.5,<br />
CAMERA_FOCUS_THRESHOLD, 0.5, CAMERA_POSITION, cpos];<br />
<br />
if (cs == 1) <br />
params += [<br />
CAMERA_DISTANCE, .5, // ( 0.5 to 10) meters<br />
CAMERA_BEHINDNESS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_PITCH, 10.0, // (-45 to 80) degrees<br />
CAMERA_FOCUS, cpos + llRot2Fwd(llGetCameraRot()), // region-relative position<br />
CAMERA_FOCUS_LAG, 0.1, // (0 to 3) seconds<br />
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)<br />
CAMERA_POSITION_LAG, 1.0 // (0 to 3) seconds<br />
];<br />
<br />
else if (cs == 2) <br />
params += [<br />
CAMERA_FOCUS_LAG, 0.0, // (0 to 3) seconds<br />
CAMERA_BEHINDNESS_LAG, 0.5 // (0 to 3) seconds<br />
<br />
];<br />
<br />
llSetCameraParams(params);<br />
}<br />
<br />
<br />
<br />
default<br />
{<br />
state_entry()<br />
{<br />
owner = llGetOwner();<br />
llListen(chan, "", owner, "");<br />
}<br />
<br />
listen(integer channel, string name, key id, string msg) {<br />
msg = llToLower(msg);<br />
list m = llParseString2List(msg, [" "], []);<br />
<br />
if (llList2String(m, 0) == "camstyle") <br />
cam_style(llListFindList(keywords, [llList2String(m, 1)]) + 1);<br />
}<br />
<br />
<br />
<br />
changed(integer c) {<br />
if (c & CHANGED_OWNER)<br />
llResetScript();<br />
}<br />
}</div>
Ezian Ecksol