egghelp/eggheads community

Listing All Users & Counting Ops

2005-02-23T19:35:28-04:00

Ah, I got it all sorted, thanks.

Statistics: Posted by Longbow — Wed Feb 23, 2005 7:35 pm

Listing All Users & Counting Ops

2005-02-22T20:49:00-04:00

Try opening one file at a time, save your value in it, close it and then go for the next one.

Plus I don't understand why don't you save them in an array rather than writing all different files? Or just write all vaues into one file. Surely it will cut down your long code and will make the bot more efficient and probobaly more faster in replying.

Statistics: Posted by awyeah — Tue Feb 22, 2005 8:49 pm

Listing All Users & Counting Ops

2005-02-22T12:15:22-04:00

Ah woops, I found what was wrong.

Still getting loads of problems though...

Code:

########## Join - Total/Op/Voice/Users ##########bind join - * join:allproc join:all {nick uhost hand chan} {set mychan #longbowset wtotal [open total.php w]set wop [open op.php w]set wvoice [open voice.php w]set wusers [open users.php w]puts $wtotal "[llength [chanlist $mychan]]"set opcount 0foreach user [chanlist $mychan] { if {[isop $user $mychan]} {  incr opcount  }}puts $wop "$opcount"set voicecount 0foreach user [chanlist $mychan] { if {[isvoice $user $mychan]} {  incr voicecount  }}puts $wvoice "$voicecount"puts $wusers "[join [chanlist $mychan] {, }]"close $wtotalclose $wopclose $wvoiceclose $wusers}########## Part - Total/Op/Voice/Users ##########bind sign - * part:allproc part:all {nick uhost hand chan msg} {set mychan #longbowset wtotal [open total.php w]set wop [open op.php w]set wvoice [open voice.php w]set wusers [open users.php w]puts $wtotal "[llength [chanlist $mychan]]"set opcount 0foreach user [chanlist $mychan] { if {[isop $user $mychan]} {  incr opcount  }}puts $wop "$opcount"set voicecount 0foreach user [chanlist $mychan] { if {[isvoice $user $mychan]} {  incr voicecount  }}puts $wvoice "$voicecount"puts $wusers "[join [chanlist $mychan] {, }]"close $wtotalclose $wopclose $wvoiceclose $wusers}########## Sign - Total/Op/Voice/Users ##########bind sign - * sign:allproc sign:all {nick uhost hand chan reason} {set mychan #longbowset wtotal [open total.php w]set wop [open op.php w]set wvoice [open voice.php w]set wusers [open users.php w]puts $wtotal "[llength [chanlist $mychan]]"set opcount 0foreach user [chanlist $mychan] { if {[isop $user $mychan]} {  incr opcount  }}puts $wop "$opcount"set voicecount 0foreach user [chanlist $mychan] { if {[isvoice $user $mychan]} {  incr voicecount  }}puts $wvoice "$voicecount"puts $wusers "[join [chanlist $mychan] {, }]"close $wtotalclose $wopclose $wvoiceclose $wusers}########## Most Users ##########bind join - * join:mostproc join:most {nick uhost hand chan} {set mychan #longbowset rmost [open most.php r]set wmost [open most.php w]set wmostdate [open mostdate.php w]gets $rmost lineif {[llength [chanlist $mychan]] > $line} { set systemTime [clock seconds]puts $wmost "[llength [chanlist $mychan]]"puts $wmostdate "[clock format $systemTime -format {%b %d %Y}]"}close $rmostclose $wmostclose $wmostdate}

Most Users doesn't work, it seems to work the same as current users. So when the channel users goes down, so does most users.

Also the part/sign bit isn't working.

Statistics: Posted by Longbow — Tue Feb 22, 2005 12:15 pm

Listing All Users & Counting Ops

2005-02-21T22:57:12-04:00

Thanks.

Ok, this is my whole script..

Code:

