staus bar

By BigSteve on Nov 22, 2011

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
}

Comments

Sign in to comment.
xdesoto   -  Nov 27, 2011

:p

 Respond  
Lucius   -  Nov 27, 2011

I was only making a funny..... granted it wasn't a great one. I knew what it meant to say

 Respond  
xdesoto   -  Nov 26, 2011

Lucius: http://www.hawkee.com/snippet/9036/ There's an image of my status bar. It's usually at the bottom of a script.

 Respond  
Lucius   -  Nov 25, 2011

10 comments (yes 2 of them were mine) but nobody has asked the really important question....

what is a 'staus bar' ?

so I had to.

 Respond  
Jethro   -  Nov 24, 2011

$iif() is handy for a true or false comparison. It'd be a bad practice if you abused it.

 Respond  
Protheus   -  Nov 23, 2011

Yea i tried this statusbar. It didnt really work for me. So i created a new dialog (not a statusbar) with the same options and docked it. Works flawelessly.

 Respond  
xdesoto   -  Nov 23, 2011

Steve a long time ago Derek didn't even mess with DCX. I remember when he got in it. Maybe 3 months ago. And he was there when I coded my status bar with the dialog creator.

 Respond  
Lucius   -  Nov 23, 2011
xdid -v sbar 1 4 Network: $iif($network,$v1,ChatSpace)

I love $iif lol

btw, you could add functionality to some of the icons like a quick disconnect or a cycle for the active server.

 Respond  
BigSteve   -  Nov 23, 2011

IDK desoto but I have had that code long before you
that code is from about a year ago when Me and derek were messing with the code of projectdream

 Respond  
blackvenomm666   -  Nov 23, 2011
if ($network == $null) { return CHATSPACE }

why use that? wouldn't it be easier to just do

if (!$network) { return CHATSPACE }

:P

 Respond  
xdesoto   -  Nov 22, 2011

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.

 Respond  
BigSteve   -  Nov 22, 2011
if ($network == $null) { return CHATSPACE }
 Respond  
Protheus   -  Nov 22, 2011

Thanks Cayne. You are the shit, my friend.

 Respond  
Lucius   -  Nov 22, 2011

Thought I should mention... ChatSpace doesn't have $network, so you should probably have- if -or maybe- $iif

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.