Userlist script, just made, please check if it works!!

[r0t3n]

Hello, i just made this userlist script, dont know if it will work, please check it and feedback the info to me, Thanks in advance!!

Code: Select all

bind pub o|f !userlist user_list

proc user_list {nick uhost hand chan text} {
if {[userlist] == ""} {
putserv "NOTICE $nick :No users found in my userlist for $chan"
return 0
}
putserv "NOTICE $nick :Userlist for $chan "
foreach user [userlist $chan] {
putserv "NOTICE $nick :\(( $user \|| +[lindex [split [chattr $user -|- $chan] \|] $user]
}
putserv "NOTICE $nick :End of list."
}

[awyeah]

The best thing you can do is, test it yourself. I don't know the correct output for the elements of [userlist] is.

But, you can first try:

Code: Select all

if {[llength [userlist]] == 0} {
 putserv "NOTICE $nick :No users found in my userlist for $chan"
 return 0
} 
foreach user [userlist] {
 putserv "NOTICE $nick :$user"
}
putserv "NOTICE $nick :End of list."

[Alchera]

Dbl posting? Sir_Fz is already assisting http://forum.egghelp.org/viewtopic.php?t=9780

[r0t3n]

;p i posted this 2 minutes before he replied ;p