TCL d'auto Ident

##### Auto Identification NickServ pour Bot #####


##### CONFIGURATION DE L'AUTO IDENT #####
# Pseudo et host de NickServ
set NickServ "NickServ"
# Mot de pass NickServ
set passns "Pass Pseudo"
# eMail NickServ
set emailns "eMail Pseudo"
# Pseudo et host de ChanServ
set ChanServ "ChanServ"
# Salon de Chanserv
set saloncs "#chan"
# Mot de pass ChanServ
set passcs ""
##### FIN DE LA CONFIG #####

bind pub - !login loginns
bind evnt - init-server connex.oper
proc loginns {nick host hand chan arg} {
global nickserv passns botnick chanserv saloncs passcs
if {[isop $nick $chan]} {
if {$passcs!=""} { putquick "PRIVMSG $chanserv :IDENTIFY $saloncs $passcs" }
if {$passns!=""} { putquick "PRIVMSG $nickserv :IDENTIFY $passns" }
putserv "MODE $botnick +ixB-ws"
if {$passcs!=""} {
putquick "NOTICE $nick : \002\[login\]\002 - Je suis maintenant identifié sur NickServ & Chanserv."
} {
putquick "NOTICE $nick : \002\[login\]\002 - Je suis maintenant identifié sur NickServ."
}
putquick "PRIVMSG chanserv :OP"
# putquick "PRIVMSG chanserv :HALFOP"
# putquick "PRIVMSG chanserv :VOICE"
}
}
proc connex.oper { init-server } {
global nickserv passns botnick chanserv saloncs passcs
if {$passcs!=""} { putquick "PRIVMSG $chanserv :IDENTIFY $saloncs $passcs" }
if {$passns!=""} { putquick "PRIVMSG $nickserv :IDENTIFY $passns" }
putserv "MODE $botnick +ixB-ws"
}
bind pub n !enregistrementns enregistrementns
proc enregistrementns {hand idx args} {
global passns nickserv emailns
putdcc $idx "Services: Enregistrement du nickname avec NickServ ...\r"
putserv "PRIVMSG $nickserv :REGISTER $passns $emailns"
}

Voila seules les choses en rouges sont à changer ^^
@+++

Merci, celui là est bien utile ^^.
Et bienvenue sur le forum Kennis
SeallerGhosT

Mici Sealler GhosT, c'est tout naturel...
Mais je viens de le découvrir sinon j'aurais été là plus tot ))
Si je peux etre utile ici tant mieux ^^

Moi il marche pas chez moi j'ai déjà essayé...

Je vais le tester alors, quand j'aurais un peu plus de temps ^^.

SeallerGhosT