Jogo de Pênaltis

Jogo de Pênaltis

O Objetivo é marca golo no pênalti.
O programa possui 180 Linha e graficos com o comando DESENHAR
O computador diz coisas diferentes quando é golo ou é defesa.
É um jogo muito simples de fazer.














O código sozinho não funciona, é necessario também ter os ficheiros de texto onde estão os graficos
portanto aqui neste link estão os ficheiros mais o jogo. www.dropbox.com/s/8ncrwxnx9bsqkdc/Jogo%20de%20P%C3%AAnaltis.zip?dl=0


//---------------------------------------------------------------------------------------------------
//Este é um jogo simples de remate e de probabilidade de defesa.
//Para este programa funcionar corretamente é necessaio ter os ficheiros que fazem de imagem no jogo.
//Faça Download do jogo, dentro da pasta está contido esses ficheiros.
//---------------------------------------------------------------------------------------------------

COR: 02
TAMANHO_DA_JANELA HORIZONTAL=81 VERTICAL=23
VER_CE
NOME_DA_JANELA Jogo de Pênaltis!


MARCA.topo
MOSTRAR                                 Jogo de Pênaltis!
MOSTRAR    ==========================================================================
MOSTRAR                               [1] Jogar - [2] Sair
DESENHAR baliza.txt                            
ESPAÇO
INSERIR comando=
SE: %comando% IGUAL_A 1 VAI_PARA jogar
SE: %comando% IGUAL_A 2 TERMINAR_PROGRAMA
VAI_PARA topo


MARCA.jogar
COR: 02
LIMPAR_TEXTO

DESENHAR baliza.txt
ESPAÇO
MOSTRAR Escolha um lado para rematar:
MOSTRAR [1] Esquerda - [2] Centro - [3] Direita

INSERIR remate=
OPERAR guardaredes=ACASO_3

SE: %remate% IGUAL_A %guardaredes% VAI_PARA defendeu

//Se não defendeu então é golo
SE: %remate% IGUAL_A 1 VAI_PARA goloesquerda
SE: %remate% IGUAL_A 2 VAI_PARA golocentro
SE: %remate% IGUAL_A 3 VAI_PARA golodireita
VAI_PARA jogar


MARCA.defendeu
LIMPAR_TEXTO
COR: 04
OPERAR falasdefendeu=ACASO_5

//Desenho da defesa
SE: %remate% IGUAL_A 1 (
DESENHAR falhou1.txt
)
    SE: %remate% IGUAL_A 2 (
DESENHAR falhou2.txt
)
SE: %remate% IGUAL_A 3 (
DESENHAR falhou3.txt
)
ESPAÇO
//Falas
SE: %falasdefendeu% IGUAL_A 1 (
MOSTRAR Defendeu!
MOSTRAR Que falha!
)
SE: %falasdefendeu% IGUAL_A 2 (
MOSTRAR O Guarda redes quase que apanhou a bola com a boca!
MOSTRAR Pênalti falhado!
)
SE: %falasdefendeu% IGUAL_A 3 (
MOSTRAR DEFENDEU!
MOSTRAR Que grande defesa!
)
SE: %falasdefendeu% IGUAL_A 4 (
MOSTRAR DEFENDEU!
MOSTRAR Muito facil para o guarda redes!
)
SE: %falasdefendeu% IGUAL_A 5 (
MOSTRAR Defendeu!
MOSTRAR A bola foi afastada com a palma da mão do guarda redes!
)
PAUSAR
VAI_PARA jogar



MARCA.golodireita
OPERAR falasgolo=ACASO_5
LIMPAR_TEXTO
DESENHAR golo1.txt

ESPAÇO
SE: %falasgolo% IGUAL_A 1 (
MOSTRAR Que grande golo!
MOSTRAR Deixou sem qualquer chance ao guarda redes!
)

SE: %falasgolo% IGUAL_A 2 (
MOSTRAR Golooooooooooooooooooooooooooo!
MOSTRAR Que força! Que força! Grande golo!
)

SE: %falasgolo% IGUAL_A 3 (
MOSTRAR Golo!
MOSTRAR A bola vai devagar mas entra na baliza!
)
SE: %falasgolo% IGUAL_A 4 (
MOSTRAR Que lindo!
MOSTRAR A Bola entra nas redes da baliza deixando guarda redes sem chances!
)
SE: %falasgolo% IGUAL_A 5 (
MOSTRAR Golo! É GOLO! GOLOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
MOSTRAR Grande remante! É GOLOOOOOOOOOOO!
)
PAUSAR
VAI_PARA jogar

MARCA.goloesquerda
OPERAR falasgolo=ACASO_5
LIMPAR_TEXTO
DESENHAR golo2.txt

ESPAÇO
SE: %falasgolo% IGUAL_A 1 (
MOSTRAR Que grande, grande golo!
MOSTRAR Deixou sem qualquer chance ao guarda redes!
)

SE: %falasgolo% IGUAL_A 2 (
MOSTRAR Golooooooooooooooooooooooooooo!
MOSTRAR Que força! Que força! Grande golo! É GOLO!!!!
)

SE: %falasgolo% IGUAL_A 3 (
MOSTRAR Golo! GOLOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO!
MOSTRAR A bola vai devagar mas entra na baliza!
)
SE: %falasgolo% IGUAL_A 4 (
MOSTRAR Que lindo! Beleza!
MOSTRAR A Bola entra nas redes da baliza deixando guarda redes sem chances!
)
SE: %falasgolo% IGUAL_A 5 (
MOSTRAR Golo! É GOLO! GOLOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
MOSTRAR Grande remante! É GOLOOOOOOOOOOO! É GOLOOOOOOOOOOOOOOOOOO
MOSTRAR Na cara do guarda redes! A bola é enviada para o sentido oposto do guarda redes!
MOSTRAR É GOLO!!
)
PAUSAR
VAI_PARA jogar


MARCA.golocentro
OPERAR ladogolo=ACASO_2
OPERAR falasgolo=ACASO_5
LIMPAR_TEXTO

SE: %ladogolo% IGUAL_A 1 (
DESENHAR golo31.txt
)
SE: %ladogolo% IGUAL_A 2 (
DESENHAR golo32.txt
)

ESPAÇO
SE: %falasgolo% IGUAL_A 1 (
MOSTRAR GOLO! GOLO! GOLO! GOLO! GOLO! GOLO! GOLO! GOLO! GOLO! GOLO! GOLO!
MOSTRAR HAAAAA! GOLO! GOLO! HAAAAAAA! ESTÁ LÁ DENTRO!!
)

SE: %falasgolo% IGUAL_A 2 (
MOSTRAR Golooooooooooooooooooooooooooo!
MOSTRAR AI ESTÁ! AI ESTÁ! É GOLOOOOOOOO!
)

SE: %falasgolo% IGUAL_A 3 (
MOSTRAR Bola para o centro mas é golo!
MOSTRAR Grande remate e grande golo!
)
SE: %falasgolo% IGUAL_A 4 (
MOSTRAR HUHAHAUAAAAAAAAAAAA! GOLOOOOOOOOOOOOOOOOOOOOOOOOOO!
MOSTRAR LÁ DENTRO! ESTÁ FEITO! É GOLO!
)
SE: %falasgolo% IGUAL_A 5 (
MOSTRAR Golo!
MOSTRAR Muito bem marcado, bola no centro mas o guarda redes nem a viu!
)
PAUSAR
VAI_PARA jogar