alias sp {
  var %x = 1, %i = 1, %mass = $regsubex($str(.,$nick(#,0)),/./g,$+($replace($iif($left($nick(#,\n).pnick,1) isin @%+,$v1,-),@,12@,%,07%,+,04+,-,10-),$nick(#,\n),$chr(32))))
  while %mass { .timer 1 $calc(%x * 1.5) say $replace($gettok(%mass,1-30,32),$chr(32),$chr(32) $+(10,•,) $chr(32)) | var %mass $replace($gettok(%mass,31-,32),$chr(32),$chr(32) $+(10,•,) $chr(32))
    inc %x
  }
}