I had actayly done some code for this, on the night in question, but more important things came up, and I never got around to clicking submit. (more important things ended in a power outage )

However, here is some code that will return a list of +o's for a channel. This will not return users that have +m or +n.

Code:

proc returnops {chan} {  set a {}  foreach b [userlist] {    if {([matchattr $b |o $chan]) && (![matchattr $b |n $chan]) && (![matchattr $b |m $chan])} {      lappend a $b    }  }  return $a}

As stated, it returns a list, from which, you can perform your own formatting.

Code:

set ops "OP's: [string trimright [join [returnops $channel] ", "] ", "]"

From this, you can create 2 smaller functions that will do the same for owners and masters.

Statistics: Posted by bobjuh — Mon Nov 11, 2002 6:52 am

proc returnops {chan} {  set a {}  foreach b [userlist] {    if {([matchattr $b |o $chan]) && (![matchattr $b |n $chan]) && (![matchattr $b |m $chan])} {      lappend a $b    }  }  return $a}

set ops "OP's: [string trimright [join [returnops $channel] ", "] ", "]"

Statistics: Posted by ppslim — Sat Nov 09, 2002 9:19 am

Statistics: Posted by bobjuh — Sat Nov 09, 2002 7:09 am

"maybe I should have read the hole post before I did anything else"

Statistics: Posted by bobjuh — Mon Nov 04, 2002 12:12 pm

Statistics: Posted by bobjuh — Mon Nov 04, 2002 12:08 pm

Statistics: Posted by ppslim — Mon Nov 04, 2002 12:07 pm

Statistics: Posted by gk^ — Mon Nov 04, 2002 12:03 pm

Typos, so shoot me

Statistics: Posted by bobjuh — Mon Nov 04, 2002 12:03 pm

Statistics: Posted by ppslim — Mon Nov 04, 2002 12:02 pm

maybe I should have read the hole post before I did anything else

Statistics: Posted by bobjuh — Mon Nov 04, 2002 11:18 am

Statistics: Posted by gk^ — Mon Nov 04, 2002 11:15 am

bind pib o !masters pub:showmastersproc pub:showmasters {nick uh hand chan arg} {  set a {}  foreach b [chanlist $chan m|m] {    lappend a "$b ([nick2hand $b $chan])"  }  if {[llength $b] >= 2} {    puthelp "PRIVMSG $chan :There are [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }  else {    puthelp "PRIVMSG $chan :There is [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }}

bind pub o !masters pub:showmastersproc pub:showmasters {nick uh hand chan arg} {  set a {}  foreach b [chanlist $chan m|m] {    lappend a "$b ([nick2hand $b $chan])"  }  if {[llength $b] >= 2} {    puthelp "PRIVMSG $chan :There are [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }  else {    puthelp "PRIVMSG $chan :There is [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }}

Statistics: Posted by gk^ — Mon Nov 04, 2002 11:14 am

bind pib o !masters pub:showmastersproc pub:showmasters {nick uh hand chan arg} {  set a {}  foreach b [chanlist $chan m|m] {    lappend a "$b ([nick2hand $b $chan])"  }  if {[llength $b] >= 2} {    puthelp "PRIVMSG $chan :There are [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }  else {    puthelp "PRIVMSG $chan :There is [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }}

[15:52:17] <MrZap> [15:52] Tcl error in file 'mrzap.conf':
[15:52:17] <MrZap> [15:52] bad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, ctcp, ctcr, dcc, disc, evnt, fil, filt, flud, join, kick, link, load, lost, mode, msg, msgm, need, nick, nkch, notc, note, part, pub, pubm, raw, rcvd, rejn, sent, sign, splt, time, topc, tout, unld, wall
[15:52:17] <MrZap> while executing
[15:52:17] <MrZap> "bind pib o !masters pub:showmasters "
[15:52:17] <MrZap> (file "scripts/homonl.tcl" line 116)
[15:52:17] <MrZap> invoked from within
[15:52:17] <MrZap> "source scripts/homonl.tcl"
[15:52:17] <MrZap> (file "mrzap.conf" line 333)

i found the error and changed it but the script still doesn't work.

[15:55:23] <BoBjUh> !masters
[15:55:24] <MrZap> There is 1 masters in the channel: BoBj

also if i change my nick still doesn't display my whole nick

Statistics: Posted by bobjuh — Mon Nov 04, 2002 10:56 am

Code:

bind pib o !masters pub:showmastersproc pub:showmasters {nick uh hand chan arg} {  set a {}  foreach b [chanlist $chan m|m] {    lappend a "$b ([nick2hand $b $chan])"  }  if {[llength $b] >= 2} {    puthelp "PRIVMSG $chan :There are [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }  else {    puthelp "PRIVMSG $chan :There is [llength $b] masters in the channel: [string range [join $b {, }] 0 end-2]"  }}

Statistics: Posted by ppslim — Mon Jun 24, 2002 7:59 am