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
#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
#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
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.
#3
merci beaucoup en effet cela fonctionne parfaitement :)


encore merci
#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 ?
#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
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#6
merci beaucoup CrazyCat :) en effet ça fonctionne tres bien



merci encore
#7
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 :)
#8
j'ai modifier le code en mettant ceci mais toujours pareils :

PHP 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 * * * *" 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"

#9
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"
}
#10
bonjour :)

personne n'aurai une idée ?

Quote:voila jy suis arriver

me manque juste à trouver pour les messages à une heure bien précise ?
#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 ;)
#12
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"
}

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

#15
modifie peut etre ici :


tcl
set salonmx ""#Amities"


par

tcl
set salonmx "#Amities"


tu à ajouter " en trop
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.


Forum Jump:


Users browsing this thread: 1 Guest(s)