Aide pour faire un script TCL

[Ahriman]

Bonjour,
j'aimerais faire une commande +b pseudo pour que le bot bannisse l'user sous la demande d'un +b <pseudo> ou <host> . Mais aussi avec une restriction d'accès, c'est à dire seul les personnes qui ont accès au eggdrop peuvent s'en servir. Cela est-il possible ? Merci de votre aide d'avance.

[CrazyCat]

C'est possible.
Une autre question ?

[Ahriman]

J'ai fait ce code mais je pense qu'il y a des erreurs:
## [ban]
## Procédure d'utilisation du ban
bind pub - "+b" ban
proc ban {nick host hand chan arg} {
if {![llength $arg]&&![isvoice $nick $chan]} {
putquick "MODE $chan +b $nick"
} else {
if {![onchan [lindex $arg 0] $chan]} {
putquick "MODE $chan +b \ [lindex $arg 0]"
return 0
}
putquick "MODE $chan +b [lindex $arg 0]"
}
}
putlog "Le +b activé"
Problème: Je n'arrive pas à mettre sur accès cette commande. Ou juste un pseudo seulement.

[ZarTek]

Bonjour !
Si ça t’aide, je me suis permis de commenté ton code de la maniere dont je comprend son fonctionnement :

tclcopier

## [ban]
## Procédure d'utilisation du ban
# McDeffice:  Quand on tape "+b" sa exécute la proc ban :
bind pub - "+b" ban
proc ban { nick host hand chan arg } {
	# McDeffice: ![llength $arg] -> permet de connaitre la longueur d'$arg. Ici il est vrai si la valeur ne vaut 1 (qui ai que +b)
	# McDeffice: ![isvoice $nick $chan] -> ici l'utilisateur qui tape +b ne doit pas être en +v (voice)sur le channel où il le tape
	if { ![llength $arg] && ![isvoice $nick $chan] } {
		# McDeffice: Si ces deux conditions sont réunis, alors tu ban du chan le gars qui a taper la commande
		putquick "MODE $chan +b $nick"
	# McDeffice: Si ses deux conditions ne sont pas reunis :
	} else {
		# McDeffice: alors verifie si +b n'ai pas un nick present sur le chan ?!
		if { ![onchan [lindex $arg 0] $chan] } {
			# McDeffice: si Mr +b n'ai pas sur le chan tu le banni :
			putquick "MODE $chan +b \ [lindex $arg 0]"
			# McDeffice: ici tu arrete le script pour que le reste ne s'execute pas si Mr +b n'ai pas sur le chan 
			return 0
		}
		# McDeffice: et ici si Mr +b est sur le chan, ben tu le banni quand meme :
		putquick "MODE $chan +b [lindex $arg 0]"
	}
}
putlog "Le +b activé"

[Ahriman]

Merci beaucoup de ta réponse. çà m'a aidé. Je vais essayer de voir çà.

[ZarTek]

Ca fait plaisir !

Regarde toujours le post récent http://www.eggdrop.fr/board/resolue-Prob...-1195.html qui parle du bannissement ou d'autre post du forum à ce propos.. Je pense que ca peut vraiment t aidé.

[Ahriman]

Voilà. J'ai trouvé mon bonheur. Le script tcl est enfin résolu :) Merci beaucoup.