peut on savoir quel message et ne cite pas sur le salon stp ?
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
bonjour,
je pense arriver un moment faut savoir bien chercher sur le forum, et bien regarder sont code ou il manque des p'tites chose qui s'affiche en party line.Ton TCL est casi le même (je parle du système ) que d'autre code poser sur le forum
tcl
set SalonEnvoi "#Amities"
set ConfNick "pseudo"
bind time - "10 19 * * *" MsgEnvoi
proc MsgEnvoi {min hour day month year} {
global botnick SalonEnvoi confirmation
foreach chan [string tolower $::SalonEnvoi] {
if {$chan != ""} {
putserv "PRIVMSG $::SalonEnvoi :Le Salon #Amitiés vous offre tout les jours à 19h10 un bon apéritif :p"
putserv "PRIVMSG $::ConfNick :Message correctement dit sur $::SalonEnvoi"
}
}
}
cordialement DnS
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
tu peut être un truc comme cela .. après je ne garantit qu'il fonctionne je n'est pas tester .Âpres une âme charitable pourra t'aider .
Cordialement DnS
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
bonjour,
j'ai tester le code et il fonctionne :)
Cordialement DnS
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
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 .
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
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
