Communauté sur les Eggdrops - Community about Eggdrops
[script] advoice - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+---- Forum: Releases et support (https://forum.eggdrop.fr/forumdisplay.php?fid=20)
+---- Thread: [script] advoice (/showthread.php?tid=1358)

[script] advoice - CrazyCat - 26/06/2013

Description :
Script pour voicer automatiquement les utilisateurs et leur retirer la voix après un certain temps d'idle

Commandes
En console:

Code:
.chanset #channel advoice XX
Avec XX en minutes (0 désactive le tcl sur le canal)
En message:

Code:
/msg eggdrop delay help
/msg eggdrop delay #channel on (utilise la durée par défaut)
/msg eggdrop delay #channel XX
/msg eggdrop delay #channel off|0
Télécharger advoice.tcl

RE: [script] advoice - CrazyCat - 26/06/2013

Version 1.1
Correction d'un bug : les lignes des ops et half-ops n'étaient plus présentes dans le fichier de log du canal.

Ce bug existait depuis le début, je ne l'ai remarqué qu'hier. Et il est totalement de ma faute : l'eggdrop réagit (entre autres) au bind pubm et dans la procédure voice, je faisais des "return 1" lorsque l'utilisateur a le statut @ ou %.
Hors, comme il est bien indiqué dans le wiki (et par moi en plus):
wiki Wrote:Si la procédure renvoit 1, Eggdrop n'enregistrera pas le message qui a déclenché le bind.
Désormais, le code de retour est donc 0, et tout est corrigé.

RE: [script] advoice - MenzAgitat - 14/04/2017

En lisant le code, il me semble qu'il y a un problème si un user cumule plusieurs modes et est par exemple voicé, halfopé et opé.
Une fois le temps d'idle max atteint, il sera d'abord déopé, puis déhalfopé 1mn après, puis dévoicé encore 1mn après.
Je propose le correctif suivant :

tcl
proc check {min hour day month year} {
	foreach chan [channels] {
		set idlemax [channel get $chan advoice]
		if { $idlemax == 0 } {
			continue
		} else {
			foreach nick [chanlist $chan] {
				foreach protected $::advoice::protected {
					if { [lsearch -nocase [::advoice::filt [split $protected]] [::advoice::filt [split $nick]]] != -1 } {
						putlog "protected -> [::advoice::filt [split $protected]]"
						continue
					} else {
						if { [getchanidle $nick $chan] > $idlemax } {
							if { $::advoice::opasvoice } {
								if { [isop $nick $chan] } {
									::advoice::deop $nick $chan
								}
								if { [ishalfop $nick $chan] } {
								::advoice::dehalfop $nick $chan
								}
							}
							if { [isvoice $nick $chan] } {
								::advoice::devoice $nick $chan
							}
						}
					}
				}
			}
		}
	}
}


De plus, la proc filt pourrait être optimisée en :

tcl
proc filt {data} {
	return [regsub -all {\W} $data {\\&}]
}