Escutando o jogador: joystick, teclado e INPUT

1. As três formas de escutar

O CrossScript oferece três canais de entrada, e cada um serve a uma situação:

• STICK / STRIG — o joystick, para o gameplay.
• KEY(tecla) — uma tecla específica, para atalhos e menus.
• INPUT — uma linha de texto, para nome de jogador, senha, respostas.

2. STICK e STRIG — o joystick

O comando STICK(porta) devolve um número de 0 a 8 indicando para onde a alavanca está apontada; STRIG(porta) devolve TRUE (1) enquanto o botão de tiro estiver pressionado. Porta 0 é o teclado emulando joystick; portas 1 e 2 são os joysticks físicos.

     8 1 2
     7 0 3
     6 5 4

USES SCREEN 1, KEYBOARD
SCREEN 1 : CLS
WHILE STRIG(0) = 0
  LOCATE 0, 0
  PRINT "DIRECAO = "; STICK(0); "  "
WEND
PRINT "TIRO!"

3. KEY(n) — teclas nomeadas

KEY(código) retorna TRUE enquanto a tecla estiver pressionada. Os códigos mais úteis já vêm com nome no CrossScript: KEY(SPACE), KEY(ESC), KEY(RETURN), KEY(F1)..KEY(F5), KEY(SHIFT), KEY(CTRL), e letras KEY(A)..KEY(Z).

USES SCREEN 1, KEYBOARD
SCREEN 1 : CLS
PRINT "APERTE ESC PARA SAIR"

WHILE KEY(ESC) = 0
  IF KEY(SPACE) THEN PRINT "*";
WEND

4. INPUT — lendo texto digitado

INPUT é o velho conhecido do BASIC: mostra um cursor, espera o usuário digitar e teclar RETURN, e joga o resultado na variável.

DIM nome AS STRING
DIM idade AS BYTE

PRINT "SEU NOME? ";
INPUT nome
PRINT "SUA IDADE? ";
INPUT idade

PRINT "OLA, "; nome; "! VOCE TEM "; idade; " ANOS."

O ponto-e-vírgula no PRINT mantém o cursor na mesma linha (como no MSX BASIC), e o INPUT continua ali mesmo. Tipos numéricos são convertidos automaticamente; se o usuário digitar letras num campo BYTE, o INPUT recusa e pede de novo.

5. O padrão "Press START" que resolve o RND

Combine STRIG com RANDOMIZE para a receita idiomática de todo jogo MSX:

USES SCREEN 1, RANDOM, KEYBOARD
CLS
PRINT "APERTE ESPACO PARA COMECAR"
WHILE STRIG(0) = 0
WEND
RANDOMIZE       ' JIFFY variou conforme o tempo do jogador
CLS
' ... gameplay ...

O tempo até o jogador reagir é a fonte de entropia — resolve o problema de o emulador começar sempre com a mesma semente. Isso é aprofundado no capítulo 12.

6. Resumo do capítulo

• STICK/STRIG/KEY não bloqueiam o loop. INPUT bloqueia.
• Sempre coloque USES KEYBOARD no topo dos programas que leem input.

Nomes das teclas

Em vez de decorar números, você pode passar o nome da tecla entre aspas para KEY, ou usar as constantes prontas que começam com K_:

IF KEY("SPACE") THEN PRINT "PULO"
IF KEY(K_ESC) THEN PRINT "SAIR"
IF KEY("A") THEN PRINT "TECLA A"