scrit.tcl auto bonjour

[fedora]

Ce qui serais assez bien c'est que vous cherchiez un peut par vous même à comprendre ou bien regarder un peut sur le forum !! Sérieux SVP faite un effort Minimum de recherche et de compréhension .

tclcopier

#    *************************[ TCL informations ]**>
#    ********************************************[DnS .2009]** 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
#                        Commencement du Script TCL                 
#  //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

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

# #Mettre ici le ou les Salon(s) ou votre bot va envoyer le message #
 
set MessJoin "#Salon1 #Salon2"

# #Mettre en Seconde le temps que vous souhaiter que le bot envoie le message #
 
set TimeMess 10

# #Mettre ici le text que vous désiré afficher lors du joins #
 
set MessEnvoi "Ton text blablabla..."

#   //-//-//-//-//-//-//-//-//-//-//-//-//-//
#       !!! Fin de la Configuration  !!!
#   //-//-//-//-//-//-//-//-//-//-//-//-//-//

# #Est là le Système de procédure lors du joins de(s) user(s) #
 
bind join - "$::MessJoin *" JoinUser
proc JoinUser {nick host hand chan} {
global botnick
if {(([lsearch -exact [string tolower $::MessJoin] [string tolower $chan]] != -1)  || ($::MessJoin == ""))} {
   utimer $::TimeMess [list JoinMess $chan $nick]
return 0
     }
   }
 
proc JoinMess {chan nick} {
global botnick
putserv "PRIVMSG $chan :$::MessEnvoi"
return 0
}
 
putlog " by DnS "

ce TCL est vraiment modifiable et fait à la va vite ..


Cordialement DnS