Quoteur

[loulou7593]

Bon j'ai essayé de modifié mon tcl le voici

tclcopier

#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"]"

il ajoute bien les quotes dans "scripts/quote.txt" mais quand il detecte le mot quote il ne donne pas une quote au hasard mais il ecris sur le salon file9 donc je pense qu'il n'arrive pas à aller chercher une quote dans le dossier "scripts/quote.tcl"

une idée ?