Difference between revisions of "LlResetLandPassList/fr"

From Second Life Wiki
Jump to navigation Jump to search
(Localized to french)
 
m
 
(2 intermediate revisions by 2 users not shown)
Line 10: Line 10:
|spec
|spec
|caveats
|caveats
|examples=<pre>
|examples=<lsl>
 
// Ce script necessite le nom complet de l'avatar pour fonctionner
// Script de shenanigan oh
// il est fourni comme exemple d'utilisation des fonctions de controle d'acces.
 
//
// C’est un script simple que j’utilisais lorsque je travaillais
// Les commandes de chat sont:
// sur un massacre pour une sim pvp, il était en effet beaucoup
//   /5 ban:nom_complet
// plus simple d’expulser quelqu'un de cette façon que de cliquer
//   /5 tempban:nom_complet
// sur lui en lui courant après.
//   /5 unban:nom_complet
// Exemple: /1 eject shenan
//   /5 pass:nom_complet
 
//  /5 unpass:nom_complet
// Attention, si vous tapez le nom d’une personne, faites bien
//   /5 clearban
// attention à ce que personne d’autre dans les environs n’ait le même nom !
//   /5 clearpass
 
string msg;
string command;
string name;
default
default
{
{
     on_rez(integer n)
     state_entry()
     {
     {
         llResetScript();
         llListen(5, "", llGetOwner(), "");
     }
     }
   
     state_entry()
     on_rez(integer param)
     {
     {
         llListen(1, "", llGetOwner(), "");
         llResetScript();
        llListen(0, "", llGetOwner(), "");
     }
     }
 
     listen(integer n, string m, key k, string msg)
     listen(integer chan, string name, key id, string message)
     {
     {
         if (llGetSubString(msg, 0, 5) == "eject ")
         if (command != "")
        {
            llOwnerSay("Desole, le traitement de la commande precedente est encore en cours, retentez dans un moment.");
        }
        list args = llParseString2List(message,[":"],[]);
        command = llToLower(llList2String(args,0));
        if (command == "clearbans")
        {
            llResetLandBanList();
        }
        if (command == "clearpass")
        {
            llResetLandPassList();
        }
        else
         {
         {
             name = llToLower(llStringTrim(llDeleteSubString(msg, 0, 5), STRING_TRIM));
             llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
            llSensor("", "", AGENT, 96, PI);
         }
         }
     }
     }
      
     sensor(integer n)
    no_sensor()
    {
        command = "";
     }
     sensor(integer num)
     {
     {
         integer i = 0;
         integer i;
         for (;i<n;++i)
         for (i=0; i< num; ++i)
         {
         {
             if (llOverMyLand(llDetectedKey(i)))
             if (command == "ban")
            {
                // Bannir indefiniment un avatar
                llAddToLandBanList(llDetectedKey(i),0.0);
            }
            if (command == "tempban")
            {
                // Bannir un avatar pour 1h
                llAddToLandBanList(llDetectedKey(i),1.0);
            }
            if (command == "unban")
            {
                // Supprimer le bannissement d'un avatar
                llRemoveFromLandBanList(llDetectedKey(i));
            }
            if (command == "pass")
            {
                // Ajouter un avatar a la liste d'acces
                llAddToLandPassList(llDetectedKey(i),1.0);
            }
            if (command == "unpass")
             {
             {
                 if (~llSubStringIndex(llToLower(llDetectedName(i)), name))
                 // Supprimer un avatar de la liste d'acces
                 {
                 llRemoveFromLandPassList(llDetectedKey(i));
                    llOwnerSay("Ejection de " + llDetectedName(i));
                    llEjectFromLand(llDetectedKey(i));
                }
             }
             }
         }
         }
        command = "";
     }
     }
    no_sensor()
}
    {
</lsl>
        llOwnerSay("Avatar non trouvé");
    }
}  
 
</pre>
|helpers
|helpers
|also_header
|also_header

Latest revision as of 06:49, 29 May 2009

Description

Fonction: llResetLandPassList( );

Vide la liste de droit de passage.


Avertissements

  • Cette fonction fait dormir le script pendant 0.1 secondes.

Exemples

<lsl> // Ce script necessite le nom complet de l'avatar pour fonctionner // il est fourni comme exemple d'utilisation des fonctions de controle d'acces. // // Les commandes de chat sont: // /5 ban:nom_complet // /5 tempban:nom_complet // /5 unban:nom_complet // /5 pass:nom_complet // /5 unpass:nom_complet // /5 clearban // /5 clearpass

string command;

default { 

   state_entry()
   {
       llListen(5, "", llGetOwner(), "");
   }

   on_rez(integer param)
   {
       llResetScript();
   }

   listen(integer chan, string name, key id, string message)
   {
       if (command != "")
       {
           llOwnerSay("Desole, le traitement de la commande precedente est encore en cours, retentez dans un moment.");
       }

       list args = llParseString2List(message,[":"],[]);
       command = llToLower(llList2String(args,0));

       if (command == "clearbans")
       {
           llResetLandBanList();
       }
       if (command == "clearpass")
       {
           llResetLandPassList();
       }
       else
       {
           llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
       }
   }

   no_sensor()
   {
       command = "";
   }

   sensor(integer num)
   {
       integer i;
       for (i=0; i< num; ++i)
       {
           if (command == "ban")
           {
               // Bannir indefiniment un avatar 
               llAddToLandBanList(llDetectedKey(i),0.0);
           }
           if (command == "tempban")
           {
               // Bannir un avatar pour 1h
               llAddToLandBanList(llDetectedKey(i),1.0);
           }
           if (command == "unban")
           {
               // Supprimer le bannissement d'un avatar
               llRemoveFromLandBanList(llDetectedKey(i));
           }
           if (command == "pass")
           {
               // Ajouter un avatar a la liste d'acces
               llAddToLandPassList(llDetectedKey(i),1.0);
           }
           if (command == "unpass")
           {
               // Supprimer un avatar de la liste d'acces
               llRemoveFromLandPassList(llDetectedKey(i));
           }
       }
       command = "";
   }

} </lsl>

Voir également

Fonctions

•  llAddToLandBanList – Ajoute un avatar à la liste des bannis
•  llAddToLandPassList – Ajoute un avatar à la liste des droits de passage
•  llRemoveFromLandPassList – Supprime un avatar de la liste des droits de passage
•  llRemoveFromLandBanList – Supprime un avatar de la liste bannis
•  llResetLandBanList – Réinitialise la liste des bannis
Vous cherchez encore des informations ? Peut-être cette page du LSLwiki pourra vous renseigner.
Retrieved from "https://wiki.secondlife.com/w/index.php?title=LlResetLandPassList/fr&oldid=376713"