From 3305baccd720c6e2ce43073a60d400ee3b1a2204 Mon Sep 17 00:00:00 2001
From: Neil McPhail <neil@themcphails.uk>
Date: Sun, 8 Feb 2026 11:56:44 +0000
Subject: [PATCH] Make ghost more aggressive

---
 game.tap | Bin 970 -> 970 bytes
 pac.bas  |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/game.tap b/game.tap
index ed456680a76d18367143244ab24b46db00fea033..4101e69dd359867e708c48f3c3d79e41fb3f13d6 100644
GIT binary patch
delta 29
ecmX@beu{m=2_`l}3qA%0p~>f%#9_?WO!onN<p>l2

delta 29
ecmX@beu{m=2_`mULp}xu`N`*)#9_?WO!onOX$T|$

diff --git a/pac.bas b/pac.bas
index 42c4e21..99af620 100644
--- a/pac.bas
+++ b/pac.bas
@@ -6,6 +6,6 @@
     LET k$=INKEY$: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p"))
     LET b=(b*NOT n)+n: POKE p,0: LET q=PEEK (p+b): LET p=p+b*(q<>56): DATA 6,3,8,4,2
     LET p=p+(-14*b*(q>99)): LET q=PEEK p: POKE p,54: POKE g,z: LET j=g-p: DATA 4,4,4
-    LET j=FN a(g,32*(j<-31))+FN a(g,-32*(j>31)): IF j=0 THEN LET j=FN b(): DATA 5,4
+    LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): IF j=0 THEN LET j=FN b(): DATA 5,4
     LET x=j-(x*NOT j): LET g=g+x: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN
     LET s=s+1*(q=4): NEXT s: RUN: DEF FN a(l,n)=n*(PEEK (l+n)<>56): DATA 6,4,8,0,0
\ No newline at end of file