Communauté Eggdrop

Bonjour tous le monde,

Je viens vers vous car je tente depuis quelques heures de créer un fichier .txt par le biais d'un script TCL.

Voici le contenu du script:

Code :
proc start:timer {} {

[llength [chanlist #....-fr]]

set f [open "...../user.txt" "w"]

puts $f [llength [chanlist #....-fr]]

close $f

timer 5 start:timer

return

}

start:timer

Merci pour votre aide si précieuse Smile

Je pense qu'utiliser un timer n'est pas une bonne idée... plutôt réagir à ce qui fait varier le nombre d'utilisateurs:

tcl

set canal "#canal"
bind join - "$canal *" log:join
proc log:join {nick uhost handle chan} { log:write }
 
bind part - "$canal *" log:part
proc log:part {nick uhost handle chan {msg ""}} { log:write }
 
bind kick - "$canal *" log:kick
proc log:kick {nick uhost handle chan target reason} { log:write }
 
bind sign - "$canal *" log:quit
proc log:quit {nick uhost handle chan reason} { log:write }
 
proc log:write {} {
   set fp [open "./usernb.$::canal" "w"]
   puts $fp [llength [chanlist $::canal]]
   close $fp
   return 1
}

LitteulBlack

CrazyCat