05-05-2022, 07:13 AM
It plays well. I scored a 30 on grid #2. Played fast. Mouse might be nice, but I liked running patterns with the arrow keys.
Structure wise with keyboard routines I like to use...
It allows one use of INKEY$ in a central location. Mouse can be added.
Pete
Structure wise with keyboard routines I like to use...
Code: (Select All)
DO
GOSUB keybrd
SELECT CASE b$
CASE CHR$(13)
CASE CHR$(32)
CASE CHR$(0) + "H" 'Arrow Up.
CASE CHR$(0) + "P" 'Arrow Down.
CASE CHR$(0) + "M" 'Arrow Right.
CASE CHR$(0) + "K" 'Arrow Left.
CASE CHR$(27): SYSTEM
CASE ELSE: flag = -1
END SELECT
IF flag THEN flag = 0 ELSE EXIT DO
LOOP
END
keybrd:
DO
_LIMIT 30 ' Cuts down on CPU usage.
b$ = INKEY$
' A mouse routine can be added here.
IF LEN(b$) THEN EXIT DO
LOOP
RETURN
It allows one use of INKEY$ in a central location. Mouse can be added.
Pete
Shoot first and shoot people who ask questions, later.