14/02/2010, 15:31
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 .
ce TCL est vraiment modifiable et fait à la va vite ..
Cordialement DnS
tcl
# *************************[ 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