CrazyCat a écrit :

snip74 a écrit :Bonjour all :)
Je recherche un code similaire sur google et je suis tombé sur votre forum :)

profil a écrit :snip74
Junior Member
Messages : 45
Inscription : Jul 2009

J'ai raté un épisode ? Tu découvres alors que tu es inscris depuis plus de 2 ans et que tu as déjà posté 44 messages ?

snip74 a écrit :Je suis intéressé pour le code idle qui voice a partie de 20 lignes et qui devoice après 15mn sans activité.

CrazyCat a écrit :En fait ton post précédent est assez incompréhensible, on ne sait pas trop de quel tcl tu parles (à l'origine, le demandeur voulait 4 tcls).

Crée donc une nouvelle discussion en demandant à ce qu'on t'aide à faire ton script, en nous expliquant bien le fonctionnement que tu désires avoir.

alias_angelius a écrit :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.

set ::spy_bot

if [string match -nocase $nick $botnick] {

alias_angelius a écrit :re,

tclcopier

set ::spy_bot

C'est la ou tu doit entrée le pseudo du bot.
Donc tu met $botnick dans une variable qui ne va pas fonctionné comme ça.

Ensuite :

tclcopier

if [string match -nocase $nick $botnick] {

Pour savoir vraiment si ta variable fonctionne :

.tcl set ::spy_bot
Tape ceci en PL si je me trompe pas sa devrais te retourner le resultat de la variable qui devrait être : $botnick
Si celà il prend en compte.

et ta recherche que tu désire et de faire un système de devoice par idle plus court en un seul tcl dans un seul eggdrop non ?

namespace eval ::av {
	variable salon #tonsalon
	variable time 15
	variable lignes 5
 
 
	bind time - "* * * * *" av::Vvoice
	proc Vvoice {1 2 3 4 5} {
		variable idle
		variable salon
		variable time
		foreach nick [chanlist $salon] {
			if {[isbotnick $nick] || [isop $nick $salon]} continue
			if [info exists idle($nick)] {
				set t1 [lindex $idle($nick) 1]
				set t [unixtime]
				if {[expr $t-$t1]>[expr $time*60] && [isvoice $nick $salon]} {
					pushmode $salon -v $nick
				}
				if {[expr $t-$t1]>300} {
					set idle($nick) "0 $t1"
				}
			} else {
				set idle($nick) "0 [unixtime]"
			}
		}
		flushmode $salon
	}
 
	bind pubm - * av::Pvoice
 
	proc Pvoice {nick host hand chan arg} {
		variable lignes
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		if ![info exists idle($nick)] {set idle($nick) "1 [unixtime]";return}
		set i [lindex $idle($nick) 0]
		set idle($nick) "[incr i] [unixtime]"
		if {$i>=$lignes} {pushmode $chan +v $nick}
	}
 
	bind join - * av::joinC
 
	proc joinC {nick host hand chan} {
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		set idle($nick) "0 [unixtime]"
	}
 
	bind nick - * av::chgn
 
	proc chgn {nick host hand chan new} {
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		if ![info exists idle($nick)] {
			set idle($new) "0 [unixtime]"
		} else {
			set idle($new) $idle($nick)
			unset idle($nick)
		}
	}
 
}

Citation : [20:44] Tcl error [av::Pvoice]: can't read "linges": no such variable

djkenny a écrit :

tclcopier

namespace eval ::av {
	variable salon #tonsalon
	variable time 15
	variable lignes 5
 
 
	bind time - "* * * * *" av::Vvoice
	proc Vvoice {1 2 3 4 5} {
		variable idle
		variable salon
		variable time
		foreach nick [chanlist $salon] {
			if {[isbotnick $nick] || [isop $nick $salon]} continue
			if [info exists idle($nick)] {
				set t1 [lindex $idle($nick) 1]
				set t [unixtime]
				if {[expr $t-$t1]>[expr $time*60] && [isvoice $nick $salon]} {
					pushmode $salon -v $nick
				}
				if {[expr $t-$t1]>300} {
					set idle($nick) "0 $t1"
				}
			} else {
				set idle($nick) "0 [unixtime]"
			}
		}
		flushmode $salon
	}
 
	bind pubm - * av::Pvoice
 
	proc Pvoice {nick host hand chan arg} {
		variable lignes
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		if ![info exists idle($nick)] {set idle($nick) "1 [unixtime]";return}
		set i [lindex $idle($nick) 0]
		set idle($nick) "[incr i] [unixtime]"
		if {$i>=$linges} {pushmode $chan +v $nick}
	}
 
	bind join - * av::joinC
 
	proc joinC {nick host hand chan} {
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		set idle($nick) "0 [unixtime]"
	}
 
	bind nick - * av::chgn
 
	proc chgn {nick host hand chan new} {
		variable salon
		if {![string equal -nocase $chan $salon] || [isbotnick $nick]} return
		variable idle
		if ![info exists idle($nick)] {
			set idle($new) "0 [unixtime]"
		} else {
			set idle($new) $idle($nick)
			unset idle($nick)
		}
	}
 
}

alias_angelius a écrit :j'aurais plus utilisé getchanidle pour utilisé ce genre de système moi perso.
Et lors de cette utilisation tu évite d'utilisé un bind join

if {$i>=$linges} {pushmode $chan +v $nick}

if {$i>=$lignes} {pushmode $chan +v $nick}

Citation :[21:11:58] <12snip74> zzedczeczec
[21:11:59] <12snip74> zczeczc
[21:12:00] <12snip74> zczczec
[21:12:01] <12snip74> zczczec
[21:12:02] <12snip74> zczcze
[21:12:03] * Eggdrop sets mode: +v snip74
[21:12:04] <14snip74> zeczeczec
[21:13:34] * Eggdrop sets mode: -v snip74
[21:13:40] <12snip74> zdzdczecze
[21:13:41] * Eggdrop sets mode: +v snip74
[21:15:34] * Eggdrop sets mode: -v snip74

DnS a écrit :modifie

tclcopier

if {$i>=$linges} {pushmode $chan +v $nick}

par

tclcopier

if {$i>=$lignes} {pushmode $chan +v $nick}

alias_angelius a écrit :j'aurais plus utilisé getchanidle pour utilisé ce genre de système moi perso.
Et lors de cette utilisation tu évite d'utilisé un bind join

Citation :Donc plus aucun souci mis a par si tu veut améliorer pour toi ou un autre ou même pour moi sans abusé de ta sympathie quand la personne se fait devoicé et se re mais a parler de suite après le devoice sa le re voice directe.

Regarde bien les secondes dans mon exemple pour comprendre :)