code tcl a la connexion d'un user

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

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (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 :)
Oui j'ai deja recherché pour du coté des Snotices etc... mais en tcl je connais rien :) mais j'essaie de faire de mon mieux :) mais la je lutte depuis 4/5 jours :)

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

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