Untitled

on $*:text:/^[!@.]rank/Si:#: {
if (!$2) || ($2 !isnum) {
notice $nick Error, please select a valid rank.
halt
}
notice $nick $ranks($2)
}

alias ranks {
  ;;$Ranks(Rank) returns "Ranked rank is nick with score.";;
  window -h @list1
  window -h @list2
  var %a 1
  while ($var(%cash*,%a)) {
    aline -a @list1 $($v1,2) $right($v1,-5)
    inc %a
  }
  filter -wwteuc 1 1 @list1 @list2
  var %b $line(@list2,$1)
  var %c $line(@list2,0)
  .timer 1 0 close -@ @list*
  if ((%b == $null) && (%c isnum)) {
    return Error! The lowest rank is $gettok(%c,1,32) $+ .
  }
  else {
    return Ranked $ord($1) is $gettok(%b,2,32) with $+($bytes($gettok(%b,1,32),b),gp,.)
  }
}