Publié par
Maxwell37_Carter
Bonjour,
comme ça fait 2 trucs que j'achete et qui fonctionnent mal je viens au infos si vous avez ça svp :
Enregistreur de visites "nom de l'avatar", pas juste le nombre
- stat par jour (ex 20 visites et les noms)
- pas forcement le temps que l'avatar reste car createur de lag a mon avis
et surtout que je puisse connaitre tous les avatars et pas seulement 10
J'en ai un qui m'alerte par notification à chaque visite mais ne laisse pas de msg si je ne suis pas connecté et le last 100 je l'ai dans l'os
merci d'avance
swan
list visitor_list;
float range = 20.0; // en metres
float rate = 1.0; // en secondes
integer isNameOnList( string name )
{
integer len = llGetListLength( visitor_list );
integer i;
for( i = 0; i < len; i++ )
{
if( llList2String(visitor_list, i) == name )
{
return TRUE;
}
}
return FALSE;
}
default
{
state_entry()
{
llSay(0, "Demarrage de l'enregistrement...");
llSay(0, "Le proprietaire peut dire 'aide' pour avoir les raccourcis.");
llSensorRepeat( "", "", AGENT, range, TWO_PI, rate );
llListen(0, "", llGetOwner(), "");
}
sensor( integer number_detected )
{
integer i;
for( i = 0; i < number_detected; i++ )
{
if( llDetectedKey( i ) != llGetOwner() )
{
string detected_name = llDetectedName( i );
if( isNameOnList( detected_name ) == FALSE )
{
visitor_list += detected_name;
}
}
}
}
listen( integer channel, string name, key id, string message )
{
if( id != llGetOwner() )
{
return;
}
if( message == "aide" )
{
llOwnerSay( "Cet objet enregistre les noms de chaque personne qui passe dans un rayon de "+ (string)range + " meters." );
llOwnerSay( "Commandes du proprietaire:" );
llOwnerSay( "'aide' - Donne les raccourcis." );
llOwnerSay( "'donner liste' - Donne la liste complete des visiteurs.");
llOwnerSay( "'effacer' - Efface tous les noms de la liste." );
}
else
if( message == "donner liste" )
{
llSay( 0, "Liste des visiteurs:" );
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 == "effacer" )
{
visitor_list = llDeleteSubList(visitor_list, 0, llGetListLength(visitor_list));
llSay( 0, "Reinitialisation");
}
}
}