07-08-2022, 12:27 AM
In this function X and Y will always be 0.
---------------------------
Function FND (Q)
FND = (64 * (Q - 1)) + (8 * (X - 1)) + Y
End Function
----------------------
not 100% sure it'll work but I'd recommend adding this line after the original source code line 1130:
Dim Shared x, y
---------------------------
Function FND (Q)
FND = (64 * (Q - 1)) + (8 * (X - 1)) + Y
End Function
----------------------
not 100% sure it'll work but I'd recommend adding this line after the original source code line 1130:
Dim Shared x, y