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


[Recherche] messages fun dans un fichier .txt
#1
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.
#2
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
D'accord, merci je vais voir.
Mitha
#4
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.
Mitha
#5
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"
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#6
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"
Mitha
#7

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

C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#8
Bien. ça marche nickel ! Je vous remercies pour votre aide :)
Mitha


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Récupérer certaines infos dans fichier .user Hitsu 5 5,098 30/07/2013, 17:13
Last Post: CrazyCat
  Enregistrer dans un fichier une demande ZoZo 3 4,509 11/05/2012, 17:52
Last Post: aliasangelius
  nick list dans fichier html loulou7593 20 11,720 04/02/2012, 18:43
Last Post: djkenny
  Problème de phrases dans un fichier ReT 3 4,330 25/01/2012, 03:27
Last Post: ReT
  problèmes de collision lors d'opérations d'écriture dans un fichier MenzAgitat 4 4,852 28/06/2011, 20:12
Last Post: djkenny
  Comment changer les messages en PL des eggy's pheeric 2 3,505 15/12/2010, 13:10
Last Post: pheeric
  [bug] Ecrire dans le fichier de log CrazyCat 5 5,862 30/12/2009, 10:12
Last Post: CrazyCat
  Plusieurs messages a heure precise bewess 1 3,758 28/11/2009, 22:14
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)