egghelp.org community

[achilles1900]

Hello Forum,

I am testing spychan.tcl and thus far , am happy with it. What it does lack however, is a public command to list the users (userlist) in the channel it is monitoring.

Example: Some types !list in home channel, the bot displays all the people in the monitored channel. Like the .channel command in the bot.

Im a tcl newb and really cant do it myself, would really appreciate it if yomeone could take a look and help me out. I will paste below a sample of the code for 'spychan.tcl' or alternatively you can look at the script here:

http://www.egghelp.org/tclhtml/3478-4-0-0-1-spychan.htm

Thanks in advance for taking the trouble to read this post and any
help.

Achilles

bind JOIN -|- "$spy(chan) *" spychan:join

proc spychan:join { nickname hostname handle channel } {
global spy
if {[string equal -nocase $channel $spy(chan)]} {
putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has joined $spy(chan)"
}
}