[tuto] [bot] gestion d'une liste d'access (commenté)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 095 fois - Téléchargée 34 fois

Contenu du snippet

Cette source est un tutorial sur les hash tables et les identifieurs. La source est un système de gestion d'access pour bot.

Source / Exemple :


alias axx { dialog $+(-,$iif($dialog(access),v,m)) access access }

;Rien de compliqué, un alias pour ouvrir le dialog : si le dialog n'est pas deja ouvert, on l'ouvre.

on *:START:{
  hmake access
  $iif($exists(access),hload,hsave) access access
}

;Au démarrage du script, on crée la table. On cherche si le fichier "access" (qui contient la table) existe. Si il existe, on charge la table "access" (avec /hload). Sinon, on sauvegarde la table (vide) dans le fichier "access"
;Il faut noter que les hash tables sont stockées pendant que le script est ouvert, et elles se détruisent lorsqu celui ci est arrêté. De ce fait, il est nécessaire de sauvegarder/charger les hash table au démarrage du script.

dialog access {
  title "Gestion d'access"
  size -1 -1 97 91
  option dbu
  text "Liste des access :", 1, 4 3 45 8
  list 2, 4 13 57 61, size
  button "Ajouter", 3, 63 21 30 12
  button "Effacer", 4, 63 36 30 12
  button "Réinitialiser", 5, 63 51 30 12
  button "Fermer", 6, 8 76 37 12, cancel
  button "Aide", 7, 53 76 37 12
}

dialog add.axx {
  title "Ajouter un access"
  size -1 -1 80 41
  option dbu
  text "Pseudo :", 1, 4 3 23 8
  edit "", 2, 28 2 49 10, autohs
  text "Niveau :", 3, 4 16 22 8
  edit "", 4, 26 15 38 10
  button "Ajouter", 5, 6 28 31 9, ok cancel
  button "Fermer", 6, 43 28 31 9, cancel
}

dialog help.axx {
  title "Aide - Gestion d'access"
  size -1 -1 131 73
  option dbu
  text "Ce dialog est conçu principalement pour les bots, il sert a gérer une liste d'access. Vous pouvez vous servir de l'access d'un pseudo pour limiter certaines commandes de votre bot a certains pseudos. Pour obtenir le niveau d'access d'un pseudo servez vous de $access(pseudo) : celui ci vous retournera le niveau d'access du pseudo ou 0 si le pseudo est absent de la liste.", 1, 3 3 124 54
  button "Fermer", 2, 46 59 37 12, cancel
}

;Voici les 3 dialogs, le premier (access) sert a gérer la liste des access, le second (add.axx) sert a ajouter un access, et le dernier (help.axx) est un dialog d'aide.

on *:dialog:*:*:*:{
  if ($dname == access) {
    if ($devent == init) { list.axx }
    ;Au démarrage du dialog, on liste les access (voir alias plus bas)  
    elseif ($devent == sclick) {
      if ($did == 3) { dialog $+(-,$iif($dialog(add.axx),v,m)) add.axx add.axx }
      ;Quand on clique sur le bouton "ajouter", le dialog "add.axx" est ouvert (seulement s'il n'est pas déjà ouvert).
      elseif ($did == 4) { 
        if ($did(access,2).seltext) { 
          hdel access $gettok($did(access,2).seltext,1,32) 
          hsave access access 
          list.axx
        }
        ;Quand on clique sur "Effacer", on supprime l'item sélectionné (avec /hdel), ensuite on sauvegarde la hash table et on refait la liste.
        else { echo -a Veuillez sélectionner un pseudo }
      }
      elseif ($did == 5) { 
        hdel -w access *
        list.axx
      }
      ;Lors du click sur "Réinitialiser", on efface tous les items de la table "access" (avec /hdel -w *) 
      elseif ($did == 7) { dialog $+(-,$iif($dialog(help.axx),v,m)) help.axx help.axx  }
      ;Lors du click sur "Aide", on ouvre le dialog "help.axx" (seulement si celui ci n'est pas déjà ouvert) 
    }
  }
  elseif ($dname == add.axx) {
    if ($devent == sclick) {
      if ($did == 5) {
        if ($chr(32) !isin $+($did(2),$did(4))) { 
          hadd access $$did(add.axx,2) $$did(add.axx,4)
          hsave access access
          list.axx
        }
        ;On vérifie que les edits 2 et 4 sont remplis (double $), et si ceux ci ne s'ont formés que d'un seul mot (vérification du $chr(32))
        ;Si ces conditions sont vérifiées, on ajoute l'item portant le nom du pseudo, sa valeur étant le niveau d'access précisé (/hadd TABLE ITEM VALEUR), et on sauvegarde la table ACCESS
        ;Ensuite, on liste les access.
        else { echo -a Paramètres invalides }
      }
    }
  }
}

alias list.axx {
  did -r access 2
  var %a 1
  while ($hget(access,%a).item) { did -a access 2 $ifmatch : $hget(access,%a).data) | inc %a } 
}

;A chaque fois qu'une modification est apportée on appelle cet alias, expliquons le :
;On supprime toutes les lignes de la liste ayant l'id 2 (avec /did -r)
;Ensuite, c'est une boucle : on définit une variable %a. 
;Tant que cette variable est inférieure au nombre d'items (donc de pseudos) de la table ACCESS, on ajoute une ligne a la list contenant le pseudo donc l'item ($hget(access,%a).item) et le niveau donc la valeur de l'item ($hget(access,%a).data)
;Ensuite on incrémente %a, ce qui signifie qu'on lui ajoute 1.

alias access { return $iif($hget(access,$1),$hget(access,$1),0) }

;Dernière chose indispensable, l'identifieur $access qui permettra d'obtenir immédiatement le niveau d'access d'un pseudo quelconque.
;Un identifieur se présente comme un alias (alias access { })
;D'abord, on cherche dans la table ACCESS si $1 (donc le pseudo spécifié avec $access(pseudo)) possède une valeur dans la table (avec $hget(access,$1))
;Si il est présent, l'identifieur retourne la valeur de l'access du pseudo (la valeur de l'item $1) (avec /return $hget(access,$1))
;Si il n'est pas présent, il n'est pas dans la liste d'access, ce qui signifie que son niveau d'access est égal a 0. (on retourne donc 0 avec /return 0)

Conclusion :


Au départ c'est un tutorial, mais vous pouvez aussi vous en servir pour votre bot en utilisant

if ($access(nick) >= la-valeur-que-vous-voulez) {... }

Voilà, j'espère que ça vous a servi :)

A voir également

Ajouter un commentaire

Commentaires

Em3r1c4
Messages postés
3
Date d'inscription
samedi 7 avril 2007
Statut
Membre
Dernière intervention
20 septembre 2007
-
Tres Hot se tuto, mais il devrais avoir un evenement on *:LOAD: pour ajouté les hash tables, car a la premiere utilisation il ne les trouve pas, jai dut tapé //exit -nr pour redemarer le bot.

mais bon, merci :) Pratique 10/10
Em3r1c4
Messages postés
3
Date d'inscription
samedi 7 avril 2007
Statut
Membre
Dernière intervention
20 septembre 2007
-
ton code rock, jai appris bcp depuis! Merci :)
doob666
Messages postés
149
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
25 janvier 2011
-
Juste une petite chose...on ne peux pas ajouter un access sans avoir le bot chez soit...
cs_wims
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1 -
mwa qui n'avait ocune connaissance des htable c vrai que je comprend mieu maintant comment elle marche et puis c pas trop mal commencter


wims

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.