Aide pour faire un script TCL
#1
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.
Répondre Avertir
#2
C'est possible.
Une autre question ?
Répondre
#3
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.
Répondre Avertir
#4
Bonjour !
Si ça t’aide, je me suis permis de commenté ton code de la maniere dont je comprend son fonctionnement :
TCL
## [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é"


Répondre Avertir
#5
Merci beaucoup de ta réponse. çà m'a aidé. Je vais essayer de voir çà.
Répondre Avertir
#6
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é.
Répondre Avertir
#7
Voilà. J'ai trouvé mon bonheur. Le script tcl est enfin résolu Smile Merci beaucoup.
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté