+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : scrit.tcl auto bonjour (/showthread.php?tid=552)
Pages :
1
2
RE: scrit.tcl auto bonjour - diabolo - 11/02/2010
bonjour et merci
je viens de modifier mais cela n'a pas fonctionner !!
tcl
set SalonJoinUser "#Amities"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "PRIVMSG $chan : Hello $nick et bienvenue sur "#Amities" le salon de toutes vos Rencontres :)"
return 0
}
set salonmx "#Amities"
set confirmation "pseudo"
bind time - "10 19 * * *" message1
bind time - "10 19 * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Amities vous offre tout les jours à 19h10 un bon apéritif :p
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
RE: scrit.tcl auto bonjour - fedora - 11/02/2010
peut on savoir quel message et ne cite pas sur le salon stp ?
RE: scrit.tcl auto bonjour - diabolo - 12/02/2010
bonjour
en faite dans se tcl j'ai 2 choses qu'il devrai faire :
la 1er c'est ici est le message demare bien quand une personne entre sur le salon
donc celui ci c'est oktcl
set SalonJoinUser "#Amities"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "PRIVMSG $chan : Hello $nick et bienvenue sur "#Amities" le salon de toutes vos Rencontres :)"
return 0
}
le second c'est ici , est la par contre je n'ai pas le message qui s'affiche "Amities vous offre tout les jours à 19h10 un bon apéritif :p
"
tcl
set salonmx "#Amities"
set confirmation "pseudo"
bind time - "10 19 * * *" message1
bind time - "10 19 * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Amities vous offre tout les jours à 19h10 un bon apéritif :p
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
dans la seconde partie il devrai dire le message <Amities vous offre tout les jours à 19h10 un bon apéritif :p> tout les jours à 19h10
enfin c'est se que j'aimerai arriver a faire !!
RE: scrit.tcl auto bonjour - fedora - 12/02/2010
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
RE: scrit.tcl auto bonjour - diabolo - 13/02/2010
merci beaucoup
oui en effet celà fonctionne très bien
merci encore
RE: scrit.tcl auto bonjour - DodY - 13/02/2010
bonsoir
en faite c'est ici que je voulais poster désolée ...
donc :
J'aimerais savoir comment faire pour que lorsque la personne rentre sur le salon, le message de bienvenue apparaisse que 10 sc après qu'il est join le salon par exemple.
J'ai regarder dans le forum et les tutos de timers mais cela me donne que pour dire un message toutes les X minutes.
Par avance merci
RE: scrit.tcl auto bonjour - fedora - 13/02/2010
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 .
tcl
set MessJoin "#Salon"
bind join - * JoinUser
proc JoinUser {nick host hand chan} {
global botnick
foreach chan [string tolower $::MessJoin ] {
if {$chan != ""} {
utimer 10 [list JoinMess $chan]
return 0
}
}
}
proc JoinMess {chan} {
global botnick
putserv "PRIVMSG $chan :ton Message ... blabla... "
return 0
}
Cordialement DnS
RE: scrit.tcl auto bonjour - DodY - 14/02/2010
Bonjour
merci fedora
, j'ai tester et il me sors cela en plcan't read "nick": no such variable
Tcl error in script for 'timer387':
Merci et bonne st valentin a tous
RE: scrit.tcl auto bonjour - fedora - 14/02/2010
bonjour,
tcl
set MessJoin "#Eggdrop"
bind join - * JoinUser
proc JoinUser {nick host hand chan} {
global botnick
foreach chan [string tolower $::MessJoin ] {
if {$chan != ""} {
utimer 10 [list JoinMess $chan $nick]
return 0
}
}
}
proc JoinMess {chan nick} {
global botnick
putserv "PRIVMSG $chan :ton Message ... blabla... "
return 0
}
j'ai tester le code et il fonctionne
Cordialement DnS
RE: scrit.tcl auto bonjour - DodY - 14/02/2010
Bonjour
merci cela fonctionne parfaitement, mais seulement mon bot est sur une dizaine de salon et il dit donc le message a tout les salon.
Peut on définir juste un ou plusieurs salon et pas tous ?
Merci
RE: scrit.tcl auto bonjour - fedora - 14/02/2010
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
RE: scrit.tcl auto bonjour - alanfollow - 19/12/2010
Bonjour,
J'aurais voulu savoir, pour le message auto à l'entré d'un utilisateur, j'aurais savoir si c'est possible de ne détecter qu'un user ayant le chattr +A dans le eggdrop ?
Bonjour,
J'aurais voulu savoir, pour le message auto à l'entré d'un utilisateur, j'aurais savoir si c'est possible de ne détecter qu'un user ayant le chattr +A dans le eggdrop ?
Code PHP :
bind join A|A maitre:join
proc maitre:join {nick uhost handle chan} {
puthelp "NOTICE $nick :OOOoh mon maître est là... coucou mon $nick !"
}
non?
Merci!