mcphail/BASIC10Liner2026
Private
Public Access
1
0
Fork 0
Code Activity

Make ghost more aggressive

Browse Source
This commit is contained in:
Neil McPhail
2026-02-08 11:56:44 +00:00
parent 35f72d6857
commit 3305baccd7
2 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
game.tap
View File

Binary file not shown.

2
pac.bas
View File

@@ -6,6 +6,6 @@
LET k$=INKEY$: LET n=FN a(p,(32*(k$="d"))-(32*(k$="e"))-(k$="o")+(k$="p")) 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 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 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 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 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