Untitled

alias rank {

  close -@ @list*

  ;;$gwdRank(Name) returns "name :: score :: rank";;

  window @list1

  window @list2

  var %a 1

  while ($var(%cash*,%a)) {

    aline -a @list1 %cash [ $+ [ $remove($var(%cash*,%a),$+($chr(37),cash)) ] ] $remove($var(%cash*,%a),$+($chr(37),cash))

    inc %a

  }

  filter -wwteuc 1 1 @list1 @list2

  var %b $fline(@list2,* $1)

  return $+(4,$token($line(@list2,%b),2,32)) 14has4 $+($bytes($line(@list2,%b),b),GP) 14and is ranked4 $ord(%b) $+ .

}

 

on $*:TEXT:/^[!@.]score/Si:*: {

  if (!$2) {

    if (%cash [ $+ [ $nick ] ] isnum) {

      $iif($left($1,1) == @, msg $chan, .notice $nick) $rank($nick)

      halt

    }

    if (%cash [ $+ [ $nick ] ] !isnum) {

      $iif($left($1,1) == @, msg $chan, .notice $nick) 14Sorry4 $nick $+ 14, you have no score.

      halt

    }

  }

  if ($2) {

    if (%cash [ $+ [ $2 ] ] isnum) {

      $iif($left($1,1) == @, msg $chan, .notice $nick) $rank($2)

      halt

    }

    if (%cash [ $+ [ $2 ] ] !isnum) {

      $iif($left($1,1) == @, msg $chan, .notice $nick) 14Sorry4 $2 $+ 14, has no score.

      halt

    }

  }

}