Who's on channel

Soontir Fel · Post by **Soontir Fel** » Fri Feb 23, 2007 2:40 pm

Hello! Can you help me? I need a script, which will take all nicks of all people on the channel and write them to some file (for example txt). And this list of nicks must update every minute, or two. I want to export this information to my web-site, like:

Code: Select all

On channel #xxxxxxx
Nick 1
Nick 2
Nick 3

Can you please help me?
Sorry for my bad english.

Post by **Sir_Fz** » Fri Feb 23, 2007 3:04 pm

Code: Select all

bind time - * {
 set f [open nicks.txt w]
 foreach c [channels] {
  puts $f "On channel $c"
  foreach n [chanlist $c] {
   puts $f $n
  }
 }
 close $f ; #
}

Soontir Fel · Post by **Soontir Fel** » Sat Feb 24, 2007 6:14 am

Thank you!!! But where should I put it? And can I make this bot invisible?

Post by **Sir_Fz** » Sat Feb 24, 2007 7:05 am

You load it just like any other Tcl script.

Soontir Fel · Post by **Soontir Fel** » Sat Feb 24, 2007 7:06 am

Thanks!

Alchera · Post by **Alchera** » Sat Feb 24, 2007 8:23 am

Soontir Fel wrote:Thank you!!! But where should I put it? And can I make this bot invisible?

Apparently on some networks (not DALnet) there's a cloak user mode. Check with the network you use.

Soontir Fel · Post by **Soontir Fel** » Sat Feb 24, 2007 11:59 am

a cloak user mode

And what is it?

Post by **Sir_Fz** » Sat Feb 24, 2007 1:31 pm

Alchera wrote:Check with the network you use.

fredvil · Post by **fredvil** » Wed Jul 18, 2007 2:49 am

Sir_Fz, how to write only userlist on specific channel not all channels the bot is on. example: the bot is on #channel1, #channel2 & #channel3 and write only list on #channel1

awyeah · Post by **awyeah** » Wed Jul 18, 2007 3:47 am

Code: Select all

#Channels to write the user nicklist from
set writechans "#chan1 #chan2 #chan3"

bind time - "*" write:chans

proc 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
 }
}

Note: Edited to run every 5 minutes

fredvil · Post by **fredvil** » Wed Jul 18, 2007 4:00 am

thanks a lot awyeah

fredvil · Post by **fredvil** » Wed Jul 18, 2007 4:14 am

one more thing awyeah, how to adjust the write time to every 5 munites or to any given time?

thanks in advance!

awyeah · Post by **awyeah** » Wed Jul 18, 2007 4:24 am

I edited the code above, so it runs every 5 minutes. You can use that code.

mazmardigan88 · Post by **mazmardigan88** » Fri Aug 10, 2007 2:11 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

tsukeh · Post by **tsukeh** » Fri Aug 10, 2007 2:29 pm

mazmardigan88 wrote: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

Code: Select all

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