egghelp/eggheads community

Userlist script with total counter

2005-07-16T21:22:02-04:00

Code:

 if {[llength $users]} {   foreach {u1 u2 u3 u4 u5} $users {    putserv "notice $nick :$u1, $u2, $u3, $u4, $u5"   }   foreach ann [array names total] {    lappend totals "($ann: total($ann))"   }   putserv "notice $nick :$totals" } {  putserv "notice $nick :There are no users on me for $chan." }

Statistics: Posted by Sir_Fz — Sat Jul 16, 2005 9:22 pm

Userlist script with total counter

2005-07-16T21:09:07-04:00

ehm could you add if there are no users that he answer No users found on my userlist for chan ?

Statistics: Posted by Winters — Sat Jul 16, 2005 9:09 pm

Userlist script with total counter

2005-07-14T10:58:34-04:00

And if you want the totals to be displayed on the same line, then use:

Code:

proc list:users {nick uhost hand chan arg} {  putserv "notice $nick :Users for channel $chan:"  set total(Total) 0  set total(owner) 0  set total(master) 0  set total(operator) 0  set total(voice) 0  set total(ban) 0  foreach user [userlist] {   incr total(Total)   if {[matchattr $user |n $chan]} {    lappend users "\{User: $user Flags: +n\}"    incr total(owner)   } elseif {[matchattr $user |m $chan]} {    lappend users "\{User: $user Flags: +m\}"    incr total(master)   } elseif {[matchattr $user |o $chan]} {    lappend users "\{User: $user Flags: +o\}"    incr total(operator)   } elseif {[matchattr $user |v $chan]} {    lappend users "\{User: $user Flags: +v\}"    incr total(voice)   } elseif {[matchattr $user |k $chan]} {    lappend users "\{User: $user Flags: +k\}"    incr total(ban)   }  }  if {[llength $users]} {   foreach {u1 u2 u3 u4 u5} $users {    putserv "notice $nick :$u1, $u2, $u3, $u4, $u5"   }  }  foreach ann [array names total] {   lappend totals "($ann: total($ann))" } putserv "notice $nick :$totals"}

Statistics: Posted by Sir_Fz — Thu Jul 14, 2005 10:58 am

Userlist script with total counter

2005-07-14T10:48:54-04:00

Ok thx

Statistics: Posted by Winters — Thu Jul 14, 2005 10:48 am

Userlist script with total counter

2005-07-13T16:15:53-04:00

That's because you illogically edited the script, use:

Code:

proc list:users {nick uhost hand chan arg} {  putserv "notice $nick :Users for channel $chan:" set total(Total) 0 set total(owner) 0  set total(master) 0  set total(operator) 0  set total(voice) 0  set total(ban) 0  foreach user [userlist] {   incr total(Total)   if {[matchattr $user |n $chan]} {    lappend users "\{\User: $user Flags: +n\}\ "    incr total(owner)   } elseif {[matchattr $user |m $chan]} {    lappend users "\{\User: $user Flags: +m\}\ ,"    incr total(master)   } elseif {[matchattr $user |o $chan]} {    lappend users "\{\User: $user Flags: +o\}\ ,"    incr total(operator)   } elseif {[matchattr $user |v $chan]} {    lappend users "\{\User: $user Flags: +v\}\ ,"    incr total(voice)   } elseif {[matchattr $user |k $chan]} {    lappend users "\{\User: $user Flags: +k\}\ ,"    incr total(ban)   }  }  if {[llength $users]} {   foreach {u1 u2 u3 u4 u5} $users {    putserv "notice $nick :$u1, $u2, $u3, $u4, $u5"   }  }  foreach ann [array names total] {   putserv "notice $nick :\[$ann: total($ann)\]" } }

Statistics: Posted by Sir_Fz — Wed Jul 13, 2005 4:15 pm

Userlist script with total counter

2005-07-13T12:58:59-04:00

Hey now I loaded into my eggdrop on root and now he post it 5 times here:

[18:58:03] -Thompson- Users for channel #gfkkg:
[18:58:03] -Thompson- [[GS]Winters Flags: +n ]
[18:58:04] -Thompson- Total: 1 (owner: 1, master: 0, op: 0, voice: 0, ban: 0).
[18:58:06] -Thompson- Total: 1 (owner: 1, master: 0, op: 0, voice: 0, ban: 0).
[18:58:08] -Thompson- Total: 1 (owner: 1, master: 0, op: 0, voice: 0, ban: 0).
[18:58:10] -Thompson- Total: 1 (owner: 1, master: 0, op: 0, voice: 0, ban: 0).
[18:58:12] -Thompson- Total: 1 (owner: 1, master: 0, op: 0, voice: 0, ban: 0).

