scrit.tcl auto bonjour
#1
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
Répondre Avertir
#2
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
[font=Times New Roman]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.[/font]
Répondre Avertir
#3
merci beaucoup en effet cela fonctionne parfaitement Smile


encore merci
Répondre Avertir
#4
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 ?
Répondre Avertir
#5
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
}


Répondre
#6
merci beaucoup CrazyCat Smile en effet ça fonctionne tres bien



merci encore
Répondre Avertir
#7
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
Répondre Avertir
#8
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"

Répondre Avertir
#9
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"
}
Répondre Avertir
#10
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 ?
Répondre Avertir
#11
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
Répondre Avertir
#12
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"
}


Répondre Avertir
#13
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
Répondre Avertir
#14
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"
}


Répondre Avertir
#15
modifie peut etre ici :

TCL
set salonmx ""#Amities"



par
TCL
set salonmx "#Amities"



tu à ajouter " en trop
[font=Times New Roman]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.[/font]
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté