+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Ban affect / report de ban (/showthread.php?tid=600)
Ban affect / report de ban - DodY - 04/02/2010
Bonsoir
Je suis a la recherche d'un tcl qui reporterait le ban d'un salon sur un autre en disant qui le ban touche.
Je m'explique :
Monsieurboulet est kick ou ban sur #salon 1 , mon eggdrop repeterait sur un autre salon ( #salon2)
Monsieurboulet*!*@ 1522513485245.fr a été kicker ou ban sur le #salon1 par XxX raison: Reste poli.....
Un système de ce genre, j'ai chercher sur google et ici mais je n'ai pas trouver. ( ou peu être mal chercher )
Par avance merci
Bonne soirée
RE: Ban affect / report de ban - CrazyCat - 04/02/2010
Tu peux simplement le faire avec un bind kick
Pour le ban, c'est un bind mode sur lequel il faut récupérer le mode +b
RE: Ban affect / report de ban - DodY - 05/02/2010
Bonjour
Merci crazycat pour cela
J'ai bien lu mais j'avoue je comprends rien
. Il y aurait pas un tcl deja existant par hasard svpPar avance merci
Bonne journée
RE: Ban affect / report de ban - CrazyCat - 06/02/2010
C'est assez simple à faire:
tcl
set chan(watch) "#canal1"
set chan(say) "#canal2"
bind kick - "$chan(watch) *" kc:say
bind mode - "$chan(watch) +b" mc:say
proc kc:say {nick uhost handle chan target reason} {
putserv "PRIVMSG $::chan(say) :$target a été kické par $nick pour :$reason"
}
proc mc:say { nick uhost handle chan mode } {
putserv "PRIVMSG $::chan(say) :$mode"
}
RE: Ban affect / report de ban - DodY - 06/02/2010
Merci crazycat cela fonctionne mais j'ai cela comme erreur en pl
Tcl error [mc:say]: wrong # args: should be "mc:say nick uhost handle chan mode"
Merci
bonne soirée
RE: Ban affect / report de ban - CrazyCat - 07/02/2010
Il fallait lire la page sur les binds que j'ai indiquée
tcl
proc mc:say {nick uhost hand chan mode {target ""}} {
RE: Ban affect / report de ban - DodY - 07/02/2010
oups pardon
j'ai corriger comme cela et ca a l'air de bien fonctionner :
tcl
proc mc:say {nick uhost hand chan mode {target ""}} {
if {$target != ""} {append mode " $target"}
putserv "PRIVMSG $::chan(say) :$mode"
}
Merci
RE: Ban affect / report de ban - CrazyCat - 07/02/2010
De nada.
Tu vois, c'est simple