Jogo do Dado

Este programa foi agora incluindo na versão 1.0.1 na pasta de projetos

É um programa simples, um jogo de lançar o dado, você tem um valor ao acaso de 1 a 6 e o computador vai ter outro




//--------------+
//Jogo do dado  +
//PT BASIC      +
//--------------+
VER_CE

MARCA.topo
LIMPAR_TEXTO

MOSTRAR Escolhe uma ação:
MOSTRAR [1] Lançar
MOSTRAR [2] Sair
INSERIR x=
SE: %x% IGUAL_A 1 VAI_PARA joga
SE: %x% IGUAL_A 2 TERMINAR_PROGRAMA

VAI_PARA topo

MARCA.joga

//Jogador lança um dado
VAR jogador=0
OPERAR jogador=ACASO.NUMERO*6/32767+1

//Computador lança um dado
VAR y=0
OPERAR y=ACASO.NUMERO*6/32767+1

SE: %jogador% MAIOR_QUE %y% (
MOSTRAR O seu dado deu %jogador%
MOSTRAR O dado do computador deu %y%
MOSTRAR Ganhou!
PAUSAR
VAI_PARA topo
)

SE: %jogador% IGUAL_A %y% (
MOSTRAR O seu dado deu %jogador%
MOSTRAR O dado do computador deu %y%
MOSTRAR Empate!
PAUSAR
VAI_PARA topo
)

SE: %jogador% MENOR_QUE %y% (
MOSTRAR O seu dado deu %jogador%
MOSTRAR O dado do computador deu %y%
MOSTRAR Perdeu!
PAUSAR
VAI_PARA topo
)