Communauté Eggdrop
scrit.tcl auto bonjour - Version imprimable

+- 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

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 Smile


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 Smile en effet ça fonctionne tres bien



merci encore

RE: scrit.tcl auto bonjour - diabolo - 03/02/2010

bonjour à tous Smile

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 Smile"
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 !! Smile"
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 Razzartenaires 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 (Razzartenaires 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' Sad

merci de m'aider svp Smile

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 Smile

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 Smile

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 Wink

RE: scrit.tcl auto bonjour - diabolo - 10/02/2010

bonjour Smile

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 Smile

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