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

Search dozens of selected web sites for OpenSim and LSL script

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

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

Home   Show All
Category: Contributor: Creator
Eject SendHome_Newbies  

SendHome_Newbies

SendHome Newbies.lsl

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

the Zip file

Download all files for SendHome_Newbies
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.
Get file # 1. SendHome_Newbies_1.lsl
1
2 key Query;
3 list Users;
4
5 default
6 {
7
9
11 {
13 }
14
15 timer()
16 {
18 }
19
20 sensor(integer TNum)
21 {
22 integer i;
23 for (i = 0; i < TNum; i++)
24 {
25 if(llListFindList(Users,[llDetectedKey(i)]) == -1)
26 {
28 Users = (Users = []) + Users + [Query, llDetectedKey(i)];
29 }
30 }
31 }
32
33 no_sensor()
34 {
35 llOwnerSay("Nuthin found");
36 }
37
38 dataserver(key QID,string Data)
39 {
40 integer LPos = llListFindList(Users,[QID]);
41 if(-1 != LPos)
42 {
43 float YrDays = 365.25;
44 float MnDays = YrDays / 12;
45 float DyInc = 1 / MnDays;
46 integer uYr = (integer)llGetSubString(Data,0,3);
47 integer uMn = (integer)llGetSubString(Data,5,6);
48 integer uDy = (integer)llGetSubString(Data,8,9);
49 float uXVal = uYr * YrDays + (uMn - 1) * MnDays + uDy * DyInc;
50 Data = llGetDate();
51 integer Yr = (integer)llGetSubString(Data,0,3);
52 integer Mn = (integer)llGetSubString(Data,5,6);
53 integer Dy = (integer)llGetSubString(Data,8,9);
54 float XVal = Yr * YrDays + (Mn - 1) * MnDays + Dy * DyInc;
55 integer DDiff = (integer)(XVal - uXVal);
56 if(DDiff < 3) {
57 llSay(0,"Sending " + llKey2Name((key)llList2String(Users,LPos+1)) + " back home.");
59 } else {
60 //llSay(0,"Passed verification: " + llKey2Name((key)llList2String(Users,LPos+1)));
61 }
62 Users = llDeleteSubList(Users,LPos,LPos+1);
63 }
64 }
65 }
66 // END //

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