alias nicksp {
  unset %nicksp
  set %i 0
  while %i <= $nick(#,0) {
    if (%ic ) { set %ic %nicksp }  
    if (%ic == $null ) { set %ic $1- }
    inc %i
    set %ia $nick(#, %i)
    if ($asc($mid(%ia,1)) > 127 ) { set %inick $mid(%ia,1,2) $+ · $+ $mid(%ia,3) }
    else { set %inick $mid(%ia,1,1) $+ · $+ $mid(%ia,2) }
    set %nicksp $replace(%ic,%ia,%inick)
  }
  unset %i*
  return %nicksp
}

on *:text:*:*: {

  tokenize 32 $strip($1-)

  if ( $1 == !t ) && ( $2 != $null ) {
    msg $chan start ( $2 )
    set %QN $2
    set %rand1 $read(a.txt,$rand(1,$lines(a.txt)-1))
    set %randQ $gettok(%rand1,1,61)
    timerA1 1 2 msg $chan %randQ
    set %switch1 1
    set %QNW 1
  }

  set %randA $gettok(%rand1,2,61)

  if ( %switch1 == 1 ) && ( $1- == %randA ) {
    msg $chan $nicksp($nick) ok
    set %switch1 2
    inc %QNW
  }

  if ( %switch1 == 2 ) && ( %QNW <= %QN ) {
    set %rand1 $read(a.txt,$rand(1,$lines(a.txt)-1))
    set %randQ $gettok(%rand1,1,61)
    timerA1 1 2 msg $chan %randQ
    set %switch1 1
  }

}