This is what i do to make my names list like it is in the pic below, i'm sure you could split the alias and bits up to do what you want.

Code:
 alias  joinsync  {
  if ($me !ison $1) { halt }
  set %i 0
  set %nicks ""
  set %num 4
  echo $1 ÿ
  echo $1 ÿÿÿ00ÚÄÄÄÄÄ11ÄÄ0ÄÄÄÄ11ÄÄÄÄÄ10Ä11ÄÄÄ10ÄÄÄÄÿÄÄÿÿ14-ÿÿÿÿÿÿ14-ÿÿÿÿÿÿÿÿÿÿÿ10-
  echo $1 ÿÿÿ11ÀÄÄÄÄ--ÿ-ÿÿÄÄÿÿ-ÿÿÿ14[11s10ync $+ 14/00 $+ $calc(($ticks - %sync) / 1000) $+ s14]
  echo $1 ÿÿÿ00ÚÄÄÄÄÄ11ÄÄ0ÄÄÄÄ11ÄÄÄÄÄ10Ä11ÄÄÄ10ÄÄÄÄÿÄÄÿÿ14-ÿÿÿÿÿÿ14-ÿÿÿÿÿÿÿÿÿÿÿ10-
  :loop
  inc %i
  if (%i > $nick($1,0,a)) {
    if (%nicks != $null) {
      if ($numtok(%nicks,32) >= 1) { set %nicks %nicks | echo $1 ÿÿÿ11³ %nicks | goto end }
    }
    goto end
  }
  set %nicks %nicks  14[ $+ $xnames($nick($1,%i),$1) $+ 14]
  :next
  if (%i == %num) {
    echo $1 ÿÿÿ11³ %nicks
    set %num $calc(%num + 4)
    set %nicks ""
    goto loop
  }
  goto loop
  :end
  echo $1 ÿÿÿ11À00-ÿ00-Ä11-ÿ14-ÿÿÿÿÿ14-ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ14-ÿÿÿÿÿÿÿÿÿÿ10-
  echo $1 ÿÿÿ11ÚÄÄÄÄ--ÿ-ÿÿÄÄÿÿ-ÿÿÿ14[11 $+ #10 $+ $right($1,$calc($len($1) - 1)) $+ 14/00 $+ $nick($1,0,a) $+ 14]ÿÿÿÿ14[11q14/00 $+ $nick($1,0,q) $+ 14] 14[11o14/00 $+ $nick($1,0,o) $+ 14] 14[11n14/00 $+ $nick($1,0,r) $+ 14] 14[11v14/00 $+ $nick($1,0,v) $+ 14]
  echo $1 ÿÿÿ00ÀÄÄÄÄÄ11ÄÄ0ÄÄÄÄ11ÄÄÄÄÄ10Ä11ÄÄÄ10ÄÄÄÄÿÄÄÿÿ14-ÿÿÿÿÿÿ14-ÿÿÿÿÿÿÿÿÿÿÿ10- 
  echo $1 ÿ 
  remini data.ini joinsync $1
}


alias xnames {
  var %a $iif($2,$2,$chan),%x $iif($1 !isreg %a && $1 !ischan,+), %b $iif(%x,$left($nick(%a,$1).pnick,1)) $+ $1
  return $iif(%x,$+(,11,$left(%b,1))) $+ $str(ÿ,$calc(13 - $len(%b))) $+ $iif(%x,$+(15,$mid(%b,2,12)),$+(,15,$mid(%b,1,13)))
}

Raw 366:*:{ 
  set %sync $readini data.ini joinsync $2
  joinsync $2
  halt
}

on ^*:JOIN:#:{ 
  if ($nick = $me) {
    set %sync $readini data.ini joinsync #
    if (%sync == $null) { writeini data.ini joinsync # $ticks }
    halt
  }
}



pic here