DCX Status Bar server details system
CODED BY D34th and BigSteve
alias sbar {
If ($Dialog(sbar)) { Dialog -x Sbar Sbar | Dialog -ma sbar sbar }
Else {
dialog -ma sbar sbar
}
}
dialog sbar {
title "status bar"
option dbu
size -1 -1 1600 1
}
on *:dialog:sbar:*:*: {
if ($devent == init) {
dcx Mark $dname sbar_cb
xdialog -c $dname 1 statusbar 0 1 1600 8
xdid -l sbar 1 150 100 160 -1
xdid -l sbar 1 250 300 240 -1
xdid -l sbar 1 350 300 300 -1
xdid -l sbar 1 250 300 300 -1
xdid -w sbar 1 +a 0 icons\con-dis.ico
xdid -w sbar 1 +a 0 icons\darkness.ico
xdid -w sbar 1 +a 0 icons\nlist.ico
xdid -w sbar 1 +a 0 icons\disconnect.ico
xdid -t sbar 1 1 +n 1 Server: $server
xdid -t sbar 1 2 +n 2 Usermode: $usermode
xdid -t sbar 1 3 +n 3 Nick: $me
xdid -t sbar 1 4 +n 4 Network: $network
xdock -m $dialog(sbar).hwnd +b
}
}
alias sbar_cb { }
On *:Active:*:{
xdid -v sbar 1 1 Server: $server
xdid -v sbar 1 2 Usermode: $usermode
xdid -v sbar 1 3 Nick: $me
xdid -v sbar 1 4 Network: $network
}
Lucius: http://www.hawkee.com/snippet/9036/ There's an image of my status bar. It's usually at the bottom of a script.
My code
alias sbar {
If ($Dialog(sbar)) { Dialog -x Sbar Sbar | Dialog -m sbar sbar }
Else {
dialog -m sbar sbar
}
}
dialog sbar {
title "status bar"
option dbu
size -1 -1 1600 1
}
on *:dialog:sbar:*:*: {
if ($devent == init) {
dcx Mark $dname sbar_cb
xdialog -g sbar +b $color(1)
xdialog -c $dname 1 statusbar 0 1 1600 8
xdid -l sbar 1 150 100 160 -1
xdid -l sbar 1 250 300 240 -1
xdid -l sbar 1 350 300 300 -1
xdid -l sbar 1 200 300 300 -1
xdid -w sbar 1 +a 0 icons\smts.ico
xdid -w sbar 1 +a 0 icons\chanfade.ico
xdid -w sbar 1 +a 0 icons\meuser.ico
xdid -w sbar 1 +a 0 icons\bat.ico
xdid -t sbar 1 1 +n 1 °Server: $+($iif($scid($activecid).server,$scid($activecid).server,Not Connected))
xdid -t sbar 1 2 +n 2 $iif($left($active,1) == $chr(35),Channel,Query) $scid($activecid).chaninfo
xdid -t sbar 1 3 +n 3 °NickName: $nick
xdid -t sbar 1 4 +n 4 °Usermodes: $usermode
xdock -m $dialog(sbar).hwnd +b
}
}
alias -l chaninfo {
return $active $iif($active ischan,$chr(40) $+ $nick($active,0) $+ $chr(41) $chan($active).mode,$null)
}
alias sbar_cb { }
On *:Active:*:{
xdid -v sbar 1 1 Server: $+($iif($scid($activecid).server,$scid($activecid).server,Not Connected))
xdid -v sbar 1 2 $iif($left($active,1) == $chr(35),Channel:,Query:) $scid($activecid).chaninfo
xdid -v sbar 1 3 °NickName: $nick
xdid -v sbar 1 4 °Usermodes: $usermode
}
on *:start:{ /sbar }
Your code
alias sbar {
If ($Dialog(sbar)) { Dialog -x Sbar Sbar | Dialog -ma sbar sbar }
Else {
dialog -ma sbar sbar
}
}
dialog sbar {
title "status bar"
option dbu
size -1 -1 1600 1
}
on *:dialog:sbar:*:*: {
if ($devent == init) {
dcx Mark $dname sbar_cb
xdialog -c $dname 1 statusbar 0 1 1600 8
xdid -l sbar 1 150 100 160 -1
xdid -l sbar 1 250 300 240 -1
xdid -l sbar 1 350 300 300 -1
xdid -l sbar 1 250 300 300 -1
xdid -w sbar 1 +a 0 icons\con-dis.ico
xdid -w sbar 1 +a 0 icons\darkness.ico
xdid -w sbar 1 +a 0 icons\nlist.ico
xdid -w sbar 1 +a 0 icons\disconnect.ico
xdid -t sbar 1 1 +n 1 Server: $server
xdid -t sbar 1 2 +n 2 Usermode: $usermode
xdid -t sbar 1 3 +n 3 Nick: $me
xdid -t sbar 1 4 +n 4 Network: $network
xdock -m $dialog(sbar).hwnd +b
}
}
alias sbar_cb { }
On *:Active:*:{
xdid -v sbar 1 1 Server: $server
xdid -v sbar 1 2 Usermode: $usermode
xdid -v sbar 1 3 Nick: $me
xdid -v sbar 1 4 Network: $network
}
Tell me, why does it look a lot like my coding.