+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : scrit.tcl auto bonjour (/showthread.php?tid=552)
Pages :
1
2
scrit.tcl auto bonjour - diabolo - 14/11/2009
bonjour a tous
je cherche et n'arrive pas a crée moi meme un script tcl pour mon eggdrop , qui dirai une phrase a chaque nouveau arriver sur le ''chan''
jai trouver des script tcl de jokes ect.. et des script qui disent des phrases aléatoire mais pas se que je cherche.
en faite j'aimerai que quand une personne se connecte elle recoive un message (de mon eggdrop) en pv ou sur le serv mais une phrase que je pourrai configurer comme je le souhaite
merci beaucoup de votre aide
RE: scrit.tcl auto bonjour - fedora - 15/11/2009
bonsoir,
tcl
set SalonJoinUser "#Salon"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "NOTICE $nick : TONMESSAGE"
return 0
}
tu peut remplacer NOTICE par privmsg si tu veut que le message soit dit sur le salon
RE: scrit.tcl auto bonjour - diabolo - 15/11/2009
merci beaucoup en effet cela fonctionne parfaitement :)
encore merci
RE: scrit.tcl auto bonjour - diabolo - 15/11/2009
bonjour
une question qui me vient a l'esprit :p
c'est possible de combiner le message en NOTICE et PRIVMSG ?
c'est a dire ''message'' en notice + sur le chan ?
RE: scrit.tcl auto bonjour - CrazyCat - 16/11/2009
Tu ne peux pas le faire en une seule commande. De même que tu ne peux pas le faire avec un client IRC.
Tu dois donc faire:
tcl
set SalonJoinUser "#Salon"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
puthelp "PRIVMSG $nick :TONMESSAGE"
puthelp "PRIVMSG $chan :TONMESSAGE"
return 0
}
RE: scrit.tcl auto bonjour - diabolo - 20/11/2009
merci beaucoup CrazyCat :) en effet ça fonctionne tres bien
merci encore
RE: scrit.tcl auto bonjour - diabolo - 03/02/2010
bonjour à tous :)
voila à partir du précedent code j'essaye de faire une modification, car j'aimerai que mon tcl me disent plussieurs phrases a intervale differents : voici le code :
set SalonJoinUser "#Radio_Folies"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "privmsg $chan : Hello et bienvenu sur #Radio_Folies le salon de toutes vos radio :)"
return 0
}
set salonmx "#Radio_Folies"
set confirmation "pseudo"
bind time - "*0 * * * *" message
bind time - "*2 * * * *" message
proc message {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :bienvenu et vas y donne nous ta radio preferer !! :)"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message
bind time - "*3 * * * *" message
proc message {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :#Radio_Folies le salon ou l'on parle de toutes les radios du monde entier"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message
bind time - "*4 * * * *" message
proc message {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Hello les amis :p Ici la radio en folies xd"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message
bind time - "*5 * * * *" message
proc message {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Partenaires Officiel des sites de Radio les plus populaires"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
mon probléme c'est que le eggdrop ne dit que la derniere phrase (:Partenaires Officiel des sites de Radio les plus populaires"
) et ne tiens absolument pas compte des autres !! ?
mais bon au départ je chercher un code tcl qui pourrai dire tel ou tel phrases à des heures bien précise , et je n'ai pa encore trouver la solution malgré le poste sur les 'bind time' ici > http://www.eggdrop.fr/Bind#TIME
alors j'essaye de trouver par moi même mais cela fait déja plusieurs jour et 'rien' :(
merci de m'aider svp :)
RE: scrit.tcl auto bonjour - diabolo - 03/02/2010
j'ai modifier le code en mettant ceci mais toujours pareils :
Code PHP :
set SalonJoinUser "#Radio_Folies"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "privmsg $chan : Hello et bienvenu sur #Radio_Folies le salon de toutes vos radio :)"
return 0
}
set salonmx "#Radio_Folies"
set confirmation "pseudo"
bind time - "*0 * * * *" message1
bind time - "*2 * * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :bienvenu et vas y donne nous ta radio preferer !! :)"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message2
bind time - "*3 * * * *" message2
proc message2 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :#Radio_Folies le salon ou l'on parle de toutes les radios du monde entier"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message3
bind time - "*4 * * * *" message3
proc message3 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Hello les amis :p Ici la radio en folies xd"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message3
bind time - "*5 * * * *" message3
proc message3 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Partenaires Officiel des sites de Radio les plus populaires"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
RE: scrit.tcl auto bonjour - diabolo - 03/02/2010
voila jy suis arriver :)
me manque juste à trouver pour les messages à une heure bien précise ?
Code :
set SalonJoinUser "#Radio_Folies"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "PRIVMSG $chan : Hello $nick et bienvenue sur #Radio_Folies le salon de toutes vos radios :)"
return 0
}
set salonmx "#Radio_Folies"
set confirmation "pseudo"
bind time - "*0 * * * *" message1
bind time - "*2 * * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :bienvenue et vas y donne nous ta radio preferer !! :)"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message2
bind time - "*4 * * * *" message2
proc message2 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :#Radio_Folies le salon ou l'on parle de toutes les radios du monde entier"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message3
bind time - "*6 * * * *" message3
proc message3 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Hello les amis :p Ici la radio en folies xd"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message4
bind time - "*8 * * * *" message4
proc message4 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Partenaires Officiel des sites de Radio les plus populaires"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}RE: scrit.tcl auto bonjour - diabolo - 06/02/2010
bonjour :)
personne n'aurai une idée ?
Citation :voila jy suis arriver
me manque juste à trouver pour les messages à une heure bien précise ?
RE: scrit.tcl auto bonjour - Marc - 08/02/2010
Premièrement je te conseille d'utiliser la syntaxe suivante pour citer des codes tcl :
tcl
code tcl
Accessible par :
"["tcl"]" code tcl "["/tcl"]"
Sans les "
Deuxièmement, recherche les BIND TIME dans ton code ;)
RE: scrit.tcl auto bonjour - diabolo - 10/02/2010
bonjour :)
en effet j'ai bien regarder les bind time mais je n'ai pu les configurer que pour des heures aléatoire exemple toutes les X minutes mais pas à des heures bien fixé !!
tcl
set SalonJoinUser "#Radio_Folies"
bind join - "$::SalonJoinUser *" join_user
proc join_user {nick uhost hand chan} {
putserv "PRIVMSG $chan : Hello $nick et bienvenue sur #Radio_Folies le salon de toutes vos radios :)"
return 0
}
set salonmx "#Radio_Folies"
set confirmation "pseudo"
bind time - "*0 * * * *" message1
bind time - "*2 * * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :bienvenue et vas y donne nous ta radio preferer !! :)"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message2
bind time - "*4 * * * *" message2
proc message2 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :#Radio_Folies le salon ou l'on parle de toutes les radios du monde entier"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message3
bind time - "*6 * * * *" message3
proc message3 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Hello les amis :p Ici la radio en folies xd"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
bind time - "*0 * * * *" message4
bind time - "*8 * * * *" message4
proc message4 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Partenaires Officiel des sites de Radio les plus populaires"
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
RE: scrit.tcl auto bonjour - mika23 - 10/02/2010
ralalalalalala les putquick dans tous les sens.....
'fin bref
tcl
bind time - "50 7 * * *" message1
lancera la proc message1 à 7h50 tous les jours de chaque mois et tous les ans
RE: scrit.tcl auto bonjour - diabolo - 11/02/2010
merci encore pour votre aide :)
voila le code que j'ai incerer mais cela n'a pas envoyer la ligne de texte ?
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 entre amies :)"
return 0
}
set salonmx ""#Amities"
set confirmation "pseudo"
bind time - "40 16 * * *" message1
bind time - "40 16 * * *" message1
proc message1 {min hour day month year} {
global salonmx confirmation
putquick "privmsg $salonmx :Amities vous offre tout les jours à 16h40 un bon :café: bien chaud :p
putquick "privmsg $confirmation :Message correctement dit sur $salonmx"
}
RE: scrit.tcl auto bonjour - fedora - 11/02/2010
modifie peut etre ici :
tcl
set salonmx ""#Amities"
par
tcl
set salonmx "#Amities"
tu à ajouter " en trop