Tcl error [user_list]: list element in quotes followed by "HOSTS"]" instead of space
The script:
Code: Select all
bind pub o|f !userlist user_list
proc user_list {nick uhost hand chan text} {
if {[userlist |amnovf $chan] == ""} {
putserv "NOTICE $nick :No users found in my userlist for $chan "
return 0
}
putquick "NOTICE $nick :Userlist for $chan "
foreach user [userlist |amnovf $chan] {
if {[set usersnick [hand2nick $user]] == ""}
putquick "NOTICE $nick :(( Handle: $user || Nickname: Offline, or not in any of the bots channels. || Host(s): [getuser $user "HOSTS"] || Channel Flags: +[lindex [split [chattr $user $chan] |] 1] ))"
} else {
if {[set usersnick [hand2nick $user]] != ""}
putquick "NOTICE $nick :(( Handle: $user || Nickname: $usersnick || Host(s): [getuser $user "hosts"] || Channel Flags: +[lindex [split [chattr $user $chan] |] 1] ))"
}
putquick "NOTICE $nick :End of list."
}
putlog "Userlist.tcl By Tosser^^ Loaded"
Thanks in advance!!