Mode +v les users enregistrer

[diabolo]

bonjour :) et merci de votre aide

voici le tcl modifier , mais aucune action n'est réaliser sur le chan !!

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 - 311 got311 ;# first WHOIS reply 
bind raw - 307 got307 ;# nick has identified (registered) 
bind raw - 318 got318 ;# End of /WHOIS list 
proc got311 {f k t} { 
   set n [lindex [split $t] 1] 
   set ::whoised($n) 0 
} 
proc got307 {from key text} { 
   set nick [lindex [split $text] 1]
   pushmode $::chan +v $nick
}
proc got318 {f k t} { 
   set n [lindex [split $t] 1] 
   if {$::whoised($n) == 0} { 
      pushmode +v   } 
}  

# on ban apres combien  de secondes ?
set banafter(j:s) 3:60 
 
bind join - * kick:unreg 
 
foreach {banafter(j) banafter(s)} [split $banafter(j:s) :] {break} 
 
proc kick:unreg {nick uhost hand chan} { 
global banafter whoised rejoins 
if {![info exists rejoins([set n [string tolower $nick]])]} { set rejoins($n) 0 } 
if {!$whoised($nick)} { 
    puthelp " mode $chan -v $nick "
#~~~~ On peux bbanir l'user ~~~~~~~~
  #newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "STP , identifies ( /ns identify <ton_password> ) toi ou enregistres toi.Tu est bannis 5 mn. ban.Reviens quand ceci seras fait Merci.Si tu as un soucis vois sur #salon-aide" 5 
  utimer $banafter(s) [list incr rejoins($n) -1] 
  if {[incr rejoins($n)] >= $banafter(j)} { 
   puthelp " mode $chan -v $nick "
#~~~~~~decommanté si l'on  veux débannir (si l'option  ban à ete mise en place) ~~~~~~
#   puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
  } 
} 
} 
putlog "©Nick-REgister.tcl.tcl $register_version Script par  $proprio chargé  "
putserv "PRIVMSG #salon-log : \037\002©Nick-REgister.tcl $register_version Script par  ©cestlemien chargé \037\002 "

ensuite si je teste avec :

Code :

/cs set #chan xop off
puis de définir le level AUTOVOICE à 0

Code :

/cs levels #chan set AUTOVOICE 0

tout les utilisateurs enregistrer ou non sont voice !!


par contre si je met le tcl tel qu'il est plus haut + le mode autovoice -1 :
le botserv voice un utilisateurs non enregistrer et l'eggdrop le devoice :!!!