Recherche scripteur TCL

Hello, Comment allez vous ?

  Je recherche un scripteur TCL qui pourrais me faire un script pour que mon bot eggdrop s'identifie quand il se connecte au serveur avec chanserv (/msg chanserv identify son_pass) pour que je puisse de 1 lui ajouter des accès sop et de deux pour que je puisse lui aplliquer un vhost. Si sa existe déjà ce serai la bienvenu mais généralement ya d'autre script mélanger avec donc je m'en sort pas

  Et y a moyen aussi je voudrai aussi que quand un oper join un canal ou ya le bot en question le bot fasse la commende /msg OperServ mode $chan +a $nick    pour protégé l'oper qui join le canal via OperServ.
(J'ai aplliquer le O:Line Netadmin sur mon bot via la commende (/os umode mon_bot +mode oper)).

Voilà, je pense que c'est quand même déjà un certain travail  je suis près à payer quelque codes AlloPass en échange

Bonne vacances à tous et j'attend de vos nouvelles ^^

A++

RoX

salut, alors sa fait pas mal de temps que je touche plus au tcl :) mais bon sa doit ressemblé a ca pour qu'il se auth auto, sauf que la, le bot va se auth des qu'il join le chan :): bind join - * auth proc auth { nick uhost handle channel } { global botnick if {[string compare $botnick $nick]==0} { putserv "PRIVMSG chanserv; identify Ton_pass" } }

Sa ne fonctionne pas, quand il join un chan il s'identifie pas :s il fait pas d'erreur non plus mais il s'identifie pas.

Mais la il s'identifie au channel, moi je demandais si il pouvais s'identifier avec nickserv pour que son pseudo soit register

putserv "PRIVMSG chanserv; identify Ton_pass" devient putserv "PRIVMSG chanserv: identify Ton_pass" me suis tromper de touche :) erreur de frappe

"quand il se connecte au serveur avec chanserv (/msg chanserv identify son_pass)" faudrait savoir !!

bon je t'ai donné la base du code. debrouille toi un peu, ta juste a changer le chanserv par nickserv............

Ha sorry effectivement je me susi trompé erf  deosler erf :s

merci, J'ai donc mit:

bind join - * auth
proc auth { nick uhost handle channel } {
global botnick
if {[string compare $botnick $nick]==0} {
   putserv "PRIVMSG nickserv: identify passnickservdubot"
}
}

mais aucun effet :/

bind join - * auth proc auth { nick uhost handle channel } { global botnick if {[string compare $botnick $nick]==0} { putserv "PRIVMSG nickserv :identify passnickservdubot" } }