Code:

set chanback "#chan"bind pub n !addtemp addtempproc addtemp {nick host hand chan arg} {   if {[llength $arg]!=1} { return 0; }   # File name to read.   set fname "scripts/blagues.tcl"   # Open file for read access (note we're not catching errors, you might   # want to use catch {} if the file might not exist.   set fp [open $fname "r"]   # Here we read in all of the data.   set data [read -nonewline $fp]   # Close the file, since we're done reading.   close $fp   set fo [open $fname "w"]   set match "*set*blagues\(time\)*"   foreach line [split $data "\n"]      if {[string match $match $line]} {         set line "set blagues(time) $arg"      }      puts $fo $line   }   close $fo}

Code:

set chanback "#chan"bind pub n !addtemp addtempproc addtemp {nick host hand chan arg} { global botnick# File name to read.set fname "scripts/blagues.tcl"# Open file for read access (note we're not catching errors, you might# want to use catch {} if the file might not exist.set fp [open $fname "r"]# Here we read in all of the data.set data [read -nonewline $fp]# Close the file, since we're done reading.close $fp# Use the code from above (1.) to read in all the lines from the file.# We continue right after: set lines [split $data "\n"]# For the beginning, use line 0, since tcl starts counting at 0. If you want# to append the line to the end, see the next question for a better way.set temp [lindex [split $arg " "] 0]   if {$temp == ""} {puthelp "PRIVMSG $::chanback :Time Please specify the time."return 0}# delete ALL lines ending with " user8"set match "*set*blagues(time)*"while {[set i [lsearch -glob $lines $match]]>-1} {   set set "set"   set bla "blagues(time)"   set lines "[lreplace $lines $i $i $set $bla $temp]"} # Now we insert the line into our list in memory.#set lines [linsert $lines $where_to_insert $var $arq $temp]# And now we re-write the file, just like in 3.set fp [open $fname "w"]puts $fp [join $lines "\n"]close $fp }

Code:

# Intervalle de temps entre chaque blague en minutes (0=désactivé) :setblagues(time)10

Code:

set blagues(time) 5

Code:

####################################################################### Configuration du Script ################################################################################################################ Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :set fun(flood) 5:10# Ignorer l'utilisateur après son flood (0=non, 1=oui) :set fun(ignore) 0# Si oui, combien de temps (en minutes) :set fun(ignoretime) 0# Laisser faire les utilisateurs ayant certains flags :set fun(ignflags) "-|-"## Blagues ################################################################################################################################ Channels où seront envoyés les blagues :set blagues(chans) "#chan"# Intervalle de temps entre chaque blague en minutes (0=désactivé) :set blagues(time) 5# Editer ici les blagues :set blagues(msgs) {   "Citation : C'est parce que la vitesse de la lumière est supérieure à celle du son, que beaucoup de gens paraissent brillants avant d'avoir l'air con."   "Citation : La main droite c'est celle où tu as le pouce à gauche."   "Citation : Je marche pieds nus pour ne plus péter plus haut que mon cul."   "Citation : La dictature, c'est ferme ta gueule, et la démocatie, c'est cause toujours (Woody Allen)."   "Citation : Avec les capotes Nestor, t'es pas né, t'es pas mort (Coluche)."   "Citation : Je ne parle pas aux cons, ça les instruit (Audiard)."   "Citation : Les hommes préfèrent les blondes parce que les blondes savent ce que les hommes préfèrent (Marilyn Monroe)"   "Citation : Le travail est l'opium du peuple et je ne veux pas mourir drogue (Boris Vian)"   "Citation : Les meilleurs moments de la vie à deux, c'est quand on est tout seul (Pierre Dac)"   }###############################################################################################################################################################################################################proc fun:flood:init {} {global fun funfloodset fun(floodnum) [lindex [split $fun(flood) :] 0]set fun(floodtime) [lindex [split $fun(flood) :] 1]set i [expr $fun(floodnum) - 1]while {$i >= 0} {   set funflood($i) 0   incr i -1}}fun:flood:initproc fun:flood {nick uhost} {global fun funflood botnickif {$fun(floodnum) == 0} {   return 0}set i [expr $fun(floodnum) - 1]while {$i >= 1} {   set funflood($i) $funflood([expr $i - 1])   incr i -1}set funflood(0) [unixtime]if {[expr [unixtime] - $funflood([expr $fun(floodnum) - 1])] <= $fun(floodtime)} {   if {$fun(ignore)} {      newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $fun(ignoretime)   }   return 1} {   return 0}}proc fun:pub:bot {nick uhost hand channel arg} {global fun bot botnickif ![matchattr $nick $fun(ignflags) $channel] {   if {[fun:flood $nick $uhost]} {      return 0   }}if {(([lsearch -exact [string tolower $bot(chans)] [string tolower $channel]] != -1) || ($bot(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {   putserv "PRIVMSG $channel :[lindex $bot(msgs) [rand [llength $bot(msgs)]]]"   return 1}}if {(($blagues(time) != 0) && (![string match "*fun:blagues*" [timers]]))} { timer $blagues(time) fun:blagues}proc fun:blagues {} {global blaguesforeach channel $blagues(chans) {   puthelp "PRIVMSG $channel :[lindex $blagues(msgs) [rand [llength $blagues(msgs)]]]"}if {(($blagues(time) != 0) && (![string match "*fun:blagues*" [timers]]))} {   timer $blagues(time) fun:blagues}return 1}

Code:

set blagues(time) 5

Code:

set blagues(time) 10