Ban affect / report de ban

[DodY]

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

[CrazyCat]

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

[DodY]

Bonjour

Merci crazycat pour cela :)
J'ai bien lu mais j'avoue je comprends rien :x. Il y aurait pas un tcl deja existant par hasard svp

Par avance merci
Bonne journée

[CrazyCat]

C'est assez simple à faire:

tclcopier

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"
}

[DodY]

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 :)

[CrazyCat]

Il fallait lire la page sur les binds que j'ai indiquée :)

tclcopier

proc mc:say {nick uhost hand chan mode {target ""}} {

[DodY]

oups pardon
j'ai corriger comme cela et ca a l'air de bien fonctionner :

tclcopier

proc mc:say {nick uhost hand chan mode {target ""}} {
if {$target != ""} {append mode " $target"}
   putserv "PRIVMSG $::chan(say) :$mode"
}

Merci

[CrazyCat]

De nada.

Tu vois, c'est simple :)