11/11/2011, 14:51
vérifies ta configuration du tcl
C'est en reconnaissant ses erreurs que l'on progresse
|
recherche d'eggdrop
|
|
11/11/2011, 14:51
vérifies ta configuration du tcl
C'est en reconnaissant ses erreurs que l'on progresse
11/11/2011, 19:08
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 Citation :[18:00:02] <Curieux74> f"ff et salon #uno Citation :[18:01:44] <Curieux74> cecesur se salon j'attend qu'il me devoice mais rien :) djkenny a écrit :vérifies ta configuration du tcl Cordialement Stéphane
11/11/2011, 20:07
t'as pas d'erreurs en pl?
C'est en reconnaissant ses erreurs que l'on progresse
11/11/2011, 20:32
Bonjour djkenny,
merci encore ;) Non aucune erreur :/ djkenny a écrit :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
11/11/2011, 21:00
chez moi tout fonctionne bien
Citation :#salon1 tu n'as pas modifiés le tcl?
C'est en reconnaissant ses erreurs que l'on progresse
11/11/2011, 21:35
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 |
|
« Sujet précédent | Sujet suivant »
|