[Demande] attendre que l'egg soit posé pour activer un tcl precis

[CrazyCat]

tclcopier

set nchans 0
foreach chan [channels] {
   if { [channel get $chan inactive]==0 } { incr ::nchans }
}
set joined 0
bind join - "*" countchan
proc countchan {nick uhost handle chan} {
   if {[string tolower $nick]!=[string tolower $::botnick} { return 0 }
   incr ::joined
   if { $::joined == $::nchans} {
      unbind join - "*" countchan
      source scripts/tonscript.tcl
   }
   return 0
}