Soucis de codage avec un kick

[KeeViiNou]

Bonjour,


J'ai un soucis avec ce codage

tclcopier

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

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

[aliasangelius]

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 ?

[KeeViiNou]

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

[aliasangelius]

Ta pas mal d'erreurs.

Regarde :

tclcopier

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

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

tclcopier

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 :

tclcopier

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
   }

[KeeViiNou]

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

[KeeViiNou]

J'ai cette erreur

Tcl error [dop:kickf]: wrong # args: should be "putkick channel nick?s? ?comment?"

[CrazyCat]

Code en erreur:

tclcopier

pushmode $ch +b $cible!*@*"
putkick $ch $cible :Reste Cool !

Code corrigé:

tclcopier

pushmode $ch +b $cible!*@*
putkick $ch $cible "Reste Cool !"

Je te laisse voir les différences.

[aliasangelius]

Erreur de ma part, Désoler.
Et merci pour la correction CrazyCat

[KeeViiNou]

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

[CrazyCat]

Non, PRIVMSG $ch.
Un canal ou un utilisateur sont la même chose sur IRC.

[KeeViiNou]

Ah ! d'accord donc impossible de le mettre autrement ?

[CrazyCat]

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

[BaGrift]

il te faut faire exmaple ca

tclcopier

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

[CrazyCat]

O.M.G. !

[KeeViiNou]

Pardon j'avais mal lu CrazyCat le $ch ^^