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.