Code: Select all
bind pub o|f !userlist user:list
proc user:list {nick host hand chan args} {
puthelp "NOTICE $nick :SYNTAX: !userlist"
return 0
}
if {[userlist] == ""} {
puthelp "NOTICE $nick :There are no users in my userlist for $chan "
return 0
}
foreach user [join [lrange [userlist] 0 end]] {
lappend users "$user ([chattr $user $chan])"
}
foreach userwrap [wordwrap [join $users { - }]] {
puthelp "NOTICE $nick :Users: $userwrap"
}
} else {
puthelp "NOTICE $nick :SYNTAX: !userlist"
}
return 0
}
putlog "Userlist Script Loaded"
The error:
<[-Guard-]> [17:48] can't read "chan": no such variable
<[-Guard-]> while executing
<[-Guard-]> "puthelp "NOTICE $nick :There are no users in my userlist for $chan ""
<[-Guard-]> invoked from within
<[-Guard-]> "if {[userlist] == ""} {
<[-Guard-]> puthelp "NOTICE $nick :There are no users in my userlist for $chan "
<[-Guard-]> return 0
<[-Guard-]> }"
<[-Guard-]> (file "scripts/userlist.tcl" line 7)
<[-Guard-]> invoked from within
<[-Guard-]> "source scripts/userlist.tcl"
<[-Guard-]> (file "eggdrop.conf" line 1352)
<[-Guard-]> [17:48] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
please help!![/i]