########## Total/Op/Voice/Users ##########bind join - * join:allproc join:all {nick uhost hand chan} {set mychan "#longbow"set wtotal [open total.php w]set wop [open op.php w]set wvoice [open voice.php w]set wusers [open users.php w]puts $wtotal "[llength [chanlist $mychan]]"set opcount 0foreach user [chanlist $mychan] { if {[isop $user $mychan]} {  incr opcount  }}puts $wop "$opcount"set voicecount 0foreach user [chanlist $mychan] { if {[isvoice $user $mychan]} {  incr voicecount  }}puts $wvoice "$voicecount"puts $wusers "[join [chanlist $mychan] {, }]"close $mychanclose $wtotalclose $wopclose $wvoiceclose $wusers}########## Most Users ##########bind join - * join:mostproc join:most {nick uhost hand chan} {set mychan "#longbow"set rmost [open most.php r]set wmost [open most.php w]set wmostdate [open mostdate.php w]gets $rmost lineif {[llength [chanlist $mychan]] > $line} { set systemTime [clock seconds]puts $wmost "[llength [chanlist $mychan]]"puts $wmostdate "[clock format $systemTime -format {%b %d %Y}]"}close $mychanclose $rmostclose $wmostclose $wmostdateclose $line}

But I get the following error:

Tcl error [join:all]: can not find channel named "#longbow"
Tcl error [join:most]: can not find channel named "#longbow"

Statistics: Posted by Longbow — Mon Feb 21, 2005 10:57 pm

Listing All Users & Counting Ops

2005-02-21T20:47:04-04:00

For counting the ops you can simply use:

Code:

set count 0foreach user [chanlist $chan] { if {[isop $user $chan]} {  incr count  }}putserv "PRIVMSG $chan :Total number of ops: $count"

You can do the same for voices and etc.

Statistics: Posted by awyeah — Mon Feb 21, 2005 8:47 pm

Listing All Users & Counting Ops

2005-02-21T17:18:57-04:00

Yeah I already done that, I was asking can I just use that for sign/part procs/binds aswell..

Try it, do you see any reason not to ?

Statistics: Posted by Sir_Fz — Mon Feb 21, 2005 5:18 pm

Listing All Users & Counting Ops

2005-02-21T17:13:12-04:00

Yeah I already done that, I was asking can I just use that for sign/part procs/binds aswell..

Statistics: Posted by Longbow — Mon Feb 21, 2005 5:13 pm

Listing All Users & Counting Ops

2005-02-21T17:11:49-04:00

in your proc, replace:

Code:

puts $thewritefile "[chanlist $chan]"

with

Code:

puts $thewritefile "[join [chanlist $chan] {, }]"

Statistics: Posted by Sir_Fz — Mon Feb 21, 2005 5:11 pm

Listing All Users & Counting Ops

2005-02-21T16:22:17-04:00

What would I use for for the same script but binded with sign and part?

Statistics: Posted by Longbow — Mon Feb 21, 2005 4:22 pm

Listing All Users & Counting Ops

2005-02-21T15:17:32-04:00

No, join only put together several list elements into a single string.

Statistics: Posted by greenbear — Mon Feb 21, 2005 3:17 pm

Listing All Users & Counting Ops

2005-02-21T15:01:17-04:00

Mmmm.... indeed that does, but whats the join there for?

Does that mean I don't need the bind join / proc?

Statistics: Posted by Longbow — Mon Feb 21, 2005 3:01 pm

Listing All Users & Counting Ops

2005-02-21T13:37:20-04:00

This should take care of both problems

Code:

puts $thewritefile "[join [chanlist $chan] {, }]"

Statistics: Posted by greenbear — Mon Feb 21, 2005 1:37 pm

Listing All Users & Counting Ops

2005-02-21T13:27:19-04:00

Code:

puts $thewritefile "[chanlist $chan]"

Ok that writes all the current users in the channel to $mywritefile, there are 2 problems though..

1. For people using [ ] in there name, it will output { } around there name..

Example..

[Clan]Name

Turns to..

{[Clan]Name}

2. How would I go about putting a comma after each name.

Now for counting Ops i'm guessing it's going to use the 3 bits of code below, but I don't know how I would do it.

Code:

if {[isop $nick $chan]}[llength [chanlist #clantemplates]]foreach nick [chanlist $chan]

Statistics: Posted by Longbow — Mon Feb 21, 2005 1:27 pm