Mine

on :start: { timernames -o 0 300 update }
alias update {
  var %i1 = 1, %total1 = $scon(0)
  while (%i1 <= %total1) {
    if ($scon(%i1).status == connected) { scid $scon(%i1).cid | var %i2 = 1 | while ($comchan($me,%i2)) { names $v1 | inc %i2 }
    }
    inc %i1
  }