Communauté Eggdrop

Version complète : Soucis de codage avec un kick
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.
Bonjour,


J'ai un soucis avec ce codage

tcl
bind pub - "!kickf" dop:kickf
proc dop:kickf {n ht hd ch a} {
set cible [lindex $a 0]
    if {![string compare -nocase $cible ""]} {putpseed "NOTICE $n :\002\00304KO. \00312La syntaxe est \00303!invite \00307pseudo\003\002"; return}
	putspeed "PRIVMSG $::chans :L'utilisateur a bien été averti "
	putspeed "NOTICE $cible :Mon taux d'emmerde vient d'être élever au maximum. Je vais devoir vous quitter.. Adieu !"
	putquick "MODE $:chan +b $cible"
	putquick "KICK $:chan $cible Reste Cool !"
	}



Rien ne se passe niveau du kick et j'arrive pas à mettre
Citation :putspeed "NOTICE $cible :Mon taux d'emmerde vient d'être élever au maximum. Je vais devoir vous quitter.. Adieu !"
en visible sur le salon..

Merci
Salut,

Ta procédure putspeed elle et ou ?
Pourquoi pas rester sur des procédures de bases d'eggdrop.. puthelp,putserv,putquick, Sa serait pas mieux que de réinventer des procédures ?
En fait au départ c'etait juste un codage d'avertissement et le putserv il en voulait pas donc j'ai mis en putspeed...
Ta pas mal d'erreurs.

Regarde :

tcl
putspeed "PRIVMSG $::chans :L'utilisateur a bien été averti "



La faudrais plutôt $chan, car $::chans et déclarable nulle part.

tcl
putquick "MODE $:chan +b $cible"
   putquick "KICK $:chan $cible Reste Cool !"



Ici tu déclare $:chan, pareil ou et situer $:chan ?

Voici comment je ferais :

tcl
bind pub - "!kickf" dop:kickf
proc dop:kickf {n ht hd ch a} {
set cible [lindex $a 0]
    if {![string compare -nocase $cible ""]} {
   putserv "NOTICE $n :\002\00304KO. \00312La syntaxe est \00303!invite \00307pseudo\003\002"
   return 0 
}
   putserv "PRIVMSG $ch :L'utilisateur a bien été averti "
   putsserv "NOTICE $cible :Mon taux d'emmerde vient d'être élever au maximum. Je vais devoir vous quitter.. Adieu !"
   pushmode $ch +b $cible!*@*"
   putkick $ch $cible :Reste Cool !
   return 1
   }


Ahh manque une parti de codage en fait j'ai mis les chan plus haut avec set chan #chan set chansource #chan1 et chanradio et tout mon codage est reparti avec des ::chan ou autre donc ceci expliquerai pourquoi certains codage ne fonctione pas o_O
J'ai cette erreur
Citation :Tcl error [dop:kickf]: wrong # args: should be "putkick channel nick?s? ?comment?"
Code en erreur:
tcl
pushmode $ch +b $cible!*@*"
putkick $ch $cible :Reste Cool !


Code corrigé:
tcl
pushmode $ch +b $cible!*@*
putkick $ch $cible "Reste Cool !"


Je te laisse voir les différences.
Erreur de ma part, Désoler.
Et merci pour la correction CrazyCat
J'ai une dernière question.. C'est pour que le message soit visible en direct sur le salon directement j'ai modifie le "PRIVMSG $cible par "CHANNEL $cible mais toujours rien..
Non, PRIVMSG $ch.
Un canal ou un utilisateur sont la même chose sur IRC.
Ah ! d'accord donc impossible de le mettre autrement ?
What ? Je te dis juste que pour envoyer un message sur un canal, c'est comme pour un user (privmsg) sauf que le destinataire est le canal.

Envoyé de mon GT-I9100 en utilisant Tapatalk
il te faut faire exmaple ca

tcl
putserv "PRIVMSG $chan $nick :L'utilisateur a bien été averti"


O.M.G. !
Pardon j'avais mal lu CrazyCat le $ch ^^