Miscellany

on $*:TEXT:/^[!@]top 5$/Si:#:{
  var %a = 1, %b = 1
  while ($ini(WorldLog.ini,SetCount,%a)) {
    set $+(%,pcs.,$readini(WorldLog.ini,SetCount,$v1)) $($+(%,pcs.,$readini(WorldLog.ini,SetCount,$v1)),2) & $v1
    var %#str = $sorttok($addtok(%#str,$readini(WorldLog.ini,SetCount,$v1),46),46,nr)
    inc %a
  }
  while (%b <= 5) {
    var %str = %str $c1($+(%b,$chr(41))) $c2($right($($+(%,pcs.,$gettok(%#str,%b,46)),2),-2)) $c3($+([,$gettok(%#str,%b,46),]))
    inc %b
  }
  msg $chan The Top 5 World Setters are: %str
  unset %pcs.*
}
alias -l c1 { return $+(05,$1,) }
alias -l c2 { return $+(10,$1,) }
alias -l c3 { return $+(07,$1,) }