Someone

alias dcxbug { if (!$dialog(dcxbug)) { dialog -m dcxbug dcxbug } }
dialog dcxbug {
  size -1 -1 500 30
  option pixel
}
on *:DIALOG:dcxbug:INIT:*: {
  dcx Mark $dname dcxbug::event
  xdialog -c $dname 1 toolbar 3 2 494 30 noparentalign noresize list flat nodivider tooltips arrows notheme
  xdid -j $dname 1 90 90
  dcxbug::icons
  dcxbug::load
}
alias dcxbug::icons {
  var %d = dcxbug
  if ($Dialog(%d)) {
    xdid -l %d 1 16

    xdid -w %d 1 +ndh 3 $mircexe
    xdid -w %d 1 +ndh 4 $mircexe
  }
  dcxbug::load
}
alias dcxbug::load {
  var %d = dcxbug
  if (($Dialog(%d)) && ($xdialog(%d,1).isid)) {
    xdid -r %d 1
    var %n = 1
    while (%n <= $scon(0)) {
      scon %n 
      xdid -a %d 1 0 + 0 9 0 -
      xdid -a %d 1 0 $iif($cid == $activecid && $window(Status Window) == $active && $window(Status Window).state != minimized,+kx,+k) 0 1 0 $iif($scon(%n).status == disconnected,Status $+ $chr(9) $+ Status,$iif($scon(%n).status == connecting,Connecting $+ $chr(9) $+ Connecting,$scon(%n).network $+ $chr(9) $+ $scon(%n).network)) 

      var %i = 1
      while (%i <= $chan(0)) {
        xdid -a %d 1 0 $iif($cid == $activecid && $chan(%i) == $active && $window($chan(%i)).state != minimized,+kx,+k) 0 2 0 $chan(%i) $+ $chr(9) $+ $chan(%i) 
        inc %i
      }
      inc %n
    }
  }
}