staus bar

Platform: mIRC

Published Nov 22, 2011

Updated Nov 22, 2011

472 14

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

xdesoto - Nov 27, 2011

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

ProSec - 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

		Code 			
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

		Code 			
if ($network == $null) { return CHATSPACE }
	

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

		Code 			
if (!$network) { return CHATSPACE }
	

Respond

xdesoto - Nov 22, 2011

My code

		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

		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

		Code 			
if ($network == $null) { return CHATSPACE }	

Respond

ProSec - Nov 22, 2011

Thanks Cayne. You are the shoot, 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