1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
alias cuptop { set %ticks $ticks var %x = 1 while (%x <= $lines(stats\txt\all.txt)) { write cuptop2.txt $base($read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),2),10,10,9) $read(stats\txt\all.txt,%x) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),3) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),8) inc %x } var %w = @sort, %file = cuptop2.txt, %run = $iif($1 = -r,y) if (!$isfile(%file)) { goto end } else { goto start } :start if ($window(@sort)) window -c @sort window -sh %w loadbuf %w %file write -c %file savebuf %w %file if (%run) run %file :end var %y = $lines(cuptop2.txt) while (%y >= 1) { write cuptop.txt $read(cuptop2.txt,%y) dec %y } .remove cuptop2.txt cuptop2 $1- } |
| Parsed for bracket errors and indented: | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
alias cuptop { set %ticks $ticks var %x = 1 while (%x <= $lines(stats\txt\all.txt)) { write cuptop2.txt $base($read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),2),10,10,9) $read(stats\txt\all.txt,%x) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),3) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),8) inc %x } var %w = @sort, %file = cuptop2.txt, %run = $iif($1 = -r,y) if (!$isfile(%file)) { goto end } else { goto start } :start if ($window(@sort)) window -c @sort window -sh %w loadbuf %w %file write -c %file savebuf %w %file if (%run) run %file :end var %y = $lines(cuptop2.txt) while (%y >= 1) { write cuptop.txt $read(cuptop2.txt,%y) dec %y } .remove cuptop2.txt cuptop2 $1- } |