egghelp/eggheads community

usercount op/voice-count script.

2003-11-06T19:21:19-04:00

Thanks a lot, now it works just fine.

Statistics: Posted by Guest — Thu Nov 06, 2003 7:21 pm

usercount op/voice-count script.

2003-11-06T18:40:08-04:00

http://tcl.tk/man/tcl8.4/TclCmd/Tcl.htm#M7

Statistics: Posted by user — Thu Nov 06, 2003 6:40 pm

usercount op/voice-count script.

2003-11-06T18:30:45-04:00

Code:

  foreach user [chanlist $chan] {    if {[isop $user $chan]} {      incr op    } elseif {[isvoice $user $chan]} {      incr voice    } else { incr normal }  }

so it should work ^^

Statistics: Posted by De Kus — Thu Nov 06, 2003 6:30 pm

usercount op/voice-count script.

2003-11-06T18:24:31-04:00

[snip]
I have seen elseif been used in several other tcl-scripts and i don't understand why this wouldn't work. :/

The location of the braces with respect to the elseif matters. Try following the example of the other tcl-scripts you have seen.

Statistics: Posted by egghead — Thu Nov 06, 2003 6:24 pm

usercount op/voice-count script.

2003-11-06T18:05:00-04:00

yes, I know. I figured out a bit of the code myself. This is how I did it:

Code:

  foreach user [chanlist $chan] {    if {[isop $user $chan]} { incr op }    elseif {[isvoice $user $chan]} { incr voice }    else { incr normal }  }

However this gives me this error:
[22:57:00] :adaieski: [22:57] Tcl error in script for 'timer36':
[22:57:00] :adaieski: [22:57] invalid command name "elseif"

I have seen elseif been used in several other tcl-scripts and i don't understand why this wouldn't work. :/

Statistics: Posted by Guest — Thu Nov 06, 2003 6:05 pm

usercount op/voice-count script.

2003-11-06T17:49:07-04:00

Code:

# number of users, operators and voicesset chanusers [chanlist $channel]set countusers [llength $chanusers]set operators 0set voices 0foreach user $chanusers {   if { [isop $user $channel] } { incr operators }   if { [isvoice $user $channel] } { incr voices }}

Note that users can have @ *and* +v, so simply subtracting the number of @'s and +v's from the total number of users will not work.

Statistics: Posted by egghead — Thu Nov 06, 2003 5:49 pm

usercount op/voice-count script.

2003-11-06T17:39:47-04:00

yes, I understand that. but since i don't know TCL-scripting I need someone to do it for me, so this is more like a script request then a question. don't know your policy about that in here though..

you are welcome to suggest any script that is already using this code, if you know any.

Statistics: Posted by Guest — Thu Nov 06, 2003 5:39 pm

usercount op/voice-count script.

2003-11-06T17:29:52-04:00

chanlist [flags[&chanflags]]
Description: flags are any global flags; the '&' denotes to look for channel specific flags. Examples:
n (Global Owner)
&n (Channel Owner)
o&m (Global Op, Channel Master)
[snip]

If you want to count ops and voiced users you can iterate over the list and perform [isop] and [isvoice] checks.

Statistics: Posted by egghead — Thu Nov 06, 2003 5:29 pm

usercount op/voice-count script.

2003-11-06T17:22:24-04:00

hi there.

I am trying to do a script that uses MySQL to insert the values of users/ops/voices/normal from a certain channel. Now i know absolutley nothing about TCL-scripting so i checked out a few scripts that used MySQL and got the MySQL part up and working. I asked in #egghelp @ EFNet for help with the usercount part. Someone gave me this:

Code:

set total [llength [chanlist #adaieski]]set op [llength [chanlist #adaieski o]]set voice [llength [chanlist #adaieski v]]set normal [expr $total - $voice - $op]

In the channel at the time there was 6 users, all opped. But the script returned a bit strange values:

total: 6 (that's right)
op: 1 (um, no, we were 6)
voice: 4 (ehh, no, no voices)
normal: 1 (yeah right)

now there can't be anything wrong with the MySQL code because I do a putcmdlog every time it updates and those values are the same as in the DB..

as i said, i don't know anything about TCL-scripting so if you know the answere please try to explain as much as possible.

and also, sorry about my bad english, I'm from sweden.

EDIT:

now the script updated the database again, now i got a little better results (using the same code):

total: 7
ops: 0
voice: 0
normal: 7

now there were 6 ops and 1 normal, still no voices.

Statistics: Posted by Guest — Thu Nov 06, 2003 5:22 pm