scrit.tcl auto bonjour

[diabolo]

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

[fedora]

bonsoir,

tclcopier

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

[diabolo]

merci beaucoup en effet cela fonctionne parfaitement


encore merci

[diabolo]

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 ?

[CrazyCat]

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:

tclcopier

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
}

[diabolo]

merci beaucoup CrazyCat en effet ça fonctionne tres bien



merci encore

[diabolo]

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 artenaires 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 (artenaires 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

[diabolo]

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"
} 


[diabolo]

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"
}

[diabolo]

bonjour

personne n'aurai une idée ?

voila jy suis arriver

me manque juste à trouver pour les messages à une heure bien précise ?

[Marc]

Premièrement je te conseille d'utiliser la syntaxe suivante pour citer des codes tcl :

tclcopier

code tcl

Accessible par :
"["tcl"]" code tcl "["/tcl"]"

Sans les "

Deuxièmement, recherche les BIND TIME dans ton code

[diabolo]

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é !!

tclcopier

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"
}

[mika23]

ralalalalalala les putquick dans tous les sens.....

'fin bref

tclcopier

bind time - "50 7 * * *" message1

lancera la proc message1 à 7h50 tous les jours de chaque mois et tous les ans

[diabolo]

merci encore pour votre aide

voila le code que j'ai incerer mais cela n'a pas envoyer la ligne de texte ?

tclcopier

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"
}

[fedora]

modifie peut etre ici :

tclcopier

set salonmx ""#Amities"

par

tclcopier

set salonmx "#Amities"

tu à ajouter " en trop