Statistics: Posted by mazmardigan88 — Fri Aug 10, 2007 5:00 pm

Code:

bind time - "?0 *" write:chansbind time - "?5 *" write:chansset listchannel "#thechannel"set listfile "nicks.txt"proc write:chans {m h d mo y} { set f [open $::listfile "CREAT WRONLY TRUNK"] puts $f [join [chanlist $::listchannel] ", "] close $f}

Statistics: Posted by nml375 — Fri Aug 10, 2007 2:32 pm

Hi!

I'm very interested in the same script, but with little modifications (I tried to do them by myself, but I don't know TCL

I just need the same but without the channel name (if possible) and every nick in the same line and separated by a comma and an space. E.g.

Nick1, Nick2, Nick3, Nick4

Thanks

bind time - * { set nicklist [chanlist #channel] set f [open nicks.txt w] puts $f [join $nicklist ", "] close $f ; #}

Statistics: Posted by tsukeh — Fri Aug 10, 2007 2:29 pm

Statistics: Posted by mazmardigan88 — Fri Aug 10, 2007 2:11 pm

Statistics: Posted by fredvil — Wed Jul 18, 2007 4:14 am

Statistics: Posted by fredvil — Wed Jul 18, 2007 4:00 am

Code:

#Channels to write the user nicklist fromset writechans "#chan1 #chan2 #chan3"bind time - "*" write:chansproc write:chans {m h d mo y} { if {([scan $m %d]+([scan $h %d]*60)) % 5 == 0} {  set f [open nicks.txt w]   foreach c [split $::writechans] {    puts $f "On channel $c"     foreach n [chanlist $c] {      puts $f $n      }   }  close $f }}

Statistics: Posted by awyeah — Wed Jul 18, 2007 3:47 am

Statistics: Posted by Sir_Fz — Sat Feb 24, 2007 1:31 pm

Statistics: Posted by Soontir Fel — Sat Feb 24, 2007 11:59 am

Statistics: Posted by Alchera — Sat Feb 24, 2007 8:23 am