1 2 3 4 5 6 7 8 |
if {[lindex [split $arg] 0] == "check"} { if {[lindex [split $arg] 1] == ""} { putquick "NOTICE $nick :Please type: ${bnc::trigger}sbnc check #channel" ; return } set check [lindex [split $arg] 1] putquick "sbnc tcl :set bncall 0 \; set bncon 0 \; foreach bncus \[bncuserlist\] \{ incr bncall 1 \; if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ incr bncon 1 \} \} \; putserv \"NOTICE $nick :Bouncers on channel: ( \$\{bncon\} / \$\{bncall\} )\"" set check [lindex [split $arg] 1] putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Idents found (\$\{bncsall\} )\"" putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] == -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Ident are not: (\$\{bncsall\} )\"" } |
| Parsed for bracket errors and indented: | |
1 2 3 4 5 6 7 8 |
if {[lindex [split $arg] 0] == "check"} { if {[lindex [split $arg] 1] == ""} { putquick "NOTICE $nick :Please type: ${bnc::trigger}sbnc check #channel" ; return } set check [lindex [split $arg] 1] putquick "sbnc tcl :set bncall 0 \; set bncon 0 \; foreach bncus \[bncuserlist\] \{ incr bncall 1 \; if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ incr bncon 1 \} \} \; putserv \"NOTICE $nick :Bouncers on channel: ( \$\{bncon\} / \$\{bncall\} )\"" set check [lindex [split $arg] 1] putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] != -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Idents found (\$\{bncsall\} )\"" putquick "sbnc tcl :set bncsall \"\" \; foreach bncus \[bncuserlist\] \{ if \{\[lsearch -exact \[string tolower \[split \[getbncuser \$bncus channels\] ,\]\] \[string tolower ${check}\]\] == -1\} \{ set bncsall \"\$\{bncsall\} \$\{bncus\}\" \} \} \; putserv \"NOTICE $nick :Ident are not: (\$\{bncsall\} )\"" } |