LSL挨拶スクリプト：訪問者へのウェルカムメッセージ

// Visitor Greeter - free LSL script from WhatSL (https://whatsl.com/scripts/lsl-greeter-script)
// Free to use, change and put in your own creations, also ones you sell.
//
// Sends a private welcome message to each visitor who comes near, once a day.
// Only the visitor sees it, so it does not spam local chat. The owner is never greeted.

string  WELCOME_TEXT  = "Welcome, %name%! Have a look around and grab the free gift at the entrance.";
float   RANGE_METRES  = 20.0;  // how close a visitor must come (up to 96.0)
float   SCAN_SECONDS  = 10.0;  // how often to look for new visitors
integer MAX_REMEMBER  = 300;   // visitors remembered per day

list    gSeen = [];
integer gDay;

string fillName(string s, string name)
{
    integer i = llSubStringIndex(s, "%name%");
    if (i == -1) return s;
    return llInsertString(llDeleteSubString(s, i, i + 5), i, name);
}

default
{
    state_entry()
    {
        gDay = llGetUnixTime() / 86400;
        llSensorRepeat("", NULL_KEY, AGENT, RANGE_METRES, PI, SCAN_SECONDS);
    }

    on_rez(integer param)
    {
        llResetScript();
    }

    sensor(integer total)
    {
        integer today = llGetUnixTime() / 86400;
        if (today != gDay)
        {
            gDay = today;
            gSeen = [];
        }
        key owner = llGetOwner();
        integer i;
        for (i = 0; i < total; ++i)
        {
            key av = llDetectedKey(i);
            if (av != owner)
            {
                if (llListFindList(gSeen, [av]) == -1)
                {
                    llRegionSayTo(av, 0, fillName(WELCOME_TEXT, llGetDisplayName(av)));
                    gSeen += [av];
                    if (llGetListLength(gSeen) > MAX_REMEMBER) gSeen = llDeleteSubList(gSeen, 0, 0);
                }
            }
        }
    }
}