on *:TEXT:!top5:#:{
top5 #
}
alias -l top5 {
window -h @. | var %i 1
while $gettok($remove($read(Casino.ini,w,$+(*,$1,*),%i),[,]),2,46) {
var %n $v1, %p $gettok($read(Casino.ini,$calc($readn + 1)),2,61)
aline @. %n %p
var %i $calc($readn + 1)
}
filter -cetuww 2 32 @. @.
var %i 1 | while %i <= 5 {
var %list $addtok(%list,$line(@.,%i),44)
inc %i
}
msg $1 Top 5: $replace(%list,$chr(44),$+($chr(44),$chr(32)))
window -c @.
}