22/03/2014, 21:53
(Modification du message : 22/03/2014, 21:55 par aliasangelius.)
Ta pas mal d'erreurs.
Regarde :
La faudrais plutôt $chan, car $::chans et déclarable nulle part.
Ici tu déclare $:chan, pareil ou et situer $:chan ?
Voici comment je ferais :
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
}