Second Life Wiki - User contributions [en]

LlGetObjectDetails

2010-02-24T05:55:30Z

BETLOG Hax:

{{LSL_Function/limits}}{{LSL_Function/uuid|id|sim=*}}
{{LSL_Function
|func_id=332|func_sleep=0.0|func_energy=10.0
|func=llGetObjectDetails
|p1_type=key|p1_name=id|p1_desc= or adjacent regions[[#id_Parameter|*]]
|p2_type=list|p2_name=params|p2_desc=OBJECT_* flags
|return_type=list|return_text=of the details for '''id''', specifically those requested in '''params'''.
|func_footnote=An empty list if '''id''' is not found.{{PBR}}
{{LSL Const|OBJECT_UNKNOWN_DETAIL|integer|-1|c=}} is returned when passed an invalid integer parameter.
|spec=<div style="padding: 1px; float: left;">[[Image:LlGetObjectdetails-avatar-range.png|thumb|none|250px|Avatar detection range for SL Server 1.34]]</div>
<h5 style="margin:0;">id Parameter</h5>
'''id''' holds the UUID of the avatar or prim this function is going to get the details of.

If '''id''' is not found in the region, adjacent regions are searched for avatars which match '''id'''. An avatar is only considered to have been found if it is inside the region, or within a 34 meter zone outside the region boundaries (see diagram). A single valid result may be returned after the avatar leaves this zone.

<h5 style="margin:0;">params Parameter</h5>
The '''params''' list is used to indicate which object attributes of interest. The order they are supplied in determines the order of the corresponding return values in the return list.
{{{!}} cellpadding="0" cellspacing="0"
{{!}}
*If '''params''' contains unsupported integer values, {{LSL Const|OBJECT_UNKNOWN_DETAIL|integer|-1|c=}} is placed in the output list.
*If '''params''' contains non-[[integer]] types, those values will be silently ignored.
{{!}}}
<div style="clear:both;"></div>
|caveats=
*Adjacent regions are not searched for prims which match '''id'''.
*Information for avatars that can no longer be found will still be available for a short period (about 45 seconds) but it is not updated.
*Items in '''params''' that are not integers are silently ignored, {{LSL Const|OBJECT_UNKNOWN_DETAIL|integer|-1|c=}} is not returned.
*This function does not return information about items in inventory.
*[[llTargetOmega]] will only effect the return of [[OBJECT_ROT]] if the object is [[STATUS_PHYSICS|physical]]. If the object is not physical then the original start rotation is returned, [[llTargetOmega]] is a {{LSLGC|Effects|client side effect}}.
|examples=
<lsl>default
{
collision_start(integer i)
{
list a = llGetObjectDetails(llDetectedKey(0), ([OBJECT_NAME,
OBJECT_DESC, OBJECT_POS, OBJECT_ROT, OBJECT_VELOCITY,
OBJECT_OWNER, OBJECT_GROUP, OBJECT_CREATOR]));
llWhisper(0,"UUID: " + (string)llDetectedKey(0) +
"\nName: \"" + llList2String(a,0) + "\"" +
"\nDescription: \"" + llList2String(a,1) + "\"" +
"\nPosition: " + llList2String(a,2) +
"\nRotation: " + llList2String(a,3) +
"\nVelocity: " + llList2String(a,4) +
"\nOwner: " + llList2String(a,5) +
"\nGroup: " + llList2String(a,6) +
"\nCreator: " + llList2String(a,7));
}
}</lsl>
<lsl>// Group join inviter
default
{
touch_start(integer num_detected)
{
llInstantMessage(llDetectedKey(0),"Click on Join in my group profile:\n" +
" secondlife:///app/group/" + llList2String(llGetObjectDetails(llGetKey(), [OBJECT_GROUP]), 0) + "/about ");
}
}</lsl>
<lsl>// aim & shoot
default
{ state_entry()
{ llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
}
control(key id, integer pressed, integer change)
{ if(change & pressed & CONTROL_ML_LBUTTON)
llSensor("", "", AGENT|PASSIVE|ACTIVE, 96.0, PI/16.0);
}
run_time_permissions(integer perm)
{ if(perm&PERMISSION_TAKE_CONTROLS)
llTakeControls(0x7FFFFFFF, TRUE, TRUE);
}
sensor(integer n)
{ key uuid=llDetectedKey(0);
list a = llGetObjectDetails(uuid, ([
OBJECT_NAME, OBJECT_DESC, OBJECT_POS, OBJECT_ROT,
OBJECT_VELOCITY,OBJECT_OWNER, OBJECT_GROUP, OBJECT_CREATOR]));
llOwnerSay("UUID: " + (string)uuid +
"\nName: \"" + llList2String(a,0)+ "\"" +
"\nDecription: \"" + llList2String(a,1) + "\"" +
"\nPosition: " + llList2String(a,2) +
"\nRotation: " + llList2String(a,3) +
"\nVelocity: " + llList2String(a,4) +
"\nOwner: " + llList2String(a,5) +
"\nGroup: " + llList2String(a,6) +
"\nCreator: " + llList2String(a,7)
);
}
}</lsl>

|spec
|constants={{LSL Constants/Object Details}}
|helpers=See {{LSLGC|Link/Get}} for some {{LSLGC|Link|link}} related helper functions. Since there is no function to get linked prim parameters, this can be useful if you need to get the position and rotation of a linked prim.
|also_functions={{LSL DefineRow||[[llKey2Name]]}}
{{LSL DefineRow||[[llGetPrimitiveParams]]}}
{{LSL DefineRow||[[llSetLinkPrimitiveParams]]}}
{{LSL DefineRow||[[llSetPrimitiveParams]]}}
{{LSL DefineRow||[[llGetParcelDetails]]}}
|also_tests
|also_events
|also_articles={{LSL DefineRow||{{LSLGC|Detected}}}}
{{LSL DefineRow||[[Prim Attribute Overloading]]}}
|notes
|history=Introduced in SL 1.18.3(2)
|cat1=Object
|cat2=Prim
|cat3=Avatar
|cat4=Owner
|cat5=Creator
|cat6=Group
|cat7=Link
|cat8
}}

User:BETLOG Hax

2010-01-05T02:34:16Z

BETLOG Hax:

'''Wiki contribution index:'''
 
A lot of this is basically just rubbish. But it is a useful reference for various things, possibly not specifically the thing the script addresses, but often just secondary stuff.
 
 
Generally I put things here to refer people to when they ask (again).
 
 
Although a lot of it is here simply to reinforce in peoples minds that when I write something for them, and add an attribution license, that I expect them to comply with it, and that by making it public here it means that not only can others benefit, but that others know who actually wrote it, and often for whom, and why.
 
 
Sometimes its just here because i've seen something else inworld that was so bad i felt i needed to contribute something less insane.
 
 
But like almost everything i write; when i re-read it months later theres almost always some glaring oversight, or completely trash/facepalm/'ZOMG WTF was i thinking?' elements in it.
 
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor
 
https://wiki.secondlife.com/wiki/Days_Since
 
https://wiki.secondlife.com/wiki/Send_home_and_ban_avs_less_than_description_field_days_old
 
https://wiki.secondlife.com/wiki/Animation_triggered_sound_loop
 
https://wiki.secondlife.com/wiki/Rotation_that_points_from_A_to_B
 
https://wiki.secondlife.com/wiki/DoorHax
 
https://wiki.secondlife.com/wiki/Tool-Texture_cube_hollow_face

Tool-Texture cube hollow face

2010-01-05T02:33:18Z

BETLOG Hax: Created page with '{{LSL Header}} ====Tool-Texture cube hollow face v0.1.0==== --BETLOG Hax GMT+10: 20090210 0222 [SLT: 20090209 0922] A tool for adjusting texture repeats for...'

{{LSL Header}}
====Tool-Texture cube hollow face v0.1.0====
--[[User:BETLOG Hax|BETLOG Hax]] GMT+10: 20090210 0222 [SLT: 20090209 0922]

A tool for adjusting texture repeats for inside (hollow) face of cubes.
 
I made some attempt to accommodate other prim types, but never actually finished it.
 

<lsl>
//=========================================================================
f_setHollowX(float Xrepeats)
{ list data = llGetPrimitiveParams([PRIM_TYPE]);
vector cut = llList2Vector(data, 2);
float hollow = llList2Float(data, 3);
if (hollow == 0.0)
{ llOwnerSay("ERROR: not hollow.");
return;
}
if (llList2Integer(data, 0) != PRIM_TYPE_BOX)
{ llOwnerSay("WARNING: not a box. This is completely UNTESTED");
}
integer face = 5;
if (cut.y - cut.x <= 0.75) face = 4;
if (cut.y - cut.x <= 0.5) face = 3;
if (cut.y - cut.x <= 0.25) face = 2;
//llOwnerSay((string)cut+"\t"+(string)face);
float rpt = Xrepeats/-hollow;
float ofs = (((Xrepeats/-hollow)+Xrepeats) / 2.0)+(Xrepeats/2.0/Xrepeats);
if ((ofs > 1.0) || (ofs < -1.0))
ofs -= (float)llFloor(ofs);
vector o = llGetTextureOffset(face);
vector r = llGetTextureScale(face);
llSetPrimitiveParams([PRIM_TEXTURE, face
, llGetTexture(face)
, <rpt, r.y, 0.0>//repeats
, <ofs, o.y, 0.0>//offsets
, 0*DEG_TO_RAD
]);
}
//======================================================================================
default
{ on_rez(integer start_param)
{ llResetScript();
}
state_entry()
{ llOwnerSay(
"\n Type number of X texture repeats for the hollow face of a cube."
+"\n Type 'done' to delete script and finish.");
llListen(0, "", llGetOwner(), "");
}
listen(integer channel, string name, key id, string message)
{ if ((float)message != 0.0)
{ f_setHollowX((float)message);
}
if (llToLower(message) == "done")
{ llOwnerSay("OK, removing script.");
llRemoveInventory(llGetScriptName());
}
}
}
//=========================================================================

</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-11-10T11:33:42Z

BETLOG Hax:

DoorHax

2009-11-10T11:24:33Z

BETLOG Hax:

{{LSL Header}}
====DoorHax v0.1.0====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091110 2120 [SLT: 20091110 0420]

A smooth swinging door.
 
It seemed to work. Almost completely untested.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091110 2001 [SLT: 20091110 0301]
// For Gutterblood Spoonhammer
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/DoorHax
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
float gShutAngle = 0.0;
float gShutTau = 3.0;
//
float gOpenAngle = 90.0;
float gOpenTau = 0.75;
//
string gSndOpening = "cb340647-9680-dd5e-49c0-86edfa01b3ac";
float gVolOpening = 1.0;
string gSndOpened = "2ffd48fb-293c-d8c8-f2c5-c0ca76126baa";
float gVolOpened = 1.0;

string gSndClosing = "e7ff1054-003d-d134-66be-207573f2b535";
float gVolClosing = 1.0;
string gSndClosed = "31b0c4db-e126-47c5-ac1c-60edb1c0103a";
float gVolClosed = 1.0;
//----------------------------------
// CORE CODE
integer gOpen;
//=========================================================================
f_toggle()
{ float f;
llResetTime();
if(gOpen)
{ llTriggerSound(gSndOpening, gVolOpening);//opening
do{ f=gShutAngle+(llGetTime()/gOpenTau*llFabs(gShutAngle-gOpenAngle));
//llSetText((string)f, <.0, 1.0, .0>, 1.0);
llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
}while(f<=gOpenAngle);
llTriggerSound(gSndOpened,gVolOpened);//opening end
}
else
{ llTriggerSound(gSndClosing, gVolClosing);//closing
do{ f=gOpenAngle-(llGetTime()/gShutTau*llFabs(gShutAngle-gOpenAngle));
//llSetText((string)f, <1.0, .0, .0>, 1.0);
llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
}while(f>=gShutAngle);
llTriggerSound(gSndClosed, gVolClosed);//closing end
}
//llOwnerSay((string)llGetTime());
}
//----------------------------------
default
{ state_entry()
{ llSetText("", <1.0, 1.0, 1.0>, 1.0);
f_toggle();
}
touch_start(integer num)
{ gOpen=!gOpen;
f_toggle();
}
}
//----------------------------------
</lsl>

[[Category:LSL Examples]]

DoorHax

2009-11-10T11:23:55Z

BETLOG Hax: Created page with '{{LSL Header}} ====DoorHax v0.1.0==== --BETLOG Hax UTC+10: 20091110 2120 [SLT: 20091110 0420] A smooth swinging door. It seemed to work. Almost complete...'

{{LSL Header}}
====DoorHax v0.1.0====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091110 2120 [SLT: 20091110 0420]

A smooth swinging door.
 
It seemed to work. Almost completely untested.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091110 2001 [SLT: 20091110 0301]
// For Gutterblood Spoonhammer
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
float gShutAngle = 0.0;
float gShutTau = 3.0;
//
float gOpenAngle = 90.0;
float gOpenTau = 0.75;
//
string gSndOpening = "cb340647-9680-dd5e-49c0-86edfa01b3ac";
float gVolOpening = 1.0;
string gSndOpened = "2ffd48fb-293c-d8c8-f2c5-c0ca76126baa";
float gVolOpened = 1.0;

string gSndClosing = "e7ff1054-003d-d134-66be-207573f2b535";
float gVolClosing = 1.0;
string gSndClosed = "31b0c4db-e126-47c5-ac1c-60edb1c0103a";
float gVolClosed = 1.0;
//----------------------------------
// CORE CODE
integer gOpen;
//=========================================================================
f_toggle()
{ float f;
llResetTime();
if(gOpen)
{ llTriggerSound(gSndOpening, gVolOpening);//opening
do{ f=gShutAngle+(llGetTime()/gOpenTau*llFabs(gShutAngle-gOpenAngle));
//llSetText((string)f, <.0, 1.0, .0>, 1.0);
llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
}while(f<=gOpenAngle);
llTriggerSound(gSndOpened,gVolOpened);//opening end
}
else
{ llTriggerSound(gSndClosing, gVolClosing);//closing
do{ f=gOpenAngle-(llGetTime()/gShutTau*llFabs(gShutAngle-gOpenAngle));
//llSetText((string)f, <1.0, .0, .0>, 1.0);
llRotLookAt(llEuler2Rot(<0.0, 0.0, f>*DEG_TO_RAD),0.05,0.05);
}while(f>=gShutAngle);
llTriggerSound(gSndClosed, gVolClosed);//closing end
}
//llOwnerSay((string)llGetTime());
}
//----------------------------------
default
{ state_entry()
{ llSetText("", <1.0, 1.0, 1.0>, 1.0);
f_toggle();
}
touch_start(integer num)
{ gOpen=!gOpen;
f_toggle();
}
}
//----------------------------------
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-11-08T09:49:48Z

BETLOG Hax:

Rotation that points from A to B

2009-11-08T09:49:05Z

BETLOG Hax: Created page with '{{LSL Header}} ====f_rotDir()==== --BETLOG Hax UTC+10: 20091108 1939 [SLT: 20091108 0239] You are at vector A and you want to know what rotation (quaternion)...'

{{LSL Header}}
====f_rotDir()====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091108 1939 [SLT: 20091108 0239]

You are at vector A and you want to know what rotation (quaternion) will intercept vector B.
 
Yes it's trivial, but after asking numerous very mathematically intelligent persons, and having them invariably misunderstand what I meant/wanted I feel the need to post it here.
 
Almost instant understanding and elegant answer courtesy of Nomad Padar.
 
Dude, I say this a lot, but you are seriously awesome.
 
 
The code below is merely a test/example harness for something I cannot post here and would only confuse the solution anyway. So yes, it may appear a little redundant. If you are one of the few people who is pleased to learn how this works by finding this example please comment.
 
<lsl>
//==============================================================
vector gTarget;
rotation gAngle;
//----------------------------------
rotation f_rotDir(vector localAxisToPointWith, vector target, vector origin)
{ return llRotBetween(localAxisToPointWith*ZERO_ROTATION, target-origin);
}
//----------------------------------
default
{ state_entry()
{ llSensor("B", "", AGENT|PASSIVE|SCRIPTED, 3.0, PI);
// llStopLookAt();
}
touch_start(integer num)
{ if(llDetectedKey(0)==llGetOwner())
{ llSensor("B", "", AGENT|PASSIVE|SCRIPTED, 3.0, PI);
}
}
sensor(integer num)
{ vector p=llGetPos();
gTarget=llDetectedPos(0);
// gAngle=llRotBetween(<1.0, 0.0, 0.0>* <0,0,0,1>, gTarget-p);
gAngle=f_rotDir(<1.0, 0.0, 0.0>, gTarget, p);
llRotLookAt(gAngle, 0.1, 0.1);
/*
llSetText(""
+"\n gAngle: "+(string)gAngle
+"\n SHOULD equal:"
+"\n llGetRot : "+(string)llGetRot()
, <1.0, 1.0, 1.0>, 1.0);
*/
}
no_sensor()
{ llOwnerSay("B not found!");
llSetText("B not found!", <1.0, 0.0, 0.0>, 1.0);
}
}
//==============================================================
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-10-11T07:00:45Z

BETLOG Hax:

Animation triggered sound loop

2009-10-11T06:52:07Z

BETLOG Hax:

{{LSL Header}}
====Animation triggered sound loop====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091011 1615 [SLT: 20091010 2315]

You want a specific animation (thats already handled by your AO) to play a special sound.
 

This script does the sound bit. (LOOPS the sound FOR AS LONG AS you play the animation)
 
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091011 1601 [SLT: 20091010 2301]
// For Eln Alter
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// -Exception for Eln ALter to protect the commercial viability of his animations' UUID
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Animation_triggered_sound_loop
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//==============================================================
string gAnimUUID = "";//***THIS HAS TO BE INSERTED BY YOU***
string gSound = "";//having a sound in contents will override
//----------------------------------
integer gAnimState;
//----------------------------------
f_toggle(integer on)
{ if(on)
{ string n = llGetInventoryName(INVENTORY_SOUND,0);
if(n!="")
gSound=n;
if(gSound!="")
llLoopSound(gSound,1.0);
else
llOwnerSay("ERROR: No sound defined in script and none in object contents.
Without one or the other I cant work.");
}
else
llStopSound();
}
//----------------------------------
f_perms() //make it still operate when entering no script areas
{ if(llGetAttached())
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
}
//==============================================================
default
{ state_entry()
{ if(llGetAttached())//DEV
f_perms();
else
llOwnerSay("You must be wearing me for this to operate.");
}
attach(key id)
{ f_perms();
}
run_time_permissions(integer perm)
{ if(perm & PERMISSION_TAKE_CONTROLS)
{ f_toggle(gAnimState=FALSE);
llSetTimerEvent(0.444444);
}
}
control(key id, integer pressed, integer change)
{ //make it still operate when entering no script areas
}
timer()
{ if(-1<llListFindList(llGetAnimationList(llGetOwner()), [(key)gAnimUUID]))
{ if(!gAnimState)
f_toggle(gAnimState=TRUE);
}
else if(gAnimState)
f_toggle(gAnimState=FALSE);
}
}
//==============================================================
</lsl>

====Animation triggered sound NOloop====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091011 1615 [SLT: 20091010 2315]

You want a specific animation (thats already handled by your AO) to play a special sound.
 
This script does the sound bit. (Plays the sound ONCE each time you start the animation)
 
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091011 1601 [SLT: 20091010 2301]
// For Eln Alter
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// -Exception for Eln ALter to protect the commercial viability of his animations' UUID
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Animation_triggered_sound_loop
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//==============================================================
string gAnimUUID = "";//***THIS HAS TO BE INSERTED BY YOU***
string gSound = "";//having a sound in contents will override
//----------------------------------
integer gAnimState;
//----------------------------------
f_perms() //make it still operate when entering no script areas
{ if(llGetAttached())
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
}
//==============================================================
default
{ state_entry()
{ if(llGetAttached())//DEV
f_perms();
else
llOwnerSay("You must be wearing me for this to operate.");
}
attach(key id)
{ f_perms();
}
run_time_permissions(integer perm)
{ if(perm & PERMISSION_TAKE_CONTROLS)
llSetTimerEvent(0.444444);
}
control(key id, integer pressed, integer change)
{ //make it still operate when entering no script areas
}
timer()
{ if(-1<llListFindList(llGetAnimationList(llGetOwner()), [(key)gAnimUUID]))
{ if(!gAnimState)
{ string n = llGetInventoryName(INVENTORY_SOUND,0);//not ideal-meh
if(n!="")
gSound=n;
if(gSound!="")
{ gAnimState=TRUE;
llPlaySound(gSound,1.0);
}
else
llOwnerSay("ERROR: No sound defined in script and none in object contents.
Without one or the other I cant work.");
}
}
else if(gAnimState)
gAnimState=FALSE;
}
}
//==============================================================
</lsl>

[[Category:LSL Examples]]

Animation triggered sound loop

2009-10-11T06:20:05Z

BETLOG Hax:

Animation triggered sound loop

2009-10-11T06:18:22Z

BETLOG Hax:

Animation triggered sound loop

2009-10-11T06:18:01Z

BETLOG Hax: Created page with '{{LSL Header}} ====Animation triggered sound loop==== --BETLOG Hax UTC+10: 20091011 1615 [SLT: 20091010 2315] You want a specific animation (thats already ha...'

No Limit Teleporter

2009-10-04T19:02:28Z

BETLOG Hax:

'''Simple Teleporter - No Limitation'''
----

Zero - Lag 
You can do anything, change the code and all more...
To use: 
[+] Set stapos (end of script) to the object position (where to back when the destination is reach). 
[+] Set dest (end of script) to the object destination. 

<lsl>
//Leave that here
//Script created by Morgam Biedermann
vector posnow;
vector stapos;
rotation rotnow;
teleport(vector dest)
{
if(llGetPos() != dest)
{
llSetPos(dest);
teleport(dest);
}
else
{
llUnSit(llAvatarOnSitTarget());
teleports(stapos);
}
}
teleports(vector dest)
{
if(llGetPos() != stapos)
{
llSetPos(stapos);
teleports(stapos);
}
}
default
{
state_entry()
{
stapos = <141,19,30>;
}
touch_start(integer vez)
{
if(llDetectedKey(0) == llGetOwner())
teleport(<141,19,505>);
}
}
</lsl>
The above example is a really bad approach to use for many reasons. Not least of which is that lag is precisely what it *will* generate. 
 
An equivalency check that respects SLs somewhat wiggly precision system, and isn't trying to match a movement to EXACTLY 6 decimal places of precision is needed. 
<lsl>
if(llGetPos() != dest)
//is bad
</lsl>
<lsl>
if(llVecDist(llGetPos(),dest)<0.001)
//is MUCH better
</lsl>
ie:
<lsl>
teleports(vector dest)
{
// if(llGetPos() != stapos)
// This an inherently bad approach; given 6 decimal places on 3 floats in a vector its
// very UNlikely the equivalency will be precisely equal even if its VERY close, this
// will become especially evident at high altitude. It'll look like its stopped,
// but the llSetPos() will be still thrashing away. Possibly for quite some time/forever.
//
// the below will stop in a timely manner.
if(llVecDist(llGetPos(),dest) <= 0.001)
{ llSetPos(dest); //corrected variable
teleports(dest); //corrected variable
}
}
</lsl>
And a system that has a user function call itself from within itself is probably not good.
This is MUCH Better. [MUST be compiled in MONO]
<lsl>
teleports(vector dest)
{ list l=[PRIM_POSITION,dest];
l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;
llSetPrimitiveParams(l);
}
</lsl>

No Limit Teleporter

2009-10-04T19:01:37Z

BETLOG Hax:

'''Simple Teleporter - No Limitation'''
----

Zero - Lag 
You can do anything, change the code and all more...
To use: 
[+] Set stapos (end of script) to the object position (where to back when the destination is reach). 
[+] Set dest (end of script) to the object destination. 

<lsl>
//Leave that here
//Script created by Morgam Biedermann
vector posnow;
vector stapos;
rotation rotnow;
teleport(vector dest)
{
if(llGetPos() != dest)
{
llSetPos(dest);
teleport(dest);
}
else
{
llUnSit(llAvatarOnSitTarget());
teleports(stapos);
}
}
teleports(vector dest)
{
if(llGetPos() != stapos)
{
llSetPos(stapos);
teleports(stapos);
}
}
default
{
state_entry()
{
stapos = <141,19,30>;
}
touch_start(integer vez)
{
if(llDetectedKey(0) == llGetOwner())
teleport(<141,19,505>);
}
}
</lsl>
The above example is a really bad approach to use for many reasons. Not least of which is that lag is precisely what it *will* generate. 
 
An equivalency check that respects SLs somewhat wiggly precision system, and isn't trying to match a movement to EXACTLY 6 decimal places of precision is needed. 
<lsl>
if(llGetPos() != dest)
//is bad 
</lsl>
<lsl>
if(llVecDist(llGetPos(),dest)<0.001)
//is MUCH better 
</lsl>
ie:
<lsl>
teleports(vector dest)
{
// if(llGetPos() != stapos)
// This an inherently bad approach; given 6 decimal places on 3 floats in a vector its
// very UNlikely the equivalency will be precisely equal even if its VERY close, this
// will become especially evident at high altitude. It'll look like its stopped,
// but the llSetPos() will be still thrashing away. Possibly for quite some time/forever.
//
// the below will stop in a timely manner.
if(llVecDist(llGetPos(),dest) <= 0.001)
{ llSetPos(dest); //corrected variable
teleports(dest); //corrected variable
}
}
</lsl>
And a system that has a user function call itself from within itself is probably not good.
This is MUCH Better. [MUST be compiled in MONO]
<lsl>
teleports(vector dest)
{ list l=[PRIM_POSITION,dest];
l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;l+=l;
llSetPrimitiveParams(l);
}
</lsl>

Greeting Card

2009-10-04T10:27:41Z

BETLOG Hax:

{{LSL Header}}
====Greeting Card====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091004 0012 [SLT: 20091003 0712]

 
The prims are dimpled, root 0.0-0.5 and child 0.5-1.0
 
The child prim is cut 0.375-0.875
 
Texture repeats are adjusted accordingly
 
You'll figure out which way to orient the prims when you link and touch it.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091003 2019 [SLT: 20091003 0319]
// For eKitten Magic
//==============================================================
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Greeting_Card
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
string gSound = "";//optional, one in contents will work too
float gVolume = 1.0;
//
string gAnim = "";//optional, one in contents will work too
//
float gAngle = 160.0;
//----------------------------------
// CORE CODE
integer gOpen;
//----------------------------------
f_toggle()
{ if(gOpen)
{ if(gSound!="")
llLoopSound(gSound,gVolume);
if(gAnim!="")
llStartAnimation(gAnim);
}
else
{ llStopSound();
if(gAnim!="")
llStopAnimation(gAnim);
}
llSetLinkPrimitiveParams(2,[PRIM_ROTATION
,llEuler2Rot(<gAngle*(float)gOpen, 0.0, 0.0>*DEG_TO_RAD)/llGetLocalRot()
]);
}
//=========================================================================
default
{ on_rez(integer param)
{ llResetScript();
}
state_entry()
{ if(gSound=="")
{ string sound = llGetInventoryName(INVENTORY_SOUND,0);
if(sound!="")
{ gSound=sound;
llPreloadSound(gSound);
}
}
if(gAnim=="")
{ string anim = llGetInventoryName(INVENTORY_ANIMATION,0);
if(anim!="")
{ gAnim=anim;
llPreloadSound(gAnim);
}
}
f_toggle();
}
touch_start(integer total_number)
{ gOpen=!gOpen;
f_toggle();
}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Greeting Card

2009-10-04T10:26:21Z

BETLOG Hax:

{{LSL Header}}
====Greeting Card====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091004 0012 [SLT: 20091003 0712]

 
The prims are dimpled, root 0.0-0.5 and child 0.5-1.0
 
The child prim is cut 0.375-0.875
 
Texture repeats are adjusted accordingly
 
You'll figure out which way to orient the prims when you link and touch it.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091003 2019 [SLT: 20091003 0319]
// For eKitten Magic
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Greeting_Card
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
string gSound = "";//optional, one in contents will work too
float gVolume = 1.0;
//
string gAnim = "";//optional, one in contents will work too
//
float gAngle = 160.0;
//----------------------------------
// CORE CODE
integer gOpen;
//----------------------------------
f_toggle()
{ if(gOpen)
{ if(gSound!="")
llLoopSound(gSound,gVolume);
if(gAnim!="")
llStartAnimation(gAnim);
}
else
{ llStopSound();
if(gAnim!="")
llStopAnimation(gAnim);
}
llSetLinkPrimitiveParams(2,[PRIM_ROTATION
,llEuler2Rot(<gAngle*(float)gOpen, 0.0, 0.0>*DEG_TO_RAD)/llGetLocalRot()
]);
}
//=========================================================================
default
{ on_rez(integer param)
{ llResetScript();
}
state_entry()
{ if(gSound=="")
{ string sound = llGetInventoryName(INVENTORY_SOUND,0);
if(sound!="")
{ gSound=sound;
llPreloadSound(gSound);
}
}
if(gAnim=="")
{ string anim = llGetInventoryName(INVENTORY_ANIMATION,0);
if(anim!="")
{ gAnim=anim;
llPreloadSound(gAnim);
}
}
f_toggle();
}
touch_start(integer total_number)
{ gOpen=!gOpen;
f_toggle();
}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Greeting Card

2009-10-03T14:15:55Z

BETLOG Hax:

{{LSL Header}}
====Greeting Card====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091004 0012 [SLT: 20091003 0712]

 
The prims are dimpled, root 0.0-0.5 and child 0.5-1.0
 
The child prim is cut 0.375-0.875
 
Texture repeats are adjusted accordingly
 
You'll figure out which way to orient the prims when you link and touch it.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091003 2019 [SLT: 20091003 0319]
// For eKitten Magic
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Greeting_Card
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
string gSound = "";
float gVolume = 1.0;
//
float gAngle = 160.0;
//----------------------------------
// CORE CODE
integer gOpen;
//----------------------------------
f_toggle()
{ if(gOpen)
{ if(gSound!="")
llLoopSound(gSound,gVolume);
}
else
llStopSound();
llSetLinkPrimitiveParams(2,[PRIM_ROTATION
,llEuler2Rot(<gAngle*(float)gOpen, 0.0, 0.0>*DEG_TO_RAD)/llGetLocalRot()
]);
}
//=========================================================================
default
{ on_rez(integer param)
{ llResetScript();
}
state_entry()
{ if(gSound=="")
{ string sound = llGetInventoryName(INVENTORY_SOUND,0);
if(sound!="")
{ gSound=sound;
llPreloadSound(gSound);
}
}
f_toggle();
}
touch_start(integer total_number)
{ gOpen=!gOpen;
f_toggle();
}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Greeting Card

2009-10-03T14:15:29Z

BETLOG Hax: Created page with '{{LSL Header}} ====Greeting Card==== --BETLOG Hax UTC+10: 20091004 0012 [SLT: 20091003 0712] The prims are dimpled, root 0.0-0.5 and child 0.5-1.0 ...'

{{LSL Header}}
====Greeting Card====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20091004 0012 [SLT: 20091003 0712]

 
The prims are dimpled, root 0.0-0.5 and child 0.5-1.0
 
The child prim is cut 0.375-0.875
 
Texture repeats are adjusted accordingly
 
You'll figure out which way to orient the prims when you link and touch it.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20091003 2019 [SLT: 20091003 0319]
// For eKitten Magic
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
string gSound = "";
float gVolume = 1.0;
//
float gAngle = 160.0;
//----------------------------------
// CORE CODE
integer gOpen;
//----------------------------------
f_toggle()
{ if(gOpen)
{ if(gSound!="")
llLoopSound(gSound,gVolume);
}
else
llStopSound();
llSetLinkPrimitiveParams(2,[PRIM_ROTATION
,llEuler2Rot(<gAngle*(float)gOpen, 0.0, 0.0>*DEG_TO_RAD)/llGetLocalRot()
]);
}
//=========================================================================
default
{ on_rez(integer param)
{ llResetScript();
}
state_entry()
{ if(gSound=="")
{ string sound = llGetInventoryName(INVENTORY_SOUND,0);
if(sound!="")
{ gSound=sound;
llPreloadSound(gSound);
}
}
f_toggle();
}
touch_start(integer total_number)
{ gOpen=!gOpen;
f_toggle();
}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Do while

2009-10-03T04:54:21Z

BETLOG Hax:

{{#vardefine:p_loop_desc|Executes once, then executes '''condition'''.
}}{{#vardefine:p_condition_desc|If condition executes true, it then loops back and executes '''loop''' again.
}}{{LSL_Conditional
|statement=do while
|statement_header
|statement_desc=Any of the statements can be null statements. A do...while loop is slightly faster than a while or for loop, and requires fewer bytes of memory than a while or for loop.
|statement_title=do {{LSL Param|loop}} while ({{LSL Param|condition}});
|p1_name=loop
|p2_name=condition
|constants
|spec
|caveats
|examples=<div style="display:inline-block; vertical-align:top;"><lsl>//Counts from 1 to 5
default
{
state_entry()
{
integer olf;
do
llSay(0, (string) (++olf));
while(olf<5);
}
}</lsl></div>
<div style="display:inline-block; vertical-align:top;"><lsl>//Counts from 0 to 4
default
{
state_entry()
{
integer olf;
do
llSay(0, (string)olf);
while((++olf)<5);
}
}</lsl></div>
<div style="display:inline-block; vertical-align:top;"><lsl>//Counts from 0 to 4 and coments as it loops (block statement demo)
default
{
state_entry()
{
integer olf;
do
{
llSay(0, (string)olf);
llSay(0, "looping");
}
while((++olf)<5);
}
}</lsl></div>
<div style="display:inline-block; vertical-align:top;">
<lsl>
//Practical example of where a do/while loop is more immediately useful than a while loop:
//Note that a sensor event always contains input data, so the 'do' always has something to process
sensor(integer num)
{ if(num>12)
num=12;
do
{ gNameList += [llGetSubString(llDetectedName(--num),0,23)];//sometimes avatar names are too long for dialog display
gKeyList += [llDetectedKey(num)];//we will dialog select avatar by name, but still need their key
//even if their name has not been truncated above
}while(num>0);
llDialog(llGetOwner(),"Choose an avatar.",gNameList,gDlgChan);//channel is pre-defined when llSensor is triggered
}
</lsl></div>
|helpers
|also_header
|also_functions
|also_tests
|also_articles
|also_footer
|notes
|mode
|deprecated
|cat1=Conditional
|cat2
|cat3
|cat4
}}

Typing linkset alpha toggle

2009-09-28T07:11:54Z

BETLOG Hax:

{{LSL Header}}
====Typing linkset alpha toggle====

--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090928 1705 [SLT: 20090928 0005]
 
Put script in root prim of your fancy "i am typing now" novelty prim keyboard.
 
Start typing -> prims become visible
 
Stop typing -> prims become INvisible
 
Only one script required.
 
 
I just wrote it, didn't test much, It's trivial but there will probably be a glaring oversight in there somewhere.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090928 1642 [SLT: 20090927 2342]
// For Jullalana Mornington because I saw the ye-olde one she was using had a script in every prim. This sort of script does NOT need a script in every prim. Yes realy.
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Typing_linkset_alpha_toggle
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//==============================================================
integer gVisible;
//----------------------------------
f_toggle(integer visible)
{ llSetLinkAlpha(LINK_SET, (float)visible, ALL_SIDES);
}
//----------------------------------
f_perms() //make it still operate when entering no script areas
{ if(llGetAttached())
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
}
//==============================================================
default
{ state_entry()
{ if(llGetAttached())//DEV
f_perms();
else
llOwnerSay("You must be wearing me for this to operate.");
}
attach(key id)
{ f_perms();
}
run_time_permissions(integer perm)
{ if(perm & PERMISSION_TAKE_CONTROLS)
{ f_toggle(gVisible=FALSE);
llSetTimerEvent(0.444444);
}
}
control(key id, integer pressed, integer change)
{ //make it still operate when entering no script areas
}
timer()
{ if(AGENT_TYPING & llGetAgentInfo(llGetOwner()) )
{ if(!gVisible)
{ f_toggle(gVisible=TRUE);
}
}
else
{ if(gVisible)
{ f_toggle(gVisible=FALSE);
}
}
}

}
//==============================================================
</lsl>

[[Category:LSL Examples]]

Typing linkset alpha toggle

2009-09-28T07:11:01Z

BETLOG Hax: Created page with '{{LSL Header}} ====Typing linkset alpha toggle==== --BETLOG Hax UTC+10: 20090928 1705 [SLT: 20090928 0005] Put script in root prim of your fancy "i am t...'

{{LSL Header}}
====Typing linkset alpha toggle====

--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090928 1705 [SLT: 20090928 0005]
 
Put script in root prim of your fancy "i am typing now" novelty prim keyboard.
 
Start typing -> prims become visible
 
Stop typing -> prims become INvisible
 
Only one script required.
 
 
I just wrote it, didn't test much, It's trivial but there will probably be a glaring oversight in there somewhere.
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090928 1642 [SLT: 20090927 2342]
// For Jullalana Mornington because I saw the ye-olde one she was using had a script in every prim. This sort of script does NOT need a script in every prim. Yes realy.
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//==============================================================
integer gVisible;
//----------------------------------
f_toggle(integer visible)
{ llSetLinkAlpha(LINK_SET, (float)visible, ALL_SIDES);
}
//----------------------------------
f_perms() //make it still operate when entering no script areas
{ if(llGetAttached())
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
}
//==============================================================
default
{ state_entry()
{ if(llGetAttached())//DEV
f_perms();
else
llOwnerSay("You must be wearing me for this to operate.");
}
attach(key id)
{ f_perms();
}
run_time_permissions(integer perm)
{ if(perm & PERMISSION_TAKE_CONTROLS)
{ f_toggle(gVisible=FALSE);
llSetTimerEvent(0.444444);
}
}
control(key id, integer pressed, integer change)
{ //make it still operate when entering no script areas
}
timer()
{ if(AGENT_TYPING & llGetAgentInfo(llGetOwner()) )
{ if(!gVisible)
{ f_toggle(gVisible=TRUE);
}
}
else
{ if(gVisible)
{ f_toggle(gVisible=FALSE);
}
}
}

}
//==============================================================
</lsl>

[[Category:LSL Examples]]

Sneakin

2009-09-19T07:29:53Z

BETLOG Hax:

{{LSL Header}}
====Theme music when you walk/run/crouchwalk====

--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090810 0403 [SLT: 20090809 1103]

<lsl>
// BETLOG Hax
// UTC+10: 20090728 0733 [SLT: 20090727 1433]
// Was Messamo House's script, which he may have copy pasted from Hen Streeter or vice versa, but i *totally* rewrote it.. TOTALLY
// https://wiki.secondlife.com/wiki/Sneakin
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
key gMode = NULL_KEY;
default
{ state_entry()
{ llStopSound();
llSetTimerEvent(0.333333);
}
timer()
{ integer i = llGetAgentInfo(llGetOwner());
key mode=NULL_KEY;
if(i & AGENT_WALKING)
{ if(llVecMag(llList2Vector(llGetObjectDetails(llGetOwner(), ([OBJECT_VELOCITY])),0))>4.0)
mode="770cf677-5fda-56fe-85dd-ee1f07c63005";//run
else if(i & AGENT_CROUCHING)
mode="f7db8364-4369-712f-f034-92799ee26193";//crouch
else
mode="cc493463-b22d-cf0f-49ef-285e641a87f4";//walk
}
if(gMode!=mode)
{ gMode=mode;
llStopSound();
if(mode!=NULL_KEY)
llLoopSound(mode, 1.0);
}
}
}
//----------------------------------
</lsl>

[[Category:LSL Examples]]

Send home and ban avs less than description field days old

2009-09-10T01:34:09Z

BETLOG Hax:

{{LSL Header}}
====Send home and ban avs less than description field days old====
=====Modified from script: Days Since=====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

UTC+10: 20090910 1106 [SLT: 20090909 1806]
NOTE: I have not tested this at all. Yes really.
 
Superficially the 'kick their ass out' logic seems to work... and I am likely to get distractred from this for some time, so am posting it here so it's intended purpose/person I wrote it for doesn't get completely forgotten (by me).
 
If an avatar that is younger than the number of days specified in the prims description field, collides with this prim, they will be sent home, and banned for the number of days it will take till they are old enough to come back.
 
The script endeavors (by waiting a bit) to make sure that the message it whispers just prior to ejecting them will be present in their history buffer. So they should know what has happened. Banning them ensures that they don't keep trying to return... which would cause the object to load up and spam anyone within 10m with their repeated ejection message.
 
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090909 2049 [SLT: 20090909 0349]
// For Bettina Tizzy
//
// HOW?
// Make a prim to cover your entry parcel, so avatars arrive inside the prim.
// A transparent prim is ideal.
// DO NOT link it to anything...unless its to extend the range of this function or to fit a funky shaped entry area.
// Set the prims description field to the number of days old an avatar must be to enter your sim.
// eg: 30
// Dump this script into the prim.
// If you are not the land owner you MUST deed the prim to the appropriate group.
// Get someone younger than the number of days you entered above to walk into the prim to test.
// It will NOT eject the prims owner. But will output all the usual messages.
//
// WTF?
// Bettina Tizzy asked for this functionality in group chat.
// For some time I have wanted to write something to calculate age of avatars in days, so I googled, found some logic, and rewrote it in LSL.
//
// NOTE:
// Excluding people based entirely on their avatar account age is a bit of a bastard act.
// Therefore people will not like it when it happens to them. So expect this script to cause drama.
// But if you need a script like this, then you are probably accustomed to drama anyway.
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Send_home_and_ban_avs_less_than_description_field_days_old
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
list gAvList;
//string gName = "";
//----------------------------------
// CORE CODE
key gOwner; //for when its deeded
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llList2String(l,0);
integer M = (integer)llList2String(l,1);
integer D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llList2String(l,0);
M = (integer)llList2String(l,1);
D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ gOwner = llGetOwner();
llVolumeDetect(TRUE);
}
collision_start(integer num)
{ key av;
do{ av = llDetectedKey(--num);
if(-1==llListFindList(gAvList,[(string)av]))
gAvList += [gDataId=llRequestAgentData(av, DATA_BORN), av, llDetectedName(num)];
}while(num>0);
}
changed(integer change)
{ if(change & CHANGED_OWNER)
{ if(llGetOwner()!=NULL_KEY)
gOwner = llGetOwner();
}
}
dataserver(key queryid, string data)
{ integer i = llListFindList(gAvList,[queryid]);
if(-1<i)
{ integer age = f_daysSince(data);//YYYY-MM-DD
integer limit = (integer)llGetObjectDesc();
if(limit>0 && age<limit)
{ key av = (key)llList2String(gAvList,i+1);
if(av!=NULL_KEY)
{ string name = llList2String(gAvList,i+2);
float duration = 24.0*(limit-age);
string oldName= llGetObjectName();
llSetObjectName("");
llWhisper(0,"/me ☠: Sorry "+name+" Your account is too new."
+"\nPlease feel free to come back in "+(string)((integer)(duration/24))
+" days when you will be above our minimum required account age of "
+(string)((integer)limit)+" days.");
list data = llGetObjectDetails(llGetKey(), ([OBJECT_OWNER, OBJECT_GROUP]));
key owner = llList2Key(data, 0);
if (owner!=NULL_KEY
|| llList2Key(data,1)!=llList2Key(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_GROUP]),0))
{ //is NOT deeded or NOT set to correct parcel group
llOwnerSay("/me "+llGetRegionName()+" ☠ Sent Home/Banned: \t"+name
+"\t [age: "+(string)age+"/"+(string)limit+"] for "
+(string)((integer)duration/24)+" days.");
}
else if(av!=gOwner)//safer testing
{ //actually try to get the message to their history buffer
llSleep(1.0/(1.01-llGetRegionTimeDilation()));
if(llGetAgentSize(av)!=ZERO_VECTOR)//they may have already left
{ llTeleportAgentHome(av);
llAddToLandBanList(av, duration);
}
}
llSetObjectName(oldName);
gAvList=llDeleteSubList(gAvList,i,i+2);
}
}
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

Send home and ban avs less than description field days old

2009-09-10T01:33:24Z

BETLOG Hax:

{{LSL Header}}
====Send home and ban avs less than description field days old====
=====Modified from script: Days Since=====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

UTC+10: 20090910 1106 [SLT: 20090909 1806]
NOTE: I have not tested this at all. Yes really.
 
Superficially the 'kick their ass out' logic seems to work... and I am likely to get distractred from this for some time, so am posting it here so it's intended purpose/person I wrote it for doesn't get completely forgotten (by me).
 
If an avatar that is younger than the number of days specified in the prims description field, collides with this prim, they will be sent home, and banned for the number of days it will take till they are old enough to come back.
 
The script endeavours (by waiting a bit) to make sure that the message it whispers just prior to ejecting them will be present in their history buffer. So they should know what has happened. Banning them ensures that they dont keep tryng to return... which would cause the object to load up and spam anyone within 10m with their repeated ejection message.
 
<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090909 2049 [SLT: 20090909 0349]
// For Bettina Tizzy
//
// HOW?
// Make a prim to cover your entry parcel, so avatars arrive inside the prim.
// A transparent prim is ideal.
// DO NOT link it to anything...unless its to extend the range of this function or to fit a funky shaped entry area.
// Set the prims description field to the number of days old an avatar must be to enter your sim.
// eg: 30
// Dump this script into the prim.
// If you are not the land owner you MUST deed the prim to the appropriate group.
// Get someone younger than the number of days you entered above to walk into the prim to test.
// It will NOT eject the prims owner. But will output all the usual messages.
//
// WTF?
// Bettina Tizzy asked for this functionality in group chat.
// For some time I have wanted to write something to calculate age of avatars in days, so I googled, found some logic, and rewrote it in LSL.
//
// NOTE:
// Excluding people based entirely on their avatar account age is a bit of a bastard act.
// Therefore people will not like it when it happens to them. So expect this script to cause drama.
// But if you need a script like this, then you are probably accustomed to drama anyway.
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Send_home_and_ban_avs_less_than_description_field_days_old
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
list gAvList;
//string gName = "";
//----------------------------------
// CORE CODE
key gOwner; //for when its deeded
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llList2String(l,0);
integer M = (integer)llList2String(l,1);
integer D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llList2String(l,0);
M = (integer)llList2String(l,1);
D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ gOwner = llGetOwner();
llVolumeDetect(TRUE);
}
collision_start(integer num)
{ key av;
do{ av = llDetectedKey(--num);
if(-1==llListFindList(gAvList,[(string)av]))
gAvList += [gDataId=llRequestAgentData(av, DATA_BORN), av, llDetectedName(num)];
}while(num>0);
}
changed(integer change)
{ if(change & CHANGED_OWNER)
{ if(llGetOwner()!=NULL_KEY)
gOwner = llGetOwner();
}
}
dataserver(key queryid, string data)
{ integer i = llListFindList(gAvList,[queryid]);
if(-1<i)
{ integer age = f_daysSince(data);//YYYY-MM-DD
integer limit = (integer)llGetObjectDesc();
if(limit>0 && age<limit)
{ key av = (key)llList2String(gAvList,i+1);
if(av!=NULL_KEY)
{ string name = llList2String(gAvList,i+2);
float duration = 24.0*(limit-age);
string oldName= llGetObjectName();
llSetObjectName("");
llWhisper(0,"/me ☠: Sorry "+name+" Your account is too new."
+"\nPlease feel free to come back in "+(string)((integer)(duration/24))
+" days when you will be above our minimum required account age of "
+(string)((integer)limit)+" days.");
list data = llGetObjectDetails(llGetKey(), ([OBJECT_OWNER, OBJECT_GROUP]));
key owner = llList2Key(data, 0);
if (owner!=NULL_KEY
|| llList2Key(data,1)!=llList2Key(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_GROUP]),0))
{ //is NOT deeded or NOT set to correct parcel group
llOwnerSay("/me "+llGetRegionName()+" ☠ Sent Home/Banned: \t"+name
+"\t [age: "+(string)age+"/"+(string)limit+"] for "
+(string)((integer)duration/24)+" days.");
}
else if(av!=gOwner)//safer testing
{ //actually try to get the message to their history buffer
llSleep(1.0/(1.01-llGetRegionTimeDilation()));
if(llGetAgentSize(av)!=ZERO_VECTOR)//they may have already left
{ llTeleportAgentHome(av);
llAddToLandBanList(av, duration);
}
}
llSetObjectName(oldName);
gAvList=llDeleteSubList(gAvList,i,i+2);
}
}
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-09-10T01:12:51Z

BETLOG Hax:

'''Wiki contribution index:'''
 
A lot of this is basically just rubbish. But it is a useful reference for various things, possibly not specifically the thing the script addresses, but often just secondary stuff.
 
 
Generally I put things here to refer people to when they ask (again).
 
 
Although a lot of it is here simply to reinforce in peoples minds that when I write something for them, and add an attribution license, that I expect them to comply with it, and that by making it public here it means that not only can others benefit, but that others know who actually wrote it, and often for whom, and why.
 
 
Sometimes its just here because i've seen something else inworld that was so bad i felt i needed to contribute something less insane.
 
 
But like almost everything i write; when i re-read it months later theres almost always some glaring oversight, or completely trash/facepalm/'ZOMG WTF was i thinking?' elements in it.
 
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor
 
https://wiki.secondlife.com/wiki/Days_Since
 
https://wiki.secondlife.com/wiki/Send_home_and_ban_avs_less_than_description_field_days_old

Send home and ban avs less than description field days old

2009-09-10T01:11:42Z

BETLOG Hax:

{{LSL Header}}
====Send home and ban avs less than description field days old====
=====Modified from script: Days Since=====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

UTC+10: 20090910 1106 [SLT: 20090909 1806]
NOTE: I have not tested this at all. Yes really.
 
Superficially the 'kick their ass out' logic seems to work... and I am likely to get distractred from this for some time, so am posting it here so it's intended purpose/person I wrote it for doesn't get completely forgotten (by me).
 

<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090909 2049 [SLT: 20090909 0349]
// For Bettina Tizzy
//
// HOW?
// Make a prim to cover your entry parcel, so avatars arrive inside the prim.
// A transparent prim is ideal.
// DO NOT link it to anything...unless its to extend the range of this function or to fit a funky shaped entry area.
// Set the prims description field to the number of days old an avatar must be to enter your sim.
// eg: 30
// Dump this script into the prim.
// If you are not the land owner you MUST deed the prim to the appropriate group.
// Get someone younger than the number of days you entered above to walk into the prim to test.
// It will NOT eject the prims owner. But will output all the usual messages.
//
// WTF?
// Bettina Tizzy asked for this functionality in group chat.
// For some time I have wanted to write something to calculate age of avatars in days, so I googled, found some logic, and rewrote it in LSL.
//
// NOTE:
// Excluding people based entirely on their avatar account age is a bit of a bastard act.
// Therefore people will not like it when it happens to them. So expect this script to cause drama.
// But if you need a script like this, then you are probably accustomed to drama anyway.
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// https://wiki.secondlife.com/wiki/Send_home_and_ban_avs_less_than_description_field_days_old
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
list gAvList;
//string gName = "";
//----------------------------------
// CORE CODE
key gOwner; //for when its deeded
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llList2String(l,0);
integer M = (integer)llList2String(l,1);
integer D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llList2String(l,0);
M = (integer)llList2String(l,1);
D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ gOwner = llGetOwner();
llVolumeDetect(TRUE);
}
collision_start(integer num)
{ key av;
do{ av = llDetectedKey(--num);
if(-1==llListFindList(gAvList,[(string)av]))
gAvList += [gDataId=llRequestAgentData(av, DATA_BORN), av, llDetectedName(num)];
}while(num>0);
}
changed(integer change)
{ if(change & CHANGED_OWNER)
{ if(llGetOwner()!=NULL_KEY)
gOwner = llGetOwner();
}
}
dataserver(key queryid, string data)
{ integer i = llListFindList(gAvList,[queryid]);
if(-1<i)
{ integer age = f_daysSince(data);//YYYY-MM-DD
integer limit = (integer)llGetObjectDesc();
if(limit>0 && age<limit)
{ key av = (key)llList2String(gAvList,i+1);
if(av!=NULL_KEY)
{ string name = llList2String(gAvList,i+2);
float duration = 24.0*(limit-age);
string oldName= llGetObjectName();
llSetObjectName("");
llWhisper(0,"/me ☠: Sorry "+name+" Your account is too new."
+"\nPlease feel free to come back in "+(string)((integer)(duration/24))
+" days when you will be above our minimum required account age of "
+(string)((integer)limit)+" days.");
list data = llGetObjectDetails(llGetKey(), ([OBJECT_OWNER, OBJECT_GROUP]));
key owner = llList2Key(data, 0);
if (owner!=NULL_KEY
|| llList2Key(data,1)!=llList2Key(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_GROUP]),0))
{ //is NOT deeded or NOT set to correct parcel group
llOwnerSay("/me "+llGetRegionName()+" ☠ Sent Home/Banned: \t"+name
+"\t [age: "+(string)age+"/"+(string)limit+"] for "
+(string)((integer)duration/24)+" days.");
}
else if(av!=gOwner)//safer testing
{ //actually try to get the message to their history buffer
llSleep(1.0/(1.01-llGetRegionTimeDilation()));
if(llGetAgentSize(av)!=ZERO_VECTOR)//they may have already left
{ llTeleportAgentHome(av);
llAddToLandBanList(av, duration);
}
}
llSetObjectName(oldName);
gAvList=llDeleteSubList(gAvList,i,i+2);
}
}
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

Send home and ban avs less than description field days old

2009-09-10T01:10:55Z

BETLOG Hax: Created page with '{{LSL Header}} ====Send home and ban avs less than description field days old==== =====Modified from script: Days Since===== --BETLOG Hax UTC+10: 20090909 142...'

{{LSL Header}}
====Send home and ban avs less than description field days old====
=====Modified from script: Days Since=====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

UTC+10: 20090910 1106 [SLT: 20090909 1806]
NOTE: I have not tested this at all. Yes really.
 
Superficially the 'kick their ass out' logic seems to work... and I am likely to get distractred from this for some time, so am posting it here so it's intended purpose/person I wrote it for doesn't get completely forgotten (by me).
 

<lsl>
//==============================================================
// BETLOG Hax
// UTC+10: 20090909 2049 [SLT: 20090909 0349]
// For Bettina Tizzy
//
// HOW?
// Make a prim to cover your entry parcel, so avatars arrive inside the prim.
// A transparent prim is ideal.
// DO NOT link it to anything...unless its to extend the range of this function or to fit a funky shaped entry area.
// Set the prims description field to the number of days old an avatar must be to enter your sim.
// eg: 30
// Dump this script into the prim.
// If you are not the land owner you MUST deed the prim to the appropriate group.
// Get someone younger than the number of days you entered above to walk into the prim to test.
// It will NOT eject the prims owner. But will output all the usual messages.
//
// WTF?
// Bettina Tizzy asked for this functionality in group chat.
// For some time I have wanted to write something to calculate age of avatars in days, so I googled, found some logic, and rewrote it in LSL.
//
// NOTE:
// Excluding people based entirely on their avatar account age is a bit of a bastard act.
// Therefore people will not like it when it happens to them. So expect this script to cause drama.
// But if you need a script like this, then you are probably accustomed to drama anyway.
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
//
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
list gAvList;
//string gName = "";
//----------------------------------
// CORE CODE
key gOwner; //for when its deeded
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llList2String(l,0);
integer M = (integer)llList2String(l,1);
integer D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llList2String(l,0);
M = (integer)llList2String(l,1);
D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ gOwner = llGetOwner();
llVolumeDetect(TRUE);
}
collision_start(integer num)
{ key av;
do{ av = llDetectedKey(--num);
if(-1==llListFindList(gAvList,[(string)av]))
gAvList += [gDataId=llRequestAgentData(av, DATA_BORN), av, llDetectedName(num)];
}while(num>0);
}
changed(integer change)
{ if(change & CHANGED_OWNER)
{ if(llGetOwner()!=NULL_KEY)
gOwner = llGetOwner();
}
}
dataserver(key queryid, string data)
{ integer i = llListFindList(gAvList,[queryid]);
if(-1<i)
{ integer age = f_daysSince(data);//YYYY-MM-DD
integer limit = (integer)llGetObjectDesc();
if(limit>0 && age<limit)
{ key av = (key)llList2String(gAvList,i+1);
if(av!=NULL_KEY)
{ string name = llList2String(gAvList,i+2);
float duration = 24.0*(limit-age);
string oldName= llGetObjectName();
llSetObjectName("");
llWhisper(0,"/me ☠: Sorry "+name+" Your account is too new."
+"\nPlease feel free to come back in "+(string)((integer)(duration/24))
+" days when you will be above our minimum required account age of "
+(string)((integer)limit)+" days.");
list data = llGetObjectDetails(llGetKey(), ([OBJECT_OWNER, OBJECT_GROUP]));
key owner = llList2Key(data, 0);
if (owner!=NULL_KEY
|| llList2Key(data,1)!=llList2Key(llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_GROUP]),0))
{ //is NOT deeded or NOT set to correct parcel group
llOwnerSay("/me "+llGetRegionName()+" ☠ Sent Home/Banned: \t"+name
+"\t [age: "+(string)age+"/"+(string)limit+"] for "
+(string)((integer)duration/24)+" days.");
}
else if(av!=gOwner)//safer testing
{ //actually try to get the message to their history buffer
llSleep(1.0/(1.01-llGetRegionTimeDilation()));
if(llGetAgentSize(av)!=ZERO_VECTOR)//they may have already left
{ llTeleportAgentHome(av);
llAddToLandBanList(av, duration);
}
}
llSetObjectName(oldName);
gAvList=llDeleteSubList(gAvList,i,i+2);
}
}
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

Days Since

2009-09-09T07:01:52Z

BETLOG Hax:

{{LSL Header}}
====Days Since====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

<lsl>
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
//string gName = "";
//----------------------------------
// CORE CODE
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llList2String(l,0);
integer M = (integer)llList2String(l,1);
integer D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llList2String(l,0);
M = (integer)llList2String(l,1);
D = (integer)llList2String(l,2);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ llListen(33, "", llGetOwner(), "");
}
touch_start(integer num)
{ //gName = llDetectedName(0);
gDataId = llRequestAgentData(llDetectedKey(0), DATA_BORN);
}
listen(integer channel, string name, key id, string message)
{ if((key)message)
gDataId = llRequestAgentData((key)message, DATA_BORN);
}
dataserver(key queryid, string data)
{ if(gDataId==queryid)
{ llOwnerSay("Age: "+(string)
f_daysSince(data)//YYYY-MM-DD
);
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-09-09T04:28:34Z

BETLOG Hax:

'''Wiki contribution index:'''
 
A lot of this is basically just rubbish. But it is a useful reference for various things, possibly not specifically the thing the script addresses, but often just secondary stuff.
 
 
Generally I put things here to refer people to when they ask (again).
 
 
Although a lot of it is here simply to reinforce in peoples minds that when I write something for them, and add an attribution license, that I expect them to comply with it, and that by making it public here it means that not only can others benefit, but that others know who actually wrote it, and often for whom, and why.
 
 
Sometimes its just here because i've seen something else inworld that was so bad i felt i needed to contribute something less insane.
 
 
But like almost everything i write; when i re-read it months later theres almost always some glaring oversight, or completely trash/facepalm/'ZOMG WTF was i thinking?' elements in it.
 
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor
 
https://wiki.secondlife.com/wiki/Days_Since

Days Since

2009-09-09T04:27:49Z

BETLOG Hax: Created page with '{{LSL Header}} ====Days Since==== --BETLOG Hax UTC+10: 20090909 1421 [SLT: 20090908 2121] <lsl> //===========================================================...'

{{LSL Header}}
====Days Since====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090909 1421 [SLT: 20090908 2121]

<lsl>
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// AND:
// Credit for original logic : Robert Baruch
// http://www.jguru.com/faq/view.jsp?EID=14092
// **** LICENCE END ****
//----------------------------------
// SHARED CONFIGURATION
//----------------------------------
// CONFIGURATION
key gDataId;
//string gName = "";
//----------------------------------
// CORE CODE
//----------------------------------
integer f_daysSince(string input)
{ list l = llParseString2List(input, ["-"],[]);
integer Y = (integer)llStringTrim(llList2String(l,0),STRING_TRIM);
integer M = (integer)llStringTrim(llList2String(l,1),STRING_TRIM);
integer D = (integer)llStringTrim(llList2String(l,2),STRING_TRIM);
if(M==1 || M==2)
{ --Y;
M+=12;
}
integer A = Y/100;
integer B = A/4;
integer C = 2-A-B; //(or C=0 if you're using the Julian calendar)
float E = 365.25*(Y+4716);
float F = 30.6001*(M+1);
integer age = C+D+(integer)E+(integer)F-1524;
//llOwnerSay("Julian Day = "+(string)age );

l = llParseString2List(llGetDate(), ["-"],[]);
Y = (integer)llStringTrim(llList2String(l,0),STRING_TRIM);
M = (integer)llStringTrim(llList2String(l,1),STRING_TRIM);
D = (integer)llStringTrim(llList2String(l,2),STRING_TRIM);
if(M==1 || M==2)
{ --Y;
M+=12;
}
A = Y/100;
B = A/4;
C = 2-A-B; //(or C=0 if you're using the Julian calendar)
E = 365.25*(Y+4716);
F = 30.6001*(M+1);
return C+D+(integer)E+(integer)F-1524-age;
}

//==============================================================
default
{ state_entry()
{ llListen(33, "", llGetOwner(), "");
}
touch_start(integer num)
{ //gName = llDetectedName(0);
gDataId = llRequestAgentData(llDetectedKey(0), DATA_BORN);
}
listen(integer channel, string name, key id, string message)
{ if((key)message)
gDataId = llRequestAgentData((key)message, DATA_BORN);
}
dataserver(key queryid, string data)
{ if(gDataId==queryid)
{ llOwnerSay("Age: "+(string)
f_daysSince(data)//YYYY-MM-DD
);
}
}
}
//==============================================================

/*
DERIVED FROM:
http://www.jguru.com/faq/view.jsp?EID=14092

Question How can I get the number of days that have elapsed between two Date objects?
Derived from A question posed by J. Scott Stanlick
Topics Java:Language, Java:API:Internationalization
Author Robert Baruch
Created Feb 14, 2000 Modified May 29, 2000

Answer
That depends on what you mean by "between".

If you want to find out the number of 24-hour periods between two Date objects d1 and d2 (d2 > d1) then you would do this:

double days = (d2.getTime()-d1.getTime())/1000/60/60/24;

Since Date.getTime returns milliseconds, you divide by 1000 to get seconds, by 60 to get minutes, by 60 again to get hours, and by 24 to get days.

Sometimes this can cause difficulties, especially in countries that have a form of daylight savings time. For example, in the U.S., there is one day in the Fall which has 25 hours, and one day in the Spring which has 23 hours. An elapsed-number-of-days calculation on Dates falling on one of these days may not give the answer you expect.

Anyway, that's the easy way, and if you're satisfied with that, then read no further.

If, on the other hand, you mean the number of midnight-crossings (so that the number of days elapsed between 11:00 PM and 1:00 AM the next day is 1) then you're better off using the Calendar class and computing the Julian Day.

By the way, don't mistake the Julian Day for the Julian Calendar. The two are different and named after different "Julians".

The Julian Day is defined as the number of days elapsed since Nov 24, 4714 BC, 12:00 GMT Gregorian. The year was chosen as being sufficiently in the past so as not to have negative Julian Days, the date was chosen because of the (in that year) 37-day difference between the Julian and Gregorian calendars (Nov 24, 4714 BC Gregorian would be Jan 1, 4713 BC Julian), and the time was chosen because astronomers do their work at night, and it would be a little confusing (to them) to have the Julian Day change in the middle of their work. (I could be wrong)

Anyway, the algorithm for computing the Julian Day from a Gregorian or Julian calendar date for years 400 AD and above is as follows:

Let the date be Y, M, D, where Y is the AD year, M is the month (January=1, December=12), and D is the day (1-31).

For the following calculations, use integer arithmetic (i.e. lop off the fractional part of any result).

If M==1 or M==2 then Y--, M+=12.
Let A = Y/100
Let B = A/4
Let C = 2-A-B (or C=0 if you're using the Julian calendar)
Let E = 365.25*(Y+4716)
Let F = 30.6001*(M+1)

Julian Day = C+D+E+F-1524.5

There would be a further adjustment for the time of day, but we're not looking at that. If you want your Julian Days to start at midnight, subtract 1524 rather than 1524.5.

And so, your number-of-days-elapsed calculation would look like this:

Calendar c1 = new GregorianCalendar();
Calendar c2 = new GregorianCalendar();

c1.setTime(d1);
c2.setTime(d2);

long j1 = julian_day(c1.get(YEAR),
c1.get(MONTH)+1, c1.get(DAY));
long j2 = julian_day(c2.get(YEAR),
c2.get(MONTH)+1, c2.get(DAY));

long days_elapsed = j2-j1;

And this would properly calculate the number of midnight-crossings between 11:00 PM on one day and 1:00 AM the next day.
/*
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-08-17T20:52:54Z

BETLOG Hax:

'''Wiki contribution index:'''
 
A lot of this is basically just rubbish. But it is a useful reference for various things, possibly not specifically the thing the script addresses, but often just secondary stuff.
 
 
Generally I put things here to refer people to when they ask (again).
 
 
Although a lot of it is here simply to reinforce in peoples minds that when I write something for them, and add an attribution license, that I expect them to comply with it, and that by making it public here it means that not only can others benefit, but that others know who actually wrote it, and often for whom, and why.
 
 
Sometimes its just here because i've seen something else inworld that was so bad i felt i needed to contribute something less insane.
 
 
But like almost everything i write; when i re-read it months later theres almost always some glaring oversight, or completely trash/facepalm/'ZOMG WTF was i thinking?' elements in it.
 
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor

User:BETLOG Hax

2009-08-17T20:35:10Z

BETLOG Hax:

'''Wiki contribution index:'''
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor

Send vector as on rez param

2009-08-17T20:34:38Z

BETLOG Hax: Blanked the page

Sneakin

2009-08-09T18:07:19Z

BETLOG Hax: Created page with '{{LSL Header}} ====Theme music when you walk/run/crouchwalk==== --BETLOG Hax UTC+10: 20090810 0403 [SLT: 20090809 1103] <lsl> // BETLOG Hax // UTC+10: 2009...'

{{LSL Header}}
====Theme music when you walk/run/crouchwalk====

--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090810 0403 [SLT: 20090809 1103]

<lsl>
// BETLOG Hax
// UTC+10: 20090728 0733 [SLT: 20090727 1433]
// Was Messamo House's script, which he may have copy pasted from Hen Streeter or vice versa, but i *totally* rewrote it.. TOTALLY
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
key gMode = NULL_KEY;
default
{ state_entry()
{ llStopSound();
llSetTimerEvent(0.333333);
}
timer()
{ integer i = llGetAgentInfo(llGetOwner());
key mode=NULL_KEY;
if(i & AGENT_WALKING)
{ if(llVecMag(llList2Vector(llGetObjectDetails(llGetOwner(), ([OBJECT_VELOCITY])),0))>4.0)
mode="770cf677-5fda-56fe-85dd-ee1f07c63005";//run
else if(i & AGENT_CROUCHING)
mode="f7db8364-4369-712f-f034-92799ee26193";//crouch
else
mode="cc493463-b22d-cf0f-49ef-285e641a87f4";//walk
}
if(gMode!=mode)
{ gMode=mode;
llStopSound();
if(mode!=NULL_KEY)
llLoopSound(mode, 1.0);
}
}
}
//----------------------------------
</lsl>

[[Category:LSL Examples]]

Visit Monitor

2009-07-15T03:17:50Z

BETLOG Hax:

{{LSL Header}}
====Visit Monitor====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090715 1159 [SLT: 20090714 1859]

Volumedetect (collision based) prim that records avatars names, number of visits, and time (in UTC)
 
Written in response to Firery Broome's request to "just add a few simple things" ...Resulting, as usual :) in an almost total rewrite, and functional differences to the original.
 
Re-posting here as S.A.3.0 licence to re-assert its original public status and that of my rewrite.
 
Not comprehensively tested, so may have some stupid in it.
 
TO USE:
 
ADD YOUR EMAIL ADDRESS TO THE GLOBAL VARIABLES
 
Put script in a prim, it'll be phantom from then on so don't link it to anything thats not going to be part of the collision sensing prim(s)
 
Any avatars colliding with this prim will have their name added to the visitor list.
 
Best placement is in avatar arrival areas, like forced TP parcels, preferably where avs will not be constantly colliding with the prim, but rather only collide once when they arrive in your sim/parcel.
 
If the script's memory becomes too full due to list size it will attempt to dump list to email and reset... but I havent't tested if 512bytes is even enough to do this successfully... so value may need adjustment.
 
<lsl>
//==============================================================
//Original script by Aaron Linden
//
//modified and commented by Ramon Kothari
//
// Almost totally rewritten by BETLOG Hax
// UTC+10: 20090713 2306 [SLT: 20090713 0606]
// To remove silly guff and reformat (sheesh WHITESPACE people!), added some more useful stuff.
// For Firery Broome
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
// ------ CONFIGURATION ------
string gEmail = "";//************** ADD YOUR EMAIL ADDRESS HERE ****************
float gFreq = 604800.0;//60*60*24*7=604800 - 1 WEEK

// ------ CORE CODE ------
list gList = [];

//----------------------------------
f_sayHelp()
{ llOwnerSay( "This object records the names of everyone who collides with it." );
llOwnerSay( "Commands the owner can say:" );
llOwnerSay( "'help' - Shows these instructions." );
llOwnerSay( "'say list' - Says the names of all visitors on the list.");
llOwnerSay( "'reset list' OR 'email list' - Emails the names on the list and resets." );
}
//----------------------------------
f_output(integer mail)
{ string text;
integer length;
integer i = (gList!=[])-1;
if(i<2)
llOwnerSay("No data");
else
{ string s = llGetObjectName();
llSetObjectName(" ");
while(i>-1)
{ text += "Name: "+llList2String(gList, i-2)+"\t"+
" Visit: "+(string)llList2Integer(gList, i-1)+"\t"+
" Last :"+llList2String(gList, i)+"[UTC]\n";
length = llStringLength(text);
if(mail && length>=3500)//partial send to avoid email overflow
{ if(0<llSubStringIndex(gEmail,"@"))
{ llEmail(gEmail, llGetRegionName()+" Visitor List "+(string)llGetTimestamp(), text);
text="";
}
}
else if (!mail && length>=240)//partial send to avoid text chat overflow
{ llOwnerSay(text);
text="";
}
i-=3;
}
if(mail)//normal output
{ if(0<llSubStringIndex(gEmail,"@"))
llEmail(gEmail, llGetRegionName()+" Visitor List 1/1 "+(string)llGetTimestamp(), text);
}
else
llOwnerSay(text);
}
}
//----------------------------------
default
{ on_rez(integer param)
{ llSay(0, "Visitor List Maker started...");
f_sayHelp();
llResetScript();
}
state_entry()
{ if(llGetFreeMemory()<17000)
llOwnerSay("RECOMPILE THIS IN MONO. (it'll still work otherwise, just not as well.)");
llVolumeDetect(TRUE);
llListen(0, "", llGetOwner(), "");
llOwnerSay("OK Running.");
llSetTimerEvent(gFreq);
}
timer()
{ llSetTimerEvent(0.0);
f_output(1);
llResetScript();
}
touch_start( integer num)
{ if (llDetectedKey(num)==llGetOwner())
f_sayHelp();
}
collision_start(integer num)
{ string detected_name;
integer index;
string segment;
integer start;
integer visits;
do
{ --num;
if(llDetectedType(num)&AGENT
&& llDetectedKey(num)!=llGetOwner()//rem out to test on yourself
)
{ detected_name = llDetectedName(num);
if(llGetFreeMemory()<512)
llSetTimerEvent(0.1);
else
{ index = llListFindList(gList, [detected_name]);
if(-1==index)
{ gList += [detected_name]+[1]+[llGetTimestamp()];
//llOwnerSay("Adding new visitor: \n"+llList2CSV(gList));
}
else
{ gList = llListReplaceList(gList, [detected_name]+[llList2Integer(gList, index+1)+1]+[llGetTimestamp()], index, index+2);
//llOwnerSay("Updating visits: \n"+llList2CSV(gList));
}
}
}

} while(num>-1);
}
listen( integer channel, string name, key id, string message )
{ if( message == "help" )
{ f_sayHelp();
}
else if( message == "say list" || message == "output list" )
{ f_output(0);
}
else if( message == "email list" || message == "reset list" || message == "send email" )
{ llOwnerSay( "Sending email (incurs a 20 second delay) and resetting...");
f_output(1);
llResetScript();
}
}
}
//=========================================================================
</lsl>

The original script.
<lsl>
//=========================================================================
//Original script by Aaron Linden
//modified and commented by Ramon Kothari

// Global variables change these to match your specifics

float range = 10.0; // search radius, in meters
float rate = 1.0; // time between searches, in seconds

// add your email adress inside the quotes
string email_address = "";

//add the name of the location if you want (the email will have the sim name and cordinates of
// the counter already in it)
string location_name = "Your Location";

//dont change these

list single_name_list;
list visitor_list;
//end no change

// Returns true if "name" is already on the visitor_list and doesnt add it the list again
integer isNameOnList( string name )
{
list single_name_list;
single_name_list += name;

return (-1 != llListFindList( visitor_list, single_name_list ) );
}

// sends email to the address above ,if added

sendEmail()
{
string csv = llList2CSV( visitor_list );
llEmail( email_address, "Visitor List: " + location_name, csv );
}

//self explanatory

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Done resetting.");
}

// Help commands
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "This object records the names of everyone who" );
llSay( 0, "comes within "+ (string)((integer)range) + " meters." );
llSay( 0, "Commands the owner can say:" );
llSay( 0, "'help' - Shows these instructions." );
llSay( 0, "'say list' - Says the names of all visitors on the list.");
llSay( 0, "'reset list' - Removes all the names from the list." );
llSay( 0, "' email list' - Emails the names on the list." );
}
else
{
llSay( 0, "Sorry, only the owner can use this object." );
}
}

// state the script starts in

default
{
state_entry()
{
llSay(0, "Visitor List Maker started...");
llSay(0, "The owner can say 'help' for instructions.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

//change this to how often you want the script to email the visitor list to you (or comment it out if you dont want the email .... by default its set to email you every hr then reset itself
llSetTimerEvent( 60 * 60 );
}

// Sends email and resets list as set in the settimerevent above
timer()
{
sendEmail();
resetList();

}

//says help if owner clicks on it

touch_start( integer num_detected )
{
integer i;
for( i = 0; i < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

//detects avatars and keeps time

sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
// Don't ever add the owner to the list.

if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
float seconds = llGetWallclock();
float minutes = seconds / 60.0;
float hours = minutes / 60.0;
integer hours_int = (integer) hours;
integer minutes_int = ((integer)minutes) % 60;
if( minutes_int < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

//Listens for commands from the Owner

listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" )
{
sayHelp( TRUE );
}
else
if( message == "say list" )
{
llSay( 0, "Visitor List:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Total = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "Emailing list");

}

else
if( message == "reset list" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Done resetting.");
}

}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

User:BETLOG Hax

2009-07-15T02:29:49Z

BETLOG Hax:

'''Wiki contribution index:'''
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/Send_vector_as_on_rez_param
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template
 
https://wiki.secondlife.com/wiki/Visit_Monitor

Visitor Monitor

2009-07-15T02:27:46Z

BETLOG Hax: moved Visitor Monitor to Visit Monitor: oops, used superseded script

#REDIRECT [[Visit Monitor]]

Visit Monitor

2009-07-15T02:27:46Z

BETLOG Hax: moved Visitor Monitor to Visit Monitor: oops, used superseded script

{{LSL Header}}
====Visit Monitor====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090715 1159 [SLT: 20090714 1859]

Volumedetect (collision based) prim that records avatars names, number of visits, and time (in UTC)
 
Written in response to Firery Broome's request to "just add a few simple things" ...Resulting, as usual :) in an almost total rewrite, and functional differences to the original.
 
Re-posting here as S.A.3.0 licence to re-assert its original public status and that of my rewrite.
 
Not comprehensively tested, so may have some stupid in it.
 
TO USE:
 
ADD YOUR EMAIL ADDRESS TO THE GLOBAL VARIABLES
 
Put script in a prim, it'll be phantom from then on so don't link it to anything thats not going to be part of the collision sensing prim(s)
 
Any avatars colliding with this prim will have their name added to the visitor list.
 
Best placement is in avatar arrival areas, like forced TP parcels, preferably where avs will not be constantly colliding with the prim, but rather only collide once when they arrive in your sim/parcel.
 
If the script's memory becomes too full due to list size it will attempt to dump list to email and reset... but I havent't tested if 512bytes is even enough to do this successfully... so value may need adjustment.
 
<lsl>
//==============================================================
//Original script by Aaron Linden
//
//modified and commented by Ramon Kothari
//
// Almost totally rewritten by BETLOG Hax
// UTC+10: 20090713 2306 [SLT: 20090713 0606]
// To remove silly guff and reformat (sheesh WHITESPACE people!), added some more useful stuff.
// For Firery Broome
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
// ------ CONFIGURATION ------
string gEmail = "";//************** ADD YOUR EMAIL ADDRESS HERE ****************
float gFreq = 604800.0;//60*60*24*7=604800 - 1 WEEK

// ------ CORE CODE ------
list gList = [];

//----------------------------------
f_sayHelp()
{ llOwnerSay( "This object records the names of everyone who collides with it." );
llOwnerSay( "Commands the owner can say:" );
llOwnerSay( "'help' - Shows these instructions." );
llOwnerSay( "'say list' - Says the names of all visitors on the list.");
llOwnerSay( "'reset list' OR 'email list' - Emails the names on the list and resets." );
}
//----------------------------------
f_output(integer mail)
{ string text;
integer length;
integer i = (gList!=[])-1;
if(i<2)
llOwnerSay("No data");
else
{ string s = llGetObjectName();
llSetObjectName(" ");
while(i>-1)
{ text += "Name: "+llList2String(gList, i-2)+"\t"+
" Visit: "+(string)llList2Integer(gList, i-1)+"\t"+
" Last :"+llList2String(gList, i)+"[UTC]\n";
length = llStringLength(text);
if(mail && length>=3500)//partial send to avoid email overflow
{ if(0<llSubStringIndex(gEmail,"@"))
{ llEmail(gEmail, llGetRegionName()+" Visitor List "+(string)llGetTimestamp(), text);
text="";//if you havent entered an email address this will simply NOT SEND THE WHOLE LIST
}
}
else if (!mail && length>=240)//partial send to avoid text chat overflow
{ llOwnerSay(text);
text="";
}
i-=3;
}
if(mail)//normal output
{ if(0<llSubStringIndex(gEmail,"@"))
llEmail(gEmail, llGetRegionName()+" Visitor List 1/1 "+(string)llGetTimestamp(), text);
}
else
llOwnerSay(text);
}
}
//----------------------------------
default
{ on_rez(integer param)
{ llSay(0, "Visitor List Maker started...");
f_sayHelp();
llResetScript();
}
state_entry()
{ if(llGetFreeMemory()<17000)
llOwnerSay("RECOMPILE THIS IN MONO. (it'll still work otherwise, just not as well.)");
llVolumeDetect(TRUE);
llListen(0, "", llGetOwner(), "");
llOwnerSay("OK Running.");
llSetTimerEvent(gFreq);
}
timer()
{ llSetTimerEvent(0.0);
f_output(1);
llResetScript();
}
touch_start( integer num)
{ if (llDetectedKey(num)==llGetOwner())
f_sayHelp();
}
collision_start(integer num)
{ string detected_name;
integer index;
string segment;
integer start;
integer visits;
do
{ --num;
if(llDetectedType(num)&AGENT
// && llDetectedKey(num)!=llGetOwner()//rem out to test on yourself
)
{ detected_name = llDetectedName(num);
if(llGetFreeMemory()<512)
llSetTimerEvent(0.1);
else
{ index = llListFindList(gList, [detected_name]);
if(-1==index)
{ gList += [detected_name]+[1]+[llGetTimestamp()];
//llOwnerSay("Adding new visitor: \n"+llList2CSV(gList));
}
else
{ gList = llListReplaceList(gList, [detected_name]+[llList2Integer(gList, index+1)+1]+[llGetTimestamp()], index, index+2);
//llOwnerSay("Updating visits: \n"+llList2CSV(gList));
}
}
}

} while(num>-1);
}
listen( integer channel, string name, key id, string message )
{ if( message == "help" )
{ f_sayHelp();
}
else if( message == "say list" || message == "output list" )
{ f_output(0);
}
else if( message == "email list" || message == "reset list" || message == "send email" )
{ llOwnerSay( "Sending email (incurs a 20 second delay) and resetting...");
f_output(1);
llResetScript();
}
}
}
//=========================================================================
</lsl>

The original script.
<lsl>
//=========================================================================
//Original script by Aaron Linden
//modified and commented by Ramon Kothari

// Global variables change these to match your specifics

float range = 10.0; // search radius, in meters
float rate = 1.0; // time between searches, in seconds

// add your email adress inside the quotes
string email_address = "";

//add the name of the location if you want (the email will have the sim name and cordinates of
// the counter already in it)
string location_name = "Your Location";

//dont change these

list single_name_list;
list visitor_list;
//end no change

// Returns true if "name" is already on the visitor_list and doesnt add it the list again
integer isNameOnList( string name )
{
list single_name_list;
single_name_list += name;

return (-1 != llListFindList( visitor_list, single_name_list ) );
}

// sends email to the address above ,if added

sendEmail()
{
string csv = llList2CSV( visitor_list );
llEmail( email_address, "Visitor List: " + location_name, csv );
}

//self explanatory

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Done resetting.");
}

// Help commands
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "This object records the names of everyone who" );
llSay( 0, "comes within "+ (string)((integer)range) + " meters." );
llSay( 0, "Commands the owner can say:" );
llSay( 0, "'help' - Shows these instructions." );
llSay( 0, "'say list' - Says the names of all visitors on the list.");
llSay( 0, "'reset list' - Removes all the names from the list." );
llSay( 0, "' email list' - Emails the names on the list." );
}
else
{
llSay( 0, "Sorry, only the owner can use this object." );
}
}

// state the script starts in

default
{
state_entry()
{
llSay(0, "Visitor List Maker started...");
llSay(0, "The owner can say 'help' for instructions.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

//change this to how often you want the script to email the visitor list to you (or comment it out if you dont want the email .... by default its set to email you every hr then reset itself
llSetTimerEvent( 60 * 60 );
}

// Sends email and resets list as set in the settimerevent above
timer()
{
sendEmail();
resetList();

}

//says help if owner clicks on it

touch_start( integer num_detected )
{
integer i;
for( i = 0; i < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

//detects avatars and keeps time

sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
// Don't ever add the owner to the list.

if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
float seconds = llGetWallclock();
float minutes = seconds / 60.0;
float hours = minutes / 60.0;
integer hours_int = (integer) hours;
integer minutes_int = ((integer)minutes) % 60;
if( minutes_int < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

//Listens for commands from the Owner

listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" )
{
sayHelp( TRUE );
}
else
if( message == "say list" )
{
llSay( 0, "Visitor List:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Total = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "Emailing list");

}

else
if( message == "reset list" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Done resetting.");
}

}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Visit Monitor

2009-07-15T02:26:46Z

BETLOG Hax:

{{LSL Header}}
====Visit Monitor====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090715 1159 [SLT: 20090714 1859]

Volumedetect (collision based) prim that records avatars names, number of visits, and time (in UTC)
 
Written in response to Firery Broome's request to "just add a few simple things" ...Resulting, as usual :) in an almost total rewrite, and functional differences to the original.
 
Re-posting here as S.A.3.0 licence to re-assert its original public status and that of my rewrite.
 
Not comprehensively tested, so may have some stupid in it.
 
TO USE:
 
ADD YOUR EMAIL ADDRESS TO THE GLOBAL VARIABLES
 
Put script in a prim, it'll be phantom from then on so don't link it to anything thats not going to be part of the collision sensing prim(s)
 
Any avatars colliding with this prim will have their name added to the visitor list.
 
Best placement is in avatar arrival areas, like forced TP parcels, preferably where avs will not be constantly colliding with the prim, but rather only collide once when they arrive in your sim/parcel.
 
If the script's memory becomes too full due to list size it will attempt to dump list to email and reset... but I havent't tested if 512bytes is even enough to do this successfully... so value may need adjustment.
 
<lsl>
//==============================================================
//Original script by Aaron Linden
//
//modified and commented by Ramon Kothari
//
// Almost totally rewritten by BETLOG Hax
// UTC+10: 20090713 2306 [SLT: 20090713 0606]
// To remove silly guff and reformat (sheesh WHITESPACE people!), added some more useful stuff.
// For Firery Broome
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
// ------ CONFIGURATION ------
string gEmail = "";//************** ADD YOUR EMAIL ADDRESS HERE ****************
float gFreq = 604800.0;//60*60*24*7=604800 - 1 WEEK

// ------ CORE CODE ------
list gList = [];

//----------------------------------
f_sayHelp()
{ llOwnerSay( "This object records the names of everyone who collides with it." );
llOwnerSay( "Commands the owner can say:" );
llOwnerSay( "'help' - Shows these instructions." );
llOwnerSay( "'say list' - Says the names of all visitors on the list.");
llOwnerSay( "'reset list' OR 'email list' - Emails the names on the list and resets." );
}
//----------------------------------
f_output(integer mail)
{ string text;
integer length;
integer i = (gList!=[])-1;
if(i<2)
llOwnerSay("No data");
else
{ string s = llGetObjectName();
llSetObjectName(" ");
while(i>-1)
{ text += "Name: "+llList2String(gList, i-2)+"\t"+
" Visit: "+(string)llList2Integer(gList, i-1)+"\t"+
" Last :"+llList2String(gList, i)+"[UTC]\n";
length = llStringLength(text);
if(mail && length>=3500)//partial send to avoid email overflow
{ if(0<llSubStringIndex(gEmail,"@"))
{ llEmail(gEmail, llGetRegionName()+" Visitor List "+(string)llGetTimestamp(), text);
text="";//if you havent entered an email address this will simply NOT SEND THE WHOLE LIST
}
}
else if (!mail && length>=240)//partial send to avoid text chat overflow
{ llOwnerSay(text);
text="";
}
i-=3;
}
if(mail)//normal output
{ if(0<llSubStringIndex(gEmail,"@"))
llEmail(gEmail, llGetRegionName()+" Visitor List 1/1 "+(string)llGetTimestamp(), text);
}
else
llOwnerSay(text);
}
}
//----------------------------------
default
{ on_rez(integer param)
{ llSay(0, "Visitor List Maker started...");
f_sayHelp();
llResetScript();
}
state_entry()
{ if(llGetFreeMemory()<17000)
llOwnerSay("RECOMPILE THIS IN MONO. (it'll still work otherwise, just not as well.)");
llVolumeDetect(TRUE);
llListen(0, "", llGetOwner(), "");
llOwnerSay("OK Running.");
llSetTimerEvent(gFreq);
}
timer()
{ llSetTimerEvent(0.0);
f_output(1);
llResetScript();
}
touch_start( integer num)
{ if (llDetectedKey(num)==llGetOwner())
f_sayHelp();
}
collision_start(integer num)
{ string detected_name;
integer index;
string segment;
integer start;
integer visits;
do
{ --num;
if(llDetectedType(num)&AGENT
// && llDetectedKey(num)!=llGetOwner()//rem out to test on yourself
)
{ detected_name = llDetectedName(num);
if(llGetFreeMemory()<512)
llSetTimerEvent(0.1);
else
{ index = llListFindList(gList, [detected_name]);
if(-1==index)
{ gList += [detected_name]+[1]+[llGetTimestamp()];
//llOwnerSay("Adding new visitor: \n"+llList2CSV(gList));
}
else
{ gList = llListReplaceList(gList, [detected_name]+[llList2Integer(gList, index+1)+1]+[llGetTimestamp()], index, index+2);
//llOwnerSay("Updating visits: \n"+llList2CSV(gList));
}
}
}

} while(num>-1);
}
listen( integer channel, string name, key id, string message )
{ if( message == "help" )
{ f_sayHelp();
}
else if( message == "say list" || message == "output list" )
{ f_output(0);
}
else if( message == "email list" || message == "reset list" || message == "send email" )
{ llOwnerSay( "Sending email (incurs a 20 second delay) and resetting...");
f_output(1);
llResetScript();
}
}
}
//=========================================================================
</lsl>

The original script.
<lsl>
//=========================================================================
//Original script by Aaron Linden
//modified and commented by Ramon Kothari

// Global variables change these to match your specifics

float range = 10.0; // search radius, in meters
float rate = 1.0; // time between searches, in seconds

// add your email adress inside the quotes
string email_address = "";

//add the name of the location if you want (the email will have the sim name and cordinates of
// the counter already in it)
string location_name = "Your Location";

//dont change these

list single_name_list;
list visitor_list;
//end no change

// Returns true if "name" is already on the visitor_list and doesnt add it the list again
integer isNameOnList( string name )
{
list single_name_list;
single_name_list += name;

return (-1 != llListFindList( visitor_list, single_name_list ) );
}

// sends email to the address above ,if added

sendEmail()
{
string csv = llList2CSV( visitor_list );
llEmail( email_address, "Visitor List: " + location_name, csv );
}

//self explanatory

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Done resetting.");
}

// Help commands
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "This object records the names of everyone who" );
llSay( 0, "comes within "+ (string)((integer)range) + " meters." );
llSay( 0, "Commands the owner can say:" );
llSay( 0, "'help' - Shows these instructions." );
llSay( 0, "'say list' - Says the names of all visitors on the list.");
llSay( 0, "'reset list' - Removes all the names from the list." );
llSay( 0, "' email list' - Emails the names on the list." );
}
else
{
llSay( 0, "Sorry, only the owner can use this object." );
}
}

// state the script starts in

default
{
state_entry()
{
llSay(0, "Visitor List Maker started...");
llSay(0, "The owner can say 'help' for instructions.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

//change this to how often you want the script to email the visitor list to you (or comment it out if you dont want the email .... by default its set to email you every hr then reset itself
llSetTimerEvent( 60 * 60 );
}

// Sends email and resets list as set in the settimerevent above
timer()
{
sendEmail();
resetList();

}

//says help if owner clicks on it

touch_start( integer num_detected )
{
integer i;
for( i = 0; i < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

//detects avatars and keeps time

sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
// Don't ever add the owner to the list.

if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
float seconds = llGetWallclock();
float minutes = seconds / 60.0;
float hours = minutes / 60.0;
integer hours_int = (integer) hours;
integer minutes_int = ((integer)minutes) % 60;
if( minutes_int < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

//Listens for commands from the Owner

listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" )
{
sayHelp( TRUE );
}
else
if( message == "say list" )
{
llSay( 0, "Visitor List:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Total = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "Emailing list");

}

else
if( message == "reset list" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Done resetting.");
}

}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Visit Monitor

2009-07-15T02:23:58Z

BETLOG Hax:

{{LSL Header}}
====Visitor Monitor====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090715 1159 [SLT: 20090714 1859]

Volumedetect (collision based) prim that records avatars names, number of visits, and time (in UTC)
 
Written in response to Firery Broome's request to "just add a few simple things" ...Resulting, as usual :) in an almost total rewrite, and functional differences to the original.
 
Re-posting here as S.A.3.0 licence to re-assert its original public status and that of my rewrite.
 
Not comprehensively tested, so may have some stupid in it.
 
TO USE:
 
ADD YOUR EMAIL ADDRESS TO THE GLOBAL VARIABLES
 
Put script in a prim, it'll be phantom from then on so don't link it to anything thats not going to be part of the collision sensing prim(s)
 
Any avatars colliding with this prim will have their name added to the visitor list.
 
Best placement is in avatar arrival areas, like forced TP parcels, preferably where avs will not be constantly colliding with the prim, but rather only collide once when they arrive in your sim/parcel.
 
If the script's memory becomes too full due to list size it will attempt to dump list to email and reset... but I havent't tested if 512bytes is even enough to do this successfully... so value may need adjustment.
 
<lsl>
//==============================================================
//Original script by Aaron Linden
//
//modified and commented by Ramon Kothari
//
// Almost totally rewritten by BETLOG Hax
// UTC+10: 20090713 2306 [SLT: 20090713 0606]
// To remove silly guff and reformat (sheesh WHITESPACE people!), added some more useful stuff.
// For Firery Broome
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
// ------ CONFIGURATION ------
string gEmail = "";//ADD YOUR EMAIL ADDRESS HERE ****************************************
float gFreq = 604800.0;//60*60*24*7=604800 - 1 WEEK

// ------ CORE CODE ------
list gList = [];

//----------------------------------
f_sendEmail()
{ if(gEmail!="")
{ llEmail(gEmail, llGetRegionName()+" Visitor List "+(string)llGetTimestamp(), f_output((gList!=[])));
}
}
//----------------------------------
f_sayHelp( integer is_owner )
{ if( is_owner )
{ llOwnerSay( "This object records the names of everyone who collides with it." );
llOwnerSay( "Commands the owner can say:" );
llOwnerSay( "'help' - Shows these instructions." );
llOwnerSay( "'say list' - Says the names of all visitors on the list.");
llOwnerSay( "'reset list' OR 'email list' - Emails the names on the list and resets." );
}
else
{ llSay( 0, "Sorry, only the owner can use this object." );
}
}
//----------------------------------
string f_output(integer i)
{ string text;//this could easily get far too large to send/load into memory
while(i>-1)
{ text += "Name: "+llList2String(gList, i-2)+"\t"+
" Visit: "+(string)llList2Integer(gList, i-1)+"\t"+
" Last :"+llList2String(gList, i)+"[UTC]\n";
i-=3;
}
return text;
}
//----------------------------------
default
{ on_rez(integer param)
{ llSay(0, "Visitor List Maker started...");
f_sayHelp(TRUE);
llResetScript();
}
state_entry()
{ if(llGetFreeMemory()<17000)
llOwnerSay("RECOMPILE THIS IN MONO. (it'll still work otherwise, just not as well.)");
llVolumeDetect(TRUE);
llListen(0, "", llGetOwner(), "");
llOwnerSay("OK Running.");
llSetTimerEvent(gFreq);
}
timer()
{ llSetTimerEvent(0.0);
f_sendEmail();
llResetScript();
}
touch_start( integer num)
{ while(--num>-1)
f_sayHelp( llDetectedKey(num) == llGetOwner() );
}
collision_start(integer num)
{ string detected_name;
integer index;
string segment;
integer start;
integer visits;
do
{ --num;
if(llDetectedType(num)&AGENT
// && llDetectedKey(num)!=llGetOwner()//rem out to test on yourself
)
{ detected_name = llDetectedName(num);
if(llGetFreeMemory()<512)
llSetTimerEvent(0.1);
else
{ index = llListFindList(gList, [detected_name]);
if(-1==index)
{ gList += [detected_name]+[1]+[llGetTimestamp()];
//llOwnerSay("Adding new visitor: \n"+llList2CSV(gList));
}
else
{ gList = llListReplaceList(gList, [detected_name]+[llList2Integer(gList, index+1)+1]+[llGetTimestamp()], index, index+2);
//llOwnerSay("Updating visits: \n"+llList2CSV(gList));
}
}
}

} while(num>-1);
}
listen( integer channel, string name, key id, string message )
{ if( message == "help" )
{ f_sayHelp( TRUE );
}
else if( message == "say list" )
{ integer i = (gList!=[])-1;
string s = llGetObjectName();
llSetObjectName(" ");
llOwnerSay(f_output(i));
llSetObjectName(s);
}
else if( message == "email list" || message == "reset list" || message == "send email" )
{ llOwnerSay( "Sending email (incurs a 20 second delay) and resetting...");
f_sendEmail();
llResetScript();
}
}
}
//=========================================================================
</lsl>

The original script.
<lsl>
//=========================================================================
//Original script by Aaron Linden
//modified and commented by Ramon Kothari

// Global variables change these to match your specifics

float range = 10.0; // search radius, in meters
float rate = 1.0; // time between searches, in seconds

// add your email adress inside the quotes
string email_address = "";

//add the name of the location if you want (the email will have the sim name and cordinates of
// the counter already in it)
string location_name = "Your Location";

//dont change these

list single_name_list;
list visitor_list;
//end no change

// Returns true if "name" is already on the visitor_list and doesnt add it the list again
integer isNameOnList( string name )
{
list single_name_list;
single_name_list += name;

return (-1 != llListFindList( visitor_list, single_name_list ) );
}

// sends email to the address above ,if added

sendEmail()
{
string csv = llList2CSV( visitor_list );
llEmail( email_address, "Visitor List: " + location_name, csv );
}

//self explanatory

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Done resetting.");
}

// Help commands
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "This object records the names of everyone who" );
llSay( 0, "comes within "+ (string)((integer)range) + " meters." );
llSay( 0, "Commands the owner can say:" );
llSay( 0, "'help' - Shows these instructions." );
llSay( 0, "'say list' - Says the names of all visitors on the list.");
llSay( 0, "'reset list' - Removes all the names from the list." );
llSay( 0, "' email list' - Emails the names on the list." );
}
else
{
llSay( 0, "Sorry, only the owner can use this object." );
}
}

// state the script starts in

default
{
state_entry()
{
llSay(0, "Visitor List Maker started...");
llSay(0, "The owner can say 'help' for instructions.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

//change this to how often you want the script to email the visitor list to you (or comment it out if you dont want the email .... by default its set to email you every hr then reset itself
llSetTimerEvent( 60 * 60 );
}

// Sends email and resets list as set in the settimerevent above
timer()
{
sendEmail();
resetList();

}

//says help if owner clicks on it

touch_start( integer num_detected )
{
integer i;
for( i = 0; i < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

//detects avatars and keeps time

sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
// Don't ever add the owner to the list.

if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
float seconds = llGetWallclock();
float minutes = seconds / 60.0;
float hours = minutes / 60.0;
integer hours_int = (integer) hours;
integer minutes_int = ((integer)minutes) % 60;
if( minutes_int < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

//Listens for commands from the Owner

listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" )
{
sayHelp( TRUE );
}
else
if( message == "say list" )
{
llSay( 0, "Visitor List:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Total = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "Emailing list");

}

else
if( message == "reset list" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Done resetting.");
}

}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Visit Monitor

2009-07-15T02:19:29Z

BETLOG Hax:

{{LSL Header}}
====Visitor Monitor====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090715 1159 [SLT: 20090714 1859]

Volumedetect (collision based) prim that records avatars names, number of visits, and time (in UTC)
 
Written in response to Firery Broome's request to "just add a few simple things" ...Resulting, as usual :) in an almost total rewrite, and functional differences to the original.
 
Re-posting here as S.A.3.0 licence to re-assert its original public status and that of my rewrite.
 
Not comprehensively tested, so may have some stupid in it.
 
TO USE:
 
Put script in a prim, it'll be phantom from then on so don't link it to anything thats not going to be part of the collision sensing prim(s)
 
Any avatars colliding with this prim will have their name added to the visitor list.
 
Best placement is in avatar arrival areas, like forced TP parcels, preferably where avs will not be constantly colliding with the prim, but rather only collide once when they arrive in your sim/parcel.
 
If the script's memory becomes too full due to list size it will attempt to dump list to email and reset... but I havent't tested if 512bytes is even enough to do this successfully... so value may need adjustment.
 
<lsl>
//==============================================================
//Original script by Aaron Linden
//
//modified and commented by Ramon Kothari
//
// Almost totally rewritten by BETLOG Hax
// UTC+10: 20090713 2306 [SLT: 20090713 0606]
// To remove silly guff and reformat (sheesh WHITESPACE people!), added some more useful stuff.
// For Firery Broome
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
// ------ CONFIGURATION ------
string gEmail = "BETLOG.Hax@gmail.com";
float gFreq = 604800.0;//60*60*24*7=604800 - 1 WEEK

// ------ CORE CODE ------
list gList = [];

//----------------------------------
f_sendEmail()
{ if(gEmail!="")
{ llEmail(gEmail, llGetRegionName()+" Visitor List "+(string)llGetTimestamp(), f_output((gList!=[])));
}
}
//----------------------------------
f_sayHelp( integer is_owner )
{ if( is_owner )
{ llOwnerSay( "This object records the names of everyone who collides with it." );
llOwnerSay( "Commands the owner can say:" );
llOwnerSay( "'help' - Shows these instructions." );
llOwnerSay( "'say list' - Says the names of all visitors on the list.");
llOwnerSay( "'reset list' OR 'email list' - Emails the names on the list and resets." );
}
else
{ llSay( 0, "Sorry, only the owner can use this object." );
}
}
//----------------------------------
string f_output(integer i)
{ string text;//this could easily get far too large to send/load into memory
while(i>-1)
{ text += "Name: "+llList2String(gList, i-2)+"\t"+
" Visit: "+(string)llList2Integer(gList, i-1)+"\t"+
" Last :"+llList2String(gList, i)+"[UTC]\n";
i-=3;
}
return text;
}
//----------------------------------
default
{ on_rez(integer param)
{ llSay(0, "Visitor List Maker started...");
f_sayHelp(TRUE);
llResetScript();
}
state_entry()
{ if(llGetFreeMemory()<17000)
llOwnerSay("RECOMPILE THIS IN MONO. (it'll still work otherwise, just not as well.)");
llVolumeDetect(TRUE);
llListen(0, "", llGetOwner(), "");
llOwnerSay("OK Running.");
llSetTimerEvent(gFreq);
}
timer()
{ llSetTimerEvent(0.0);
f_sendEmail();
llResetScript();
}
touch_start( integer num)
{ while(--num>-1)
f_sayHelp( llDetectedKey(num) == llGetOwner() );
}
collision_start(integer num)
{ string detected_name;
integer index;
string segment;
integer start;
integer visits;
do
{ --num;
if(llDetectedType(num)&AGENT
// && llDetectedKey(num)!=llGetOwner()//rem out to test on yourself
)
{ detected_name = llDetectedName(num);
if(llGetFreeMemory()<512)
llSetTimerEvent(0.1);
else
{ index = llListFindList(gList, [detected_name]);
if(-1==index)
{ gList += [detected_name]+[1]+[llGetTimestamp()];
//llOwnerSay("Adding new visitor: \n"+llList2CSV(gList));
}
else
{ gList = llListReplaceList(gList, [detected_name]+[llList2Integer(gList, index+1)+1]+[llGetTimestamp()], index, index+2);
//llOwnerSay("Updating visits: \n"+llList2CSV(gList));
}
}
}

} while(num>-1);
}
listen( integer channel, string name, key id, string message )
{ if( message == "help" )
{ f_sayHelp( TRUE );
}
else if( message == "say list" )
{ integer i = (gList!=[])-1;
string s = llGetObjectName();
llSetObjectName(" ");
llOwnerSay(f_output(i));
llSetObjectName(s);
}
else if( message == "email list" || message == "reset list" || message == "send email" )
{ llOwnerSay( "Sending email (incurs a 20 second delay) and resetting...");
f_sendEmail();
llResetScript();
}
}
}
//=========================================================================
</lsl>

The original script.
<lsl>
//=========================================================================
//Original script by Aaron Linden
//modified and commented by Ramon Kothari

// Global variables change these to match your specifics

float range = 10.0; // search radius, in meters
float rate = 1.0; // time between searches, in seconds

// add your email adress inside the quotes
string email_address = "";

//add the name of the location if you want (the email will have the sim name and cordinates of
// the counter already in it)
string location_name = "Your Location";

//dont change these

list single_name_list;
list visitor_list;
//end no change

// Returns true if "name" is already on the visitor_list and doesnt add it the list again
integer isNameOnList( string name )
{
list single_name_list;
single_name_list += name;

return (-1 != llListFindList( visitor_list, single_name_list ) );
}

// sends email to the address above ,if added

sendEmail()
{
string csv = llList2CSV( visitor_list );
llEmail( email_address, "Visitor List: " + location_name, csv );
}

//self explanatory

resetList()
{
single_name_list = llDeleteSubList(single_name_list, 0, llGetListLength(single_name_list));
llSay( 0, "Done resetting.");
}

// Help commands
sayHelp( integer is_owner )
{
if( is_owner )
{
llSay( 0, "This object records the names of everyone who" );
llSay( 0, "comes within "+ (string)((integer)range) + " meters." );
llSay( 0, "Commands the owner can say:" );
llSay( 0, "'help' - Shows these instructions." );
llSay( 0, "'say list' - Says the names of all visitors on the list.");
llSay( 0, "'reset list' - Removes all the names from the list." );
llSay( 0, "' email list' - Emails the names on the list." );
}
else
{
llSay( 0, "Sorry, only the owner can use this object." );
}
}

// state the script starts in

default
{
state_entry()
{
llSay(0, "Visitor List Maker started...");
llSay(0, "The owner can say 'help' for instructions.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");

//change this to how often you want the script to email the visitor list to you (or comment it out if you dont want the email .... by default its set to email you every hr then reset itself
llSetTimerEvent( 60 * 60 );
}

// Sends email and resets list as set in the settimerevent above
timer()
{
sendEmail();
resetList();

}

//says help if owner clicks on it

touch_start( integer num_detected )
{
integer i;
for( i = 0; i < num_detected; i++ )
{
sayHelp( llDetectedKey(i) == llGetOwner() );
}
}

//detects avatars and keeps time

sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
// Don't ever add the owner to the list.

if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
float seconds = llGetWallclock();
float minutes = seconds / 60.0;
float hours = minutes / 60.0;
integer hours_int = (integer) hours;
integer minutes_int = ((integer)minutes) % 60;
if( minutes_int < 10 )
{
visitor_list += (string) hours_int + ":0" + (string) minutes_int;
}
else
{
visitor_list += (string) hours_int + ":" + (string) minutes_int;
}

visitor_list += detected_name;
}
}
}
}

//Listens for commands from the Owner

listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}

if( message == "help" )
{
sayHelp( TRUE );
}
else
if( message == "say list" )
{
llSay( 0, "Visitor List:" );
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
llSay( 0, llList2String(visitor_list, i) );
}
llSay( 0, "Total = " + (string)len );
}
else
if( message == "email list" )
{
sendEmail();
llSay(0, "Emailing list");

}

else
if( message == "reset list" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Done resetting.");
}

}
}
//=========================================================================
</lsl>

[[Category:LSL Examples]]

Visit Monitor

2009-07-15T02:10:19Z

BETLOG Hax: Created page with '{{LSL Header}} ====Visitor Monitor==== --BETLOG Hax UTC+10: 20090715 1159 [SLT: 20090714 1859] Volumedetect (collision based) prim that records avatars names...'

PSYS Template

2009-07-09T12:25:37Z

BETLOG Hax:

{{LSL Header}}
====PSYS Template====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090709 2208 [SLT: 20090709 0508]

All of the flags for making particles in a script with important inter-relationship comments only.
 
(declaring a bunch of variables instead of just learning to read the actual flag names is stupid)
<lsl>
integer gOn = TRUE;
//=========================================================================
default
{
on_rez(integer start_param)
{ llResetScript();
}
touch_start(integer num_detected)
{ gOn = !gOn;
state cycle;
}
state_entry()
{ if(gOn)
{ llParticleSystem( [
PSYS_PART_FLAGS, ( 0
| PSYS_PART_INTERP_COLOR_MASK
| PSYS_PART_INTERP_SCALE_MASK
| PSYS_PART_EMISSIVE_MASK
// | PSYS_PART_WIND_MASK
// | PSYS_PART_BOUNCE_MASK
// | PSYS_PART_FOLLOW_SRC_MASK //disables BURST_RADIUS
// | PSYS_PART_FOLLOW_VELOCITY_MASK
// | PSYS_PART_TARGET_POS_MASK //target TARGET_KEY
// | PSYS_PART_TARGET_LINEAR_MASK //requires TARGET_KEY disables ACCEL, BURST_RADIUS
)
,PSYS_PART_START_COLOR, <1.0, 0.5, 0.0>
,PSYS_PART_START_ALPHA, 1.0
,PSYS_PART_END_COLOR, <0.3, 0.0, 0.0>
,PSYS_PART_END_ALPHA, 0.0
,PSYS_PART_START_SCALE, <0.5, 0.5, 0>
,PSYS_PART_END_SCALE, <0.5, 0.5, 0>
,PSYS_PART_MAX_AGE, 1.0 //particle age
,PSYS_SRC_ACCEL, <0.0, 0.0, 0.0>
,PSYS_SRC_PATTERN, 8
//1=DROP,2=EXPLODE,4=ANGLE,8=ANGLE_CONE,10=ANGLE_CONE_EMPTY
//1 - disables BURST_RADIUS, BURST_SPEED_MIN, BURST_SPEED_MAX
//4/8/10 - requires ANGLE_BEGIN, ANGLE_END
// ,PSYS_SRC_INNERANGLE, DEPRECIATED
// ,PSYS_SRC_OUTERANGLE, DEPRECIATED
,PSYS_SRC_TEXTURE, ""
// llGetInventoryName(INVENTORY_TEXTURE, 0) //the first tex in inv
,PSYS_SRC_BURST_RATE, 0.05
// ,14, UNDOCUMENTED
,PSYS_SRC_BURST_PART_COUNT, 4
,PSYS_SRC_BURST_RADIUS, 1.0
,PSYS_SRC_BURST_SPEED_MIN, 0.0
,PSYS_SRC_BURST_SPEED_MAX, 0.1
,PSYS_SRC_MAX_AGE, 0.0 //emission duration
,PSYS_SRC_TARGET_KEY,
(key)""
// llGetLinkKey(llGetLinkNum() + 1)
// llGetKey()
,PSYS_SRC_OMEGA, <0.0, 0.0, 0.0>
,PSYS_SRC_ANGLE_BEGIN, 0.5
,PSYS_SRC_ANGLE_END, 0.5
]);
}
else
{ llParticleSystem([]);
}
}
}
//======================================================================================
state cycle
{ state_entry()
{ state default;
}
}
//======================================================================================
</lsl>
[[Category:LSL Examples]]

PSYS Template

2009-07-09T12:23:46Z

BETLOG Hax:

{{LSL Header}}
====PSYS Template====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090709 2208 [SLT: 20090709 0508]

All of the flags for making particles in a script with important inter-relationship comments only.
 
(declaring a bunch of variables instead of just learning to read the actual flag names is stupid)
<lsl>
//=========================================================================
default
{
on_rez(integer start_param)
{ llResetScript();
}
touch_start(integer num_detected)
{ gOn = !gOn;
state cycle;
}
state_entry()
{ if(gOn)
{ llParticleSystem( [
PSYS_PART_FLAGS, ( 0
| PSYS_PART_INTERP_COLOR_MASK
| PSYS_PART_INTERP_SCALE_MASK
| PSYS_PART_EMISSIVE_MASK
// | PSYS_PART_WIND_MASK
// | PSYS_PART_BOUNCE_MASK
// | PSYS_PART_FOLLOW_SRC_MASK //disables BURST_RADIUS
// | PSYS_PART_FOLLOW_VELOCITY_MASK
// | PSYS_PART_TARGET_POS_MASK //target TARGET_KEY
// | PSYS_PART_TARGET_LINEAR_MASK //requires TARGET_KEY disables ACCEL, BURST_RADIUS
)
,PSYS_PART_START_COLOR, <1.0, 0.5, 0.0>
,PSYS_PART_START_ALPHA, 1.0
,PSYS_PART_END_COLOR, <0.3, 0.0, 0.0>
,PSYS_PART_END_ALPHA, 0.0
,PSYS_PART_START_SCALE, <0.5, 0.5, 0>
,PSYS_PART_END_SCALE, <0.5, 0.5, 0>
,PSYS_PART_MAX_AGE, 1.0 //particle age
,PSYS_SRC_ACCEL, <0.0, 0.0, 0.0>
,PSYS_SRC_PATTERN, 8
//1=DROP,2=EXPLODE,4=ANGLE,8=ANGLE_CONE,10=ANGLE_CONE_EMPTY
//1 - disables BURST_RADIUS, BURST_SPEED_MIN, BURST_SPEED_MAX
//4/8/10 - requires ANGLE_BEGIN, ANGLE_END
// ,PSYS_SRC_INNERANGLE, DEPRECIATED
// ,PSYS_SRC_OUTERANGLE, DEPRECIATED
,PSYS_SRC_TEXTURE, ""
// llGetInventoryName(INVENTORY_TEXTURE, 0) //the first tex in inv
,PSYS_SRC_BURST_RATE, 0.05
// ,14, UNDOCUMENTED
,PSYS_SRC_BURST_PART_COUNT, 4
,PSYS_SRC_BURST_RADIUS, 1.0
,PSYS_SRC_BURST_SPEED_MIN, 0.0
,PSYS_SRC_BURST_SPEED_MAX, 0.1
,PSYS_SRC_MAX_AGE, 0.0 //emission duration
,PSYS_SRC_TARGET_KEY,
(key)""
// llGetLinkKey(llGetLinkNum() + 1)
// llGetKey()
,PSYS_SRC_OMEGA, <0.0, 0.0, 0.0>
,PSYS_SRC_ANGLE_BEGIN, 0.5
,PSYS_SRC_ANGLE_END, 0.5
]);
}
else
{ llParticleSystem([]);
}
}
}
//======================================================================================
state cycle
{ state_entry()
{ state default;
}
}
//======================================================================================
</lsl>
[[Category:LSL Examples]]

User:BETLOG Hax

2009-07-09T12:20:16Z

BETLOG Hax:

'''Wiki contribution index:'''
 
https://wiki.secondlife.com/wiki/Double_Tap_Detection
 
https://wiki.secondlife.com/wiki/AutoHUD_constructor
 
https://wiki.secondlife.com/wiki/CameraSynch2
 
https://wiki.secondlife.com/wiki/Lot_Reservation
 
https://wiki.secondlife.com/wiki/Bartender
 
https://wiki.secondlife.com/wiki/Group_invitation
 
https://wiki.secondlife.com/wiki/Send_vector_as_on_rez_param
 
https://wiki.secondlife.com/wiki/List2ListLoop
 
https://wiki.secondlife.com/wiki/Panel_chat_bar.xml-20090623a
 
https://wiki.secondlife.com/wiki/Dataserver_corrected_sensor_display
 
https://wiki.secondlife.com/wiki/Jump_Limiter
 
https://wiki.secondlife.com/wiki/PSYS_Template

PSYS Template

2009-07-09T12:18:20Z

BETLOG Hax:

{{LSL Header}}
====PSYS Template====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090709 2208 [SLT: 20090709 0508]

All of the flags for making particles in a script with important inter-relationship comments only.
 
(declaring a bunch of variables instead of just learning to read the actual flag names is stupid)
<lsl>
//----------------------------------
integer gOn = TRUE;
//----------------------------------
default
{ on_rez(integer param)
{ llResetScript();
}
touch_start(integer num_detected)
{ gOn = !gOn;
state cycle;
}
state_entry()
{ if(gOn)
{ llParticleSystem( [
PSYS_PART_FLAGS, ( 0
| PSYS_PART_INTERP_COLOR_MASK
| PSYS_PART_INTERP_SCALE_MASK
| PSYS_PART_EMISSIVE_MASK
// | PSYS_PART_WIND_MASK
// | PSYS_PART_BOUNCE_MASK
// | PSYS_PART_FOLLOW_SRC_MASK //disables BURST_RADIUS
// | PSYS_PART_FOLLOW_VELOCITY_MASK
// | PSYS_PART_TARGET_POS_MASK //target TARGET_KEY
// | PSYS_PART_TARGET_LINEAR_MASK //requires TARGET_KEY disables ACCEL, BURST_RADIUS
)
,PSYS_PART_START_COLOR, <1.0, 0.5, 0.0>
,PSYS_PART_START_ALPHA, 1.0
,PSYS_PART_END_COLOR, <0.3, 0.0, 0.0>
,PSYS_PART_END_ALPHA, 0.0
,PSYS_PART_START_SCALE, <0.5, 0.5, 0>
,PSYS_PART_END_SCALE, <0.5, 0.5, 0>
,PSYS_PART_MAX_AGE, 1.0 //particle age
,PSYS_SRC_ACCEL, <0.0, 0.0, 0.0>
,PSYS_SRC_PATTERN, 8
//1=DROP,2=EXPLODE,4=ANGLE,8=ANGLE_CONE,10=ANGLE_CONE_EMPTY
//1 - disables BURST_RADIUS, BURST_SPEED_MIN, BURST_SPEED_MAX
//4/8/10 - requires ANGLE_BEGIN, ANGLE_END
// ,PSYS_SRC_INNERANGLE, DEPRECIATED
// ,PSYS_SRC_OUTERANGLE, DEPRECIATED
,PSYS_SRC_TEXTURE,
""
// llGetInventoryName(INVENTORY_TEXTURE, 0)
,PSYS_SRC_BURST_RATE, 0.05
// ,14, UNDOCUMENTED
,PSYS_SRC_BURST_PART_COUNT, 4
,PSYS_SRC_BURST_RADIUS, 1.0
,PSYS_SRC_BURST_SPEED_MIN, 0.0
,PSYS_SRC_BURST_SPEED_MAX, 0.1
,PSYS_SRC_MAX_AGE, 0.0 //emission duration
,PSYS_SRC_TARGET_KEY,
(key)""
// llGetLinkKey(llGetLinkNum() + 1)
// llGetKey()
,PSYS_SRC_OMEGA, <0.0, 0.0, 0.0>
,PSYS_SRC_ANGLE_BEGIN, 0.5
,PSYS_SRC_ANGLE_END, 0.5
]);
}
else
{ llParticleSystem([]);
}
}
}
//----------------------------------
state cycle
{ state_entry()
{ state default;
}
}
//----------------------------------
</lsl>
[[Category:LSL Examples]]

PSYS Template

2009-07-09T12:15:04Z

BETLOG Hax: Created page with '{{LSL Header}} ====PSYS Template==== --BETLOG Hax UTC+10: 20090709 2208 [SLT: 20090709 0508] All of the flags for making particles in a script with important...'

{{LSL Header}}
====PSYS Template====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090709 2208 [SLT: 20090709 0508]

All of the flags for making particles in a script with important inter-relationship comments only.
 

<lsl>
//----------------------------------
integer gOn = TRUE;
//----------------------------------
default
{ on_rez(integer param)
{ llResetScript();
}
touch_start(integer num_detected)
{ gOn = !gOn;
state cycle;
}
state_entry()
{ if(gOn)
{ llParticleSystem( [
PSYS_PART_FLAGS, ( 0
| PSYS_PART_INTERP_COLOR_MASK
| PSYS_PART_INTERP_SCALE_MASK
| PSYS_PART_EMISSIVE_MASK
// | PSYS_PART_WIND_MASK
// | PSYS_PART_BOUNCE_MASK
// | PSYS_PART_FOLLOW_SRC_MASK //disables BURST_RADIUS
// | PSYS_PART_FOLLOW_VELOCITY_MASK
// | PSYS_PART_TARGET_POS_MASK //target TARGET_KEY
// | PSYS_PART_TARGET_LINEAR_MASK //requires TARGET_KEY disables ACCEL, BURST_RADIUS
)
,PSYS_PART_START_COLOR, <1.0, 0.5, 0.0>
,PSYS_PART_START_ALPHA, 1.0
,PSYS_PART_END_COLOR, <0.3, 0.0, 0.0>
,PSYS_PART_END_ALPHA, 0.0
,PSYS_PART_START_SCALE, <0.5, 0.5, 0>
,PSYS_PART_END_SCALE, <0.5, 0.5, 0>
,PSYS_PART_MAX_AGE, 1.0 //particle age
,PSYS_SRC_ACCEL, <0.0, 0.0, 0.0>
,PSYS_SRC_PATTERN, 8
//1=DROP,2=EXPLODE,4=ANGLE,8=ANGLE_CONE,10=ANGLE_CONE_EMPTY
//1 - disables BURST_RADIUS, BURST_SPEED_MIN, BURST_SPEED_MAX
//4/8/10 - requires ANGLE_BEGIN, ANGLE_END
// ,PSYS_SRC_INNERANGLE, DEPRECIATED
// ,PSYS_SRC_OUTERANGLE, DEPRECIATED
,PSYS_SRC_TEXTURE,
llGetInventoryName(INVENTORY_TEXTURE, 0) //the first tex in inv
,PSYS_SRC_BURST_RATE, 0.05
// ,14, UNDOCUMENTED
,PSYS_SRC_BURST_PART_COUNT, 4
,PSYS_SRC_BURST_RADIUS, 1.0
,PSYS_SRC_BURST_SPEED_MIN, 0.0
,PSYS_SRC_BURST_SPEED_MAX, 0.1
,PSYS_SRC_MAX_AGE, 0.0 //emission duration
,PSYS_SRC_TARGET_KEY,
(key)""
// llGetLinkKey(llGetLinkNum() + 1)
// llGetKey()
,PSYS_SRC_OMEGA, <0.0, 0.0, 0.0>
,PSYS_SRC_ANGLE_BEGIN, 0.5
,PSYS_SRC_ANGLE_END, 0.5
]);
}
else
{ llParticleSystem([]);
}
}
}
//----------------------------------
state cycle
{ state_entry()
{ state default;
}
}
//----------------------------------
</lsl>
[[Category:LSL Examples]]

Jump Limiter

2009-07-07T04:15:19Z

BETLOG Hax:

{{LSL Header}}
====Jump Limiter====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090707 1407 [SLT: 20090706 2107]

My 200-300 ping makes the standard SL jump height kind of annoying.
 So this attachment limits that a little.

<lsl>
//==============================================================
// BETLOG Hax
//
//----------------------------------
// **** LICENCE START ****
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// **** LICENCE END ****
//----------------------------------
//=========================================================================
default
{ on_rez(integer param)
{
}
state_entry()
{ llRequestPermissions(llGetOwner(),PERMISSION_TAKE_CONTROLS);
}
attach(key id)
{ if (llGetAttached())
llRequestPermissions(llGetOwner(),PERMISSION_TAKE_CONTROLS);
}
run_time_permissions(integer perm)
{ if(perm & PERMISSION_TAKE_CONTROLS)
llTakeControls(0| CONTROL_UP,TRUE, TRUE);
}
control(key id, integer pressed, integer change)
{ if (pressed & change & CONTROL_UP)
{ if (~llGetAgentInfo(llGetOwner()) & AGENT_FLYING)
{ llSetBuoyancy(-2.0);
llSleep(1.0);
llSetBuoyancy(0.0);
}
}
}
}
//=========================================================================
</lsl>
[[Category:LSL Examples]]

Dataserver corrected sensor display

2009-07-07T04:13:05Z

BETLOG Hax:

{{LSL Header}}
====Dataserver corrected sensor display====
--[[User:BETLOG Hax|BETLOG Hax]] UTC+10: 20090703 1045 [SLT: 20090702 1745]

Getting data via sensor often required some other lookup.
 This example converts an object's owner key to a name via a dataserver call, and collates it into a list for llSetText display.
 IIRC this was for finding someone elses junk on Bio's land.

The core scanner bit.
<lsl>
//=========================================================================
// BETLOG Hax
// For Bio Flow - complete rewrite based on his script :'take 2.4 moved to dataserver'
// UTC10: 20090412 1737 [SLT: 20090412 0037]
//=========================================================================
// ---LICENCE START---
// http://creativecommons.org/licenses/by-sa/3.0/
// Attribution licence:
// You must:
// -Include this unaltered licence information.
// -Supply my original script with your modified version.
// -Retain the original scripts' SL permissions. [+c/+m/+t]
// Or:
// -Link to the wiki URL from which you copied this script.
// -Document: "Uses parts of <scriptname> by BETLOG Hax"
// ---LICENCE END---
//=========================================================================
// CONFIGURATION
float gDisplayFreq = 5.0;
float gScanFreq = 1.0;
integer gStride = 3;
//----------------------------------
// CORE CODE
key gQueryId;
list gDataList = [];
list gQueryList = [];
integer gPrims;
integer gLink;
//----------------------------------
default
{ on_rez(integer start)
{ llResetScript();
}
changed(integer change)
{ if (change & CHANGED_LINK)
llResetScript();
}
state_entry()
{ llSetText("", <1.0, 1.0, 1.0>, 1.0);
gPrims = llGetNumberOfPrims();
llSensorRepeat("","",PASSIVE|SCRIPTED, 20.0, PI, gScanFreq);
llSetTimerEvent(gDisplayFreq);
integer c = gPrims;
while(c>1)
llMessageLinked(c--,7 ,"",""); //reset all the text
}
sensor(integer num)
{ key uuid;
key owner;
integer range;
while(num>0)
{ --num;
uuid = llDetectedKey(num);
owner = llDetectedOwner(num);
if(uuid != (key)""
&& uuid != llGetOwner()
&& owner != llGetOwner()
&& ~llDetectedType(num) & AGENT
&& !llSameGroup(uuid)
&& -1==llListFindList(gDataList, [uuid]))
{ if (llKey2Name(owner) == "")
{ gQueryId = llRequestAgentData(owner, DATA_NAME);
gDataList += [range, "UNKNOWN", uuid];
gQueryList += [gQueryId, uuid];
//llOwnerSay("UNRESOLVED name- querying dataserver");
}
else
{ gDataList += [llRound(llVecDist(llGetPos(), llDetectedPos(num)))
, llKey2Name(owner)
, uuid];
//llOwnerSay("RESOLVED name - adding data");
}
}
}
}
timer()
{ gDataList = llListSort(gDataList, gStride, TRUE);
integer c = (gDataList != [])-1; //magic
while(c>-1)
{ gLink = (++gLink)%gPrims;
//llOwnerSay((string)(gLink+1));
list chunk = llList2List(gDataList, c-(gStride-1), c);
llMessageLinked(gLink+1, 7
,(string)llList2Integer(chunk, 0)+"m]"
+"\t Owner:"+(string)llList2String(chunk, 1)
+"\t Object:"+(string)llKey2Name(llList2String(chunk, 2))
, ""
);
//llMessageLinked(LINK_SET,7,(string)num + "|" + text,"");
//llOwnerSay(llList2CSV(llList2List(gDataList, c-(gStride-1), c)));
c-=gStride;
}
}
dataserver(key queryid, string data)
{ integer index = llListFindList(gQueryList, [queryid]);
if (-1<index)
{ key uuid = llList2Key(gQueryList, index+1);
index = llListFindList(gDataList, [uuid]);
if (-1<index)
{ gDataList = llListReplaceList(gDataList, [
llRound(
llVecDist(llGetPos(),llList2Vector(llGetObjectDetails(uuid, ([OBJECT_POS])), 0))
)
, data, uuid], index-(gStride-1), index
);
//llOwnerSay("DATASERVER returned name - adding data");
}
}
}
}
//=========================================================================
</lsl>

The text receiver/display bit:
<lsl>
//=========================================================================
default
{ state_entry()
{
}
link_message(integer sender_num, integer num, string str, key id)
{ if(sender_num != 1) return;
if(num != 7) return;
llSetText(str, <1.0, 1.0, 1.0>, 1.0);
}
}
//=========================================================================
</lsl>
[[Category:LSL Examples]]