Scan Channel list

[maphex]

I already have a script i'm working but part of the puzzle that i cant figure out how to do is i'm using bind cron to run the proc every so often but i want it to scan the channel list and save each user as a variable probable use a foreach and use the variable in the rest of the proc. If anyone can show me the best way yo do this would be great.

[SpiKe^^]

In tcl, foreach works on tcl lists, not arrays of variables like some other languages...

Code: Select all

foreach nick [chanlist #somechannel] {

  ## do something with each nick in the channel ##

}

[maphex]

Worked great thanks SpiKe^^

[caesar]

In case you wish to exclude bot from the list you got two options:

1. Inside the foreach loop add a continue instruction if the nick matches bot's name by using the built-in isbotnick function like this:

Code: Select all

foreach nick [chanlist #somechannel] {
	if {[isbotnick $nick]} continue
}

2. Or better, just exclude it right away when creating the list:

Code: Select all

set userList [lreplace [chanlist #somechannel] 0 0]
foreach nick [split $userList] {
	# do something with each nick in the channel
}

[willyw]

What if bot's nick is not the first one in the list returned by chanlist ?

[SpiKe^^]

What if bot's nick is not the first one in the list returned by chanlist ?

Yes, I checked the chanlist return and there is no way to tell where the bots nick will be in that return...

[17:11] <SpiKe^^> ;chanlist #pc-mirc-help
[17:11] <Morticia> SpiKe^^: #266 (14 clicks) Tcl: Bogustrivia bogustrivia^ Morticia RayMond kingkong Robby Howitzer SpiKe^^ ZoRoCaShE starr Starr`

[caesar]

Bot's name is always first, or at least is should be.

.tcl chanlist #eggdrop
Tcl: Bot Pixelz jack3 RockKeyman CRaby Stephe nrt r00tb0y Guest67864 poptix Granis` Lillypad simple Rothgar Broney Freeder_ Kamran vigilant CyBex niko_ KuNgFo0_ sid3windr add_ Biagio zeveroare FireEgl SpiKe^^ thekidd DrPepper SoulesSs Robby thommey Ratler Spike Ritche

Anyway, if you want to be 100% sure about removing it from the right position then proceed with:

Code: Select all

set userList [chanlist #somechannel]
set pos [lsearch -nocase $userList $::botnick]
set userList [lreplace $userList $pos $pos]

and continue with the foreach loop.

[willyw]

Bot's name is always first, or at least is should be.

That's interesting.

Why?

Anyway, if you want to be 100% sure about removing it from the right position then proceed with:

Code: Select all

set userList [chanlist #somechannel]
set pos [lsearch -nocase $userList $::botnick]
set userList [lreplace $userList $pos $pos]

and continue with the foreach loop.

Yep.