egghelp/eggheads community

userlist to msg [SOLVED]

2010-07-10T02:01:58-04:00

Oh, sorry about chan in msg bind. It was my "epic fail".

Statistics: Posted by username — Sat Jul 10, 2010 2:01 am

userlist to msg [SOLVED]

2010-07-09T07:49:31-04:00

This one, if you don't put a channel, it will use the hardcoded variable chan_for_this as your channel. This fixes the bracket issue as well. This should work for ya

Thank you, it helps I guess it isn't possible to make $chan work in pm w/o having to hardcode the channel in, so I assume only commands in open room know what the roomname is but pm don't.

Statistics: Posted by cache — Fri Jul 09, 2010 7:49 am

userlist to msg [SOLVED]

2010-07-09T05:08:01-04:00

Code:

variable nicks_per_line 5variable chan_for_this #mychanbind msg f|f !userlist msg:userlistproc msg:userlist {nick uhost hand text} {  if {![string length [set chan [lindex [split $text] 0]]]} {    set chan $::chan_for_this  }  if {![validchan $chan]} {    putserv "PRIVMSG $nick :$chan is not valid."  } elseif {![botonchan $chan]} {    putserv "PRIVMSG $nick :I am not on $chan."  } elseif {![string length [userlist | $chan]} {    putserv "PRIVMSG $nick :The userlist for $chan is empty."  } else {    foreach user [userlist | $chan] {      lappend spam $user      if {[llength $spam] >= $::nicks_per_line} {        putserv "PRIVMSG $nick :[join $spam ", "]."        unset spam      }    }    if {[info exists spam]} {      putserv "PRIVMSG $nick :[join $spam ", "]."    }    putserv "End of userlist."  }}

This one, if you don't put a channel, it will use the hardcoded variable chan_for_this as your channel. This fixes the bracket issue as well. This should work for ya

Statistics: Posted by speechles — Fri Jul 09, 2010 5:08 am

userlist to msg [SOLVED]

2010-07-08T18:25:14-04:00

Thank you, I do get an error that a close bracket is missing,trying to figure out where it goes lol.... so no way to have it without having to use #mychan?

Statistics: Posted by cache — Thu Jul 08, 2010 6:25 pm

userlist to msg [SOLVED]

2010-07-08T16:59:59-04:00

Code:

variable nicks_per_line 5bind msg f|f !userlist msg:userlistproc msg:userlist {nick uhost hand text} {  set chan [lindex [split $text] 0]  if {![validchan $chan]} {    putserv "PRIVMSG $nick :$chan is not valid."  } elseif {![botison $chan]} {    putserv "PRIVMSG $nick :I am not on $chan."  } elseif {![string length [userlist | $chan]} {    putserv "PRIVMSG $nick :The userlist for $chan is empty."  } else {    foreach user [userlist | $chan] {      lappend spam $user      if {[llength $spam] >= $::nicks_per_line} {        putserv "PRIVMSG $nick :[join $spam ", "]."        unset spam      }    }    if {[info exists spam]} {      putserv "PRIVMSG $nick :[join $spam ", "]."    }    putserv "End of userlist."  }}

Maybe smth like this?
!userlist #mychan
*insert spam here*

Statistics: Posted by speechles — Thu Jul 08, 2010 4:59 pm

userlist to msg [SOLVED]

2010-07-08T16:40:35-04:00

You need to read about binds here: http://www.eggheads.org/support/egghtml ... html#binda
In bind msg there is no chan.

So, your proc must be:

Code:

proc msg:userlist {nick uhost hand text} {

Statistics: Posted by CrazyCat — Thu Jul 08, 2010 4:40 pm

userlist to msg [SOLVED]

2010-07-08T16:13:47-04:00

Tried that but still get error Tcl error [msg:userlist]: wrong # args: should be "msg:userlist nick uhost hand chan text"

Statistics: Posted by cache — Thu Jul 08, 2010 4:13 pm

userlist to msg [SOLVED]

2010-07-08T15:36:14-04:00

You need to read about binds here: http://www.eggheads.org/support/egghtml ... html#binda
In bind msg there is no chan.
And you need not use

Code:

set tmp ""

before

Code:

lappend tmp $user

, because you can use lappend for non exists variable and this variable will be created. You post very strange code. Try it:

Code:

bind msg f|f !userlist msg:userlistproc msg:userlist {nick uhost hand chan text} {    if {[userlist $chan] == ""} {        putserv "PRIVMSG $nick :Userlist empty for $chan."    } else {    foreach user [userlist $chan] {        lappend tmp $user    }    putserv "PRIVMSG $nick :[join $tmp ", "]."    putserv "End of userlist."  }}

Statistics: Posted by username — Thu Jul 08, 2010 3:36 pm

userlist to msg [SOLVED]

2010-07-09T07:50:11-04:00

Trying to get this command to work in pm, what am I doing wrong with the proc?? log file just keeps saying should be {nick uhost hand chan text}, can someone please show me correct way? Thanks

Code:

bind msg f|f !userlist msg:userlist proc msg:userlist {nick uhost hand chan text} {   if {[userlist | $chan] == ""} {     putserv "PRIVMSG $nick :Userlist empty for $chan."   } else {     set tmp ""     foreach user [userlist | $chan] {       lappend tmp $user       if {[llength $tmp] == "6"} {         putserv "PRIVMSG $nick :[join $tmp ", "]."         set tmp ""       }     }     if {[llength $tmp] != "6"} {       putserv "PRIVMSG $nick :[join $tmp ", "]."       set tmp ""     }     putserv "End of userlist."   } }

Statistics: Posted by cache — Thu Jul 08, 2010 3:06 pm