alias mdx { return dlls\views.mdx }
dialog switchbar {
title "Switch Bar"
size -1 -1 79 243
option dbu
list 1, 1 2 76 239, size
}
on *:dialog:switchbar:init:0:{
dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname
dll $mdx SetControlMDX $dname 1 treeview haslines hasbuttons linesatroot > $views
var %s 1
while (%s <= $scid(0)) {
scon $scid(%s)
did -a $dname 1 $iif($scid(%s).network != $null,$scid(%s).network,Not Connected)
did -i $dname 1 1 cb 2
var %channels 1
did -a $dname 1 Channels
did -i $dname 1 1 cb 2
while (%channels <= $chan(0)) { did -a $dname 1 $chan(%channels) | inc %channels }
var %query 1
did -a $dname 1 Query
did -i $dname 1 1 cb 2
while (%query <= $query(0)) { did -a $dname 1 $query(%query) | inc %query }
var %window 1
did -a $dname 1 Window (@)
did -i $dname 1 1 cb 2
while (%window <= $window(0)) { did -a $dname 1 $window(%window) | inc %window }
var %dcc 1
did -a $dname 1 DCC Chat
did -i $dname 1 1 cb 2
while (%dcc <= $chat(0)) { did -a $dname 1 $chat(%dcc) | inc %dcc }
var %dcc 1
did -a $dname 1 DCC Send
did -i $dname 1 1 cb 2
while (%dcc <= $SEND(0)) { did -a $dname 1 $send(%dcc) | inc %dcc }
var %dcc 1
did -a $dname 1 DCC Get
did -i $dname 1 1 cb 2
while (%dcc <= $get(0)) { did -a $dname 1 $get(%dcc) | inc %dcc }
var %dcc 1
did -a $dname 1 Fserve
did -i $dname 1 1 cb 2
while (%dcc <= $chat(0)) { did -a $dname 1 $chat(%dcc) | inc %dcc }
inc %s
}
}
: NOTE : If you're going to try it on mIRC, please change the $mdx and the $views aliases with the correct directory
Its really messed... i'm trying to figure out how to branch "Channels,QUery,Window (@), DCC GET,Chat,SEND, FSERVE" to the "Server", but Query is branch-ed to Channels, Window (@) is branched to DCC Get and so on... its really confusing, but can someone help me?
