From 8058d5cd86337a539b7b9fedfc5d4a4511adf53e Mon Sep 17 00:00:00 2001
From: Jason Reed <jcreed@gmail.com>
Date: Sun, 5 Nov 2023 10:06:45 -0500
Subject: [PATCH] Make debugging mode give you a lot of points

---
 src/core/reduce.ts | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/core/reduce.ts b/src/core/reduce.ts
index 3c5fe84..3918a14 100644
--- a/src/core/reduce.ts
+++ b/src/core/reduce.ts
@@ -294,7 +294,9 @@ function reduceGameAction(state: GameState, action: GameAction): effectful.Resul
         return gs(tryKillTileOfState(state, getWidgetPoint(state, state.mouseState.p_in_canvas)));
       }
       if (action.code == 'd') {
-        return gs(checkValid(addWorldTiles(removeAllTiles(state), debugTiles())));
+        return gs(checkValid(produce(addWorldTiles(removeAllTiles(state), debugTiles()), s => {
+          s.score = 1000;
+        })));
       }
       return gs(state);
     }