Jogo do Galo

Jogo do galo - 2 Jogadores
Este jogo não tem inteligencia artificial ou seja que é para dois jogadores, o código regista a posição do X e do O e vê quem ganha
Para repetir o jogo é só escrever o comando "repetir" a qalquer altura do jogo.




MARCA.inic

//Posição na tela
VAR p1=1
VAR p2=2
VAR p3=3
VAR p4=4
VAR p5=5
VAR p6=6
VAR p7=7
VAR p8=8
VAR p9=9

//Vares des posição livre
VAR a1=:VERDADEIRO
VAR a2=:VERDADEIRO
VAR a3=:VERDADEIRO
VAR a4=:VERDADEIRO
VAR a5=:VERDADEIRO
VAR a6=:VERDADEIRO
VAR a7=:VERDADEIRO
VAR a8=:VERDADEIRO
VAR a9=:VERDADEIRO

VAR c1=:VERDADEIRO
VAR c2=:VERDADEIRO
VAR c3=:VERDADEIRO
VAR c4=:VERDADEIRO
VAR c5=:VERDADEIRO
VAR c6=:VERDADEIRO
VAR c7=:VERDADEIRO
VAR c8=:VERDADEIRO
VAR c9=:VERDADEIRO

MARCA.topo
LIMPAR_TEXTO
MOSTRAR [%p1%-%p2%-%p3%]
MOSTRAR [%p4%-%p5%-%p6%]
MOSTRAR [%p7%-%p8%-%p9%]
INSERIR x=
SE: «x» IGUAL_A "repete" VAI_PARA inic

//Coloca x na posição se for VERDADEIRO.
SE: %a1% É_VERDADEIRO (

SE: %x% IGUAL_A 1 (
VAR p1=X
VAR a1=:FALSO
VAI_PARA testax
)
)


SE: %a2% É_VERDADEIRO (

SE: %x% IGUAL_A 2 (
VAR p2=X
VAR a2=:FALSO
VAI_PARA testax
)
)

SE: %a3% É_VERDADEIRO (

SE: %x% IGUAL_A 3 (
VAR p3=X
VAR a3=:FALSO
VAI_PARA testax
)
)

SE: %a4% É_VERDADEIRO (

SE: %x% IGUAL_A 4 (
VAR p4=X
VAR a4=:FALSO
VAI_PARA testax
)
)

SE: %a5% É_VERDADEIRO (

SE: %x% IGUAL_A 5 (
VAR p5=X
VAR a5=:FALSO
VAI_PARA testax
)
)

SE: %a6% É_VERDADEIRO (

SE: %x% IGUAL_A 6 (
VAR p6=X
VAR a6=:FALSO
VAI_PARA testax
)
)

SE: %a7% É_VERDADEIRO (

SE: %x% IGUAL_A 7 (
VAR p7=X
VAR a7=:FALSO
VAI_PARA testax
)
)

SE: %a8% É_VERDADEIRO (

SE: %x% IGUAL_A 8 (
VAR p8=X
VAR a8=:FALSO
VAI_PARA testax
)
)

SE: %a9% É_VERDADEIRO (

SE: %x% IGUAL_A 9 (
VAR p9=X
VAR a9=:FALSO
VAI_PARA testax
)
)
VAI_PARA topo

MARCA.testax
SE: «p1» IGUAL_A "X" SE: «p2» IGUAL_A "X" SE: «p3» IGUAL_A "X" VAI_PARA final1
SE: «p4» IGUAL_A "X" SE: «p5» IGUAL_A "X" SE: «p6» IGUAL_A "X" VAI_PARA final1
SE: «p7» IGUAL_A "X" SE: «p8» IGUAL_A "X" SE: «p9» IGUAL_A "X" VAI_PARA final1

::Linha obliqua
SE: «p1» IGUAL_A "X" SE: «p5» IGUAL_A "X" SE: «p9» IGUAL_A "X" VAI_PARA final1
SE: «p7» IGUAL_A "X" SE: «p5» IGUAL_A "X" SE: «p3» IGUAL_A "X" VAI_PARA final1

