[Recherche] messages fun dans un fichier .txt

[ReT]

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.

[CrazyCat]

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.

[ReT]

D'accord, merci je vais voir.

[ReT]

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.

[CrazyCat]

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

[ReT]

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"

[djkenny]

TCL

set laphrase [lindex $::phrases [rand [llength $::phrases]]]

[ReT]

Bien. ça marche nickel ! Je vous remercies pour votre aide