Script Names Avatar enters the sim PART2

Répondre
Partager Rechercher
Hi,

Is it also possible to show when the same AVI leaves the sim again? and also there a link the to see on the avatar name so we can look
at profile? (like the famous .What is she Wearing. attachment search script) as searching names in 'search' 8 of 10 times doesn't or can't find the right avatar name, someone modified this script already for me so that's why a new thread, it now also sends a message when not in sim and IM (if turned on in sl settings) the other 2 options he couldn't
realize


list avats_presents = [];
list nvx_avats = [];
list NAMES = [];
integer nb_avats;
string name;

default
{
on_rez (integer start_param)
{
llResetScript ();
}

state_entry ()
{
llSetTimerEvent (5.0);

avats_presents = llGetAgentList (AGENT_LIST_REGION, []);
nb_avats = llGetListLength (avats_presents);

if (nb_avats> 0)
{
integer index;
while (index <nb_avats)
{
key id = llList2Key (avats_presents, index);
name = llKey2Name (id);
NAMES + = name;

++ index;
}
llInstantMessage (llGetOwner (), llList2CSV (NAMES));
}
}

timer ()
{
nvx_avats = llGetAgentList (AGENT_LIST_REGION, []);
nb_avats = llGetListLength (nvx_avats);

if (nb_avats> 0)
{
integer index;

while (index <nb_avats)
{
key id = llList2Key (nvx_avats, index);

integer i = (llListFindList (avats_presents, [id]));
if (i! = -1)
{}

else
{
string lang = llGetAgentLanguage (id);
string language;
if (lang == "") language = "English";
else if (lang == "en-us") language = "English";
else if (lang == "es") language = "Spanish";
else if (lang == "it") language = "Italian";
else if (lang == "fr") language = "French";
else if (lang == "ja") language = "Japanese";
else if (lang == "from") language = "German";
else if (lang == "ko") language = "Korean";
else if (lang == "zh") language = "Chinese";

llInstantMessage (llGetOwner (), llKey2Name (id) + "entered the sim, and uses the language:" + language);
}
index ++;
}
avats_presents = nvx_avats;
}
}

changed (integer change)
{
if (change & CHANGED_REGION)
{
llResetScript ();
}
}
}
Répondre

Connectés sur ce fil

 
1 connecté (0 membre et 1 invité) Afficher la liste détaillée des connectés