04/06/2009, 21:47
Bonjour je remets un petit code, voila j'aimerais que l'eggdrop detecte les quotes des gens qu'il l'ajoute dans un fichier quote.txt ( si possible avec les meme couleurs que ceux de l'user qui aura mis sa cote.
Et ensuite que le bot dise une quote au hasard quand quelqu'un tape
!lire ou bien si possible dise une quote au hasard toutes les 10 minutes. Voici un morceau du code que j'ai essayer de faire, il ajoute bien les quotes dans le fichier voulu mais quand je tape !lire il me marque sur le salon toutes les quotes en fond noir ecriture verte.
Et j'aimerai une astuce pour qu'une quote soit sortie au hasard toutes les 10 minutes.
Et ensuite que le bot dise une quote au hasard quand quelqu'un tape
!lire ou bien si possible dise une quote au hasard toutes les 10 minutes. Voici un morceau du code que j'ai essayer de faire, il ajoute bien les quotes dans le fichier voulu mais quand je tape !lire il me marque sur le salon toutes les quotes en fond noir ecriture verte.
Et j'aimerai une astuce pour qu'une quote soit sortie au hasard toutes les 10 minutes.
tcl
#nom du fichier texte à lire
set fname "scripts/quote.txt"
bind pub - !quote pub:!quote
proc pub:!quote { nick host hand chan text } {
global fname
set f [open "$fname" "a"]
puts $f "$text"
close $f
}
bind pub - !lire pub:!lire
proc pub:!lire { nick uhost hand chan args } {
global fname
set fp [open $fname "r"]
set fc -1
while {![eof $fp]} {
set data [gets $fp]
incr fc
if { $data != "" } {
putserv "PRIVMSG $chan :4,1#$fc - $data"
}
unset data
}
close $fp
}