Simple top points (based on craftingmotion's points script)

; Note, this script may take a long time to run if your points.ini file is large.

alias -l toppoints {
  window -hl @points
  var %i = 1
  while ($ini(points.ini, %i) != $null) {
    if (#$1.* iswm $v1) aline @points $+($gettok($v2, 2, 46),=,$readini(points.ini, n, $v2, points))
    inc %i
  }
  filter -wwcetu 2 61 @points @points
  var %i = 1, %l = $line(@points, 0), %n = $iif($2 isnum $+(2-,%l), $int($v1), $gettok($sorttok(5 %l, 32, n), 1, 32)), %r
  while (%i <= %n) {
    %r = $addtok(%r, $chr(32) $+($ord(%i),:) $regsubex($line(@points, %i), ([^=]+)=(\d+), \1 $chr(40)\2 $iif(\2 == 1, point, points) $+ $chr(41)), 44)
    inc %i
  }
  close -@ @points
  return %r
}

on *:TEXT:!top*:#: {
  var %t $toppoints(#, $2), %n = $numtok(%t, 44)
  if (%t == $null) msg # No users have any points on this channel.
  else describe # Top %n points rankings for # $+ : %t
}