Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Ban affect / report de ban
#1
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
DodY
#2
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
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
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
DodY
#4
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"
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
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 :)
DodY
#6
Il fallait lire la page sur les binds que j'ai indiquée :)

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

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#7
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
DodY
#8
De nada.

Tu vois, c'est simple :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Forum Jump:


Users browsing this thread: 1 Guest(s)