Quoteur - Version imprimable

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.

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 
}

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 "Quote ajouté par $nick [clock format [clock seconds] -format {le %A %d %B %Y } ] ==> $text" 
close $f 
} 
 
 
 
proc fun:pub:quote {nick uhost hand channel arg} {
global fun quote botnick
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $quote(chans)] [string tolower $channel]] != -1) || ($quote(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   putserv "PRIVMSG $channel :[lindex $quote(msgs) [rand [llength $quote(msgs) ]]]"
   return 1
}
}
 
bind pubm -|- *quote* fun:pub:quote

# Channels où le bot répondra :
set quote(chans) "*"

tcl

if {(([lsearch -exact [string tolower $quote(chans)] [string tolower $channel]] != -1) || ($quote(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   putserv "PRIVMSG $channel :[lindex $quote(msgs) [rand [llength $quote(msgs) ]]]"
   return 1
}
}

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 "Quote ajouté par $nick [clock format [clock seconds] -format {le %A %d %B %Y } ] ==> $text" 
close $f 
} 
 
 
 
proc fun:pub:quote {nick uhost hand channel arg} {
global fun quote botnick
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $quote(chans)] [string tolower $channel]] != -1) || ($quote(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   putserv "PRIVMSG $channel :[lindex $quote(msgs) [rand [llength $quote(msgs) ]]]"
   return 1
}
}
 
bind pubm -|- *quote* fun:pub:quote

# Channels où le bot répondra :
set quote(chans) "*"

# Fichier qu'ouvriras le bot pour lire les quotes
set quote(msgs) "[open "$fname" "a"]"