Communauté Eggdrop
code tcl a la connexion d'un user - Version imprimable

+- 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 : code tcl a la connexion d'un user (/showthread.php?tid=1066)

code tcl a la connexion d'un user - snip74 - 31/10/2011

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

RE: code tcl a la connexion d'un user - djkenny - 31/10/2011

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

RE: code tcl a la connexion d'un user - snip74 - 31/10/2011

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

RE: code tcl a la connexion d'un user - ArKeNiS - 02/11/2011

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,

RE: code tcl a la connexion d'un user - snip74 - 02/11/2011

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