Info Center. Gives some useful stats for the active channel like How many people are on. Of those people, how many are Ops? etc. When it's open, you can switch to another channel and InfoCenter will update to reflect that channel. Needs some work. Enjoy.

;Put the following in aliases;
xdc return xdialog -c $dname
blk return xdialog -g $dname +b $rgb(0,0,0)

alias iCen {
  if ($dialog(iCen)) { dialog -x iCen }
  dialog -m iCen iCen
}

alias DCX_iCen {
}

dialog iCen {
  title "Info Central"
  size -1 -1 200 200
  option dbu
}
on *:dialog:iCen:init:*: {
  dcx Mark $dname iCen_cb
  $blk
  $xdc 1 list 28 28 342 100 nosel
  xdid -f $dname 1 +a ansi 10 Times New Roman
  xdid -C $dname 1 +t $color(3) 
  xdid -C $dname 1 +b $color(1)
  xdid -a iCen 1 1 Stats for $active $+ : 
  xdid -a iCen 1 2 There are $nick($active,0) total users. 
  xdid -a iCen 1 3 $nick($active,0,o) users are Ops.
  xdid -a iCen 1 4 $nick($active,0,v) users are Voiced.
  xdid -a iCen 1 5 $nick($active,0,r) are normal users.
  xdid -a iCen 1 6 Modes $chan($active).mode are in effect on $active $+ .
  $xdc 2 list 28 158 342 100 nosel
  xdid -f $dname 2 +a ansi 10 Times New Roman
  xdid -C $dname 2 +t $color(3) 
  xdid -C $dname 2 +b $color(1)
  xdid -a $dname 2 1 The Current Date is: $day $+ , $date(mmmm dd yyyy)
  xdid -a iCen 2 2 The Current time is: $time(hh:nn:ss TT) | .timericen -c 0 1 xdid -o iCen 2 2 The Current time is: $!time(hh:nn:ss TT)
  xdid -a iCen 2 3 Currently on Server: $iif($scid($activecid).server,$scid($activecid).server,Not Connected))
  xdid -a iCen 2 4 Using Nick: $me
  xdid -a iCen 2 5 Currently on $chan(0) channels.
  xdid -a iCen 2 6 You are currently $iif($away,Away ( $+ $awaymsg $+ ) ,Not Away) $+ . 
  $xdc 3 button 158 278 82 26
  xdid -t $dname 3 Close
  $xdc 18 text 336 357 64 12 transparent
  xdid -t iCen 18 3ProSec iRc
}

alias iCen_cb {
  if ($2 == sclick) && ($3 == 3) {
    .timericen off
    .timeriway off
    dialog -x icen
  }
}

on *:ACTIVE:*: {
  if ($dialog(iCen)) {
    xdid -o iCen 1 1 Stats for $active $+ : 
    xdid -o iCen 1 2 There are $nick($active,0) total users. 
    xdid -o iCen 1 3 $nick($active,0,o) users are Ops.
    xdid -o iCen 1 4 $nick($active,0,v) users are Voiced.
    xdid -o iCen 1 5 $nick($active,0,r) are normal users.
    xdid -o iCen 1 6 Modes $chan($active).mode are in effect on $active $+ .
    xdid -o iCen 2 3 Currently on Server: $iif($scid($activecid).server,$scid($activecid).server,Not Connected))
    xdid -o iCen 2 4 Using Nick: $me
    xdid -o iCen 2 5 Currently on $chan(0) channels.
  }
}