Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


identd aléatoire même si il est pas activé
#2
Alors suite à notre discussion, j'ai fait un mini-script:

tcl
namespace eval rand_id {
 
    # Le masque de l'ident, les ? seront remplacés par
    # un caractère de la liste "chars"
    variable pattern "hello???"
 
    # Liste des caractères de remplacement autorisés
    variable chars {
        "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
        "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m"
        "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"
        "_" "-"
    }
 
 
    # renvoit un caractère au hasard
    proc rndchr {} {
        return [lindex $rand_id::chars [rand [llength $rand_id::chars]]]
    }
 
    # Remplace tous les ? du masque
    proc randomize {pattern} {
        set out ""
        foreach {chr [split $rand_id::pattern ""]} {
            append out [if {[string eq $chr "?"]} {rand_id::rndchr} {set chr}]
        }
        return $out
    }
 
    # Bind sur la connexion au serveur
    bind evnt - "connect-server" ident
    proc ident {evnt} {
        set ::username rand_id::randomize
    }
}

Il suffit de de modifier le pattern et la liste chars pour t'en servir comme tu veux.

Par exemple, pour avoir automatiquent 5 chiffres:

tcl
variable pattern "?????"
variable chars { "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" }

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Messages In This Thread
identd aléatoire même si il est pas activé - by larrybr - 06/01/2008, 20:24
RE: identd aléatoire même si il est pas activé - by CrazyCat - 07/01/2008, 18:47

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Problème, plusieurs rand dans la même procédure Ez3kiel 2 4,275 03/07/2012, 16:20
Last Post: Ez3kiel
  choisir un fichier aleatoire loulou7593 6 3,983 12/10/2010, 14:16
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)