::linha vetical
SE: «p1» IGUAL_A "X" SE: «p4» IGUAL_A "X" SE: «p7» IGUAL_A "X" VAI_PARA final1
SE: «p2» IGUAL_A "X" SE: «p5» IGUAL_A "X" SE: «p8» IGUAL_A "X" VAI_PARA final1
SE: «p3» IGUAL_A "X" SE: «p6» IGUAL_A "X" SE: «p9» IGUAL_A "X" VAI_PARA final1
VAI_PARA jogabola


MARCA.jogabola
LIMPAR_TEXTO
MOSTRAR [%p1%-%p2%-%p3%]
MOSTRAR [%p4%-%p5%-%p6%]
MOSTRAR [%p7%-%p8%-%p9%]
INSERIR x=


SE: %c1% É_VERDADEIRO (
SE: %a1% É_VERDADEIRO (
SE: %x% IGUAL_A 1 (
VAR p1=O
VAR a1=:FALSO
VAI_PARA testabola
)
)
)

SE: %c2% É_VERDADEIRO (
SE: %a2% É_VERDADEIRO (
SE: %x% IGUAL_A 2 (
VAR p2=O
VAR a2=:FALSO
VAI_PARA testabola
)
)
)
SE: %c3% É_VERDADEIRO (
SE: %a3% É_VERDADEIRO (
SE: %x% IGUAL_A 3 (
VAR p3=O
VAR a3=:FALSO
VAI_PARA testabola
)
)
)

SE: %c4% É_VERDADEIRO (
SE: %a4% É_VERDADEIRO (
SE: %x% IGUAL_A 4 (
VAR p4=O
VAR a4=:FALSO
VAI_PARA testabola
)
)
)
SE: %c5% É_VERDADEIRO (
SE: %a5% É_VERDADEIRO (
SE: %x% IGUAL_A 5 (
VAR p5=O
VAR a5=:FALSO
VAI_PARA testabola
)
)
)
SE: %c6% É_VERDADEIRO (
SE: %a6% É_VERDADEIRO (
SE: %x% IGUAL_A 6 (
VAR p6=O
VAR a6=:FALSO
VAI_PARA testabola
)
)
)

SE: %c7% É_VERDADEIRO (
SE: %a7% É_VERDADEIRO (
SE: %x% IGUAL_A 7 (
VAR p7=O
VAR a7=:FALSO
VAI_PARA testabola
)
)
)
SE: %c8% É_VERDADEIRO (
SE: %a8% É_VERDADEIRO (
SE: %x% IGUAL_A 8 (
VAR p8=O
VAR a8=:FALSO
VAI_PARA testabola
)
)
)

SE: %c9% É_VERDADEIRO (
SE: %a9% É_VERDADEIRO (
SE: %x% IGUAL_A 9 (
VAR p9=O
VAR a9=:FALSO
VAI_PARA testabola
)
)
)

SE: «x» IGUAL_A "repete" VAI_PARA inic
VAI_PARA jogabola

MARCA.testabola
SE: «p1» IGUAL_A "O" SE: «p2» IGUAL_A "O" SE: «p3» IGUAL_A "O" VAI_PARA final2
SE: «p4» IGUAL_A "O" SE: «p5» IGUAL_A "O" SE: «p6» IGUAL_A "O" VAI_PARA final2
SE: «p7» IGUAL_A "O" SE: «p8» IGUAL_A "O" SE: «p9» IGUAL_A "O" VAI_PARA final2

::Linha obliqua
SE: «p1» IGUAL_A "O" SE: «p5» IGUAL_A "X" SE: «p9» IGUAL_A "O" VAI_PARA final2
SE: «p7» IGUAL_A "O" SE: «p5» IGUAL_A "X" SE: «p3» IGUAL_A "O" VAI_PARA final2

::linha vetical
SE: «p1» IGUAL_A "O" SE: «p4» IGUAL_A "O" SE: «p7» IGUAL_A "O" VAI_PARA final2
SE: «p2» IGUAL_A "O" SE: «p5» IGUAL_A "O" SE: «p8» IGUAL_A "O" VAI_PARA final2
SE: «p3» IGUAL_A "O" SE: «p6» IGUAL_A "O" SE: «p9» IGUAL_A "O" VAI_PARA final2
VAI_PARA topo

MARCA.final2
LIMPAR_TEXTO
MOSTRAR O Ganha!
PAUSAR
VAI_PARA inic

MARCA.final1
LIMPAR_TEXTO
MOSTRAR X Ganha!
PAUSAR
VAI_PARA inic