+- 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 : [Recherche] messages fun dans un fichier .txt (/showthread.php?tid=1079)
[Recherche] messages fun dans un fichier .txt - ReT - 23/11/2011
Bonsoir,
J'ai un peu fouillé le forum et j'ai pris un petit code que CrazyCat avait posté.
tcl
bind time - "00 * * * *" rquote:timed
proc rquote:timed { mn hh dd mm yy } {
...
}
J'ai testé puis ça a marché.
Ensuite, j'aimerais bien mettre des phrases dans un fichier txt pour que mon eggdrop dise une phrase différentes. Mais je sais pas du tout faire ce code.. :/
Pouvez vous m'aidez s'il vous plait ?
(Excusez moi si il y a déjà un tuto dans ce domaine..)
Je vous remercies d'avance.
Cordialement.
RE: [Recherche] messages fun dans un fichier .txt - CrazyCat - 23/11/2011
Tu peux te baser sur http://wiki.eggdrop.fr/Jokes par exemple.
Regarde si le code t'aide, et si non, dis nous où tu bloques.
RE: [Recherche] messages fun dans un fichier .txt - ReT - 23/11/2011
D'accord, merci je vais voir.
RE: [Recherche] messages fun dans un fichier .txt - ReT - 23/11/2011
Bah, en fait, j'aimerais par exemple à 23h00 que mon bot dise une phrase et le lendemain à la même heure, il dise une autre phrase différente et que les phrases se loge dans un fichier txt et que donc l'eggdrop choisit ses phrases dans la liste dans le fichier txt. Désolé si j'explique mal ^^
Cordialement.
RE: [Recherche] messages fun dans un fichier .txt - CrazyCat - 24/11/2011
Et qu'as tu essayé ? Ou tu as juste regardé et pas vu exactement le code dont tu as besoin ?
tcl
set fichier "databases/mesphrases.txt"
set canal "#toncanal"
# Chargement du fichier dans $phrases
set fi [open $fichier "r"]
set phrases [split [read -nonewline $fi] "\n"]
close $fi
bind time - "00 23 * * *" randlecture
proc randlecture {mm hh dd mo yy} {
set laphrase [lindex $::phrases [rand llength $::phrases]]
putserv "PRIVMSG $::canal :$laphrase"
}
RE: [Recherche] messages fun dans un fichier .txt - ReT - 26/11/2011
J'ai regarder mais j'avais pas trop compris :/
J'ai mis le code mais mon eggdrop a détecté une erreur:
Code :
[03:12] Tcl error [randlecture]: wrong # args: should be "rand limit"RE: [Recherche] messages fun dans un fichier .txt - djkenny - 26/11/2011
tcl
set laphrase [lindex $::phrases [rand [llength $::phrases]]]
RE: [Recherche] messages fun dans un fichier .txt - ReT - 27/11/2011
Bien. ça marche nickel ! Je vous remercies pour votre aide
