Mode +v les users enregistrer

[CrazyCat]

Tu n'as pas du essayer bien longtemps:

tclcopier

###########################
# Nick-Register.tcl
###########################
set proprio "moi"
set register_version "2.1a"
set chan "#salon1"
bind join - * foo 
proc foo {nick uhost handle chan} {
   puthelp "whois $nick"
} 
bind raw - 307 got307 ;# nick has identified (registered) 
 
proc got307 {from key text} { 
   set nick [lindex [split $text] 1]
   pushmode $::chan +v $nick
}

Simplifié à l'extrème, voilà ce que ça donne.