Post by Bruno Silva on Jan 13, 2015 15:43:40 GMT
Este é uma adaptação mais avançada do Jogo de exemplo "Adivinha o número" este tem 7 tentativas caso falhe a 7 perde o jogo que é o contrario do outro onde o jogo é infinito.
Código do jogo: (55 linhas)
VER_CE
MARCA.principio
NOME_DA_JANELA O Numero!
TAMANHO_DA_JANELA HORIZONTAL=35 VERTICAL=15
OPERAR numero= ACASO.100
VAR tenta=7
MARCA.topo
LIMPAR_TEXTO
SE: %tenta% IGUAL_A 0 VAI_PARA perdeu
MOSTRAR ===================================
MOSTRAR Adivinha o número - Em 7 tentativas
MOSTRAR ===================================
MOSTRAR 1 a 100
MOSTRAR Tentativas restantes: %tenta%
ESPAÇO
INSERIR x=
VERIFICA_SE_NUMÉRICO %x% y
SE: %y% IGUAL_A 0 VAI_PARA topo
SE: %x% IGUAL_A %numero% VAI_PARA ganhar
SE: %x% MENOR_QUE %numero% VAI_PARA pouco
SE: %x% MAIOR_QUE %numero% VAI_PARA alto
VAI_PARA topo
MARCA.ganhar
LIMPAR_TEXTO
MOSTRAR Correto! Ganhou o jogo!
MOSTRAR Carregue Enter para repetir.
PAUSAR
VAI_PARA principio
MARCA.alto
LIMPAR_TEXTO
MOSTRAR O valor é alto, tente mais baixo.
OPERAR tenta=%tenta%-1
PAUSAR
VAI_PARA topo
MARCA.pouco
LIMPAR_TEXTO
MOSTRAR O valor é baixo, tente mais alto.
OPERAR tenta=%tenta%-1
PAUSAR
VAI_PARA topo
MARCA.perdeu
LIMPAR_TEXTO
MOSTRAR Perdeu o jogo!
MOSTRAR O valor certo era: %numero%
MOSTRAR Carregue Enter para repetir.
PAUSAR
VAI_PARA principio