Simulação de corridas de carros.

Simulador de Corridas
O programa simula uma corrida entre dois carros que vão a velocidade diferente.
Neste simulador o utilizador não interage com o programa apenas assite á corrida.







TAMANHO_DA_JANELA VERTICAL=15 HORIZONTAL=100
NOME_DA_JANELA Corrida de Carros
VAR a1=
VAR a2=
VAR y1=0
VAR z2=0
                                                                                                                                               
MARCA.topo

LIMPAR_TEXTO
MOSTRAR =================================================================================== ^|Meta
MOSTRAR Carro 1: %a1%.-.
MOSTRAR Carro 2: %a2%.-.
MOSTRAR =================================================================================== ^|Meta
ENTRAR_corre

SE: %y1% MAIOR_QUE 74 (
MOSTRAR O Carro 1 ganhou!
PARAR_PROGRAMA
)
SE: %z2% MAIOR_QUE 74 (
MOSTRAR O Carro 2 ganhou!
PARAR_PROGRAMA
)


VAI_PARA topo


CORREDOR_corre
//Velocidade de cada carro
OPERAR xa1=ACASO_10
OPERAR xa2=ACASO_10
//O que isto faz é simplesmente adicionar um espaço na var de a1 e a2 e depois na pista da corrida os espaços empurram o desenho do carro.
SE: %xa1% IGUAL_A 10 (
VAR a1= %a1%
OPERAR y1_AUMENTAR
)
SE: %xa2% IGUAL_A 10 (
VAR a2= %a2%
OPERAR z2_AUMENTAR
)
FIM_DO_CORREDOR
O código foi feito usando CORREDORES.