bind join - "*" joinbot
proc joinbot { nick host hand chan } {
if { $nick == $::botnick } {
putmsg niubotxx "op motdepass"
putmsg niubotyy "op motdepass"
putmsg niubotzz "op motdepass"
}
}

# //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#                             -={ Auto-Opage sur NiubOt }=- 
#              
#    ***********************[ DESCRIPTION DU TCL ]*****************************  
#    *                                                                        *
#     Ce script sert à votre EggdrOp de ce Opé Automatiquement à un Niubot
#     sur le serveur Orange.
#     Un grand Merci pour L'aide de CrazyCat pour la création de ce TCL 
#
#    *                                                                        *
#    ************************************************************************** 
 
   set autoOpTCLDesciption "Auto-Op"
	 set autoOpTCLVersion "2.1.1"   
	 set autoOpTCLCreateur "DnS"
	 
#    *************************[ TCL informations ]**
#    *
#    *** [Nom du Fichier]   -- AutoOp.tcl
#    ******[Size en Ko]     -- 2,63 ko
#    *
#    ********************************************[DnS .2009]** 

 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#         --------------Début De la Configuration---------------
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

 
# Configuration de l'auto Op Salon et pass NiubOt

# Ici Mettre le(s) pseudo(s) de(s) Niubot(s) (en minuscule)
 
set autoop(niubot) {"niubot1" "niubot2"}

# Ici Mettre le(s) Salon(s) ou ce Trouve le(s) Niubot(s) (en minuscule)
 
set autoop(salon) {"#SALON1" "#SALON2"}

# Ici Mettre le mot de passe pour que votre Eggdrop ce Op au(x) Niubot(s) 
 
set autoop(pass) "LE PASS"

#   //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#          !!! NE CHANGEZ RIEN A PARTIR DE CETTE LIGNE !!!
#   //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

# le Binds 
 
bind join - * autoop

# Systeme d Auto Opage sur le(s) Niubot(s)
 
proc autoop { nick uhost hand chan args} {
global botnick autoop
   if {$nick != $::botnick} {
    return 0
   }
   set idt [lsearch $::autoop(salon) [string tolower $chan]]
   if { $idt eq -1 } {
    return 0
   } else {
    putspeed "PRIVMSG [lindex $::autoop(niubot) $idt] :op $::autoop(pass) $chan"
    putspeed "PRIVMSG [lindex $::autoop(niubot) $idt] :voice $::autoop(pass) $chan"
   }
}
 
proc putspeed {arg} {
	putquick "$arg"
}

#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-// 
 
putlog "$::autoOpAutoOpDesciption NiubOt version $::autoOpTCLVersion loaded. ** $::autoOpTCLCreateur **"

#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

#     --------------------FIN DU FICHIER--------------------
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

on *:join:#: { msg $ialchan(Niubot??!un*@*.net,#,1).nick op motdepass # }

On 1:JOIN:#:{ .msg $gettok($ialchan(Niubot?*,#,1),1,33) op MDP }

.chanset #canal need-op { putserv "PRIVMSG Niubot23 op tonpass" }