Forums Scripts & Popups nickname alignment

Bob                         Bill                         Brian
john                        Johnnythegreatbignickname    jenny
etc

 alias  joinsync  {
  if ($me !ison $1) { halt }
  set %i 0
  set %nicks ""
  set %num 5
  echo $1 11,15 $+ $str($chr(160),2) $+ stats $+  $+ $str($chr(160),23) 09: 14[09~10!01 $+ $nick($1,0,~) $+ 14] 14[09&10!01 $+ $nick($1,0,&) $+ 14] 14[09.10!01 $+ $nick($1,0,.) $+ 14] 14[09@10!01 $+ $nick($1,0,@) $+ 14] 14[09%10!01 $+ $nick($1,0,%) $+ 14] 14[09+10!01 $+ $nick($1,0,+) $+ 14] 14[09*10!01 $+ $nick($1,0,*) $+ 14] 14[09^10!01 $+ $nick($1,0,^) $+ 14] 14[09T10!01 $+ $nick($1,0,a) $+ 14]
  echo $1 11,15 $+ $str($chr(160),7) $+  $+ $str($chr(160),15) $+ 10­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—
  :loop
  inc %i
  if (%i > $nick($1,0,a)) {
    if (%nicks != $null) {
      if ($numtok(%nicks,32) >= 1) { set %nicks %nicks | echo $1 11,15 $+ $str($chr(160),2) $+ names $+ $str($chr(160),20) 01| %nicks | goto end }
    }
    goto end
  }
  set %nicks %nicks  14[ $+ $xnick4($nick($1,%i),$1) $+ 14]
  :next
  if (%i == %num) {
    echo $1 11,15 $+ $str($chr(160),2) $+ names $+ $str($chr(160),20) 01|  %nicks
    set %num $calc(%num + 5)
    set %nicks ""
    goto loop
  }
  goto loop
  :end
  echo $1 00,15 $+ $str($chr(160),7) $+  $str($chr(160),13) 01­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—­­­­­—
  echo $1 11,15 $+ $str($chr(160),3) $+ sync $+  $+ $str($chr(160),23) 09:10 $1 was synched in  $calc(($ticks - %sync) / 1000) secs!! | remini data.ini joinsync $1
} 
alias xnick4 {
  var %a $iif($2,$2,$chan),%b $iif($1 !isreg %a,$left($nick(%a,$1).pnick,1)) $+ $1
  return $str(€,$calc(13 - $len(%b))) $+ $iif($1 !isreg %a,$+(09,$left(%b,1),01,$mid(%b,2,12)),$+(01,$mid(%b,1,13)))
}

then you need to add this 

 on *:join:#: {
  set %sync $readini data.ini joinsync #
  if (%sync == $null) { writeini data.ini joinsync # $ticks }
} 

RAW 353:*:{
  tokenize 32 $3 %old.352.names $4-
  while ($4) {
    aliase.to.display.three.names $1-4
    tokenize 32 $1 $5-
  }
  set -u2 %old.352.names $2-
}
RAW 366:*:{
  if (%old.352.names != $null) {
    aliase.to.display.three.names $2 %old.352.names $chr(160) $chr(160)
  }
  unset %old.352.names
}

RAW 353:*:{
  tokenize 32 $3 %old.352.names $4-
  ;^ dump the stuff of the new list we dont need, namely DaveC = and add any names not done from the last 353
  ;
  while ($4) {
    ;^ if there is a $4 then we have the channel name and 3 names still so do a loop
    ;
    aliase.to.display.three.names $1-4
    ;^ call the display 3 names alias telling it channel and 3 names
    ;
    tokenize 32 $1 $5-
    ;^ dump the 3 names just displayed and loop back
    ;
  }
  set -u2 %old.352.names $2-
  ;^ store any names left over
}
RAW 366:*:{
  if (%old.352.names != $null) {
    ;^ if names left over at end proccess them
    ;
    aliase.to.display.three.names $2 %old.352.names $chr(160) $chr(160)
    ;^ call the display 3 names alias telling it channel and 3 names (blank fill last two name spots with hardspaces incase they are needed)
    ;
  }
  unset %old.352.names
  ;^ unset the still to process list
  ;
}

alias 1test {
  %test = nycdiesel ChatStats Ook @bamaboy @[-maverick-] Prospero Tweeder [AFX] Sheik Ami Kev_UK @[SoftWare] xhaker k3rnel @|3|acK_Kn|G||T @setile
  echo -a $gettok(%test,0,32)
  var %idx 0 , %idx2 0, %names
  while (%idx < $numtok(%test,32)) {
    inc %idx
    while (%idx2 < 3) {
      inc %idx2
      %names = %names $gettok(%test,%idx2,32)
      %test = $deltok(%test,%idx2,32)
      echo -s DELETED $gettok(%test,%idx2,32) from :%test:
    }
    echo -s %names
    unset %names
    %idx2 = 0
  }
}