From aa693c367a62615231f183ab91a7b01a5e5d0328 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 9 Oct 2014 19:46:19 -0400
Subject: speed up the snake as the game goes on

---
 main.s | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/main.s b/main.s
index 7a20c25..37077a9 100644
--- a/main.s
+++ b/main.s
@@ -99,7 +99,7 @@ clrmem:
   LDA #$03
   LDX #$01
   STA head, x
-  LDA #30
+  LDA #35
   STA frame_skip
 
   ; Second wait for vblank, PPU is ready after this
@@ -349,7 +349,12 @@ eat_apple:
   TXA
   BEQ collision ; for now - this is the win condition
   STX length
-  JSR new_apple
+  AND #$07
+  BNE +
+  LDX frame_skip
+  DEX
+  STX frame_skip
++ JSR new_apple
 
 end_game_loop:
   RTS ; }}}
-- 
cgit v1.2.3-54-g00ecf