code tcl a la connexion d'un user
#1
Bonjour,
J'ai un eggdrop netadmin sur mon tchat donc il voie les connexions des users.

Et je voudrait qu'il envoie un message en pv juste a la connexion pas quand l'user join un salon un peut dans se style mais je ni connais rien de rien en tcl.

Code :
bind msgm - * msg_pv
proc msg_pv {nick uhost handle text} {
putserv "PRIVMSG $nick : message ici"
}

Cordialement stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
Répondre Avertir
#2
c est un bind raw - NOTICE ... qu y faut utiliser, et regarder du coté des notices serveur de connection
C'est en reconnaissant ses erreurs que l'on progresse Wink
Répondre Avertir
#3
Bonsoir djkenny,
Merci de ta réponsse Smile
Oui j'ai deja recherché pour du coté des Snotices etc... mais en tcl je connais rien Smile mais j'essaie de faire de mon mieux Smile mais la je lutte depuis 4/5 jours Smile

djkenny a écrit :c est un bind raw - NOTICE ... qu y faut utiliser, et regarder du coté des notices serveur de connection

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
Répondre Avertir
#4
Salut,

Si j'ai bien compris ton message :
TCL
bind raw - "NOTICE" msg_pv
proc msg_pv {from key arg} {
  set type [lrange $arg 4 5]
  set pseudo [lindex $arg 9]
	if {$type == "Client connecting"} {
		putquick "PRIVMSG $psuedo :TON MESSGE"
	}
}



Cordialement,
Répondre Avertir
#5
Bonsoir

Merci beaucoup de ton aide et de ta réponse Smile

Judge et venu sur irc et on a réglé le code que j'avais trouvé sur se forum on la une peut modifier et sa fonctionne.

Code :
bind raw - NOTICE connection:notice

proc connection:notice {from key arg} {
global botnick notc mod
set text [split $arg]
if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
set nick [lindex $text 9]
putquick "PRIVMSG $nick :Message"
}
}


ArKeNiS a écrit :Salut,

Si j'ai bien compris ton message :
TCL
bind raw - "NOTICE" msg_pv
proc msg_pv {from key arg} {
  set type [lrange $arg 4 5]
  set pseudo [lindex $arg 9]
	if {$type == "Client connecting"} {
		putquick "PRIVMSG $psuedo :TON MESSGE"
	}
}



Cordialement,

Cordialement Stéphane
hésitez pas de visité http://www.tchat-fusion.org/
ou part irc /server -m irc.tchat-fusion.org
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté