Communauté sur les Eggdrops - Community about Eggdrops
Ban affect / report de ban - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: 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 :x. Il y aurait pas un tcl deja existant par hasard svp

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