Statistics: Posted by Winters — Wed Jul 13, 2005 12:58 pm

Userlist script with total counter

2005-07-11T11:37:33-04:00

Yeah now its perfect thx @ all

Statistics: Posted by Winters — Mon Jul 11, 2005 11:37 am

Userlist script with total counter

2005-07-10T14:59:01-04:00

try

Code:

if {([llenth $users] <= 5)} {   putserv "NOTICE $nick :[string trimright [join $users] [join $users] [join $users] [join $users] [join $users] ,]"  }

Maybe that will work.

why don't you quit posting your clueless and useless stuff already? you don't know what you are doing, yet you feel obliged to advise others - that's preposterous

@Winters: instead of

Code:

putserv "NOTICE $nick :[string trimright [join $users] ,]"

use:

Code:

foreach {u1 u2 u3 u4 u5} $users {   putserv "notice $nick :$u1, $u2, $u3, $u4, $u5"}

Statistics: Posted by demond — Sun Jul 10, 2005 2:59 pm

Userlist script with total counter

2005-07-10T12:48:37-04:00

doesn't work

Statistics: Posted by Winters — Sun Jul 10, 2005 12:48 pm

Userlist script with total counter

2005-07-10T12:41:11-04:00

try

Code:

if {([llenth $users] <= 5)} {   putserv "NOTICE $nick :[string trimright [join $users] [join $users] [join $users] [join $users] [join $users] ,]"  }

Maybe that will work.

Statistics: Posted by r0t3n — Sun Jul 10, 2005 12:41 pm

Userlist script with total counter

2005-07-10T12:18:58-04:00

nope doesn't work :/

Statistics: Posted by Winters — Sun Jul 10, 2005 12:18 pm

Userlist script with total counter

2005-07-10T12:10:40-04:00

change

Code:

if {[llength $users]} {   putserv "NOTICE $nick :[string trimright [join $users] ,]"  }

Code:

if {([llenth $users] <= 5)} {   putserv "NOTICE $nick :[string trimright [join $users] ,]"  }

I think that should work.

Statistics: Posted by r0t3n — Sun Jul 10, 2005 12:10 pm

Userlist script with total counter

2005-07-10T11:59:31-04:00

kk now i fixed it and i just want that the bot send 5 users per line could you make it please :>?

Code:

bind pub - !listusers list:usersproc list:users {nick uhost hand chan arg} {putserv "notice $nick :Users for channel $chan:" set total(owner) 0 set total(master) 0 set total(operator) 0 set total(voice) 0 set total(ban) 0 set total(Total) 0 foreach user [userlist] {  incr total(Total)  if {[matchattr $user |n $chan]} {   lappend users "\{\User: $user Flags: +n\}\ "   incr total(owner)  } elseif {[matchattr $user |m $chan]} {   lappend users "\{\User: $user Flags: +m\}\ ,"   incr total(master)  } elseif {[matchattr $user |o $chan]} {   lappend users "\{\User: $user Flags: +o\}\ ,"   incr total(operator)  } elseif {[matchattr $user |v $chan]} {   lappend users "\{\User: $user Flags: +v\}\ ,"   incr total(voice)  } elseif {[matchattr $user |k $chan]} {   lappend users "\{\User: $user Flags: +k\}\ ,"   incr total(ban)  } } if {[llength $users]} {  putserv "NOTICE $nick :[string trimright [join $users] ,]"  }foreach ann [array names total] {putserv "notice $nick :Total: $total(Total) (owner: $total(owner), master: $total(master), op: $total(operator), voice: $total(voice), ban: $total(ban))."}}

Statistics: Posted by Winters — Sun Jul 10, 2005 11:59 am

Userlist script with total counter

2005-07-10T11:15:57-04:00

yeah there was a proc with userlist sry :<

Statistics: Posted by Winters — Sun Jul 10, 2005 11:15 am

Userlist script with total counter

2005-07-10T10:49:25-04:00

I guess you have a proc called "userlist" which is overloading on the [userlist] eggdrop tcl command.

Statistics: Posted by Sir_Fz — Sun Jul 10, 2005 10:49 am