Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


scrit.tcl auto bonjour
#16
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"
}

#17
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.
#18
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 ok

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
}




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 !!
#19
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.
#20
merci beaucoup :)


oui en effet celà fonctionne très bien


merci encore :)
#21
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
DodY
#22
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
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.
#23
Bonjour

merci fedora :) , j'ai tester et il me sors cela en pl
can't read "nick": no such variable
Tcl error in script for 'timer387':

Merci et bonne st valentin a tous
DodY
#24
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
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.
#25
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
DodY
#26
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.
#27
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 ?

PHP Code:
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!


Forum Jump:


Users browsing this thread: 1 Guest(s)