alias write_large_file {

  var %t = $ticks

  var %f = test_big_file.txt

  var %l = 165000

  var %i = 1

  while (%i <= %l) {

    var %p = $rands(1,10000)

    var %n = $rands(a,z) $+ $rands(A,Z) $+ $rands(0,9) $+ $rands(0,9) $+ $rands(a,z) $+ $rands(A,Z) $+ $rands(0,9) $+ $rands(0,9) $+ $rands(a,z) $+ $rands(A,Z)

    write $qt(%f) %n %p

    inc %i

  }

  echo 4 -a Finished! - Took: $calc(($ticks - %t) / 1000) $+ s

}

; ----

alias test_1 {

  if (!$1) && ($1 !isnum) { return }

  echo 4 -a Executing /test_1 $1 ..

  var %t = $ticks

  var %f = test_big_file.txt

  if ($window(@top_players)) { window -c $v1 }

  if ($file(%f)) {

    window -hj100000000000 @top_players

    loadbuf @top_players $qt(%f)

    filter -ceutww 2 32 @top_players @top_players

  }

  var %i = 1

  while (%i <= $1) {

    var %line = $line(@top_players,%i)

    var %nick = $gettok(%line,1,32)

    var %points = $gettok(%line,2,32)

    if (%line) { echo -a ( $+ $chr(35) $+ %i $+ ): %nick - %points }

    inc %i

  }

  if ($window(@top_players)) { window -c $v1 }

  echo 4 -a Finished! - Took: $calc(($ticks - %t) / 1000) $+ s

}

alias test_2 {

  if (!$1) && ($1 !isnum) { return }

  echo 4 -a Executing /test_2 $1 ..

  var %t = $ticks

  var %f = test_big_file.txt

  if ($window(@top_players)) { window -c $v1 }

  if ($file(%f)) { window -hj100000000000 @top_players | filter -ceutfw 2 32 $qt(%f) @top_players }

  var %i = 1

  while (%i <= $1) {

    var %line = $line(@top_players,%i)

    var %nick = $gettok(%line,1,32)

    var %points = $gettok(%line,2,32)

    if (%line) { echo -a ( $+ $chr(35) $+ %i $+ ): %nick - %points }

    inc %i

  }

  if ($window(@top_players)) { window -c $v1 }

  echo 4 -a Finished! - Took: $calc(($ticks - %t) / 1000) $+ s

}