[script] advoice

[CrazyCat]

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

[CrazyCat]

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):

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é.

[MenzAgitat]

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 {\\&}]
}