recherche d'eggdrop

[snip74]

Bonjour alias_angelius,
Merci de ton aide

Bah pour le code j'ai testé un truc dans se style avec cette partie de code :

Code :

#######################################################################
################# Auto deop & devoice sur idle ########################
#######################################################################
#                                                   #
#                                              #
#               Ce TCL fonctionne avec deux robots :                #
#                                              #
#                                              #
#                                              #      
# idle_do_dv_spy.tcl      : A installer sur le robot spy          #
#                                              #  
# idle_do_dv_principal.tcl   : A installer sur le robot modérateur   #
#                                              #        
#                                              #        
#                                              #
#######################################################################
########################### Configuration. ############################
#######################################################################

bind EVNT - init-server proc:initidle
proc proc:initidle { type } {


set ::spy_bot "Robot-Moderator"

}

bind MSG - idle_voice proc:idledv
proc proc:idledv { nick uhost hand text } {
if [string match -nocase $nick $::spy_bot] {
  putserv "mode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]"
  foreach listdeop [lrange $text 1 end] {
    putserv "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être devoice !"
  }
}
}
#######################################################################
############################# Fin du TCL ##############################
#######################################################################

J'ai essayer de le modifier comme sa pour devoicé un user :

Code :

bind EVNT - init-server proc:initidle
proc proc:initidle { type } {


set ::spy_bot " $botnick "

}

bind MSG - idle_voice proc:idledv
proc proc:idledv { nick uhost hand text } {
if [string match -nocase $nick $botnick] {
  putserv "mode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]"
  foreach listdeop [lrange $text 1 end] {
    putserv "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être devoice !"
  }
}
}

Se qui et logique que sa fonctionne pas vue que j'ai voulue modifier c'est 2 lignes la :

Code :

set ::spy_bot " $botnick "
et
if [string match -nocase $nick $botnick] {

Car je pense pas que long puisse récupéré le pseudo qui et par defaux du eggdrop.

Par contre pour le idle voice après 20 phrase que sa voice l'user bah la j'ai aucune idée :/

Salut,

Heu peut-être montré le code que tu as modifié par exemple nous aiderais à comprendre.
Et lorsque tu auras poster la modification du tcl que tu as apporter, nous pourrons voir ce que l'ont peut faire pour toi.

Cordialement Stéphane