Userlist error

[r0t3n]

The script:

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]

[Sir_Fz]

Code: Select all

bind pub o|f !userlist user:list  

proc user:list {nick host hand chan args} { 
 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" 
 } 
} 

putlog "Userlist Script Loaded"

[r0t3n]

thanks dude. But i want to chan the output from:

-[-Guard-]- Users: ShoVe (ajmnoptx|-) - Tosser^^ (hjmnoptx|-) - L (ahjmoptx|-) - Q
-[-Guard-]- Users: (ahjmoptx|amnov) - CC|alfn (hp|amov) - CC|alfn`` (hp|-) - CC|FF^BnC
-[-Guard-]- Users: (hp|amno) - CC|h0h0 (hp|amov) - fishbot (hp|-) - Garfield (hp|-) -
-[-Guard-]- Users: Sanchezz (hp|ao) - Sarge] (hp|av)

to this output:
Userlist For $chan:
Handle/Nick Flags
User Flags
User2 Flags
User3 Flags

etc and make it in order, so owners at the top of the userlist, and F friends at the bottom. Please help, Thanks!!

[Sir_Fz]

Code: Select all

bind pub o|f !userlist user:list  

proc user:list {nick host hand chan args} { 
 if {[userlist] == ""} { 
  puthelp "NOTICE $nick :There are no users in my userlist for $chan " 
  return 0 
 } 
 puthelp "NOTICE $nick :Users For $chan:"
 foreach user [userlist] { 
  puthelp "NOTICE $nick :$user [chattr $user $chan]" 
 } 
}