Id: 10742; Nick: Gakusei; Timestamp: 2008-05-18 16:04:26; Pasted as: mIRC
Description: n/a
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\})\""
	}
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)