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


recherche d'eggdrop
#61
vérifies ta configuration du tcl
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#62
Bonjour djkenny,
Bon j'ai beau chercher mais sa veut pas :)

maintenant sa fonctionne mais pas correctement sur le salon uno sa me voice a 2 ligne et sa me devoice pas après le temps donner.


Salon #Teste
Quote:[18:00:02] <Curieux74> f"ff
[18:00:03] <Curieux74> 'f"'f
[18:00:04] <Curieux74> "'f"'f"'
[18:00:05] <Curieux74> ff"'f"'
[18:00:06] <Curieux74> f'f"'f
[18:00:07] * ToxeaMia sets mode: +v Curieux74
[18:02:34] * ToxeaMia sets mode: -v Curieux74

et salon #uno
Quote:[18:01:44] <Curieux74> cece
[18:01:45] <Curieux74> ecec
[18:01:46] * ToxeaMia sets mode: +v Curieux74
sur se salon j'attend qu'il me devoice mais rien :)

djkenny Wrote:vérifies ta configuration du tcl

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
#63
t'as pas d'erreurs en pl?
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#64
Bonjour djkenny,
merci encore ;)

Non aucune erreur :/

djkenny Wrote:t'as pas d'erreurs en pl?

et depuis que j'ai posté le dernier message je suis toujour voice sur le salon #uno :)

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
#65
chez moi tout fonctionne bien
Quote:#salon1
[19:51] <Dj_KennY> :x
[19:51] <Dj_KennY> :x
[19:51] <Dj_KennY> :x
[19:51] <Dj_KennY> :x
[19:52] • Tu as été voicé par CServe.
[19:53] <+Dj_KennY> :x
[19:56] • Tu as été dévoicé par CServe.

#salon2
[19:52] <Dj_KennY> x:
[19:52] <Dj_KennY> :x
[19:52] <Dj_KennY> :x
[19:52] <Dj_KennY> :x
[19:52] <Dj_KennY> :x
[19:52] • Tu as été voicé par CServe.
[19:55] • Tu as été dévoicé par CServe.

tu n'as pas modifiés le tcl?
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#66
Bonjour djkenny,
Merci encore de ta patience et de ton aide :)

Non j'ai copier coller ton dernier code changer la ligne :

variable salons "#salon1 #salon2 #salon3"
en
variable salons "#teste #uno"

Puis rehash et restart en ctcp eggdrop chat

Et il possible que sa viens qu'il n'est que sur 2 salons pour mes teste ?
J'avoue que je n'est pas testé vue que je viens juste d'y pensé :)


Je mais quand même le code au cas ou mais bon je pense pas que sa va changer grand chose :)


Code:
namespace eval ::av {
   variable salons "#teste #uno"
   variable time 2
   variable lignes 5


   bind time - "* * * * *" av::Vvoice
   proc Vvoice {1 2 3 4 5} {
      variable idle
      variable salons
      variable time
      foreach salon [string tolower $salons] {
         if ![validchan $salon] continue
         foreach nick [chanlist $salon] {
            if {[isbotnick $nick] || [isop $nick $salon]} continue
            if {[info exists idle($salon)] && [dict exists $idle($salon) $nick]} {
               set n [dict get $idle($salon) $nick]
               set t1 [lindex $n 1]
               set t [expr [unixtime]-$t1]
               if {$t>[expr $time*60] && [isvoice $nick $salon]} {
                  pushmode $salon -v $nick
               }
               if {$t>300} {
                  dict set idle($salon) $nick [list 0 $t1]
               }
            } else {
               dict set idle($salon) $nick [list 0 [unixtime]]
            }
         }
         flushmode $salon
      }
   }

   bind pubm - * av::Pvoice

   proc Pvoice {nick host hand chan arg} {
      variable lignes
      variable salons
      variable idle
      set chan [string tolower $chan]
      if {[lsearch -nocase $salons $chan]==-1 || [isbotnick $nick]} return
      if {[info exists idle($chan)] && [dict exists $idle($chan) $nick]} {
         set n [dict get $idle($chan) $nick]
         set i [lindex $n 0]
         dict set idle($chan) $nick [list [incr i] [unixtime]]
         if {$i>=$lignes} {pushmode $chan +v $nick}
      } else {
         dict set idle($chan) $nick [list 1 [unixtime]]
      }
   }

   bind join - * av::joinC

   proc joinC {nick host hand chan} {
      variable salons
      set chan [string tolower $chan]
      if {[lsearch -nocase $salons $chan]==-1 || [isbotnick $nick]} return
      variable idle
      dict set idle($chan) $nick [list 0 [unixtime]]
   }

   bind nick - * av::chgn

   proc chgn {nick host hand chan new} {
      variable salons
      set chan [string tolower $chan]
      if {[lsearch -nocase $salons $chan]==-1 || [isbotnick $nick]} return
      variable idle
      if {[info exists idle($chan)] && [dict exists $idle($chan) $nick]} {
         dict set idle($chan) $new [dict get $idle($chan) $nick]
         dict unset idle($chan) $nick
      } else {
         dict set idle($chan) $new [list 0 [unixtime]]
      }
   }
}

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org


Possibly Related Threads…
Thread Author Replies Views Last Post
  Recherche uno pour eggdrop MRVOLKANO 2 4,396 03/12/2010, 23:45
Last Post: Mrvolks

Forum Jump:


Users browsing this thread: 1 Guest(s)