scrit.tcl auto bonjour

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