Merge pull request #887 from FreddyFunk/FreddyFunk-gomoko-coordinates

gomoko: fix "intelligent move" coordinates
coding-horror · Aug 9, 2023 · ec65c26 · ec65c26
2 parents 0be5025 + 4efbb83
commit ec65c26
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/40_Gomoko/gomoko.bas b/40_Gomoko/gomoko.bas
@@ -28,7 +28,7 @@
 440 A(I,J)=1
 500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE ***
 510 FOR E=-1 TO 1: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590
-540 X=I+F: Y=J+F: GOSUB 910
+540 X=I+E: Y=J+F: GOSUB 910
 570 IF L=0 THEN 590
 580 IF A(X,Y)=1 THEN 710
 590 NEXT F: NEXT E