From 09ef3617f78873a0c404569ee22d940378617d33 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sun, 23 Jul 2023 16:08:54 -0700
Subject: [PATCH] Golf. Now 8161 tokens (from 8185).

---
 extreme-tetrom.p8 | 30 ++++++++++--------------------
 1 file changed, 10 insertions(+), 20 deletions(-)

diff --git a/extreme-tetrom.p8 b/extreme-tetrom.p8
index 987781f..700f889 100644
--- a/extreme-tetrom.p8
+++ b/extreme-tetrom.p8
@@ -1960,30 +1960,25 @@ function readdata()
 end
 
 function getscores(mode)
- mode-=1
- local scores={}
- for i=1,3 do
-  scores[i]=dget(15+3*mode+i)
- end
- return scores
+ mode *= 3
+ return {
+  dget(13+mode),
+  dget(14+mode),
+  dget(15+mode)
+ }
 end
 
 function addscore(mode,score)
- if (score==0)return -1
- local s=getscores(mode)
+ if (score==0)return
+ local s,inv=getscores(mode), invscr_ordering and -1 or 1
  s[4]=score
 
- if(invscr_ordering)inv_scores(s)
-
  local i=3
  while 0<i do
-  if s[i+1]>s[i]or 0==s[i]then
-   s[i+1],s[i]=s[i],s[i+1]
-  else break end
+  if (s[i]!=0 and s[i+1]*inv<=s[i]*inv) break
+  s[i+1],s[i]=s[i],s[i+1]
   i-=1
  end
-
- if(invscr_ordering)inv_scores(s)
  
  mode-=1
  for n=1,3 do
@@ -1993,11 +1988,6 @@ function addscore(mode,score)
  return i+1
 end
 
-function inv_scores(s)
- for i=1,#s do
-  s[i]*=-1
- end
-end
 -->8
 --animations