Untitled
unknown
plain_text
2 years ago
13 kB
12
Indexable
// Visitors list 2.2
// by Paradox
//
// (English)
// Instruction
//
// You can add or remove admins by adding or removing an identifier (key) to the 'admins' variable.
// The 'scope' variable specifies scanning modes. AGENT_LIST_PARCEL - detects visitors on the same piece of land where the script is running; AGENT_LIST_PARCEL_OWNER - detects visitors to any lot in the region where the owner of the land is the same as the owner of the object in which the script is located; AGENT_LIST_REGION - Finds all visitors in the region.
// By simply clicking on an object, the administrator displays a list of visitors to the site.
// By long pressing on an object by the administrator, the list of visitors to the site is reset to zero.
// The 'Same group' status indicates whether the visitor had the same group active as the one assigned to the object in which the script is located.
// The 'Was out range' status indicates whether the visitor has left the land. If a visitor leaves the land, he is added to the list again the next time he visits.
//
// (Русский)
// Инструкция
//
// Добавлять или удалять админов можно, добавляя или удаляя идентификатор (ключ) в переменную 'admins'.
// Переменная 'scope' задаёт режимы сканирования. AGENT_LIST_PARCEL — обнаруживает посетителей на том же участке земли, где запущен скрипт; AGENT_LIST_PARCEL_OWNER — обнаруживает посетителей на любом участке в регионе, где владелец земли совпадает с владельцем объекта, в котором находится скрипт; AGENT_LIST_REGION — обнаруживает всех посетителей в регионе.
// По простому нажатию на объект админом выводится список посетителей участка.
// По длительному нажатию на объект админом список посетителей участка обнуляется.
// Статус 'Same group' говорит о том, была ли у посетителя активна та же группа, что назначена объекту, в котором находится скрипт.
// Статус 'Was out range' говорит о том, покидал ли посетитель землю. Если посетитель покидал землю, то он вносится в список снова при следующем посещении.
//Global variables
list admins = ["7405e11e-67d8-4ac7-ad98-e9e90316e2e4"]; //Admins list. Admins: Paradox
integer scope = AGENT_LIST_PARCEL; //AGENT_LIST_PARCEL - returns only agents on the same parcel where the script is running; AGENT_LIST_PARCEL_OWNER - returns only agents on any parcel in the region where the parcel owner is the same as the owner of the parcel under the scripted object; AGENT_LIST_REGION - returns any/all agents in the region.
float timer_event_time = 1.0;
integer touch_timer;
integer touch_timer_time = 40; //in touch event cycles
list visitors_list;
integer resets_visitors_list_counter = 0;
//Functions
integer isAdmin()
{
return (llListFindList(admins, [(string) llDetectedKey(0)]) != -1);
}
integer isNameOnVisitorsList(list src, integer index)
{
return (llListFindList(visitors_list, ["User name: " + llKey2Name(llList2Key(llList2List(src, index, index), 0))]) != -1);
}
string GetNameFromVisitorsList(integer index)
{
return (llList2String(llParseString2List(llList2String(llList2List(visitors_list, index, index), 0), ["User name: "], []), 0));
}
integer ListFindListLastElement(list src, list test)
{
integer srclen = llGetListLength(src);
integer testlen = llGetListLength(test);
integer idx = 0;
integer cidx = 0;
do
{
if ((idx = llListFindList(llList2List(src, cidx, -1), test)) != -1)
{
cidx += idx + testlen;
}
}
while (idx != -1 && cidx < srclen);
return cidx-testlen;
}
list isSameGroup(list scan_list, integer num_det)
{
if (llSameGroup(llList2Key(llList2List(scan_list, num_det, num_det), 0)) == TRUE)
{
return ["Same group: Yes"];
}
else return ["Same group: No"];
}
// Convert Unix Time to SLT, identifying whether it is currently PST or PDT (i.e. Daylight Saving aware)
// Omei Qunhua December 2013
list weekdays = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];
string Unix2PST_PDT(integer insecs)
{
string str = Convert(insecs - (3600 * 8) ); // PST is 8 hours behind GMT
if (llGetSubString(str, -3, -1) == "PDT") // if the result indicates Daylight Saving Time ...
str = Convert(insecs - (3600 * 7) ); // ... Recompute at 1 hour later
return str;
}
// This leap year test is correct for all years from 1901 to 2099 and hence is quite adequate for Unix Time computations
integer LeapYear(integer year)
{
return !(year & 3);
}
integer DaysPerMonth(integer year, integer month)
{
if (month == 2) return 28 + LeapYear(year);
return 30 + ( (month + (month > 7) ) & 1); // Odd months up to July, and even months after July, have 31 days
}
string Convert(integer insecs)
{
integer w; integer month; integer daysinyear;
integer mins = insecs / 60;
integer secs = insecs % 60;
integer hours = mins / 60;
mins = mins % 60;
integer days = hours / 24;
hours = hours % 24;
integer DayOfWeek = (days + 4) % 7; // 0=Sun thru 6=Sat
integer years = 1970 + 4 * (days / 1461);
days = days % 1461; // number of days into a 4-year cycle
@loop;
daysinyear = 365 + LeapYear(years);
if (days >= daysinyear)
{
days -= daysinyear;
++years;
jump loop;
}
++days;
for (w = month = 0; days > w; )
{
days -= w;
w = DaysPerMonth(years, ++month);
}
string str = ((string) years + "-" + llGetSubString ("0" + (string) month, -2, -1) + "-" + llGetSubString ("0" + (string) days, -2, -1) + " " +
llGetSubString ("0" + (string) hours, -2, -1) + ":" + llGetSubString ("0" + (string) mins, -2, -1) );
integer LastSunday = days - DayOfWeek;
string PST_PDT = " PST"; // start by assuming Pacific Standard Time
// Up to 2006, PDT is from the first Sunday in April to the last Sunday in October
// After 2006, PDT is from the 2nd Sunday in March to the first Sunday in November
if (years > 2006 && month == 3 && LastSunday > 7) PST_PDT = " PDT";
if (month > 3) PST_PDT = " PDT";
if (month > 10) PST_PDT = " PST";
if (years < 2007 && month == 10 && LastSunday > 24) PST_PDT = " PST";
return (llList2String(weekdays, DayOfWeek) + " " + str + PST_PDT);
}
// Function for sending messages to a public channel with a limit on sending speed (<200/10sec). 2023.12.14; by Paradox
integer MessagesCounter;
float MessagesTimerTime1;
float MessagesTimerTime2;
SaySpeedLimit(integer channel, string message)
{
//1 message start time
if (MessagesCounter == 0)
{
MessagesTimerTime1 = llGetTime();
MessagesCounter = 1;
}
// Saying
llSay(channel, message);
//2 message end time
if (MessagesCounter == 1)
{
MessagesTimerTime2 = llGetTime();
MessagesCounter = 0;
}
//Pause
if (MessagesTimerTime2 - MessagesTimerTime1 <= 0.1)
{
llSleep(0.1);
}
}
DisplayVisitersList()
{
SaySpeedLimit(0, "\nСПИСОК ПОСЕТИТЕЛЕЙ\n" + Unix2PST_PDT(llGetUnixTime()) +"\n\______________________________");
integer i;
integer lenVL = llGetListLength(visitors_list);
for (i = 0; i < lenVL - 5; i += 6)
{
SaySpeedLimit(0, "\n\n" + llDumpList2String(llList2List(visitors_list, i, i + 5), "\n") + "\n");
}
SaySpeedLimit(0, "\n______________________________\nВсего посетителей: " + (string) (llGetListLength(visitors_list) / 6));
SaySpeedLimit(0, "\nКоличество автоматических\nобнулений списка посетителей: " + (string) resets_visitors_list_counter);
}
default
{
state_entry()
{
llSetTimerEvent(timer_event_time);
//For testing
integer q = 0;
for (q = 0; q < 100; ++q)
{
visitors_list += [(string) (llGetListLength(visitors_list) / 6 + 1)] + ["Display name: -------------------------------"] + ["User name: ---------------------------------------------------------------"] + ["Time: " + Unix2PST_PDT(llGetUnixTime())] + ["Same group: Yes"] + ["Was out range: YYY"];
}
llSay (0, "Done 1");
//
}
touch(integer num_detected)
{
//Admin long touch
if (isAdmin() == TRUE)
{
touch_timer += 1;
}
if (touch_timer == touch_timer_time)
{
visitors_list = [];
resets_visitors_list_counter = 0;
SaySpeedLimit(0, "\nВыполнено обнуление списка посетителей\nВыполнено обнуление счётчика автоматических\nобнулений списка посетителей");
DisplayVisitersList();
SaySpeedLimit(0, "\nЧерез несколько секунд сканирование начнётся снова...");
llSleep(1.5);
}
}
touch_end(integer total_number)
{
//Admin touch
if (isAdmin() == TRUE && touch_timer < touch_timer_time)
{
DisplayVisitersList();
}
touch_timer = 0;
}
timer()
{
llSay(0, "1: " + (string) llGetUsedMemory()); //For testing
@s;
//Adding to visitors_list
list scan = llGetAgentList(scope, []);
//For testing
integer q = 0;
for (q = 0; q < 3; ++q)
{
scan += ["---------------------------------------------------------------"];
}
llSay (0, "Done 2");
//
integer i;
integer len_scan = llGetListLength(scan);
for(i = 0; i < len_scan; ++i)
{
if (llGetAgentSize(llList2Key(llList2List(scan, i, i), 0)) != ZERO_VECTOR
&&
(
isNameOnVisitorsList(scan, i) == FALSE
||
(
isNameOnVisitorsList(scan, i) == TRUE
&&
llList2String(visitors_list, ListFindListLastElement(visitors_list, ["User name: " + llKey2Name(llList2Key(llList2List(scan, i, i), 0))]) + 3) == "Was out range: Yes"
)
)
)
{
//Automatic reset of the visitor list
if (65536 - llGetUsedMemory() <= 23574)
{
visitors_list = [];
resets_visitors_list_counter += 1;
SaySpeedLimit(0, "\nВыполнено автоматическое обнуление списка посетителей");
SaySpeedLimit(0, "\nЧерез несколько секунд сканирование начнётся снова...");
llSleep(1.5);
jump s;
}
llSay(0, "2: " + (string) llGetUsedMemory()); //For testing
visitors_list += [(string) (llGetListLength(visitors_list) / 6 + 1)] + ["Display name: " + llGetDisplayName(llList2Key(llList2List(scan, i, i), 0))] + ["User name: " + llKey2Name(llList2Key(llList2List(scan, i, i), 0))] + ["Time: " + Unix2PST_PDT(llGetUnixTime())] + isSameGroup(scan, i) + ["Was out range: No"];
}
}
//Was out range status control
i = 2;
integer lenVL = llGetListLength(visitors_list);
for (i = 2; i < lenVL - 3; i += 6)
{
if (llList2String(visitors_list, i + 3) == "Was out range: No" && llListFindList(scan, [llName2Key(GetNameFromVisitorsList(i))]) == -1)
{
llSay(0, "3: " + (string) llGetUsedMemory()); //For testing
visitors_list = llListInsertList(visitors_list, ["Was out range: Yes"], i + 3);
visitors_list = llDeleteSubList(visitors_list, i + 4, i + 4);
}
}
}
}Editor is loading...
Leave a Comment