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


[script] advoice
#1
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
  Répondre
#2
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 a écrit :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é.
  Répondre
#3
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 {\\&}]
}


Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
  Répondre


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)