on $*:TEXT:/^\.(listplayers\b.*|lp\b.*)/i:%ch: {
  if (!%game.on) { return }
  if ($timer(listplayers)) { return }
  var %i = 1
  var %l = $numtok(%c.gameauths,46)
  while ( %i <= %l ) {
    var %u = $getid($gettok(%c.gameauths,%i,46))
    var %list = %list $getname(%u) $+ ( $+ $user(%u).exp $+ ) $+ $chr(44)
    inc %i
  }
  var %list = $mid(%list,1,$calc($len(%list)-1))
  describe %ch 7» Player Pool $enclose($numtok(%c.gameauths,46))) 7» %list
  timerlistplayers 1 10 noop
}